equal
deleted
inserted
replaced
18 # Matthias Förste <foerste@schlittermann.de> |
18 # Matthias Förste <foerste@schlittermann.de> |
19 |
19 |
20 use strict; |
20 use strict; |
21 use warnings; |
21 use warnings; |
22 |
22 |
23 use Ius::Dav::Htpasswd qw(readconfig useradd usage); |
23 use Ius::Dav::Htpasswd qw(mkpasswd readconfig useradd usage); |
24 |
24 |
25 use Getopt::Long; |
25 use Getopt::Long; |
26 use Pod::Usage; |
26 use Pod::Usage; |
27 |
27 |
28 my ($user, $expiry, $pass); |
28 my ($user, $expiry, $pass); |
42 -verbose => 2 |
42 -verbose => 2 |
43 ); |
43 ); |
44 }, |
44 }, |
45 ) and defined $user or usage; |
45 ) and defined $user or usage; |
46 |
46 |
47 $pass = useradd readconfig, $user, $expiry; |
47 $pass = useradd readconfig, $user, mkpasswd, $expiry; |
48 print "[$pass]\n"; |
48 print "[$pass]\n"; |