From 8d956355349f040dc199a0cb6caa994505791dc2 Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Thu, 4 May 2006 06:45:58 +0000
Subject: send back welcome file in subscription when running under CGI/MTA
 process.

---
 fml/lib/FML/Command/Admin/subscribe.pm | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/fml/lib/FML/Command/Admin/subscribe.pm b/fml/lib/FML/Command/Admin/subscribe.pm
index 2583ea15..201b22fa 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.35 2006/03/04 13:48:29 fukachan Exp $
+# $FML: subscribe.pm,v 1.36 2006/03/05 08:08:37 fukachan Exp $
 #
 
 package FML::Command::Admin::subscribe;
@@ -124,6 +124,15 @@ sub process
     if ($r = $@) {
 	croak($r);
     }
+
+    # send back a file.
+    if ($curproc->is_cgi_process() || $curproc->is_under_mta_process()) {
+	use FML::Command::SendFile;
+	push(@ISA, qw(FML::Command::SendFile));
+	$command_context->{ _recipient } = $address;
+	$self->send_user_xxx_message($curproc, $command_context, "welcome");
+	delete $command_context->{ _recipient };
+    }
 }
 
 
-- 
cgit v1.2.1