try to select from database if there is no redis row

diff --git a/web_ui.pl b/web_ui.pl
index 4ee747c..9b046b8 100755 (executable)
--- a/web_ui.pl
+++ b/web_ui.pl
@@ -82,16 +82,23 @@ get '/table/:table' => sub {
        my $username = $self->param('username');
        my $limit = $self->param('limit') || 1;
 
+       warn "/table/$table $username $limit";
+
        my $sql = "select * from $table";
        $sql .= " where username = '$username'" if $username;
        $sql .= " limit $limit";
 
        my $ret;
        if ( $limit == 1 ) {
+               my $redis = Redis->new;
                $ret = $redis->get( "table.$table.$username" );
-       } else {
+               warn "redis hit table.$table.$username";
+       }
+       if ( ! $ret ) {
                $ret = $gearman->req( 'SUBMIT_JOB', 'Store_sql', '', $sql );
+               warn "gearman $sql";
        }
+       warn ">>> $ret";
        _render_jsonp( $self, $ret );
 };