/[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 489 by dpavlin, Sat Jan 23 21:02:52 2010 UTC revision 490 by dpavlin, Sat Jan 23 21:43:00 2010 UTC
# Line 18  use File::Slurp; Line 18  use File::Slurp;
18  #use JSON;  #use JSON;
19  use IO::Socket::INET;  use IO::Socket::INET;
20  use Regexp::Common qw/net/;  use Regexp::Common qw/net/;
 use YAML;  
21    
22  our $title;  our $title;
23    
# Line 272  warn "XXX pids = ", dump( $daemons::pids Line 271  warn "XXX pids = ", dump( $daemons::pids
271    
272          } elsif ( $path =~ m{^/store/query} ) {          } elsif ( $path =~ m{^/store/query} ) {
273                  print $client ok                  print $client ok
274                            , qq|
275    <style type=text/css>
276            .z {
277                    background: #eee;
278            }
279            td > pre {
280                    margin: 0;
281                    max-height: 3em;
282                    overflow: hidden;
283            }
284            td:hover > pre {
285                    max-height: 100%;
286                    overflow: show;
287            }
288    </style>
289                            |
290                          , qq|<table>|                          , qq|<table>|
291                  ;                  ;
292                  my ( $s1,$s2 ) = ( ' style="background: #eee"', '' );                  my ( $s1,$s2 ) = ( ' class=z', '' );
293                  store::query( sub {                  store::query( sub {
294                          my $o = shift;                          my $o = shift;
295                          my $p = delete( $o->{package} );                          my $p = delete( $o->{package} );
# Line 283  warn "XXX pids = ", dump( $daemons::pids Line 298  warn "XXX pids = ", dump( $daemons::pids
298                          # XXX sigh, dump dies if we don't do this                          # XXX sigh, dump dies if we don't do this
299                          delete $o->{$_} foreach ( grep { ! defined $o->{$_} } keys %$o );                          delete $o->{$_} foreach ( grep { ! defined $o->{$_} } keys %$o );
300    
301                          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|;                          print $client qq|<tr$s1><td>|
302                                    , join(qq|</td><td>|, map { $p->{$_} } keys %$p )
303                                    , qq|</td><td><pre>|
304                                    , dump( $o )
305                                    , qq|</pre></td></tr>\n|
306                            ;
307                          ( $s1, $s2 ) = ( $s2, $s1 );                          ( $s1, $s2 ) = ( $s2, $s1 );
308                  });                  });
309                  print $client qq|</table>|;                  print $client qq|</table>|;
Legend:
Removed from v.489  
changed lines
  Added in v.490
  ViewVC Help
Powered by ViewVC 1.1.26