diff options
| author | fukachan <fukachan> | 2006-01-09 14:00:53 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2006-01-09 14:00:53 +0000 |
| commit | 998d6457399e07b82ee606d2cff85a3261fd6743 (patch) | |
| tree | 446fe1c910bfc9243914fb7ecc4ed0337bb37eed /fml/lib/FML/Command/Message.pm | |
| parent | 7e1d1a36de7bb1d42262bcf5573a52b56fe22804 (diff) | |
| download | fml8-998d6457399e07b82ee606d2cff85a3261fd6743.tar.gz fml8-998d6457399e07b82ee606d2cff85a3261fd6743.tar.bz2 fml8-998d6457399e07b82ee606d2cff85a3261fd6743.zip | |
white space cosmetics.
fix copyright.
Diffstat (limited to 'fml/lib/FML/Command/Message.pm')
| -rw-r--r-- | fml/lib/FML/Command/Message.pm | 20 |
1 files changed, 10 insertions, 10 deletions
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"); |
