aboutsummaryrefslogtreecommitdiffstats
path: root/fripost-adduser
diff options
context:
space:
mode:
authorStefan Kangas <skangas@skangas.se>2011-03-20 23:54:22 +0100
committerStefan Kangas <skangas@skangas.se>2011-03-20 23:54:22 +0100
commitd08d7c879d1224b1bafb068996c760f4fa5d8957 (patch)
tree06b0e83d5c058c771ffdcc1931fd4ca2a92eba27 /fripost-adduser
parentc2d0d8bc220db97f11d53460b3de3e7e90850b91 (diff)
Subscribe new users to announce mailing list
Diffstat (limited to 'fripost-adduser')
-rwxr-xr-xfripost-adduser10
1 files changed, 10 insertions, 0 deletions
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> >>