use lib '/srv/MojoX-Gearman/lib';
use MojoX::Gearman;
+use lib 'lib';
+use APKPM::Model;
+
use Data::Dump qw(dump);
plugin 'tag_helpers';
get '/_redis' => sub {
my $self = shift;
- my $redis = Redis->new;
-
- my $status;
- 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 }) );
+ _render_jsonp( $self, Mojo::JSON->new->encode({ status => APKPM::Model->redis_status }) );
};
get '/user' => sub {
$self->render('user');
};
+open(my $pid, '>', '/tmp/apkpm.web_ui.pid');
+print $pid "$$\n";
+close $pid;
app->start;