--- lib/PXElator/httpd.pm 2010/01/23 20:47:17 487 +++ lib/PXElator/httpd.pm 2010/01/25 18:30:47 493 @@ -18,7 +18,7 @@ #use JSON; use IO::Socket::INET; use Regexp::Common qw/net/; -use YAML; +use POSIX qw(strftime); our $title; @@ -77,8 +77,8 @@ brctl ip | -store -query +MongoDB +latest | nmap client @@ -270,18 +270,52 @@ | ; - } elsif ( $path =~ m{^/store/query} ) { + } elsif ( $path =~ m{^/store/latest} ) { print $client ok + , qq| + + | , qq|
| + , join(qq| | |, @cols) + , qq| | |
---|---|---|
|, join(qq| | |, map { $p->{$_} } keys %$p ), qq| | |, dump( $o ), qq| |
%H:%M:%S | |, localtime($p->{time}) ) + , map { qq|$_ | | } ( $p->{name} , html::pre_dump($o) ) + , qq| |