/[docman]/adduser.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /adduser.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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: ";

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.5

  ViewVC Help
Powered by ViewVC 1.1.26