new command: clear that clear the queue

This commit is contained in:
Némunaire 2015-01-18 06:48:13 +01:00 committed by Nemunaire
parent 0fedb29ff9
commit b19e5bd03e

View file

@ -339,6 +339,12 @@ sub parse($$;$)
{ {
$i = 0; $i = 0;
} }
elsif ($cmd =~ "^clear")
{
lock($queue);
$queue->dequeue_nb($queue->pending());
next;
}
elsif ($cmd =~ "^show") elsif ($cmd =~ "^show")
{ {
lock($queue); lock($queue);