diff options
| author | fukachan <fukachan> | 2002-03-19 08:00:18 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-03-19 08:00:18 +0000 |
| commit | e13dce8ae26942c7ea06e9286b6cd5fb63d88af7 (patch) | |
| tree | 4d02bc74c148865a6d0f6b522b1632c3a348845d | |
| parent | e61fc8e19b5aca97c60ab4f2c5d549e139702384 (diff) | |
| download | fml8-e13dce8ae26942c7ea06e9286b6cd5fb63d88af7.tar.gz fml8-e13dce8ae26942c7ea06e9286b6cd5fb63d88af7.tar.bz2 fml8-e13dce8ae26942c7ea06e9286b6cd5fb63d88af7.zip | |
implement cgi_menu() to show command specific menu in CGI screen
| -rw-r--r-- | fml/lib/FML/Command/Admin/subscribe.pm | 28 | ||||
| -rw-r--r-- | fml/lib/FML/Command/Admin/unsubscribe.pm | 25 |
2 files changed, 43 insertions, 10 deletions
diff --git a/fml/lib/FML/Command/Admin/subscribe.pm b/fml/lib/FML/Command/Admin/subscribe.pm index 21501518..b38da245 100644 --- a/fml/lib/FML/Command/Admin/subscribe.pm +++ b/fml/lib/FML/Command/Admin/subscribe.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: subscribe.pm,v 1.11 2002/02/20 14:10:37 fukachan Exp $ +# $FML: subscribe.pm,v 1.12 2002/03/17 05:27:31 fukachan Exp $ # package FML::Command::Admin::subscribe; @@ -13,10 +13,6 @@ use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD); use Carp; - - - - =head1 NAME FML::Command::Admin::subscribe - subscribe a new member @@ -92,13 +88,33 @@ sub process } } else { - $self->error_set( "$address is already member (map=$map)" ); + croak( "$address is already member (map=$map)" ); return undef; } } } +# Descriptions: subscribe a new user +# Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args) +# Side Effects: update $member_map $recipient_map +# Return Value: none +sub cgi_menu +{ + my ($self, $curproc, $args, $command_args) = @_; + my $r = ''; + + eval q{ + use FML::CGI::Admin::User; + my $obj = new FML::CGI::Admin::User; + $obj->cgi_menu($curproc, $args, $command_args); + }; + if ($r = $@) { + croak($r); + } +} + + =head1 AUTHOR Ken'ichi Fukamachi diff --git a/fml/lib/FML/Command/Admin/unsubscribe.pm b/fml/lib/FML/Command/Admin/unsubscribe.pm index 053a6d70..0f74b53c 100644 --- a/fml/lib/FML/Command/Admin/unsubscribe.pm +++ b/fml/lib/FML/Command/Admin/unsubscribe.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: unsubscribe.pm,v 1.8 2002/02/20 14:10:37 fukachan Exp $ +# $FML: unsubscribe.pm,v 1.9 2002/03/17 05:27:31 fukachan Exp $ # package FML::Command::Admin::unsubscribe; @@ -13,9 +13,6 @@ use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD); use Carp; - - - =head1 NAME FML::Command::Admin::unsubscribe - remove the specified member @@ -88,6 +85,26 @@ sub process } +# Descriptions: subscribe a new user +# Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args) +# Side Effects: update $member_map $recipient_map +# Return Value: none +sub cgi_menu +{ + my ($self, $curproc, $args, $command_args) = @_; + my $r = ''; + + eval q{ + use FML::CGI::Admin::User; + my $obj = new FML::CGI::Admin::User; + $obj->cgi_menu($curproc, $args, $command_args); + }; + if ($r = $@) { + croak($r); + } +} + + =head1 AUTHOR Ken'ichi Fukamachi |