diff options
| author | fukachan <fukachan> | 2008-09-09 03:15:52 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2008-09-09 03:15:52 +0000 |
| commit | 9fd524e7d163a5575683984690ad822ddcb257da (patch) | |
| tree | b71efe1803c73fcb4076f78328a43c9c57547bed /fml/lib/FML/Restriction | |
| parent | 9bb22d993f1675a6432c9ca43e181fca3ee776cd (diff) | |
| download | fml8-9fd524e7d163a5575683984690ad822ddcb257da.tar.gz fml8-9fd524e7d163a5575683984690ad822ddcb257da.tar.bz2 fml8-9fd524e7d163a5575683984690ad822ddcb257da.zip | |
define $alnum_regexp class.
define 'session_id' and 'magic_string' regexp.
Diffstat (limited to 'fml/lib/FML/Restriction')
| -rw-r--r-- | fml/lib/FML/Restriction/Base.pm | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/fml/lib/FML/Restriction/Base.pm b/fml/lib/FML/Restriction/Base.pm index f323793e..df6644f5 100644 --- a/fml/lib/FML/Restriction/Base.pm +++ b/fml/lib/FML/Restriction/Base.pm @@ -1,9 +1,9 @@ #-*- perl -*- # -# Copyright (C) 2001,2002,2003,2004 Ken'ichi Fukamachi +# Copyright (C) 2001,2002,2003,2004,2008 Ken'ichi Fukamachi # All rights reserved. # -# $FML: Base.pm,v 1.31 2004/07/23 13:09:10 fukachan Exp $ +# $FML: Base.pm,v 1.32 2004/07/23 15:59:12 fukachan Exp $ # package FML::Restriction::Base; @@ -88,6 +88,7 @@ my $file_regexp = '[-A-Za-z0-9_]+'; # file name my $dir_regexp = '[-A-Za-z0-9_]+'; # directory name my $option_regexp = '[-A-Za-z0-9]+'; # command option my $number_regexp = '\d+'; # number +my $alnum_regexp = '[A-Za-z0-9]+'; # alphabets + numbers my $address_regexp = sprintf("%s\@%s", $user_regexp, $domain_regexp); my %basic_variable = ( @@ -117,6 +118,10 @@ my %basic_variable = # command mail 'command_mail_substr' => $commail_regexp, + # cgi + 'session_id' => $alnum_regexp, + 'magic_string' => $alnum_regexp, + # misc 'language' => $option_regexp, ); @@ -244,7 +249,7 @@ Ken'ichi Fukamachi =head1 COPYRIGHT -Copyright (C) 2001,2002,2003,2004 Ken'ichi Fukamachi +Copyright (C) 2001,2002,2003,2004,2008 Ken'ichi Fukamachi All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. |