aboutsummaryrefslogtreecommitdiffstats
path: root/fripost-adduser
diff options
context:
space:
mode:
authorGustav Eek <gustav@fripost.org>2011-11-18 19:34:10 +0100
committerGustav Eek <gustav@fripost.org>2011-11-18 19:34:10 +0100
commit52a407f738d0c8e28087f27762f775f99ca51c01 (patch)
tree58d956b553bcb8a42991b1bdfa0b579041ff7e24 /fripost-adduser
parente14bd8eea4ad519e36a56dc868ed2e9effe1295e (diff)
parent446ae9bf00bb59c245a8045ee7ab8a9f73599d78 (diff)
Merge branch 'master' of https://github.com/skangas/fripost-tools
Diffstat (limited to 'fripost-adduser')
-rwxr-xr-xfripost-adduser19
1 files changed, 9 insertions, 10 deletions
diff --git a/fripost-adduser b/fripost-adduser
index db312a2..5c21ef1 100755
--- a/fripost-adduser
+++ b/fripost-adduser
@@ -120,6 +120,15 @@ $msg->attr('content-type.charset' => 'utf-8');
dsay "-----------------------------------";
}
+### Subscribe user to announce-list
+if (confirm("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();
+}
+
### Send login credentials to new user
{
my ($vars, $data);
@@ -151,16 +160,6 @@ $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> >>