--- lib/PXElator/httpd.pm 2010/01/23 21:02:52 489 +++ lib/PXElator/httpd.pm 2010/01/23 21:43:00 490 @@ -18,7 +18,6 @@ #use JSON; use IO::Socket::INET; use Regexp::Common qw/net/; -use YAML; our $title; @@ -272,9 +271,25 @@ } elsif ( $path =~ m{^/store/query} ) { print $client ok + , qq| + + | , qq|
|, join(qq| | |, map { $p->{$_} } keys %$p ), qq| | |, dump( $o ), qq| |
| + , join(qq| | |, map { $p->{$_} } keys %$p ) + , qq| | | + , dump( $o ) + , qq| |