From 03d98130b06a8b44cedd43379f2852f287f39062 Mon Sep 17 00:00:00 2001 From: scw Date: Tue, 5 Dec 2006 09:19:48 +0000 Subject: Dealing with angels for waterball arrangement. git-svn-id: http://opensvn.csie.org/pttbbs/trunk/pttbbs@3451 63ad8ddf-47c3-0310-b6dd-a9e9d9715204 --- util/waterball.pl | 4 ++-- 1 file 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 && -- cgit v1.2.3