From 446ae9bf00bb59c245a8045ee7ab8a9f73599d78 Mon Sep 17 00:00:00 2001
From: Stefan Kangas <skangas@skangas.se>
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<< <skangas at skangas.se> >>
-- 
cgit v1.2.3