/[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 358 by dpavlin, Sun Jan 8 13:58:19 2006 UTC revision 396 by dpavlin, Wed Feb 15 15:23:52 2006 UTC
# Line 19  use Catalyst qw/-Debug Line 19  use Catalyst qw/-Debug
19  /;  /;
20  #       FormValidator  #       FormValidator
21    
22  our $VERSION = '0.31-dev';  our $VERSION = '0.32-dev';
23    
24  #  #
25  # Configure the application  # Configure the application
# Line 60  sub default : Private { Line 60  sub default : Private {
60    
61          my $site_name = shift @{ $c->req->args };          my $site_name = shift @{ $c->req->args };
62    
63            $c->log->debug("trying site name: $site_name");
64    
65          if (my $sites_root = $c->config->{sites_root}) {          if (my $sites_root = $c->config->{sites_root}) {
66                  my $site_path = $c->path_to('root', $sites_root, $site_name);                  my $site_path = $c->path_to('root', $sites_root, $site_name);
67    
68                  if (-e $site_path) {                  if (-e $site_path) {
69                          $c->stash->{site} = $site_name;                          $c->stash->{site} = $site_name;
70                          if (my $action = shift @{ $c->req->args }) {                          if (my $action = join('/', @{ $c->req->args })) {
71                                  $c->log->debug( "site: $site_name, action: $action" );                                  $c->log->debug( "site: $site_name, action: $action" );
72                                  $c->internal_redirect( $action, $c->stash );                                  # TODO can I really change base like this?
73                                    $c->stash->{base} = "/$site_name/" . $c->stash->{base}
74                                            if ($c->stash->{base} && $$c->stash->{base} !~ m#^/\Q$site_name\E/#);
75                                    $c->internal_redirect( $action, $c->stash, @{ $c->req->args } );
76                          } else {                          } else {
77                                  $c->log->debug( "site: $site_name" );                                  $c->log->debug( "site: $site_name" );
78                          }                          }
# Line 91  sub end : Private { Line 96  sub end : Private {
96      if ($c->response->body) {      if ($c->response->body) {
97          $c->log->debug("at end body exists, we won't touch it!");          $c->log->debug("at end body exists, we won't touch it!");
98      } else {      } else {
                 $c->fillform( $c->req->params );  
   
99                  if (my $site_name = $c->stash->{site}) {                  if (my $site_name = $c->stash->{site}) {
100                          my $template_path = $c->path_to('root', $c->config->{sites_root}, $site_name, $c->stash->{template});                          my $template_path = $c->path_to('root', $c->config->{sites_root}, $site_name, $c->stash->{template});
101                          if (-e $template_path) {                          if (-e $template_path) {
# Line 106  sub end : Private { Line 109  sub end : Private {
109                  # Forward to View unless response body is already defined                  # Forward to View unless response body is already defined
110                  $c->forward('View::TT');                  $c->forward('View::TT');
111    
112                    $c->fillform( $c->req->params );
113    
114                  $c->response->{body} =~ s#\Qnew Ajax.Autocompleter(\E#new WebPAC.Suggest(#gs;                  $c->response->{body} =~ s#\Qnew Ajax.Autocompleter(\E#new WebPAC.Suggest(#gs;
115                  $c->response->{body} =~ s#\Qnew Ajax.Updater(\E#new WebPAC.Updater(#gs;                  $c->response->{body} =~ s#\Qnew Ajax.Updater(\E#new WebPAC.Updater(#gs;
116    
Legend:
Removed from v.358  
changed lines
  Added in v.396
  ViewVC Help
Powered by ViewVC 1.1.26