diff options
| author | scw <scw@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2006-12-05 17:19:48 +0800 |
|---|---|---|
| committer | scw <scw@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2006-12-05 17:19:48 +0800 |
| commit | 03d98130b06a8b44cedd43379f2852f287f39062 (patch) | |
| tree | 648df9a077a0dcab74c2e4b9daf164c814ad2a09 /util | |
| parent | ebe8d5ac1f249c58561e30af21e30805e9d2de83 (diff) | |
| download | pttbbs-03d98130b06a8b44cedd43379f2852f287f39062.tar pttbbs-03d98130b06a8b44cedd43379f2852f287f39062.tar.gz pttbbs-03d98130b06a8b44cedd43379f2852f287f39062.tar.bz2 pttbbs-03d98130b06a8b44cedd43379f2852f287f39062.tar.lz pttbbs-03d98130b06a8b44cedd43379f2852f287f39062.tar.xz pttbbs-03d98130b06a8b44cedd43379f2852f287f39062.tar.zst pttbbs-03d98130b06a8b44cedd43379f2852f287f39062.zip | |
Dealing with angels for waterball arrangement.
git-svn-id: http://opensvn.csie.org/pttbbs/trunk/pttbbs@3451 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
Diffstat (limited to 'util')
| -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 && |