/[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 632 by dpavlin, Sun Nov 30 01:32:56 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 62  sub request { Line 62  sub request {
62                          if ( system($cmd) == 0 ) {                          if ( system($cmd) == 0 ) {
63                                  my $server = Frey::Server->new;                                  my $server = Frey::Server->new;
64                                  $self->load_config;                                  $self->load_config;
65                                  Module::Reload->check;  #                               Module::Reload->check;
66                                  warn "# reload done";                                  warn "# reload done";
67                                  $self->print( refresh( $1, 1 ) );                                  $self->print( refresh( $1, 0 ) );
68                                  return;                                  return;
69                          } else {                          } else {
70                                  warn "ERROR: $?";                                  warn "ERROR: $?";
# 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 ) {
# Line 155  sub request { Line 154  sub request {
154  sub refresh {  sub refresh {
155          my ( $url, $time ) = @_;          my ( $url, $time ) = @_;
156          $url  ||= '/';          $url  ||= '/';
157          $time ||= 1;          $time ||= 0;
158          warn "# refresh $url";          warn "# refresh $url";
159          qq|          qq|
160                  <html>                  <html>
Legend:
Removed from v.632  
changed lines
  Added in v.653
  ViewVC Help
Powered by ViewVC 1.1.26