diff --git a/PBot/Timer.pm b/PBot/Timer.pm index dc167a25..202ed04c 100644 --- a/PBot/Timer.pm +++ b/PBot/Timer.pm @@ -52,7 +52,7 @@ sub initialize { sub event_queue_cmd { my ($self, $from, $nick, $user, $host, $arguments, $stuff) = @_; - my $usage = "Usage: eventqueue list [filter regex] | add | remove "; + my $usage = "Usage: eventqueue list [filter regex] | add [-repeat] | remove "; my $command = $self->{pbot}->{interpreter}->shift_arg($stuff->{arglist}); @@ -95,7 +95,7 @@ sub event_queue_cmd { if ($command eq 'add') { my ($duration, $command) = $self->{pbot}->{interpreter}->split_args($stuff->{arglist}, 2); - return "Usage: eventqueue add " if not defined $duration or not defined $command; + return "Usage: eventqueue add [-repeat]" if not defined $duration or not defined $command; my ($delay, $error) = $self->{pbot}->{parsedate}->parsedate($duration); return $error if defined $error; @@ -116,7 +116,7 @@ sub event_queue_cmd { if ($command eq 'remove') { my ($regex) = $self->{pbot}->{interpreter}->split_args($stuff->{arglist}, 1); - return "Usage: eventqueue add " if not defined $regex; + return "Usage: eventqueue remove " if not defined $regex; $regex =~ s/\*/.*?/g; print "regex: [$regex]\n"; return $self->dequeue_event($regex);