copy message and send it to $maintainer too

use reply_message*() with $msg_args to copy the message if needed where
$msg_args = { always_cc => $maintainer } or
$msg_args = { recipient => $maintinaer } pertinently.

1 files changed, 15 insertions, 1 deletions

diff --git a/fml/lib/FML/Command/User/confirm.pm b/fml/lib/FML/Command/User/confirm.pm
index 050a3d71..a5b28fee 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.9 2002/04/06 14:46:28 fukachan Exp $
+# $FML: confirm.pm,v 1.10 2002/04/11 15:39:42 tmu Exp $
 #
 
 package FML::Command::User::confirm;
@@ -52,6 +52,20 @@ sub new
 sub need_lock { 1;}
 
 
+# Descriptions: addresses to inform a message copy to
+#    Arguments: none
+# Side Effects: none
+# Return Value: ARREY_REF
+sub notice_cc_recipient
+{
+   my ($self, $curproc, $command_args) = @_;
+   my $config     = $curproc->{ config };
+   my $maintainer = $config->{ maintainer };
+
+   return [ $maintainer ];
+}
+
+
 # Descriptions: execute the actual process if this confirmation succeeds.
 #               run _switch_command() for real process.
 #    Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args)