equal
deleted
inserted
replaced
19 |
19 |
20 use strict; |
20 use strict; |
21 use warnings; |
21 use warnings; |
22 |
22 |
23 use Getopt::Long; |
23 use Getopt::Long; |
24 use Ius::Dav::Htpasswd qw(readconfig userdel usage); |
24 use Ius::Dav::Htpasswd; |
25 |
25 |
26 my $user; |
26 my $user; |
27 |
27 |
28 GetOptions( |
28 GetOptions( |
29 'u|user=s' => \$user, |
29 'u|user=s' => \$user, |
30 "h|help" => sub { usage( -verbose => 0, -exitval => 0 ) }, |
30 "h|help" => sub { Ius::Dav::Htpasswd::usage( -verbose => 0, -exitval => 0 ) }, |
31 "m|man" => sub { |
31 "m|man" => sub { |
32 usage( |
32 Ius::Dav::Htpasswd::usage( |
33 -verbose => 2, |
33 -verbose => 2, |
34 -exitval => 0, |
34 -exitval => 0, |
35 -noperldoc => ( `perldoc -V 2>/dev/null`, $? != 0 )[-1] |
35 -noperldoc => ( `perldoc -V 2>/dev/null`, $? != 0 )[-1] |
36 ); |
36 ); |
37 }, |
37 }, |
38 ) |
38 ) |
39 and defined $user |
39 and defined $user |
40 or usage(); |
40 or Ius::Dav::Htpasswd::usage(); |
41 |
41 |
42 exit userdel readconfig, $user; |
42 my $h = Ius::Dav::Htpasswd->new; |
|
43 $h->readconfig or die "Can't readconfig"; |
|
44 exit $h->userdel($user); |