support normal scalars from redis

diff --git a/web_ui.pl b/web_ui.pl
index d6f2e35..f82f67a 100755 (executable)
--- a/web_ui.pl
+++ b/web_ui.pl
@@ -141,7 +141,9 @@ get '/_redis' => sub {
        my $redis = Redis->new;
 
        my $status;
-       $status->{$_} = $redis->scard($_) foreach $redis->keys('poll.*');
+       foreach my $k ( $redis->keys('poll.*') ) {
+               $status->{$k} = eval { $redis->scard($k) } || $redis->get($k);
+       }
 
        warn "## ", dump $status;
        _render_jsonp( $self, Mojo::JSON->new->encode({ status => $status }) );