switched to use safe_cgi_action_name()

6 files changed, 31 insertions, 32 deletions

diff --git a/fml/lib/FML/CGI/Admin/List.pm b/fml/lib/FML/CGI/Admin/List.pm
index d6b7260e..e3cb4587 100644
--- a/fml/lib/FML/CGI/Admin/List.pm
+++ b/fml/lib/FML/CGI/Admin/List.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2002 Ken'ichi Fukamachi
+#  Copyright (C) 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: List.pm,v 1.5 2002/09/22 14:56:42 fukachan Exp $
+# $FML: List.pm,v 1.6 2002/12/18 04:50:16 fukachan Exp $
 #
 
 package FML::CGI::Admin::List;
@@ -37,13 +37,14 @@ sub new
 sub cgi_menu
 {
     my ($self, $curproc, $args, $command_args) = @_;
-    my $action       = $curproc->myname();
-    my $target       = '_top';
-    my $ml_name      = $command_args->{ ml_name };
-    my $map_list     = [ 'member', 'recipient', 'admin_member' ];
-    my $map_default  = $curproc->safe_param_map() || 'member';
+    my $action      = $curproc->safe_cgi_action_name();
+    my $target      = '_top';
+    my $ml_name     = $command_args->{ ml_name };
+
+    # XXX-TODO: $map_list hard-coded
+    my $map_list    = [ 'member', 'recipient', 'admin_member' ];
+    my $map_default = $curproc->safe_param_map() || 'member';
 
-    # XXX-TODO: we can validate $action ?
     # create <FORM ... > ... by (start_form() ... end_form())
     print start_form(-action=>$action, -target=>$target);
 
@@ -86,7 +87,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2002 Ken'ichi Fukamachi
+Copyright (C) 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.
diff --git a/fml/lib/FML/CGI/Admin/ML.pm b/fml/lib/FML/CGI/Admin/ML.pm
index 34d39f4c..9f2c8d20 100644
--- a/fml/lib/FML/CGI/Admin/ML.pm
+++ b/fml/lib/FML/CGI/Admin/ML.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2002 Ken'ichi Fukamachi
+#  Copyright (C) 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: ML.pm,v 1.6 2002/09/22 14:56:42 fukachan Exp $
+# $FML: ML.pm,v 1.7 2002/12/18 04:50:31 fukachan Exp $
 #
 
 package FML::CGI::Admin::ML;
@@ -38,7 +38,7 @@ sub cgi_menu
 {
     my ($self, $curproc, $args, $command_args) = @_;
     my $config       = $curproc->{ config };
-    my $action       = $curproc->myname();
+    my $action       = $curproc->safe_cgi_action_name();
     my $ml_domain    = $curproc->ml_domain();
     my $ml_list      = $curproc->get_ml_list($args, $ml_domain);
     my $address      = $curproc->safe_param_address() || '';
@@ -46,7 +46,6 @@ sub cgi_menu
     my $comname      = $command_args->{ comname };
     my $command_list = [ 'newml', 'rmml' ];
 
-    # XXX-TODO: we can validate $action ?
     print start_form(-action=>$action, -target=>$target);
 
     if ($comname eq 'newml') {
@@ -124,7 +123,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2002 Ken'ichi Fukamachi
+Copyright (C) 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.
diff --git a/fml/lib/FML/CGI/Admin/Menu.pm b/fml/lib/FML/CGI/Admin/Menu.pm
index fb766008..4b29e1ef 100644
--- a/fml/lib/FML/CGI/Admin/Menu.pm
+++ b/fml/lib/FML/CGI/Admin/Menu.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2002 Ken'ichi Fukamachi
+#  Copyright (C) 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: Menu.pm,v 1.22 2002/09/22 14:56:42 fukachan Exp $
+# $FML: Menu.pm,v 1.23 2002/12/18 04:50:31 fukachan Exp $
 #
 
 package FML::CGI::Admin::Menu;
@@ -220,7 +220,7 @@ sub run_cgi_navigator
 {
     my ($curproc, $args) = @_;
     my $config  = $curproc->{ config };
-    my $action  = $curproc->myname();
+    my $action  = $curproc->safe_cgi_action_name();
     my $target  = '_top';
 
     # 1. ML
@@ -278,7 +278,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2002 Ken'ichi Fukamachi
+Copyright (C) 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.
diff --git a/fml/lib/FML/CGI/Admin/User.pm b/fml/lib/FML/CGI/Admin/User.pm
index 05639efe..f6bbd8ca 100644
--- a/fml/lib/FML/CGI/Admin/User.pm
+++ b/fml/lib/FML/CGI/Admin/User.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2002 Ken'ichi Fukamachi
+#  Copyright (C) 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: User.pm,v 1.14 2002/09/22 14:56:42 fukachan Exp $
+# $FML: User.pm,v 1.15 2002/12/18 04:49:28 fukachan Exp $
 #
 
 package FML::CGI::Admin::User;
@@ -38,7 +38,7 @@ sub new
 sub cgi_menu
 {
     my ($self, $curproc, $args, $command_args) = @_;
-    my $action       = $curproc->myname();
+    my $action       = $curproc->safe_cgi_action_name();
     my $target       = '_top';
     my $ml_list      = $curproc->get_ml_list($args);
     my $address      = $curproc->safe_param_address() || '';
@@ -67,7 +67,6 @@ sub cgi_menu
 	croak("not allowed command");
     }
 
-    # XXX-TODO: validate $action
     # create <FORM ... > ... by (start_form() ... end_form())
     print start_form(-action=>$action, -target=>$target);
 
@@ -126,7 +125,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2002 Ken'ichi Fukamachi
+Copyright (C) 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.
diff --git a/fml/lib/FML/CGI/ThreadTrack.pm b/fml/lib/FML/CGI/ThreadTrack.pm
index 7fa14f32..1c23aeb9 100644
--- a/fml/lib/FML/CGI/ThreadTrack.pm
+++ b/fml/lib/FML/CGI/ThreadTrack.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: ThreadTrack.pm,v 1.21 2002/09/22 14:56:41 fukachan Exp $
+# $FML: ThreadTrack.pm,v 1.22 2002/12/20 03:37:43 fukachan Exp $
 #
 
 package FML::CGI::ThreadTrack;
@@ -189,7 +189,7 @@ sub run_cgi_navigator
 {
     my ($curproc, $args) = @_;
     my $config  = $curproc->{ config };
-    my $action  = $curproc->myname();
+    my $action  = $curproc->safe_cgi_action_name();
     my $target  = $config->{ thread_cgi_target_window } || '_top';
     # XXX-TODO: we should provide $curproc->util->get_ml_list() method ?
     my $ml_list = $curproc->get_ml_list($args);
@@ -231,7 +231,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.
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.