diff options
| author | fukachan <fukachan> | 2003-02-15 02:54:24 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-02-15 02:54:24 +0000 |
| commit | ea9f5ec5984ebd27e0a953fa5f6cf9d3b5263d16 (patch) | |
| tree | 71e8389689cd355e70f5ff42da10f65e4a94c8d0 /fml/lib/FML/Process | |
| parent | 360a7ef8449e14883880bd51450cf50e0951e3b5 (diff) | |
| download | fml8-ea9f5ec5984ebd27e0a953fa5f6cf9d3b5263d16.tar.gz fml8-ea9f5ec5984ebd27e0a953fa5f6cf9d3b5263d16.tar.bz2 fml8-ea9f5ec5984ebd27e0a953fa5f6cf9d3b5263d16.zip | |
switched to use safe_cgi_action_name()
Diffstat (limited to 'fml/lib/FML/Process')
| -rw-r--r-- | fml/lib/FML/Process/CGI/Kernel.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/fml/lib/FML/Process/CGI/Kernel.pm b/fml/lib/FML/Process/CGI/Kernel.pm index 2146c20a..cdb4a115 100644 --- a/fml/lib/FML/Process/CGI/Kernel.pm +++ b/fml/lib/FML/Process/CGI/Kernel.pm @@ -1,10 +1,10 @@ #-*- perl -*- # -# Copyright (C) 2001,2002 Ken'ichi Fukamachi +# Copyright (C) 2001,2002,2003 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: Kernel.pm,v 1.45 2002/12/22 03:46:21 fukachan Exp $ +# $FML: Kernel.pm,v 1.46 2002/12/24 10:19:48 fukachan Exp $ # package FML::Process::CGI::Kernel; @@ -546,13 +546,13 @@ sub run_cgi_options { my ($curproc, $args) = @_; my $domain = $curproc->ml_domain(); - my $action = $curproc->myname(); + my $action = $curproc->safe_cgi_action_name(); print "<P> <B> options </B>\n"; - # XXX-TODO: validate $action. print start_form(-action=>$action); + # XXX-TODO: $langlist is hard-coded. print "Language:\n"; my $langlist = [ 'Japanese', 'English' ]; print scrolling_list(-name => 'language', @@ -742,7 +742,7 @@ Ken'ichi Fukamachi =head1 COPYRIGHT -Copyright (C) 2001,2002 Ken'ichi Fukamachi +Copyright (C) 2001,2002,2003 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. |