From 8c0162c01b03465946829e202ba1a9dd18568807 Mon Sep 17 00:00:00 2001
From: Alexandre Morignot <erdnaxeli@gmail.com>
Date: Wed, 31 Jul 2013 21:59:14 +0200
Subject: [PATCH] Correction of regex for the !later command
---
PlayBot.pl | 5 ++---
1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/PlayBot.pl b/PlayBot.pl
index 804a604..23ab709 100755
--- a/PlayBot.pl
+++ b/PlayBot.pl
@@ -302,13 +302,12 @@ sub on_speak
return;
}
- elsif ($msg =~ /^!later( ([0-9]*)( in ([0-9]*)(h|m|s)?)?)?/) {
- my ($id, $time, $unit) = ($2, $4, $5);
+ elsif ($msg =~ /^!later(?: ([0-9]+))?(?: in ([0-9]*)?(h|m|s)?)?/) {
+ my ($id, $time, $unit) = ($1, $2, $3);
$id = $lastID if (!$id);
$time = 6 if (!$time);
$time *= ($unit eq 's') ? 1 : ($unit eq 'm') ? 60 : 3600;
- print "$time eq\n";
$kernel->delay_set('_later', $time, $nick, $id);
return;
--
GitLab