added limit

diff --git a/web_ui.pl b/web_ui.pl
index 7fef2fc..f449db5 100755 (executable)
--- a/web_ui.pl
+++ b/web_ui.pl
@@ -62,7 +62,12 @@ get '/g/:call/:args' => [ args => qr/.*/ ] => sub {
 
 get '/table/:table' => sub {
        my $self = shift;
-       my $sql = "select * from " . $self->param('table') . " limit " . ( $self->param('limit') || 1 );
+       my $sql = "select * from " . $self->param('table');
+       if ( my $username = $self->param('username') ) {
+               $sql .= " where username = '$username' ";
+       }
+       $sql .= " limit " . ( $self->param('limit') || 1 );
+
        my $ret = $gearman->req( 'SUBMIT_JOB', 'Store_sql', '', $sql );
        _render_jsonp( $self, $ret );
 };