X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=site_perl%2FUID.pm;h=ad7c89dd5b50aa7499fbd932d094812432f1f6db;hb=8f4617e35f89b741b8ab5ba9136667b4c877d992;hp=c141cab63765c1c6d49074520ff9032832accfe0;hpb=c93520accf00e15095e7af5fcb59caed2bd9e556;p=freeside.git

diff --git a/site_perl/UID.pm b/site_perl/UID.pm
index c141cab63..ad7c89dd5 100644
--- a/site_perl/UID.pm
+++ b/site_perl/UID.pm
@@ -78,7 +78,7 @@ sub adminsuidsetup {
                           'ChopBlanks' => 'true',
   } ) or die "DBI->connect error: $DBI::errstr\n";
 
-  #swapuid(); #go to non-privledged user if running setuid freeside
+  swapuid(); #go to non-privledged user if running setuid freeside
 
   foreach ( keys %callback ) {
     &{$callback{$_}};
@@ -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!";
   }
-  return $user;
+  $user;
 }
 
 =item checkeuid
@@ -241,7 +241,7 @@ coderef into the hash %FS::UID::callback :
 
 =head1 VERSION
 
-$Id: UID.pm,v 1.7 1999-01-18 09:22:40 ivan Exp $
+$Id: UID.pm,v 1.10 1999-04-12 22:41:09 ivan Exp $
 
 =head1 BUGS
 
@@ -287,7 +287,16 @@ inlined suidsetup
 ivan@sisd.com 98-sep-12
 
 $Log: UID.pm,v $
-Revision 1.7  1999-01-18 09:22:40  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
+oops, don't comment out &swapuid in &adminsuidsetup!
+
+Revision 1.7  1999/01/18 09:22:40  ivan
 changes to track email addresses for email invoicing
 
 Revision 1.6  1998/11/15 05:27:48  ivan