--- Webpacus/lib/Webpacus.pm 2005/11/21 17:46:27 83 +++ Webpacus/lib/Webpacus.pm 2005/12/03 01:56:37 205 @@ -9,14 +9,23 @@ # -Debug: activates the debug mode for very useful log messages # Static::Simple: will serve static files from the applications root directory # -use Catalyst qw/-Debug Static::Simple Prototype Unicode::Encoding/; +use Catalyst qw/-Debug + Static::Simple + Prototype + Config::YAML + FillInForm +/; +# FormValidator -our $VERSION = '0.01'; +our $VERSION = '0.13-dev'; # # Configure the application # -__PACKAGE__->config( name => 'Webpacus', encoding => 'ISO-8859-2' ); +__PACKAGE__->config( + name => 'Webpacus', + config_file => 'config.yml', +); # # Start the application @@ -55,15 +64,23 @@ sub end : Private { my ( $self, $c ) = @_; + $c->stash->{webpacus_version} = $VERSION; + # Forward to View unless response body is already defined $c->forward('View::TT') unless $c->response->body; + + $c->fillform; # defaults to $c->req->parameters + +# $c->response->{body} =~ s#\Qnew Ajax.Autocompleter(\E#new Ajax.Suggest(#gs; +# $c->log->debug( $c->response->body ); + } =back =head1 AUTHOR -Dobrica Pavlinusic,,, +Dobrica Pavlinusic, C<< >> =head1 LICENSE