Parent Directory | Revision Log | Patch
revision 1.3 by dpavlin, Wed Jun 20 07:57:32 2001 UTC | revision 1.5 by dpavlin, Thu Sep 6 10:48:20 2001 UTC | |
---|---|---|
# | Line 6 use Digest::MD5 qw(md5_hex); | Line 6 use Digest::MD5 qw(md5_hex); |
6 | ||
7 | my $htpasswd = shift @ARGV || ".htusers"; | my $htpasswd = shift @ARGV || ".htusers"; |
8 | ||
9 | if (defined $htpasswd && $htpasswd eq "-h") { | |
10 | print "Usage: $0 [htusers file] [login] [full name] [password] [email]\n"; | |
11 | exit; | |
12 | } | |
13 | ||
14 | my $login = shift @ARGV; | my $login = shift @ARGV; |
15 | while (! $login) { | while (! $login) { |
16 | print "login: "; | print "login: "; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |