diff options
| author | ivan <ivan> | 1999-04-12 21:09:39 +0000 |
|---|---|---|
| committer | ivan <ivan> | 1999-04-12 21:09:39 +0000 |
| commit | 6a5ebc353a96181fbef6bf4bbfcc5c205f1ef15d (patch) | |
| tree | 2f284adcbab164c8f7c449c77042da22a924d7a3 | |
| parent | 315d063dbcc86d90a523db155012da8fcacb2b0d (diff) | |
force username to lowercase
| -rw-r--r-- | site_perl/UID.pm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/site_perl/UID.pm b/site_perl/UID.pm index b4486c1e8..f7338202e 100644 --- a/site_perl/UID.pm +++ b/site_perl/UID.pm @@ -170,7 +170,7 @@ sub cgisetotaker { } else { die "fatal: Can't get REMOTE_USER!"; } - return $user; + lc($user); } =item checkeuid @@ -241,7 +241,7 @@ coderef into the hash %FS::UID::callback : =head1 VERSION -$Id: UID.pm,v 1.8 1999-02-23 07:23:23 ivan Exp $ +$Id: UID.pm,v 1.9 1999-04-12 21:09:39 ivan Exp $ =head1 BUGS @@ -287,7 +287,10 @@ inlined suidsetup ivan@sisd.com 98-sep-12 $Log: UID.pm,v $ -Revision 1.8 1999-02-23 07:23:23 ivan +Revision 1.9 1999-04-12 21:09:39 ivan +force username to lowercase + +Revision 1.8 1999/02/23 07:23:23 ivan oops, don't comment out &swapuid in &adminsuidsetup! Revision 1.7 1999/01/18 09:22:40 ivan |