From 446ae9bf00bb59c245a8045ee7ab8a9f73599d78 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Fri, 18 Nov 2011 19:31:03 +0100 Subject: Change order of user adding process --- fripost-adduser | 19 +++++++++---------- 1 file changed, 9 insertions(+), 10 deletions(-) (limited to 'fripost-adduser') 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<< >> -- cgit v1.2.3