From b0460b1b8fb61569d20cbd4ac75ae6976bd34a92 Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem.moulin@fripost.org>
Date: Thu, 3 May 2012 18:18:55 +0200
Subject: =?UTF-8?q?=E2=80=98IO::Prompt=E2=80=99=20is=20deprecacted;=20Migr?=
 =?UTF-8?q?ating=20to=20=E2=80=98IO::Prompter=E2=80=99=20(by=20the=20same?=
 =?UTF-8?q?=20author).?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 fripost-adduser | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'fripost-adduser')

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,
     };
-- 
cgit v1.2.3