--- a/bin/dav-htuseradd	Thu Jul 07 14:02:45 2011 +0200
+++ b/bin/dav-htuseradd	Thu Jul 07 14:18:54 2011 +0200
@@ -20,7 +20,7 @@
 use strict;
 use warnings;
 
-use Ius::Dav::Htpasswd qw(readconfig useradd usage);
+use Ius::Dav::Htpasswd qw(mkpasswd readconfig useradd usage);
 
 use Getopt::Long;
 use Pod::Usage;
@@ -44,5 +44,5 @@
     },
 ) and defined $user or usage;
 
-$pass = useradd readconfig, $user, $expiry;
+$pass = useradd readconfig, $user, mkpasswd, $expiry;
 print "[$pass]\n";