diff options
Diffstat (limited to 'fml/lib/FML/Process')
| -rw-r--r-- | fml/lib/FML/Process/CGI/Param.pm | 10 | ||||
| -rw-r--r-- | fml/lib/FML/Process/CGI/Utils.pm | 5 |
2 files changed, 9 insertions, 6 deletions
diff --git a/fml/lib/FML/Process/CGI/Param.pm b/fml/lib/FML/Process/CGI/Param.pm index f7e358cc..bcd3924d 100644 --- a/fml/lib/FML/Process/CGI/Param.pm +++ b/fml/lib/FML/Process/CGI/Param.pm @@ -1,10 +1,10 @@ #-*- perl -*- # -# Copyright (C) 2001,2002,2003 Ken'ichi Fukamachi +# Copyright (C) 2001,2002,2003,2004 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. # -# $FML: Param.pm,v 1.20 2003/08/24 14:11:10 fukachan Exp $ +# $FML: Param.pm,v 1.21 2003/08/25 14:13:59 fukachan Exp $ # package FML::Process::CGI::Param; @@ -17,7 +17,7 @@ use CGI qw/:standard/; =head1 NAME -FML::Process::CGI::Param - restric CGI input +FML::Process::CGI::Param - restrict CGI input =head1 SYNOPSIS @@ -94,6 +94,8 @@ sub safe_paramlist my ($self, $numregexp, $key) = @_; my (@list) = (); + # XXX-TODO: who uses safe_paramlist() ? + use FML::Restriction::CGI; my $safe = new FML::Restriction::CGI; my $safe_param_regexp = $safe->param_regexp(); @@ -130,7 +132,7 @@ Ken'ichi Fukamachi =head1 COPYRIGHT -Copyright (C) 2001,2002,2003 Ken'ichi Fukamachi +Copyright (C) 2001,2002,2003,2004 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. diff --git a/fml/lib/FML/Process/CGI/Utils.pm b/fml/lib/FML/Process/CGI/Utils.pm index bf453cb3..a4695203 100644 --- a/fml/lib/FML/Process/CGI/Utils.pm +++ b/fml/lib/FML/Process/CGI/Utils.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: Utils.pm,v 1.9 2004/01/01 08:41:09 fukachan Exp $ +# $FML: Utils.pm,v 1.10 2004/01/01 08:48:41 fukachan Exp $ # package FML::Process::CGI::Utils; @@ -190,7 +190,7 @@ sub cgi_var_cgi_mode sub cgi_var_language { my ($curproc) = @_; - my $lang = $curproc->safe_param_language() || ''; + my $lang = $curproc->safe_param_language() || ''; if ($lang =~ /^(Japanese|English)$/io) { return lc($lang); @@ -227,6 +227,7 @@ sub cgi_var_navigator_title sub cgi_var_fml_project_url { my ($curproc) = @_; + return '<A HREF="http://www.fml.org/software/fml-devel/">fml</A>'; } |