diff options
| author | ivan <ivan> | 2001-08-21 09:34:13 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2001-08-21 09:34:13 +0000 |
| commit | 6ef34dda51afba96d8dc6c4dd72427c3d4003945 (patch) | |
| tree | 386c2a2659643f81bdcd08b4701ebee364282d7b /FS/FS/UID.pm | |
| parent | bfb8e18f5e245c3043ea44fad8fe3119ee73b37a (diff) | |
no more &swapuid
Diffstat (limited to 'FS/FS/UID.pm')
| -rw-r--r-- | FS/FS/UID.pm | 18 |
1 files changed, 3 insertions, 15 deletions
diff --git a/FS/FS/UID.pm b/FS/FS/UID.pm index 7ebe592..3e71f09 100644 --- a/FS/FS/UID.pm +++ b/FS/FS/UID.pm @@ -15,7 +15,7 @@ use DBI; use FS::Conf; @ISA = qw(Exporter); -@EXPORT_OK = qw(checkeuid checkruid swapuid cgisuidsetup +@EXPORT_OK = qw(checkeuid checkruid cgisuidsetup adminsuidsetup getotaker dbh datasrc getsecrets driver_name ); $freeside_uid = scalar(getpwnam('freeside')); @@ -31,7 +31,7 @@ FS::UID - Subroutines for database login and assorted other stuff =head1 SYNOPSIS use FS::UID qw(adminsuidsetup cgisuidsetup dbh datasrc getotaker - checkeuid checkruid swapuid); + checkeuid checkruid); adminsuidsetup $user; @@ -84,8 +84,6 @@ sub adminsuidsetup { 'ChopBlanks' => 1, } ) or die "DBI->connect error: $DBI::errstr\n"; - swapuid(); #go to non-privledged user if running setuid freeside - foreach ( keys %callback ) { &{$callback{$_}}; } @@ -212,16 +210,6 @@ sub checkruid { ( $< == $freeside_uid ); } -=item swapuid - -Swaps real and effective UIDs. - -=cut - -sub swapuid { - ($<,$>) = ($>,$<) if $< != $>; -} - =item getsecrets [ USER ] Sets the user to USER, if supplied. @@ -261,7 +249,7 @@ coderef into the hash %FS::UID::callback : =head1 VERSION -$Id: UID.pm,v 1.7 2001-06-21 16:27:52 ivan Exp $ +$Id: UID.pm,v 1.8 2001-08-21 09:34:13 ivan Exp $ =head1 BUGS |