Changeset 322 for server/common


Ignore:
Timestamp:
May 25, 2007, 12:59:40 AM (17 years ago)
Author:
quentin
Message:
Allow / in Kerberos principals so that non-null instances can be used
to log into lockers.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • server/common/oursrc/accountadm/admof.in

    r243 r322  
    2828}
    2929my $curuser;
    30 unless(($curuser) = ($ARGV[1] =~ /^([\w._-]+)\@ATHENA\.MIT\.EDU$/)) {
     30unless(($curuser) = ($ARGV[1] =~ /^([\w._\/-]+)\@ATHENA\.MIT\.EDU$/)) {
     31  error("An internal error has occurred.\nContact scripts\@mit.edu for assistance.");
     32}
     33
     34($curuser) =~ s|/|.|; # Replace first instance of a / only; pts membership prints foo/root as foo.root
     35
     36if (($curuser) =~ m|/|) { # There were two /'s in their name. What?
    3137  error("An internal error has occurred.\nContact scripts\@mit.edu for assistance.");
    3238}
Note: See TracChangeset for help on using the changeset viewer.