Changeset 488

Timestamp:

Oct 15, 2007, 5:29:08 PM (18 years ago)

Author:

geofft

Message:

fix banned-user parsing, per quentin

File:

• server/common/oursrc/accountadm/signup-scripts-backend.in (modified) (1 diff)

server/common/oursrc/accountadm/signup-scripts-backend.in

@@ -28 +28 @@
 complain("bad username") unless($username =~ /^[\w._-]+$/);
 
-complain("banned username") if(`@grep_path@ '$username' /afs/athena.mit.edu/contrib/scripts/admin/users.banned` != "");
+open(BANNEDUSERS,
+        "</afs/athena.mit.edu/contrib/scripts/admin/users.banned");
+while (<BANNEDUSERS>) {
+    chomp;
+    if ($_ eq $username)
+        complain("banned username");
+}
+close(BANNEDUSERS);
 
 my $homedir;