diff options
| author | Stefan Kangas <skangas@skangas.se> | 2011-03-14 15:06:23 +0100 |
|---|---|---|
| committer | Stefan Kangas <skangas@skangas.se> | 2011-03-14 15:06:23 +0100 |
| commit | 02fd9f27bb2f580c88a28d963ce27dcff210bf73 (patch) | |
| tree | 97b37c19216011cde1e45d7562860103112dfda2 /fripost-adduser | |
| parent | 53bb0cb56f580b7115b874fe40d9011efe6dd8ed (diff) | |
WIP: send login information to address when adding user
Diffstat (limited to 'fripost-adduser')
| -rwxr-xr-x | fripost-adduser | 5 |
1 files changed, 4 insertions, 1 deletions
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 |