white space cosmetics.

fix copyright.

6 files changed, 31 insertions, 31 deletions

diff --git a/fml/lib/FML/Command/Admin/mailq.pm b/fml/lib/FML/Command/Admin/mailq.pm
index c4e1af29..3f23e09b 100644
--- a/fml/lib/FML/Command/Admin/mailq.pm
+++ b/fml/lib/FML/Command/Admin/mailq.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2003,2004 Ken'ichi Fukamachi
+#  Copyright (C) 2003,2004,2006 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: mailq.pm,v 1.10 2004/09/03 12:43:55 fukachan Exp $
+# $FML: mailq.pm,v 1.11 2004/09/04 03:13:16 fukachan Exp $
 #
 
 package FML::Command::Admin::mailq;
@@ -91,7 +91,7 @@ sub _list_up_queue
 	if ($q->is_valid_queue()) {
 	    # 1. the first line is "queue-id sender".
 	    printf $format, $qid, $info->{sender};
-	    
+
 	    # 2. list up recipients after 2nd lines.
 	    my $rq = $info->{ recipients };
 	    for my $r (@$rq) {
@@ -122,7 +122,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2003,2004 Ken'ichi Fukamachi
+Copyright (C) 2003,2004,2006 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.
diff --git a/fml/lib/FML/Command/Admin/mergeml.pm b/fml/lib/FML/Command/Admin/mergeml.pm
index fc9711fe..ce67aacc 100644
--- a/fml/lib/FML/Command/Admin/mergeml.pm
+++ b/fml/lib/FML/Command/Admin/mergeml.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2004 Ken'ichi Fukamachi
+#  Copyright (C) 2004,2006 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: mergeml.pm,v 1.5 2004/11/24 12:24:32 fukachan Exp $
+# $FML: mergeml.pm,v 1.6 2004/11/25 12:07:40 fukachan Exp $
 #
 
 package FML::Command::Admin::mergeml;
@@ -111,7 +111,7 @@ sub process
 
 
 # Descriptions: merge ML configurations.
-#    Arguments: OBJ($self) 
+#    Arguments: OBJ($self)
 #               OBJ($curproc) HASH_REF($command_args) HASH_REF($params)
 # Side Effects: none
 # Return Value: none
@@ -174,7 +174,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2004 Ken'ichi Fukamachi
+Copyright (C) 2004,2006 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.
diff --git a/fml/lib/FML/Command/Admin/reviveml.pm b/fml/lib/FML/Command/Admin/reviveml.pm
index d899050e..a526613c 100644
--- a/fml/lib/FML/Command/Admin/reviveml.pm
+++ b/fml/lib/FML/Command/Admin/reviveml.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2005 Ken'ichi Fukamachi
+#  Copyright (C) 2005,2006 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$
+# $FML: reviveml.pm,v 1.1 2005/08/23 09:32:58 fukachan Exp $
 #
 
 package FML::Command::Admin::reviveml;
@@ -53,7 +53,7 @@ sub process
     my $ml_domain = $curproc->ml_domain();
 
     my $ml_home_dir      = $curproc->ml_home_dir($ml_name, $ml_domain);
-    my $ml_home_dir_prev = 
+    my $ml_home_dir_prev =
 	$curproc->ml_home_dir_find_latest_removed_path($ml_name, $ml_domain);
 
     $curproc->logdebug("ml_name=$ml_name ml_domain=$ml_domain");
@@ -82,7 +82,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2005 Ken'ichi Fukamachi
+Copyright (C) 2005,2006 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.
diff --git a/fml/lib/FML/Command/Message.pm b/fml/lib/FML/Command/Message.pm
index b4d7f946..32bff683 100644
--- a/fml/lib/FML/Command/Message.pm
+++ b/fml/lib/FML/Command/Message.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$
+# $FML: Message.pm,v 1.1 2006/01/07 14:43:25 fukachan Exp $
 #
 
 package FML::Command::Message;
@@ -46,10 +46,10 @@ sub new
 
 send back confirmation message.
 
-1. if $XXX_command_auth_type == confirmation, 
+1. if $XXX_command_auth_type == confirmation,
 1.1 send back confirmation to address (From:).
-   
-2. if $XXX_command_auth_type == manual, 
+
+2. if $XXX_command_auth_type == manual,
 2.1 notify "forwarded request to maintainer(s)." to sender.
 2.2 notify request to maintainer(s).
 
@@ -57,7 +57,7 @@ send back confirmation message.
 
 
 # Descriptions: send back confirmation message.
-#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args) 
+#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args)
 #               OBJ($confirm) HASH_REF($sc_args)
 # Side Effects: messages sent.
 # Return Value: none
@@ -88,15 +88,15 @@ sub send_confirmation
     #    So, fml8 do nothing.
     elsif ($mode eq 'manual') {
 	my $msg        = $curproc->incoming_message();
-	my $maintainer = $config->{ maintainer }; 
-	my $_rm_args   = { 
+	my $maintainer = $config->{ maintainer };
+	my $_rm_args   = {
 	    recipient    => $maintainer,
 	    _arg_command => $command,
 	};
 	my $default    = "send back the following confirmation.";
 
 	# 2.1 notify "forwarded request to maintainer(s)." to sender.
-	$curproc->reply_message_nl('command.forward_request_to_admin', 
+	$curproc->reply_message_nl('command.forward_request_to_admin',
 				   "",
 				   $rm_args);
 
@@ -104,9 +104,9 @@ sub send_confirmation
 	$curproc->reply_message_nl('command.receive_request', "", $_rm_args);
 	$curproc->reply_message_nl('command.confirm', $default, $_rm_args);
 	$curproc->reply_message("\n$id\n", $_rm_args);
-	$curproc->reply_message($msg, $_rm_args);	
+	$curproc->reply_message($msg, $_rm_args);
     }
-    # 3. fatal error if neither of automatic nor manual. 
+    # 3. fatal error if neither of automatic nor manual.
     else {
 	$curproc->logerror("unknown operation mode");
 	croak("unknown operation mode");
diff --git a/fml/lib/FML/Command/User/chaddr.pm b/fml/lib/FML/Command/User/chaddr.pm
index 4e9081d4..8addc54e 100644
--- a/fml/lib/FML/Command/User/chaddr.pm
+++ b/fml/lib/FML/Command/User/chaddr.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: chaddr.pm,v 1.35 2006/01/07 14:43:25 fukachan Exp $
+# $FML: chaddr.pm,v 1.36 2006/01/08 03:06:59 fukachan Exp $
 #
 
 package FML::Command::User::chaddr;
@@ -189,7 +189,7 @@ sub process
 
 	use FML::Command::Message;
 	my $_msg    = new FML::Command::Message;
-	my $sc_args = { 
+	my $sc_args = {
 	    command => "chaddr",
 	    rm_args => $optargs,
 	};
diff --git a/fml/lib/FML/Command/User/confirm.pm b/fml/lib/FML/Command/User/confirm.pm
index a066f4e6..ea0d1e12 100644
--- a/fml/lib/FML/Command/User/confirm.pm
+++ b/fml/lib/FML/Command/User/confirm.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: confirm.pm,v 1.36 2006/01/07 15:28:03 fukachan Exp $
+# $FML: confirm.pm,v 1.37 2006/01/08 03:06:59 fukachan Exp $
 #
 
 package FML::Command::User::confirm;
@@ -123,10 +123,10 @@ sub process
     my $found = '';
     if ($found = $confirm->find($id)) { # if request is found
 	unless ($confirm->is_expired($id, $expire_limit)) {
-	    $self->_switch_process($confirm, 
+	    $self->_switch_process($confirm,
 				   $class,
-				   $id, 
-				   $curproc, 
+				   $id,
+				   $curproc,
 				   $command_args);
 	}
 	else { # if requset is expired
@@ -156,7 +156,7 @@ sub process
 sub _switch_process
 {
     my ($self, $confirm, $class, $id, $curproc, $command_args) = @_;
-    my $config  = $curproc->config(); 
+    my $config  = $curproc->config();
     my $command = $class;
     my $varname = "${command}_command_operation_mode";
     my $mode    = $config->{ $varname } || 'confirmation';
@@ -213,7 +213,7 @@ sub _switch_command
 	$class eq 'unsubscribe' ||
 	$class eq 'chaddr' ||
 	$class eq 'on'     ||
-	$class eq 'off'    || 
+	$class eq 'off'    ||
 	$class eq 'moderate') {
 	$command_args->{ command_data } = $address;
 	$command_args->{ command_mode } = 'Admin';
@@ -286,7 +286,7 @@ sub _forward_request
 
     # 2.2 notify request to maintainer(s).
     $curproc->reply_message_nl($key2, $default2, $rm_args);
-    $curproc->reply_message($msg, $rm_args);	
+    $curproc->reply_message($msg, $rm_args);
 }