allow lower case in icc/ser serial key

(thanks to Makoto Matsushita <matusita@jp.FreeBSD.org>)

diff --git a/lib/Keitairc/SessionManager.pm b/lib/Keitairc/SessionManager.pm
index 9cd64dd..559d9e4 100644 (file)
--- a/lib/Keitairc/SessionManager.pm
+++ b/lib/Keitairc/SessionManager.pm
@@ -1,6 +1,6 @@
 # -*-perl-*-
 # Keitairc::SessionManager
-# $Id: SessionManager.pm,v 1.3 2008-01-15 12:21:00 morimoto Exp $
+# $Id: SessionManager.pm,v 1.4 2008-01-22 18:27:01 morimoto Exp $
 # $Source: /home/ishikawa/work/keitairc/tmp/keitairc/lib/Keitairc/SessionManager.pm,v $
 #
 # Copyright (c) 2008 Jun Morimoto <morimoto@mrmt.net>
@@ -186,8 +186,8 @@ sub normalize_user_agent{
        # DoCoMo/2.0 P703imyu(c100;TB;W30H15)
        # DoCoMo/2.0 P703imyu(c100;TB;W30H15;ser123451234512345;icc12345678901234567890)
        if($user_agent =~ m|^DoCoMo/|){
-               $user_agent =~ s/;ser[0-9A-Z]{15}//;
-               $user_agent =~ s/;icc[0-9A-Z]{20}//;
+               $user_agent =~ s/;ser[0-9a-zA-Z]{15}//;
+               $user_agent =~ s/;icc[0-9a-zA-Z]{20}//;
        }
 
        # SoftBank/Vodafone/J-PHONE