diff options
Diffstat (limited to 'fripost-adduser')
-rwxr-xr-x | fripost-adduser | 5 |
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, }; |