/[webpac2]/Webpacus/lib/Webpacus.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /Webpacus/lib/Webpacus.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 83 by dpavlin, Mon Nov 21 17:46:27 2005 UTC revision 357 by dpavlin, Sat Jan 7 23:43:38 2006 UTC
# Line 9  use warnings; Line 9  use warnings;
9  #         -Debug: activates the debug mode for very useful log messages  #         -Debug: activates the debug mode for very useful log messages
10  # Static::Simple: will serve static files from the applications root directory  # Static::Simple: will serve static files from the applications root directory
11  #  #
12  use Catalyst qw/-Debug Static::Simple Prototype Unicode::Encoding/;  use Catalyst qw/-Debug
13            Prototype
14            Config::YAML
15            FillInForm
16            SubRequest
17            Static::Simple
18            StackTrace
19    /;
20    #       FormValidator
21    
22  our $VERSION = '0.01';  our $VERSION = '0.30-dev';
23    
24  #  #
25  # Configure the application  # Configure the application
26  #  #
27  __PACKAGE__->config( name => 'Webpacus', encoding => 'ISO-8859-2' );  __PACKAGE__->config(
28            name => 'Webpacus',
29            config_file => 'config.yml',
30    );
31    
32  #  #
33  # Start the application  # Start the application
# Line 55  sub default : Private { Line 66  sub default : Private {
66  sub end : Private {  sub end : Private {
67      my ( $self, $c ) = @_;      my ( $self, $c ) = @_;
68    
69      # Forward to View unless response body is already defined      $c->stash->{webpacus_version} = $VERSION;
70      $c->forward('View::TT') unless $c->response->body;  
71        if ($c->response->body) {
72            $c->log->debug("at end body exists, we won't touch it!");
73        } else {
74                    $c->fillform( $c->req->params );
75    
76                    # Forward to View unless response body is already defined
77                    $c->forward('View::TT');
78    
79                    $c->response->{body} =~ s#\Qnew Ajax.Autocompleter(\E#new WebPAC.Suggest(#gs;
80                    $c->response->{body} =~ s#\Qnew Ajax.Updater(\E#new WebPAC.Updater(#gs;
81    
82    #               $c->log->debug( $c->response->body );
83        }
84    
85  }  }
86    
87  =back  =back
88    
89  =head1 AUTHOR  =head1 AUTHOR
90    
91  Dobrica Pavlinusic,,,  Dobrica Pavlinusic, C<< <dpavlin@rot13.org> >>
92    
93  =head1 LICENSE  =head1 LICENSE
94    

Legend:
Removed from v.83  
changed lines
  Added in v.357

  ViewVC Help
Powered by ViewVC 1.1.26