diff options
| author | fukachan <fukachan> | 2002-12-15 15:17:18 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-12-15 15:17:18 +0000 |
| commit | 811b24978d394da3271c8178db61f4df55dfeccd (patch) | |
| tree | 529aa325e420e52d0dd23a8c96bd5933fdc6fd82 /fml/lib/FML/Restriction | |
| parent | acd528f9623f8235315d77f19bd2d944c4717ab2 (diff) | |
| download | fml8-811b24978d394da3271c8178db61f4df55dfeccd.tar.gz fml8-811b24978d394da3271c8178db61f4df55dfeccd.tar.bz2 fml8-811b24978d394da3271c8178db61f4df55dfeccd.zip | |
clean up comments
Diffstat (limited to 'fml/lib/FML/Restriction')
| -rw-r--r-- | fml/lib/FML/Restriction/CGI.pm | 6 | ||||
| -rw-r--r-- | fml/lib/FML/Restriction/Command.pm | 9 |
2 files changed, 13 insertions, 2 deletions
diff --git a/fml/lib/FML/Restriction/CGI.pm b/fml/lib/FML/Restriction/CGI.pm index d97a199d..9d3f1e65 100644 --- a/fml/lib/FML/Restriction/CGI.pm +++ b/fml/lib/FML/Restriction/CGI.pm @@ -3,7 +3,7 @@ # Copyright (C) 2001,2002 Ken'ichi Fukamachi # All rights reserved. # -# $FML: CGI.pm,v 1.7 2002/09/11 23:18:18 fukachan Exp $ +# $FML: CGI.pm,v 1.8 2002/09/22 14:56:56 fukachan Exp $ # package FML::Restriction::CGI; @@ -25,6 +25,10 @@ FML::Restriction::CGI -- define safe data regexp for CGI modules $safe = new FML::Restriction::CGI; my $regexp = $safe->method_regexp(); + if ($data =~ /^($regexp)$/) { + # o.k. do something ... + } + =head1 DESCRIPTION FML::Restriction::CGI provides data type considered as safe. diff --git a/fml/lib/FML/Restriction/Command.pm b/fml/lib/FML/Restriction/Command.pm index 0bf95964..fcdc5b2c 100644 --- a/fml/lib/FML/Restriction/Command.pm +++ b/fml/lib/FML/Restriction/Command.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Command.pm,v 1.6 2002/09/11 23:18:18 fukachan Exp $ +# $FML: Command.pm,v 1.7 2002/09/22 14:56:56 fukachan Exp $ # package FML::Restriction::Command; @@ -54,6 +54,9 @@ sub is_secure_command_string # command = [-\d\w]+ # mail address = [-_\w]+@[\w\-\.]+ # command options = last:30 + # + # XXX-TODO: sync w/ mailaddress regexp in FML::Restriction::Base. + # if ($s =~/^[-\d\w]+\s*$/o) { return 1; } @@ -81,6 +84,10 @@ sub is_valid_mail_address { my ($s) = @_; + # + # XXX-TODO: sync w/ mailaddress regexp in FML::Restriction::Base. + # + # 1. NOT Japanese strings ($s !~ /\s|\033\$[\@B]|\033\([BJ]/ && $s =~ /^[\0-\177]+\@[\0-\177]+$/) ? 1 : 0; |