new command: clear that clear the queue
This commit is contained in:
parent
0fedb29ff9
commit
b19e5bd03e
1 changed files with 6 additions and 0 deletions
|
@ -339,6 +339,12 @@ sub parse($$;$)
|
|||
{
|
||||
$i = 0;
|
||||
}
|
||||
elsif ($cmd =~ "^clear")
|
||||
{
|
||||
lock($queue);
|
||||
$queue->dequeue_nb($queue->pending());
|
||||
next;
|
||||
}
|
||||
elsif ($cmd =~ "^show")
|
||||
{
|
||||
lock($queue);
|
||||
|
|
Reference in a new issue