diff options
| author | fukachan <fukachan> | 2002-12-18 04:49:28 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-12-18 04:49:28 +0000 |
| commit | b9aeb603f4da1a2a70c59d9c2d7d516b9703b9f0 (patch) | |
| tree | 1e69ea7a58f5ab9fa515ff5c6c6c9a55df84d418 /fml/lib/FML/CGI | |
| parent | 88ed85c517a5702d51ffd8c1a8d20c84970b34ae (diff) | |
| download | fml8-b9aeb603f4da1a2a70c59d9c2d7d516b9703b9f0.tar.gz fml8-b9aeb603f4da1a2a70c59d9c2d7d516b9703b9f0.tar.bz2 fml8-b9aeb603f4da1a2a70c59d9c2d7d516b9703b9f0.zip | |
cosmetics. more error messages. add todo
Diffstat (limited to 'fml/lib/FML/CGI')
| -rw-r--r-- | fml/lib/FML/CGI/Admin/User.pm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/fml/lib/FML/CGI/Admin/User.pm b/fml/lib/FML/CGI/Admin/User.pm index 6db5bae8..05639efe 100644 --- a/fml/lib/FML/CGI/Admin/User.pm +++ b/fml/lib/FML/CGI/Admin/User.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: User.pm,v 1.13 2002/09/11 23:18:04 fukachan Exp $ +# $FML: User.pm,v 1.14 2002/09/22 14:56:42 fukachan Exp $ # package FML::CGI::Admin::User; 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 @@ -64,7 +63,11 @@ sub cgi_menu $comname eq 'byeadmin' ) { $address_list = $curproc->get_address_list( 'admin_member_maps' ); } + else { + croak("not allowed command"); + } + # XXX-TODO: validate $action # create <FORM ... > ... by (start_form() ... end_form()) print start_form(-action=>$action, -target=>$target); |