Changeset 259 for trunk

Timestamp:

06/13/05 16:33:16 (20 years ago)

Author:

Kris Deugau

Message:

/trunk

Modify add user capability in admin.cgi to allow a
pre-encrypted password to be used.

File:

• trunk/cgi-bin/admin.cgi (modified) (2 diffs)

trunk/cgi-bin/admin.cgi

@@ -281 +281 @@
         "<hr>Add new user:<form action=admin.cgi method=POST>\n".
         "Username: <input name=username><br>\n".
-        "Password: <input name=password><br>\n".
+        "Password: <input name=password> <input type=checkbox name=preenc>Password is pre-encrypted (MUST be crypt() encrypted)<br>\n".
         "<input type=submit value='Add user'><input type=hidden name=action value=newuser></form>\n";
 
@@ -326 +326 @@
 } elsif ($webvar{action} eq 'newuser') {
   print "Adding user $webvar{username}...\n";
-  my $cr_pass = crypt $webvar{password},
-        join('',('.','/',0..9,'A'..'Z','a'..'z')[rand 64, rand 64]);
+  my $cr_pass = ($webvar{preenc} ? $webvar{password} :
+        crypt $webvar{password}, join('',('.','/',0..9,'A'..'Z','a'..'z')[rand 64, rand 64]));
   $sth = $ip_dbh->prepare("insert into users (username,password,acl) values ".
         "('$webvar{username}','$cr_pass','b')");