- my $redis = Redis->new;
-
- my $status;
- foreach my $p ( qw(poll ZTEDSLAM ZTEMSAN) ) {
- foreach my $k ( $redis->keys("$p.*") ) {
- $status->{$k} = eval { $redis->scard($k) } || $redis->get($k);
- if ( $k =~ m/^(ZTE\w+)\.(\d+\.\d+\.\d+\.\d+)\.(\w+)/ ) {
- #$status->{$1}->{$2}->{$3} = $status->{$k};
- $status->{$1}->{$3} += $status->{$k};
- }
- }
- }
-
- warn "## ", dump $status;
- _render_jsonp( $self, Mojo::JSON->new->encode({ status => $status }) );