‘IO::Prompt’ is deprecacted; Migrating to ‘IO::Prompter’ (by the same author).

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,
     };