diff options
author | franck cuny <franck@lumberjaph.net> | 2010-05-09 15:39:40 +0200 |
---|---|---|
committer | franck cuny <franck@lumberjaph.net> | 2010-05-09 15:39:40 +0200 |
commit | c7ecb2bbd450d693726fac4fae2bab3180d527da (patch) | |
tree | d5d2de5716db7ab5edddf7078c6a08e99fa8b713 /lib/presque/ControlHandler.pm | |
parent | use roles (diff) | |
download | presque-c7ecb2bbd450d693726fac4fae2bab3180d527da.tar.gz |
error, check if queue is open before sending job, some small tweak
Diffstat (limited to 'lib/presque/ControlHandler.pm')
-rw-r--r-- | lib/presque/ControlHandler.pm | 16 |
1 files changed, 5 insertions, 11 deletions
diff --git a/lib/presque/ControlHandler.pm b/lib/presque/ControlHandler.pm index 4014e2c..b64851d 100644 --- a/lib/presque/ControlHandler.pm +++ b/lib/presque/ControlHandler.pm @@ -12,9 +12,8 @@ sub get { return $self->http_error_queue if !$queue_name; - my $key = $self->_queue_stat($queue_name); $self->application->redis->get( - $key, + $self->_queue_stat($queue_name), sub { my $status = shift; $self->finish( @@ -33,7 +32,7 @@ sub post { return $self->http_error_queue if !$queue_name; - my $content = JSON::decode_json( $self->request->input ); + my $content = JSON::decode_json( $self->request->content ); if ( $content->{status} eq 'start' ) { $self->_set_status( $queue_name, 1 ); } @@ -41,12 +40,7 @@ sub post { $self->_set_status( $queue_name, 0 ); } else { - $self->response->code(400); - $self->finish( - JSON::encode_json( - { error => 'invalid status ' . $content->{status} } - ) - ); + $self->http_error('invalid status '.$content->{status}); } } @@ -61,8 +55,8 @@ sub _set_status { my $res = shift; $self->finish( JSON::encode_json( { - queue => $queue_name, - status => $res + queue => $queue_name, + response => $res } ) ); |