# HG changeset patch
# User HIROSE Yuuji <yuuji@gentei.org>
# Date 1077780628 -32378
# Node ID d7c9789500006795b49996742cd7e1ab6601cc03
# Parent  84d3608bb529d61ebd7fa7a42c74fd5c7bc3aab8
RCS-revision 1.13
date: 2004/02/26 16:30:06;  author: yuuji;  state: Exp;  lines: +4 -4
in mkusermap(), allow 0-9 for email addresses

diff -r 84d3608bb529 -r d7c978950000 after5.rb
--- a/after5.rb	Sun Feb 15 13:01:52 2004 +0859
+++ b/after5.rb	Thu Feb 26 16:30:06 2004 +0859
@@ -2,8 +2,8 @@
 #
 # Associative Scheduling Table - after5
 # (C)2003, 2004 by HIROSE Yuuji [yuuji@gentei.org]
-# $Id: after5.rb,v 1.12 2004/02/15 13:01:52 yuuji Exp $
-# Last modified Sat Feb 14 22:33:40 2004 on firestorm
+# $Id: after5.rb,v 1.13 2004/02/26 16:30:06 yuuji Exp $
+# Last modified Fri Feb 27 01:29:12 2004 on firestorm
 # See http://www.gentei.org/~yuuji/software/after5/
 # このスクリプトはEUCで保存してください。
 
@@ -189,7 +189,7 @@
       next if /^\./ =~ u
       newu = ''
       u.split('').each{|c|	# for security wrapping
-	newu << c[0].chr if %r,[-A-Z/+_.@],i =~ c
+	newu << c[0].chr if %r,[-A-Z0-9/+_.@],i =~ c
       }
       u = newu
       map[u] = {}
@@ -197,7 +197,7 @@
       next unless test(?d, d)
       Dir.foreach(d){|attr|
 	next if /^\./ =~ attr
-	attr.untaint if /^[A-Za-z]+$/ =~ attr
+	attr.untaint if /^[A-Z_][-A-Z_0-9]*$/i =~ attr
 	file = File.join(@usermapdir, u, attr)
 	next unless test(?s, file) && test(?r, file)
 	map[u][attr] = IO.readlines(file).join().strip