Changeset 489


Ignore:
Timestamp:
Oct 15, 2007, 5:35:50 PM (15 years ago)
Author:
andersk
Message:
Remarkably, Perl does have a few syntactical restrictions.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • server/common/oursrc/accountadm/signup-scripts-backend.in

    r488 r489  
    2828complain("bad username") unless($username =~ /^[\w._-]+$/);
    2929
    30 open(BANNEDUSERS,
    31         "</afs/athena.mit.edu/contrib/scripts/admin/users.banned");
     30open BANNEDUSERS, "</afs/athena.mit.edu/contrib/scripts/admin/users.banned" or
     31    complain("internal error");
    3232while (<BANNEDUSERS>) {
    3333    chomp;
    34     if ($_ eq $username)
    35         complain("banned username");
     34    complain("banned username") if ($_ eq $username);
    3635}
    3736close(BANNEDUSERS);
Note: See TracChangeset for help on using the changeset viewer.