From 2192a6af3371cd42ade706f405639e6fd0784e99 Mon Sep 17 00:00:00 2001 From: fukachan Date: Sat, 27 Sep 2003 03:00:15 +0000 Subject: FML/CGI/Admin/{List,ML,User}.pm -> FML/CGI/{List,ML,User}.pm --- fml/lib/FML/CGI/Admin/List.pm | 108 --------------------- fml/lib/FML/CGI/Admin/ML.pm | 139 --------------------------- fml/lib/FML/CGI/Admin/User.pm | 152 ------------------------------ fml/lib/FML/CGI/List.pm | 108 +++++++++++++++++++++ fml/lib/FML/CGI/ML.pm | 139 +++++++++++++++++++++++++++ fml/lib/FML/CGI/User.pm | 152 ++++++++++++++++++++++++++++++ fml/lib/FML/Command/Admin/addadmin.pm | 6 +- fml/lib/FML/Command/Admin/addmoderator.pm | 6 +- fml/lib/FML/Command/Admin/deladmin.pm | 6 +- fml/lib/FML/Command/Admin/delmoderator.pm | 6 +- fml/lib/FML/Command/Admin/digest.pm | 6 +- fml/lib/FML/Command/Admin/digestoff.pm | 6 +- fml/lib/FML/Command/Admin/digeston.pm | 6 +- fml/lib/FML/Command/Admin/list.pm | 6 +- fml/lib/FML/Command/Admin/newml.pm | 6 +- fml/lib/FML/Command/Admin/off.pm | 6 +- fml/lib/FML/Command/Admin/on.pm | 6 +- fml/lib/FML/Command/Admin/rmml.pm | 6 +- fml/lib/FML/Command/Admin/subscribe.pm | 6 +- fml/lib/FML/Command/Admin/unsubscribe.pm | 6 +- 20 files changed, 441 insertions(+), 441 deletions(-) delete mode 100644 fml/lib/FML/CGI/Admin/List.pm delete mode 100644 fml/lib/FML/CGI/Admin/ML.pm delete mode 100644 fml/lib/FML/CGI/Admin/User.pm create mode 100644 fml/lib/FML/CGI/List.pm create mode 100644 fml/lib/FML/CGI/ML.pm create mode 100644 fml/lib/FML/CGI/User.pm diff --git a/fml/lib/FML/CGI/Admin/List.pm b/fml/lib/FML/CGI/Admin/List.pm deleted file mode 100644 index e6578cf7..00000000 --- a/fml/lib/FML/CGI/Admin/List.pm +++ /dev/null @@ -1,108 +0,0 @@ -#-*- perl -*- -# -# 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.8 2003/02/16 08:52:44 fukachan Exp $ -# - -package FML::CGI::Admin::List; -use strict; -use Carp; -use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD); -use CGI qw/:standard/; # load standard CGI routines - - -# Descriptions: standard constructor -# Arguments: OBJ($self) -# Side Effects: none -# Return Value: OBJ -sub new -{ - my ($self) = @_; - my ($type) = ref($self) || $self; - my $me = {}; - return bless $me, $type; -} - - -# Descriptions: show address list -# Arguments: OBJ($self) -# OBJ($curproc) -# HASH_REF($args) -# HASH_REF($command_args) -# Side Effects: none -# Return Value: none -sub cgi_menu -{ - my ($self, $curproc, $args, $command_args) = @_; - my $action = $curproc->safe_cgi_action_name(); - my $target = '_top'; - my $ml_name = $command_args->{ ml_name }; - my $config = $curproc->config(); - my $map_list = $config->get_as_array_ref('cgi_menu_map_list'); - my $_defaultmap = $config->{ cgi_menu_default_map }; - my $map_default = $curproc->safe_param_map() || $_defaultmap; - - use FML::Restriction::Base; - my $safe = new FML::Restriction::Base; - unless ($safe->regexp_match('ml_name', $ml_name)) { - croak("invalid ml_name"); - } - - # check $map_default included in $map_list. - unless ($config->has_attribute("cgi_menu_map_list", $map_default)) { - croak("invalid map: $map_default"); - } - - print start_form(-action=>$action, -target=>$target); - print hidden(-name => 'command', -default => 'list'); - print table( { -border => undef }, - Tr( undef, - td([ - "ML:", - textfield(-name => 'ml_name', - -default => $ml_name), - ]) - ), - Tr( undef, - td([ - "map", - scrolling_list(-name => 'map', - -values => $map_list, - -default => $map_default, - -size => $#$map_list + 1) - ]), - ) - ); - - print submit(-name => 'show'); - print end_form; -} - - -=head1 CODING STYLE - -See C on fml coding style guide. - -=head1 AUTHOR - -Ken'ichi Fukamachi - -=head1 COPYRIGHT - -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. - -=head1 HISTORY - -FML::CGI::Admin::List first appeared in fml8 mailing list driver package. -See C for more details. - -=cut - - -1; diff --git a/fml/lib/FML/CGI/Admin/ML.pm b/fml/lib/FML/CGI/Admin/ML.pm deleted file mode 100644 index a2926781..00000000 --- a/fml/lib/FML/CGI/Admin/ML.pm +++ /dev/null @@ -1,139 +0,0 @@ -#-*- perl -*- -# -# 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.9 2003/08/29 15:33:56 fukachan Exp $ -# - -package FML::CGI::Admin::ML; -use strict; -use Carp; -use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD); -use CGI qw/:standard/; # load standard CGI routines - - -# Descriptions: standard constructor -# Arguments: OBJ($self) -# Side Effects: none -# Return Value: OBJ -sub new -{ - my ($self) = @_; - my ($type) = ref($self) || $self; - my $me = {}; - return bless $me, $type; -} - - -# Descriptions: show menu for subscribe/unsubscribe commands -# Arguments: OBJ($self) -# OBJ($curproc) -# HASH_REF($args) -# HASH_REF($command_args) -# Side Effects: none -# Return Value: none -sub cgi_menu -{ - my ($self, $curproc, $args, $command_args) = @_; - my $config = $curproc->config(); - my $action = $curproc->safe_cgi_action_name(); - my $ml_domain = $curproc->ml_domain(); - my $ml_list = $curproc->get_ml_list($ml_domain); - my $address = $curproc->safe_param_address() || ''; - my $target = '_top'; - my $comname = $command_args->{ comname }; - my $command_list = [ 'newml', 'rmml' ]; - - print start_form(-action=>$action, -target=>$target); - - if ($comname eq 'newml') { - print table( { -border => undef }, - Tr( undef, - td([ - "ML:", - textfield(-name => 'ml_name_specified', - -default => '', - -override => 1, - -size => 32, - -maxlength => 64, - ) - ]) - ), - Tr( undef, - td([ - "command: ", - textfield(-name => 'command', - -default => $comname, - -size => 32) - ]) - ), - ); - - } - elsif ($comname eq 'rmml') { - print table( { -border => undef }, - Tr( undef, - td([ - "ML: ", - scrolling_list(-name => 'ml_name', - -values => $ml_list, - -size => 5) - ]) - ), - Tr( undef, - td([ - "", - textfield(-name => 'ml_name_specified', - -default => '', - -override => 1, - -size => 32, - -maxlength => 64, - ) - ]) - ), - Tr( undef, - td([ - "command: ", - textfield(-name => 'command', - -default => $comname, - -size => 32) - ]) - ), - ); - } - else { - croak("Admin::ML::cgi_menu: unknown command"); - } - - print submit(-name => 'submit'); - print reset(-name => 'reset'); - print end_form; -} - - -=head1 CODING STYLE - -See C on fml coding style guide. - -=head1 AUTHOR - -Ken'ichi Fukamachi - -=head1 COPYRIGHT - -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. - -=head1 HISTORY - -FML::CGI::Admin::ML first appeared in fml8 mailing list driver package. -See C for more details. - -=cut - - -1; diff --git a/fml/lib/FML/CGI/Admin/User.pm b/fml/lib/FML/CGI/Admin/User.pm deleted file mode 100644 index 0a7042f6..00000000 --- a/fml/lib/FML/CGI/Admin/User.pm +++ /dev/null @@ -1,152 +0,0 @@ -#-*- perl -*- -# -# 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.18 2003/08/29 15:33:56 fukachan Exp $ -# - -package FML::CGI::Admin::User; -use strict; -use Carp; -use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD); -use CGI qw/:standard/; # load standard CGI routines - - -# Descriptions: standard constructor -# Arguments: OBJ($self) -# Side Effects: none -# Return Value: OBJ -sub new -{ - my ($self) = @_; - my ($type) = ref($self) || $self; - my $me = {}; - return bless $me, $type; -} - - -# Descriptions: show menu for user control commands such as -# subscribe, unsubscribe, addadmin, byeadmin, ... -# Arguments: OBJ($self) -# OBJ($curproc) -# HASH_REF($args) -# HASH_REF($command_args) -# Side Effects: none -# Return Value: none -sub cgi_menu -{ - my ($self, $curproc, $args, $command_args) = @_; - my $action = $curproc->safe_cgi_action_name(); - my $target = '_top'; - my $ml_list = $curproc->get_ml_list(); - my $address = $curproc->safe_param_address() || ''; - my $config = $curproc->config(); - my $ml_name = $command_args->{ ml_name }; - my $comname = $command_args->{ comname }; - my $address_list = []; - my $selected_key = ''; - - # which address list to show at the scrolling list - if ($comname eq 'subscribe' || - $comname eq 'adduser' || - $comname eq 'useradd' || - $comname eq 'unsubscribe' || - $comname eq 'userdel' || - $comname eq 'deluser' ) { - $address_list = $curproc->get_address_list( 'member_maps' ); - $selected_key = 'members'; - } - elsif ($comname eq 'digeston') { - $address_list = $curproc->get_address_list( 'recipient_maps' ); - $selected_key = 'recipients'; - } - elsif ($comname eq 'digestoff') { - $address_list = $curproc->get_address_list( 'digest_recipient_maps' ); - $selected_key = 'digest recipients'; - } - elsif ($comname eq 'addadmin' || - $comname eq 'adminadd' || - $comname eq 'admindel' || - $comname eq 'deladmin' || - $comname eq 'byeadmin' ) { - $address_list = $curproc->get_address_list( 'admin_member_maps' ); - $selected_key = 'admin_members'; - } - else { - croak("not allowed command"); - } - - # create
... by (start_form() ... end_form()) - print start_form(-action=>$action, -target=>$target); - - print table( { -border => undef }, - Tr( undef, - td([ - "ML: ", - textfield(-name => 'ml_name', - -default => $ml_name, - -size => 32) - ]) - ), - Tr( undef, - td([ - "command: ", - textfield(-name => 'command', - -default => $comname, - -size => 32) - ]) - ), - Tr( undef, - td([ - "specify address: ", - textfield(-name => 'address_specified', - -default => $address, - -override => 1, - -size => 32, - -maxlength => 64, - ) - ]) - ), - Tr( undef, - td([ - "select address
($selected_key)", - scrolling_list(-name => 'address_selected', - -values => $address_list, - -size => 5) - ]), - ) - ); - - - print submit(-name => 'submit'); - print reset(-name => 'reset'); - print end_form; -} - - -=head1 CODING STYLE - -See C on fml coding style guide. - -=head1 AUTHOR - -Ken'ichi Fukamachi - -=head1 COPYRIGHT - -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. - -=head1 HISTORY - -FML::CGI::Admin::User first appeared in fml8 mailing list driver package. -See C for more details. - -=cut - - -1; diff --git a/fml/lib/FML/CGI/List.pm b/fml/lib/FML/CGI/List.pm new file mode 100644 index 00000000..382d0114 --- /dev/null +++ b/fml/lib/FML/CGI/List.pm @@ -0,0 +1,108 @@ +#-*- perl -*- +# +# 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.9 2003/02/20 04:32:49 fukachan Exp $ +# + +package FML::CGI::List; +use strict; +use Carp; +use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD); +use CGI qw/:standard/; # load standard CGI routines + + +# Descriptions: standard constructor +# Arguments: OBJ($self) +# Side Effects: none +# Return Value: OBJ +sub new +{ + my ($self) = @_; + my ($type) = ref($self) || $self; + my $me = {}; + return bless $me, $type; +} + + +# Descriptions: show address list +# Arguments: OBJ($self) +# OBJ($curproc) +# HASH_REF($args) +# HASH_REF($command_args) +# Side Effects: none +# Return Value: none +sub cgi_menu +{ + my ($self, $curproc, $args, $command_args) = @_; + my $action = $curproc->safe_cgi_action_name(); + my $target = '_top'; + my $ml_name = $command_args->{ ml_name }; + my $config = $curproc->config(); + my $map_list = $config->get_as_array_ref('cgi_menu_map_list'); + my $_defaultmap = $config->{ cgi_menu_default_map }; + my $map_default = $curproc->safe_param_map() || $_defaultmap; + + use FML::Restriction::Base; + my $safe = new FML::Restriction::Base; + unless ($safe->regexp_match('ml_name', $ml_name)) { + croak("invalid ml_name"); + } + + # check $map_default included in $map_list. + unless ($config->has_attribute("cgi_menu_map_list", $map_default)) { + croak("invalid map: $map_default"); + } + + print start_form(-action=>$action, -target=>$target); + print hidden(-name => 'command', -default => 'list'); + print table( { -border => undef }, + Tr( undef, + td([ + "ML:", + textfield(-name => 'ml_name', + -default => $ml_name), + ]) + ), + Tr( undef, + td([ + "map", + scrolling_list(-name => 'map', + -values => $map_list, + -default => $map_default, + -size => $#$map_list + 1) + ]), + ) + ); + + print submit(-name => 'show'); + print end_form; +} + + +=head1 CODING STYLE + +See C on fml coding style guide. + +=head1 AUTHOR + +Ken'ichi Fukamachi + +=head1 COPYRIGHT + +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. + +=head1 HISTORY + +FML::CGI::List first appeared in fml8 mailing list driver package. +See C for more details. + +=cut + + +1; diff --git a/fml/lib/FML/CGI/ML.pm b/fml/lib/FML/CGI/ML.pm new file mode 100644 index 00000000..ea7bfc37 --- /dev/null +++ b/fml/lib/FML/CGI/ML.pm @@ -0,0 +1,139 @@ +#-*- perl -*- +# +# 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.10 2003/09/25 11:37:33 fukachan Exp $ +# + +package FML::CGI::ML; +use strict; +use Carp; +use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD); +use CGI qw/:standard/; # load standard CGI routines + + +# Descriptions: standard constructor +# Arguments: OBJ($self) +# Side Effects: none +# Return Value: OBJ +sub new +{ + my ($self) = @_; + my ($type) = ref($self) || $self; + my $me = {}; + return bless $me, $type; +} + + +# Descriptions: show menu for subscribe/unsubscribe commands +# Arguments: OBJ($self) +# OBJ($curproc) +# HASH_REF($args) +# HASH_REF($command_args) +# Side Effects: none +# Return Value: none +sub cgi_menu +{ + my ($self, $curproc, $args, $command_args) = @_; + my $config = $curproc->config(); + my $action = $curproc->safe_cgi_action_name(); + my $ml_domain = $curproc->ml_domain(); + my $ml_list = $curproc->get_ml_list($ml_domain); + my $address = $curproc->safe_param_address() || ''; + my $target = '_top'; + my $comname = $command_args->{ comname }; + my $command_list = [ 'newml', 'rmml' ]; + + print start_form(-action=>$action, -target=>$target); + + if ($comname eq 'newml') { + print table( { -border => undef }, + Tr( undef, + td([ + "ML:", + textfield(-name => 'ml_name_specified', + -default => '', + -override => 1, + -size => 32, + -maxlength => 64, + ) + ]) + ), + Tr( undef, + td([ + "command: ", + textfield(-name => 'command', + -default => $comname, + -size => 32) + ]) + ), + ); + + } + elsif ($comname eq 'rmml') { + print table( { -border => undef }, + Tr( undef, + td([ + "ML: ", + scrolling_list(-name => 'ml_name', + -values => $ml_list, + -size => 5) + ]) + ), + Tr( undef, + td([ + "", + textfield(-name => 'ml_name_specified', + -default => '', + -override => 1, + -size => 32, + -maxlength => 64, + ) + ]) + ), + Tr( undef, + td([ + "command: ", + textfield(-name => 'command', + -default => $comname, + -size => 32) + ]) + ), + ); + } + else { + croak("Admin::ML::cgi_menu: unknown command"); + } + + print submit(-name => 'submit'); + print reset(-name => 'reset'); + print end_form; +} + + +=head1 CODING STYLE + +See C on fml coding style guide. + +=head1 AUTHOR + +Ken'ichi Fukamachi + +=head1 COPYRIGHT + +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. + +=head1 HISTORY + +FML::CGI::ML first appeared in fml8 mailing list driver package. +See C for more details. + +=cut + + +1; diff --git a/fml/lib/FML/CGI/User.pm b/fml/lib/FML/CGI/User.pm new file mode 100644 index 00000000..3f9032fb --- /dev/null +++ b/fml/lib/FML/CGI/User.pm @@ -0,0 +1,152 @@ +#-*- perl -*- +# +# 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.19 2003/09/25 11:36:24 fukachan Exp $ +# + +package FML::CGI::User; +use strict; +use Carp; +use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD); +use CGI qw/:standard/; # load standard CGI routines + + +# Descriptions: standard constructor +# Arguments: OBJ($self) +# Side Effects: none +# Return Value: OBJ +sub new +{ + my ($self) = @_; + my ($type) = ref($self) || $self; + my $me = {}; + return bless $me, $type; +} + + +# Descriptions: show menu for user control commands such as +# subscribe, unsubscribe, addadmin, byeadmin, ... +# Arguments: OBJ($self) +# OBJ($curproc) +# HASH_REF($args) +# HASH_REF($command_args) +# Side Effects: none +# Return Value: none +sub cgi_menu +{ + my ($self, $curproc, $args, $command_args) = @_; + my $action = $curproc->safe_cgi_action_name(); + my $target = '_top'; + my $ml_list = $curproc->get_ml_list(); + my $address = $curproc->safe_param_address() || ''; + my $config = $curproc->config(); + my $ml_name = $command_args->{ ml_name }; + my $comname = $command_args->{ comname }; + my $address_list = []; + my $selected_key = ''; + + # which address list to show at the scrolling list + if ($comname eq 'subscribe' || + $comname eq 'adduser' || + $comname eq 'useradd' || + $comname eq 'unsubscribe' || + $comname eq 'userdel' || + $comname eq 'deluser' ) { + $address_list = $curproc->get_address_list( 'member_maps' ); + $selected_key = 'members'; + } + elsif ($comname eq 'digeston') { + $address_list = $curproc->get_address_list( 'recipient_maps' ); + $selected_key = 'recipients'; + } + elsif ($comname eq 'digestoff') { + $address_list = $curproc->get_address_list( 'digest_recipient_maps' ); + $selected_key = 'digest recipients'; + } + elsif ($comname eq 'addadmin' || + $comname eq 'adminadd' || + $comname eq 'admindel' || + $comname eq 'deladmin' || + $comname eq 'byeadmin' ) { + $address_list = $curproc->get_address_list( 'admin_member_maps' ); + $selected_key = 'admin_members'; + } + else { + croak("not allowed command"); + } + + # create ... by (start_form() ... end_form()) + print start_form(-action=>$action, -target=>$target); + + print table( { -border => undef }, + Tr( undef, + td([ + "ML: ", + textfield(-name => 'ml_name', + -default => $ml_name, + -size => 32) + ]) + ), + Tr( undef, + td([ + "command: ", + textfield(-name => 'command', + -default => $comname, + -size => 32) + ]) + ), + Tr( undef, + td([ + "specify address: ", + textfield(-name => 'address_specified', + -default => $address, + -override => 1, + -size => 32, + -maxlength => 64, + ) + ]) + ), + Tr( undef, + td([ + "select address
($selected_key)", + scrolling_list(-name => 'address_selected', + -values => $address_list, + -size => 5) + ]), + ) + ); + + + print submit(-name => 'submit'); + print reset(-name => 'reset'); + print end_form; +} + + +=head1 CODING STYLE + +See C on fml coding style guide. + +=head1 AUTHOR + +Ken'ichi Fukamachi + +=head1 COPYRIGHT + +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. + +=head1 HISTORY + +FML::CGI::User first appeared in fml8 mailing list driver package. +See C for more details. + +=cut + + +1; diff --git a/fml/lib/FML/Command/Admin/addadmin.pm b/fml/lib/FML/Command/Admin/addadmin.pm index ece2be51..107b9c2d 100644 --- a/fml/lib/FML/Command/Admin/addadmin.pm +++ b/fml/lib/FML/Command/Admin/addadmin.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: addadmin.pm,v 1.11 2003/08/23 04:35:29 fukachan Exp $ +# $FML: addadmin.pm,v 1.12 2003/08/29 15:33:58 fukachan Exp $ # package FML::Command::Admin::addadmin; @@ -107,8 +107,8 @@ sub cgi_menu my $r = ''; eval q{ - use FML::CGI::Admin::User; - my $obj = new FML::CGI::Admin::User; + use FML::CGI::User; + my $obj = new FML::CGI::User; $obj->cgi_menu($curproc, $args, $command_args); }; if ($r = $@) { diff --git a/fml/lib/FML/Command/Admin/addmoderator.pm b/fml/lib/FML/Command/Admin/addmoderator.pm index 8c7fb273..e0b52c81 100644 --- a/fml/lib/FML/Command/Admin/addmoderator.pm +++ b/fml/lib/FML/Command/Admin/addmoderator.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: addmoderator.pm,v 1.6 2003/08/23 04:35:29 fukachan Exp $ +# $FML: addmoderator.pm,v 1.7 2003/08/29 15:33:58 fukachan Exp $ # package FML::Command::Admin::addmoderator; @@ -107,8 +107,8 @@ sub cgi_menu my $r = ''; eval q{ - use FML::CGI::Admin::User; - my $obj = new FML::CGI::Admin::User; + use FML::CGI::User; + my $obj = new FML::CGI::User; $obj->cgi_menu($curproc, $args, $command_args); }; if ($r = $@) { diff --git a/fml/lib/FML/Command/Admin/deladmin.pm b/fml/lib/FML/Command/Admin/deladmin.pm index acb7f773..291fac9f 100644 --- a/fml/lib/FML/Command/Admin/deladmin.pm +++ b/fml/lib/FML/Command/Admin/deladmin.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: deladmin.pm,v 1.10 2003/05/12 10:16:42 fukachan Exp $ +# $FML: deladmin.pm,v 1.11 2003/08/23 04:35:30 fukachan Exp $ # package FML::Command::Admin::deladmin; @@ -112,8 +112,8 @@ sub cgi_menu my $r = ''; eval q{ - use FML::CGI::Admin::User; - my $obj = new FML::CGI::Admin::User; + use FML::CGI::User; + my $obj = new FML::CGI::User; $obj->cgi_menu($curproc, $args, $command_args); }; if ($r = $@) { diff --git a/fml/lib/FML/Command/Admin/delmoderator.pm b/fml/lib/FML/Command/Admin/delmoderator.pm index edd65c08..d74e3038 100644 --- a/fml/lib/FML/Command/Admin/delmoderator.pm +++ b/fml/lib/FML/Command/Admin/delmoderator.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: delmoderator.pm,v 1.9 2003/05/12 10:16:42 fukachan Exp $ +# $FML: delmoderator.pm,v 1.10 2003/08/23 04:35:30 fukachan Exp $ # package FML::Command::Admin::delmoderator; @@ -112,8 +112,8 @@ sub cgi_menu my $r = ''; eval q{ - use FML::CGI::Admin::User; - my $obj = new FML::CGI::Admin::User; + use FML::CGI::User; + my $obj = new FML::CGI::User; $obj->cgi_menu($curproc, $args, $command_args); }; if ($r = $@) { diff --git a/fml/lib/FML/Command/Admin/digest.pm b/fml/lib/FML/Command/Admin/digest.pm index 9ea0fe5c..dbcdb74b 100644 --- a/fml/lib/FML/Command/Admin/digest.pm +++ b/fml/lib/FML/Command/Admin/digest.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: digest.pm,v 1.10 2003/05/12 10:16:42 fukachan Exp $ +# $FML: digest.pm,v 1.11 2003/08/23 04:35:30 fukachan Exp $ # package FML::Command::Admin::digest; @@ -237,8 +237,8 @@ sub cgi_menu return; eval q{ - use FML::CGI::Admin::User; - my $obj = new FML::CGI::Admin::User; + use FML::CGI::User; + my $obj = new FML::CGI::User; $obj->cgi_menu($curproc, $args, $command_args); }; if ($r = $@) { diff --git a/fml/lib/FML/Command/Admin/digestoff.pm b/fml/lib/FML/Command/Admin/digestoff.pm index 84af0ca3..89f5ffd2 100644 --- a/fml/lib/FML/Command/Admin/digestoff.pm +++ b/fml/lib/FML/Command/Admin/digestoff.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: digestoff.pm,v 1.4 2003/03/18 10:42:42 fukachan Exp $ +# $FML: digestoff.pm,v 1.5 2003/08/23 04:35:30 fukachan Exp $ # package FML::Command::Admin::digestoff; @@ -89,8 +89,8 @@ sub cgi_menu my $r = ''; eval q{ - use FML::CGI::Admin::User; - my $obj = new FML::CGI::Admin::User; + use FML::CGI::User; + my $obj = new FML::CGI::User; $obj->cgi_menu($curproc, $args, $command_args); }; if ($r = $@) { diff --git a/fml/lib/FML/Command/Admin/digeston.pm b/fml/lib/FML/Command/Admin/digeston.pm index 35fb1331..a5b7d448 100644 --- a/fml/lib/FML/Command/Admin/digeston.pm +++ b/fml/lib/FML/Command/Admin/digeston.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: digeston.pm,v 1.4 2003/03/18 10:42:42 fukachan Exp $ +# $FML: digeston.pm,v 1.5 2003/08/23 04:35:30 fukachan Exp $ # package FML::Command::Admin::digeston; @@ -89,8 +89,8 @@ sub cgi_menu my $r = ''; eval q{ - use FML::CGI::Admin::User; - my $obj = new FML::CGI::Admin::User; + use FML::CGI::User; + my $obj = new FML::CGI::User; $obj->cgi_menu($curproc, $args, $command_args); }; if ($r = $@) { diff --git a/fml/lib/FML/Command/Admin/list.pm b/fml/lib/FML/Command/Admin/list.pm index 9e43e2ee..78eaf4e9 100644 --- a/fml/lib/FML/Command/Admin/list.pm +++ b/fml/lib/FML/Command/Admin/list.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: list.pm,v 1.15 2003/08/29 15:33:58 fukachan Exp $ +# $FML: list.pm,v 1.16 2003/09/25 11:36:24 fukachan Exp $ # package FML::Command::Admin::list; @@ -137,8 +137,8 @@ sub cgi_menu # navigation bar eval q{ - use FML::CGI::Admin::List; - my $obj = new FML::CGI::Admin::List; + use FML::CGI::List; + my $obj = new FML::CGI::List; $obj->cgi_menu($curproc, $args, $command_args); }; if ($r = $@) { diff --git a/fml/lib/FML/Command/Admin/newml.pm b/fml/lib/FML/Command/Admin/newml.pm index f3c9b2bc..b6de197d 100644 --- a/fml/lib/FML/Command/Admin/newml.pm +++ b/fml/lib/FML/Command/Admin/newml.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: newml.pm,v 1.69 2003/09/13 09:16:59 fukachan Exp $ +# $FML: newml.pm,v 1.70 2003/09/25 11:40:59 fukachan Exp $ # package FML::Command::Admin::newml; @@ -553,8 +553,8 @@ sub cgi_menu my $r = ''; eval q{ - use FML::CGI::Admin::ML; - my $obj = new FML::CGI::Admin::ML; + use FML::CGI::ML; + my $obj = new FML::CGI::ML; $obj->cgi_menu($curproc, $args, $command_args); }; if ($r = $@) { diff --git a/fml/lib/FML/Command/Admin/off.pm b/fml/lib/FML/Command/Admin/off.pm index 6baada5e..242ae3bf 100644 --- a/fml/lib/FML/Command/Admin/off.pm +++ b/fml/lib/FML/Command/Admin/off.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: off.pm,v 1.10 2003/05/12 10:16:43 fukachan Exp $ +# $FML: off.pm,v 1.11 2003/08/23 04:35:31 fukachan Exp $ # package FML::Command::Admin::off; @@ -105,8 +105,8 @@ sub cgi_menu my $r = ''; eval q{ - use FML::CGI::Admin::User; - my $obj = new FML::CGI::Admin::User; + use FML::CGI::User; + my $obj = new FML::CGI::User; $obj->cgi_menu($curproc, $args, $command_args); }; if ($r = $@) { diff --git a/fml/lib/FML/Command/Admin/on.pm b/fml/lib/FML/Command/Admin/on.pm index e2d7d637..aca9cdaf 100644 --- a/fml/lib/FML/Command/Admin/on.pm +++ b/fml/lib/FML/Command/Admin/on.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: on.pm,v 1.10 2003/08/23 04:35:31 fukachan Exp $ +# $FML: on.pm,v 1.11 2003/08/29 15:33:59 fukachan Exp $ # package FML::Command::Admin::on; @@ -106,8 +106,8 @@ sub cgi_menu my $r = ''; eval q{ - use FML::CGI::Admin::User; - my $obj = new FML::CGI::Admin::User; + use FML::CGI::User; + my $obj = new FML::CGI::User; $obj->cgi_menu($curproc, $args, $command_args); }; if ($r = $@) { diff --git a/fml/lib/FML/Command/Admin/rmml.pm b/fml/lib/FML/Command/Admin/rmml.pm index a6cddf23..2c05a20f 100644 --- a/fml/lib/FML/Command/Admin/rmml.pm +++ b/fml/lib/FML/Command/Admin/rmml.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: rmml.pm,v 1.18 2003/09/06 03:34:04 fukachan Exp $ +# $FML: rmml.pm,v 1.19 2003/09/13 09:16:59 fukachan Exp $ # package FML::Command::Admin::rmml; @@ -174,8 +174,8 @@ sub cgi_menu my $r = ''; eval q{ - use FML::CGI::Admin::ML; - my $obj = new FML::CGI::Admin::ML; + use FML::CGI::ML; + my $obj = new FML::CGI::ML; $obj->cgi_menu($curproc, $args, $command_args); }; if ($r = $@) { diff --git a/fml/lib/FML/Command/Admin/subscribe.pm b/fml/lib/FML/Command/Admin/subscribe.pm index badb60fa..0e3ab283 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.23 2003/08/23 04:35:32 fukachan Exp $ +# $FML: subscribe.pm,v 1.24 2003/08/29 15:33:59 fukachan Exp $ # package FML::Command::Admin::subscribe; @@ -109,8 +109,8 @@ sub cgi_menu my $r = ''; eval q{ - use FML::CGI::Admin::User; - my $obj = new FML::CGI::Admin::User; + use FML::CGI::User; + my $obj = new FML::CGI::User; $obj->cgi_menu($curproc, $args, $command_args); }; if ($r = $@) { diff --git a/fml/lib/FML/Command/Admin/unsubscribe.pm b/fml/lib/FML/Command/Admin/unsubscribe.pm index 867072f5..02d66ba2 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.24 2003/08/23 04:35:32 fukachan Exp $ +# $FML: unsubscribe.pm,v 1.25 2003/08/29 15:34:00 fukachan Exp $ # package FML::Command::Admin::unsubscribe; @@ -110,8 +110,8 @@ sub cgi_menu my $r = ''; eval q{ - use FML::CGI::Admin::User; - my $obj = new FML::CGI::Admin::User; + use FML::CGI::User; + my $obj = new FML::CGI::User; $obj->cgi_menu($curproc, $args, $command_args); }; if ($r = $@) { -- cgit v1.2.1