/[pxelator]/lib/PXElator/httpd.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 /lib/PXElator/httpd.pm

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

revision 488 by dpavlin, Sat Jan 23 21:00:01 2010 UTC revision 489 by dpavlin, Sat Jan 23 21:02:52 2010 UTC
# Line 274  warn "XXX pids = ", dump( $daemons::pids Line 274  warn "XXX pids = ", dump( $daemons::pids
274                  print $client ok                  print $client ok
275                          , qq|<table>|                          , qq|<table>|
276                  ;                  ;
277                    my ( $s1,$s2 ) = ( ' style="background: #eee"', '' );
278                  store::query( sub {                  store::query( sub {
279                          my $o = shift;                          my $o = shift;
280                          my $p = delete( $o->{package} );                          my $p = delete( $o->{package} );
# Line 282  warn "XXX pids = ", dump( $daemons::pids Line 283  warn "XXX pids = ", dump( $daemons::pids
283                          # XXX sigh, dump dies if we don't do this                          # XXX sigh, dump dies if we don't do this
284                          delete $o->{$_} foreach ( grep { ! defined $o->{$_} } keys %$o );                          delete $o->{$_} foreach ( grep { ! defined $o->{$_} } keys %$o );
285    
286                          print $client qq|<tr><td>|, join(qq|</td><td>|, map { $p->{$_} } keys %$p ), qq|</td><td><pre>|, dump( $o ), qq|</pre></td></tr>\n|;                          print $client qq|<tr$s1><td>|, join(qq|</td><td>|, map { $p->{$_} } keys %$p ), qq|</td><td><pre>|, dump( $o ), qq|</pre></td></tr>\n|;
287                            ( $s1, $s2 ) = ( $s2, $s1 );
288                  });                  });
289                  print $client qq|</table>|;                  print $client qq|</table>|;
290    
Legend:
Removed from v.488  
changed lines
  Added in v.489
  ViewVC Help
Powered by ViewVC 1.1.26