Changeset 488


Ignore:
Timestamp:
Oct 15, 2007, 5:29:08 PM (17 years ago)
Author:
geofft
Message:
fix banned-user parsing, per quentin
File:
1 edited

Legend:

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

    r485 r488  
    2828complain("bad username") unless($username =~ /^[\w._-]+$/);
    2929
    30 complain("banned username") if(`@grep_path@ '$username' /afs/athena.mit.edu/contrib/scripts/admin/users.banned` != "");
     30open(BANNEDUSERS,
     31        "</afs/athena.mit.edu/contrib/scripts/admin/users.banned");
     32while (<BANNEDUSERS>) {
     33    chomp;
     34    if ($_ eq $username)
     35        complain("banned username");
     36}
     37close(BANNEDUSERS);
    3138
    3239my $homedir;
Note: See TracChangeset for help on using the changeset viewer.