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;
|
$i = 0;
|
||||||
}
|
}
|
||||||
|
elsif ($cmd =~ "^clear")
|
||||||
|
{
|
||||||
|
lock($queue);
|
||||||
|
$queue->dequeue_nb($queue->pending());
|
||||||
|
next;
|
||||||
|
}
|
||||||
elsif ($cmd =~ "^show")
|
elsif ($cmd =~ "^show")
|
||||||
{
|
{
|
||||||
lock($queue);
|
lock($queue);
|
||||||
|
|
Reference in a new issue