aboutsummaryrefslogtreecommitdiffstats
path: root/fripost-adduser
diff options
context:
space:
mode:
authorGuilhem Moulin <guilhem.moulin@fripost.org>2012-05-03 18:18:55 +0200
committerGuilhem Moulin <guilhem.moulin@fripost.org>2012-05-03 18:18:55 +0200
commitb0460b1b8fb61569d20cbd4ac75ae6976bd34a92 (patch)
treea95c60c0f6705d73558e00b3afa3e0006dfb65a2 /fripost-adduser
parenteea26843500c7d12f0ee2e9e89d80953d5f7276f (diff)
‘IO::Prompt’ is deprecacted; Migrating to ‘IO::Prompter’ (by the same author).
Diffstat (limited to 'fripost-adduser')
-rwxr-xr-xfripost-adduser5
1 files changed, 1 insertions, 4 deletions
diff --git a/fripost-adduser b/fripost-adduser
index 168b80c..fc37489 100755
--- a/fripost-adduser
+++ b/fripost-adduser
@@ -121,7 +121,6 @@ use Getopt::Long qw /:config noauto_abbrev no_ignore_case
gnu_compat bundling permute nogetopt_compat
auto_version auto_help/;
use Pod::Usage;
-use IO::Prompt;
use MIME::Lite;
use MIME::QuotedPrint;
use Template;
@@ -166,7 +165,6 @@ my ($domain, $login);
$username = prompt_email("New username: ", 'is_user');
}
($login, $domain) = split /\@/, $username, 2;
- my $maildir = "$domain/$login/Maildir/"; # Trailing slash important
my $isActive = 'TRUE';
my ($userPassword, $clearPassword);
if ( defined $conf->{password} ) {
@@ -174,12 +172,11 @@ my ($domain, $login);
}
else {
$clearPassword = prompt_password();
- $userPassword = hash( undef, undef, $clearPassword );
+ $userPassword = hash( $clearPassword );
}
$user = {
username => $username,
- maildir => $maildir,
isActive => $isActive,
userPassword => $userPassword,
};