/[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.2 by dpavlin, Mon May 28 06:28:40 2001 UTC revision 1.4 by dpavlin, Thu Sep 6 09:32:55 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 ($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: ";
# Line 26  if (! $passwd) { Line 31  if (! $passwd) {
31                  $passwd="auth_pop3";                  $passwd="auth_pop3";
32          }          }
33  }  }
34  elsif (substr($passwd,0,5) ne "auth_") {  if (substr($passwd,0,5) ne "auth_") {
35                  $passwd=md5_hex($login.$passwd);                  $passwd=md5_hex($login.$passwd);
36  }  }
37    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.26