Changeset 489 for server/common/oursrc/accountadm/signup-scripts-backend.in

Timestamp:

Oct 15, 2007, 5:35:50 PM (17 years ago)

Author:

andersk

Message:

Remarkably, Perl does have a few syntactical restrictions.

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._-]+$/);
 
-open(BANNEDUSERS,
-        "</afs/athena.mit.edu/contrib/scripts/admin/users.banned");
+open BANNEDUSERS, "</afs/athena.mit.edu/contrib/scripts/admin/users.banned" or
+    complain("internal error");
 while (<BANNEDUSERS>) {
     chomp;
-    if ($_ eq $username)
-        complain("banned username");
+    complain("banned username") if ($_ eq $username);
 }
 close(BANNEDUSERS);