aboutsummaryrefslogtreecommitdiffstats
path: root/fripost-adduser
diff options
context:
space:
mode:
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,
};