/[Frey]/trunk/lib/Frey/Server.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 /trunk/lib/Frey/Server.pm

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

revision 652 by dpavlin, Sun Nov 30 16:02:46 2008 UTC revision 653 by dpavlin, Sun Nov 30 23:49:32 2008 UTC
# Line 51  sub request { Line 51  sub request {
51    
52          my $path = $url->path;          my $path = $url->path;
53    
54  #       eval {          eval {
55          {  #       {
56    
57                  if ( $path =~ m{/reload(.*)} ) {                  if ( $path =~ m{/reload(.*)} ) {
58    
# Line 113  sub request { Line 113  sub request {
113                          my $class = rest2class $1;                          my $class = rest2class $1;
114                          warn "# run $path -> $class $2";                          warn "# run $path -> $class $2";
115                          $run->{format} = $3 if $3;                          $run->{format} = $3 if $3;
                         $params->{request_url} = $url,  
116                          $run->{$_} = $params->{$_} foreach keys %$params;                          $run->{$_} = $params->{$_} foreach keys %$params;
117                          $f = Frey::Run->new( class => $class, params => $run, run => $2, request_url => $url );                          $f = Frey::Run->new( class => $class, params => $run, run => $2 );
118                  } elsif (                  } elsif (
119                          $path =~ m{/([^/]+)/?$}                          $path =~ m{/([^/]+)/?$}
120                  ) {                  ) {
121                          my $class = rest2class $1;                          my $class = rest2class $1;
122                          warn "# introspect $class";                          warn "# introspect $class";
123                          $run->{class} ||= $class;                          $run->{class} ||= $class;
124                          $f = Frey::Run->new( class => 'Frey::Introspect', params => $run, request_url => $url );                          $f = Frey::Run->new( class => 'Frey::Introspect', params => $run );
125                  } else {                  } else {
126                          $f = Frey::Run->new( class => 'Frey::ClassBrowser', params => $run, request_url => $url );                          $f = Frey::Run->new( class => 'Frey::ClassBrowser', params => $run );
127                  }                  }
128    
129                  if ( $f ) {                  if ( $f ) {
Legend:
Removed from v.652  
changed lines
  Added in v.653
  ViewVC Help
Powered by ViewVC 1.1.26