diff options
-rw-r--r-- | util/waterball.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/util/waterball.pl b/util/waterball.pl index 5a97de76..3f9f8f2f 100644 --- a/util/waterball.pl +++ b/util/waterball.pl @@ -70,8 +70,8 @@ sub parse($) $cmode = ($str =~ /^To/) ? 0 : 1; ($who, $say, $month, $day, $year, $hour, $min, $sec) = $cmode ? - $str =~ m|กน(\w+?)\[37;45m\s*(.*).*?\[(\w+)/(\w+)/(\w+) (\w+):(\w+):(\w+)\]| : - $str =~ m|^To (\w+):\s*(.*)\[(\d+)/(\d+)/(\d+) (\d+):(\d+):(\d+)\]|; + $str =~ m|กน(.+?)\[37;45m\s*(.*).*?\[(\w+)/(\w+)/(\w+) (\w+):(\w+):(\w+)\]| : + $str =~ m|^To (.+?):\s*(.*)\[(\d+)/(\d+)/(\d+) (\d+):(\d+):(\d+)\]|; return ( !(1 <= $month && $month <= 12 && 1 <= $day && $day <= 31 && 0 <= $hour && $hour <= 23 && |