/[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 627 by dpavlin, Sat Nov 29 22:02:08 2008 UTC revision 643 by dpavlin, Sun Nov 30 16:02:46 2008 UTC
# Line 36  documented only in source code. Line 36  documented only in source code.
36    
37  sub print {  sub print {
38          my $self = shift;          my $self = shift;
39          warn "# print ",dump( @_ );          warn "# print ", join(' ', map { length $_ } @_ );
40          $self->{print}->( @_ );          $self->{_print}->( @_ );
41  }  }
42    
43  sub request {  sub request {
# Line 45  sub request { Line 45  sub request {
45    
46          if ( my $ref = ref($url) ) {          if ( my $ref = ref($url) ) {
47                  die "url not URI but ", dump( $url ) unless $ref =~ m{^URI};                  die "url not URI but ", dump( $url ) unless $ref =~ m{^URI};
48            } else {
49                  $url = URI->new($url);                  $url = URI->new($url);
50          }          }
51    
# Line 61  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 85  sub request { Line 86  sub request {
86                          return $class;                          return $class;
87                  }                  }
88    
   
89                  my $f;                  my $f;
90    
91                  # shared run params                  # shared run params
# Line 155  sub request { Line 155  sub request {
155  sub refresh {  sub refresh {
156          my ( $url, $time ) = @_;          my ( $url, $time ) = @_;
157          $url  ||= '/';          $url  ||= '/';
158          $time ||= 1;          $time ||= 0;
159          warn "# refresh $url";          warn "# refresh $url";
160          qq|          qq|
161                  <html>                  <html>
Legend:
Removed from v.627  
changed lines
  Added in v.643
  ViewVC Help
Powered by ViewVC 1.1.26