Mercurial > hgrepos > hgweb.cgi > after5
changeset 12:d7c978950000 draft
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
author | HIROSE Yuuji <yuuji@gentei.org> |
---|---|
date | Thu, 26 Feb 2004 16:30:06 +0859 |
parents | 84d3608bb529 |
children | d2c36cb4206a |
files | after5.rb |
diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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