diff options
| author | ivan <ivan> | 1999-04-12 22:41:09 +0000 |
|---|---|---|
| committer | ivan <ivan> | 1999-04-12 22:41:09 +0000 |
| commit | 8f4617e35f89b741b8ab5ba9136667b4c877d992 (patch) | |
| tree | 4b4d964eb9c5b27f3012cb5364d2f78451e904ae | |
| parent | 6a5ebc353a96181fbef6bf4bbfcc5c205f1ef15d (diff) | |
bugfix; $user is a global (yuck)
| -rw-r--r-- | site_perl/UID.pm | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/site_perl/UID.pm b/site_perl/UID.pm index f7338202e..ad7c89dd5 100644 --- a/site_perl/UID.pm +++ b/site_perl/UID.pm @@ -164,13 +164,13 @@ object. Support for CGI::Base and derived classes is depriciated. sub cgisetotaker { if ( $cgi && $cgi->isa('CGI::Base') && defined $cgi->var('REMOTE_USER')) { carp "Use of CGI::Base is depriciated"; - $user = $cgi->var('REMOTE_USER'); + $user = lc ( $cgi->var('REMOTE_USER') ); } elsif ( $cgi && $cgi->isa('CGI') && defined $cgi->remote_user ) { - $user = $cgi->remote_user; + $user = lc ( $cgi->remote_user ); } else { die "fatal: Can't get REMOTE_USER!"; } - lc($user); + $user; } =item checkeuid @@ -241,7 +241,7 @@ coderef into the hash %FS::UID::callback : =head1 VERSION -$Id: UID.pm,v 1.9 1999-04-12 21:09:39 ivan Exp $ +$Id: UID.pm,v 1.10 1999-04-12 22:41:09 ivan Exp $ =head1 BUGS @@ -287,7 +287,10 @@ inlined suidsetup ivan@sisd.com 98-sep-12 $Log: UID.pm,v $ -Revision 1.9 1999-04-12 21:09:39 ivan +Revision 1.10 1999-04-12 22:41:09 ivan +bugfix; $user is a global (yuck) + +Revision 1.9 1999/04/12 21:09:39 ivan force username to lowercase Revision 1.8 1999/02/23 07:23:23 ivan |