/[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 954 by dpavlin, Wed Jan 7 00:04:06 2009 UTC revision 1107 by dpavlin, Mon Jun 29 15:05:25 2009 UTC
# Line 127  sub request { Line 127  sub request {
127                          my $class = rest2class $1;                          my $class = rest2class $1;
128                          warn "# run $path -> $class $2";                          warn "# run $path -> $class $2";
129                          $run->{format} = $3 if $3;                          $run->{format} = $3 if $3;
130                          $run->{$_} = $params->{$_} foreach keys %$params;                          foreach my $p ( keys %$params ) {
131                                    $run->{$p} = $params->{$p} if defined $params->{$p} && $params->{$p} ne '';
132                            }
133                          $f = Frey::Run->new( class => $class, params => $run, run => $2 );                          $f = Frey::Run->new( class => $class, params => $run, run => $2 );
134                  } elsif (                  } elsif (
135                          $path =~ m{/([^/]+)/?$}                          $path =~ m{/([^/]+)/?$}
# Line 188  sub refresh { Line 190  sub refresh {
190          |; # XXX newlines at end are important to flush content to browser          |; # XXX newlines at end are important to flush content to browser
191  }  }
192    
193    my $timestamp_interval = 3;
194    my $output_tell = 0;
195    
196    $SIG{ALRM} = sub {
197            if ( tell(STDERR) != $output_tell ) {
198                    warn "\nTIMESTAMP: " . localtime() . "\n\n";
199                    $output_tell = tell(STDERR);
200            }
201            alarm $timestamp_interval;
202    };
203    alarm $timestamp_interval;
204    
205  1;  1;
Legend:
Removed from v.954  
changed lines
  Added in v.1107
  ViewVC Help
Powered by ViewVC 1.1.26