nuke "delete" command which is ambiguous in identify that it is to

remove a member or a file.
rewrite resign.pm is an adapter for unsubscribe.pm

2 files changed, 4 insertions, 102 deletions

diff --git a/fml/lib/FML/Command/delete.pm b/fml/lib/FML/Command/delete.pm
deleted file mode 100644
index 3b3fea3d..00000000
--- a/fml/lib/FML/Command/delete.pm
+++ /dev/null
@@ -1,80 +0,0 @@
-#-*- perl -*-
-#
-#  Copyright (C) 2001 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. 
-#
-# $Id$
-# $FML$
-#
-
-package FML::Command::delete;
-use strict;
-use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD);
-use Carp;
-
-=head1 NAME
-
-FML::Command::delete - add a new member
-
-=head1 SYNOPSIS
-
-=head1 DESCRIPTION
-
-=head1 METHODS
-
-=head2 C<new()>
-
-=cut
-
-sub new
-{
-    my ($self) = @_;
-    my ($type) = ref($self) || $self;
-    my $me     = {};
-    return bless $me, $type;
-}
-
-
-sub delete
-{
-    my ($self, $curproc, $args) = @_;
-    my $config        = $curproc->{ config };
-    my $member_map    = $config->{ primary_member_map };
-    my $recipient_map = $config->{ primary_recipient_map };
-    my $options       = $args->{ options };
-    my $address       = $options->[ 0 ];
-
-    # fundamental check
-    croak("\$member_map is not specified")    unless $member_map;
-    croak("\$recipient_map is not specified") unless $recipient_map;
-
-    use IO::MapAdapter;
-    my $obj = new IO::MapAdapter $member_map;
-    $obj->delete( $address );
-
-    $obj = new IO::MapAdapter $recipient_map;
-    $obj->delete( $address );
-}
-
-
-=head1 AUTHOR
-
-Ken'ichi Fukamachi
-
-=head1 COPYRIGHT
-
-Copyright (C) 2001 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::MemberControl appeared in fml5 mailing list driver package.
-See C<http://www.fml.org/> for more details.
-
-=cut
-
-
-1;
diff --git a/fml/lib/FML/Command/resign.pm b/fml/lib/FML/Command/resign.pm
index 39669f3c..74ab5c32 100644
--- a/fml/lib/FML/Command/resign.pm
+++ b/fml/lib/FML/Command/resign.pm
@@ -13,35 +13,17 @@ use strict;
 use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD);
 use Carp;
 
+@ISA = qw(FML::Command::unsubscribe);
+
 =head1 NAME
 
-FML::Command::resign - what is this
+FML::Command::resign - alias of "unsubscribe" command
 
 =head1 SYNOPSIS
 
-not yet implemented
-
 =head1 DESCRIPTION
 
-=head1 METHODS
-
-=head2 C<new()>
-
-=cut
-
-
-require Exporter;
-@ISA = qw(Exporter);
-
-
-sub new
-{
-    my ($self) = @_;
-    my ($type) = ref($self) || $self;
-    my $me     = {};
-    return bless $me, $type;
-}
-
+all requests are forwarded to C<FML::Command::unsubscribe>.
 
 =head1 AUTHOR