accept anything for args

diff --git a/web_ui.pl b/web_ui.pl
index 664c904..d7a3a58 100755 (executable)
--- a/web_ui.pl
+++ b/web_ui.pl
@@ -33,7 +33,7 @@ get '/ping_g' => sub {
        $self->render( 'ping', pong => $pong );
 };
 
-get '/g/:call/:args' => sub {
+get '/g/:call/:args' => [ args => qr/.*/ ] => sub {
        my $self = shift;
        my $ret = $gearman->req( 'SUBMIT_JOB', $self->param('call'), '', $self->param('args') );
        warn $self->param('call'), " = ", dump($ret), "\n";