=================================================================== RCS file: /cvs/HOPE/Net-OpenAMD/script/test_server.pl,v retrieving revision 1.3 retrieving revision 1.7 diff -u -r1.3 -r1.7 --- HOPE/Net-OpenAMD/script/test_server.pl 2010/06/26 17:14:52 1.3 +++ HOPE/Net-OpenAMD/script/test_server.pl 2010/06/27 04:26:56 1.7 @@ -1,21 +1,26 @@ #!/usr/bin/env perl +use 5.010; + +BEGIN { + use FindBin; + use lib "$FindBin::Bin/../lib"; + use lib "$FindBin::Bin/../mojo/lib"; + use lib "$FindBin::Bin/../../mojo/lib"; +} + use Mojolicious::Lite; use Mojo::JSON; -use Data::Dumper; - -use 5.010; - app->renderer->add_helper( action => sub { my ( $self, $action ) = @_; state %Actions; - my $path = app->home->rel_file( 'data/' . $action ); + my $path = app->home->rel_file( '../t/data/' . $action ); - return if ! -e $path; + return if !-e $path; my $mtime = ( stat _ )[9]; $Actions{$action}{mtime} //= 0; @@ -50,11 +55,16 @@ return if !ref $data; my @data = @{$data}; - foreach my $param ( $self->param ) { - my $value = $self->param($param); - @data = grep { ( !exists $_->{$param} ) || $value ~~ $_->{$param} } - @data; + + my $p = $self->req->params->to_hash; + while ( my ( $param, $value ) = each(%$p) ) { + @data = grep { + ref $_ ne 'HASH' + || ( !exists $_->{$param} ) + || $value ~~ $_->{$param} + } @data; } + $self->render_json( \@data ); }; @@ -63,7 +73,8 @@ @@ index.html.ep % layout 'default'; -Please try /api/action +Please try /api/action, or see +amd.hope.net. @@ layouts/default.html.ep