/[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.1 by dpavlin, Fri Jan 26 12:39:34 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  if (! $login) {  while (! $login) {
16          print "login: ";          print "login: ";
17          $login=<STDIN>; chomp $login;          $login=<STDIN>; chomp $login;
18  }  }
19    
20  my $fullname = shift @ARGV;  my $fullname = shift @ARGV;
21  if (! $fullname) {  while (! $fullname) {
22          print "full name: ";          print "full name: ";
23          $fullname=<STDIN>; chomp $fullname;          $fullname=<STDIN>; chomp $fullname;
24  }  }
25    
26  my $passswd = shift @ARGV;  my $passwd = shift @ARGV;
27  if (! $passswd) {  if (! $passwd) {
28          print "password [auth_pop3]: ";          print "password [auth_pop3]: ";
29          $passwd=<STDIN>; chomp $passwd;          $passwd=<STDIN>; chomp $passwd;
30          if ($passwd eq "") {          if ($passwd eq "") {
31                  $passwd="auth_pop3";                  $passwd="auth_pop3";
         } elsif (substr($passwd,0,5) ne "auth_") {  
                 $passwd=md5_hex($login.$passwd);  
32          }          }
33  }  }
34    if (substr($passwd,0,5) ne "auth_") {
35                    $passwd=md5_hex($login.$passwd);
36    }
37    
38  my $email = shift @ARGV;  my $email = shift @ARGV;
39  while (! $email || $email !~ /@/) {  while (! $email || $email !~ /\w@\w/) {
40          print "e-mail: ";          print "e-mail: ";
41          $email=<STDIN>; chomp $email;          $email=<STDIN>; chomp $email;
42          print "e-mail address needs to have @ for auth_pop3 to work!\n" if ($email !~ /@/);          print "e-mail address needs to have user\@domain for auth_pop3",
43                  " to work!\n" if ($email !~ /\w@\w/);
44  }  }
45    
46  if (! -e "$htpasswd") {  if (! -e "$htpasswd") {
# Line 42  if (! -e "$htpasswd") { Line 49  if (! -e "$htpasswd") {
49  } else {  } else {
50          open(HTPASSWD,">> $htpasswd") || die "append $htpasswd: $!";          open(HTPASSWD,">> $htpasswd") || die "append $htpasswd: $!";
51  }  }
52    
53  print HTPASSWD "$login:$fullname:$passwd:$email\n";  print HTPASSWD "$login:$fullname:$passwd:$email\n";
54  close(HTPASSWD);  close(HTPASSWD);

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.4

  ViewVC Help
Powered by ViewVC 1.1.26