From 02fd9f27bb2f580c88a28d963ce27dcff210bf73 Mon Sep 17 00:00:00 2001
From: Stefan Kangas <skangas@skangas.se>
Date: Mon, 14 Mar 2011 15:06:23 +0100
Subject: WIP: send login information to address when adding user

---
 fripost-adduser | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'fripost-adduser')

diff --git a/fripost-adduser b/fripost-adduser
index 192a691..0fd534c 100755
--- a/fripost-adduser
+++ b/fripost-adduser
@@ -30,7 +30,7 @@ use YAML::Syck;
 
 # Prompt for user info
 sub read_user_info {
-    my $username = prompt_username("New username: ");
+    my $username = prompt_email("New username: ", 'is_user');
     my $name     = prompt "Full (real) name: ";
     my $domain   = (split /\@/, $username)[1];
     my $maildir  = "$domain/". (split /\@/, $username)[0] . "/Maildir/"; # trailing slash important
@@ -103,6 +103,9 @@ say "Sent welcome message: ";
 say $msg->as_string;
 #say decode_qp($msg->as_string);
 
+ask_if_ok_or_abort("Send email with login information? ");
+
+prompt_email("Where should the email be sent? ");
 
 =head1 AUTHOR
 
-- 
cgit v1.2.3