/[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 330 by dpavlin, Fri Aug 28 22:29:08 2009 UTC revision 333 by dpavlin, Fri Aug 28 22:55:01 2009 UTC
# Line 310  warn "XXX pids = ", dump( $daemons::pids Line 310  warn "XXX pids = ", dump( $daemons::pids
310                          |;                          |;
311                  }                  }
312          } elsif ( $path =~ m{^/brctl} ) {          } elsif ( $path =~ m{^/brctl} ) {
313                  print $client ok                  print $client ok, html::table( -4,
314                          ,html::pre( `brctl show` )                          map {
315                          ;                                  my @c = split(/\t+/,$_,4);
316                                    if ( $#c == 1 ) {
317                                            ( '', '', '', $c[1] )
318                                    } else {
319                                            @c
320                                    }
321                            } split(/\n/, `brctl show`)
322                    );
323          } elsif ( $path =~ m{^/ip/?(\w+)?} ) {          } elsif ( $path =~ m{^/ip/?(\w+)?} ) {
324                  print $client ok                  print $client ok
325                          , join("\n", map { qq|<a href=/ip/$_>$_</a>| } ( qw/link addr route neigh ntable tunnel maddr mroute xfrm/ ))                          , join("\n", map { qq|<a href=/ip/$_>$_</a>| } ( qw/link addr route neigh ntable tunnel maddr mroute xfrm/ ))
Legend:
Removed from v.330  
changed lines
  Added in v.333
  ViewVC Help
Powered by ViewVC 1.1.26