/[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 643 by dpavlin, Sun Nov 30 16:02:46 2008 UTC
# 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 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.632  
changed lines
  Added in v.643
  ViewVC Help
Powered by ViewVC 1.1.26