diff options
| author | fukachan <fukachan> | 2002-12-18 04:50:31 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-12-18 04:50:31 +0000 |
| commit | 6cc542bc932ab3dba67d0cd9daf02d3c30417164 (patch) | |
| tree | e5c421afccb733e0c9181af5132641fc169ec29d | |
| parent | a0789818bacde7701ab937d4e082c932538e481c (diff) | |
| download | fml8-6cc542bc932ab3dba67d0cd9daf02d3c30417164.tar.gz fml8-6cc542bc932ab3dba67d0cd9daf02d3c30417164.tar.bz2 fml8-6cc542bc932ab3dba67d0cd9daf02d3c30417164.zip | |
clean up.
| -rw-r--r-- | fml/lib/FML/CGI/Admin/ML.pm | 6 | ||||
| -rw-r--r-- | fml/lib/FML/CGI/Admin/Menu.pm | 11 |
2 files changed, 11 insertions, 6 deletions
diff --git a/fml/lib/FML/CGI/Admin/ML.pm b/fml/lib/FML/CGI/Admin/ML.pm index 37e3a59f..34d39f4c 100644 --- a/fml/lib/FML/CGI/Admin/ML.pm +++ b/fml/lib/FML/CGI/Admin/ML.pm @@ -4,14 +4,13 @@ # 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.5 2002/09/11 23:18:04 fukachan Exp $ +# $FML: ML.pm,v 1.6 2002/09/22 14:56:42 fukachan Exp $ # package FML::CGI::Admin::ML; use strict; -use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD); use Carp; - +use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD); use CGI qw/:standard/; # load standard CGI routines @@ -47,6 +46,7 @@ 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') { diff --git a/fml/lib/FML/CGI/Admin/Menu.pm b/fml/lib/FML/CGI/Admin/Menu.pm index 44fcfda5..fb766008 100644 --- a/fml/lib/FML/CGI/Admin/Menu.pm +++ b/fml/lib/FML/CGI/Admin/Menu.pm @@ -4,14 +4,13 @@ # 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.21 2002/09/11 23:18:04 fukachan Exp $ +# $FML: Menu.pm,v 1.22 2002/09/22 14:56:42 fukachan Exp $ # package FML::CGI::Admin::Menu; use strict; -use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD); use Carp; - +use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD); use CGI qw/:standard/; # load standard CGI routines use FML::Process::CGI; @@ -82,6 +81,7 @@ sub html_start my $charset = $config->{ cgi_charset } || 'euc-jp'; # o.k start html + # XXX-TODO: validate $title print start_html(-title => $title, -lang => $charset, -BGCOLOR => $color); @@ -103,6 +103,11 @@ sub html_end } +# +# XXX-TODO: we ensure safe_param_*() and try_cgi_*() returns save value. +# + + # Descriptions: main routine for CGI. # kick off suitable FML::Command finally # via cgi_execulte_command(). |