From d45bef14461416aab0628cce8bea300c09d1d7bf Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Wed, 14 Apr 2010 11:00:14 +0200
Subject: check if queue_name is given

---
 lib/presque/JobQueueHandler.pm | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/lib/presque/JobQueueHandler.pm b/lib/presque/JobQueueHandler.pm
index 17a1e8a..2729f07 100644
--- a/lib/presque/JobQueueHandler.pm
+++ b/lib/presque/JobQueueHandler.pm
@@ -6,7 +6,15 @@ __PACKAGE__->asynchronous(1);
 
 sub get {
     my ( $self, $queue_name ) = @_;
+
+    if (!$queue_name) {
+        $self->response->code(404);
+        $self->response->body("queue name is missing");
+        return;
+    }
+
     my $key = $queue_name . ':queue';
+
     $self->application->redis->lrange(
         $key, 0, 9,
         sub {
@@ -46,6 +54,8 @@ presque::IndexHandler - a redis based message queue
 
 =head1 DESCRIPTION
 
+Return some informations about a queue.
+
 =head1 AUTHOR
 
 franck cuny E<lt>franck@lumberjaph.netE<gt>
-- 
cgit 1.4.1