From d08d7c879d1224b1bafb068996c760f4fa5d8957 Mon Sep 17 00:00:00 2001
From: Stefan Kangas <skangas@skangas.se>
Date: Sun, 20 Mar 2011 23:54:22 +0100
Subject: Subscribe new users to announce mailing list

---
 fripost-adduser | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'fripost-adduser')

diff --git a/fripost-adduser b/fripost-adduser
index 368d4e4..e96c5f3 100755
--- a/fripost-adduser
+++ b/fripost-adduser
@@ -155,6 +155,16 @@ $msg->attr('content-type.charset' => 'utf-8');
     }
 }
 
+### Subscribe user to announce-list
+{
+    confirm_or_abort("Subscribe user to announce mailing list? ");
+    $msg->replace(From => $user->{username});
+    $msg->replace(To => 'announce-subscribe@lists.fripost.org');
+    $msg->replace(Subject => '');
+    $msg->replace(Data => '');
+    $msg->send();
+}
+
 =head1 AUTHOR
 
 Stefan Kangas C<< <skangas at skangas.se> >>
-- 
cgit v1.2.3