Changeset 322

Timestamp:

May 25, 2007, 12:59:40 AM (18 years ago)

Author:

quentin

Message:

Allow / in Kerberos principals so that non-null instances can be used
to log into lockers.

File:

• server/common/oursrc/accountadm/admof.in (modified) (1 diff)

server/common/oursrc/accountadm/admof.in

@@ -28 +28 @@
 }
 my $curuser;
-unless(($curuser) = ($ARGV[1] =~ /^([\w._-]+)\@ATHENA\.MIT\.EDU$/)) {
+unless(($curuser) = ($ARGV[1] =~ /^([\w._\/-]+)\@ATHENA\.MIT\.EDU$/)) {
+  error("An internal error has occurred.\nContact scripts\@mit.edu for assistance.");
+}
+
+($curuser) =~ s|/|.|; # Replace first instance of a / only; pts membership prints foo/root as foo.root
+
+if (($curuser) =~ m|/|) { # There were two /'s in their name. What?
   error("An internal error has occurred.\nContact scripts\@mit.edu for assistance.");
 }