diff options
| author | ivan <ivan> | 1999-01-18 09:22:42 +0000 |
|---|---|---|
| committer | ivan <ivan> | 1999-01-18 09:22:42 +0000 |
| commit | c93520accf00e15095e7af5fcb59caed2bd9e556 (patch) | |
| tree | 0fb501a33e9b55ba467a0a516ad1d90363342a83 /site_perl/UID.pm | |
| parent | e74e6d0896eae348d54dbd6e436f37a2a0e69389 (diff) | |
changes to track email addresses for email invoicing
Diffstat (limited to 'site_perl/UID.pm')
| -rw-r--r-- | site_perl/UID.pm | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/site_perl/UID.pm b/site_perl/UID.pm index 156bd3024..c141cab63 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{$_}}; @@ -200,7 +200,7 @@ Swaps real and effective UIDs. =cut sub swapuid { - ($<,$>) = ($>,$<); + ($<,$>) = ($>,$<) if $< != $>; } =item getsecrets [ USER ] @@ -241,7 +241,7 @@ coderef into the hash %FS::UID::callback : =head1 VERSION -$Id: UID.pm,v 1.6 1998-11-15 05:27:48 ivan Exp $ +$Id: UID.pm,v 1.7 1999-01-18 09:22:40 ivan Exp $ =head1 BUGS @@ -287,7 +287,10 @@ inlined suidsetup ivan@sisd.com 98-sep-12 $Log: UID.pm,v $ -Revision 1.6 1998-11-15 05:27:48 ivan +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 bugfix for new configuration layout Revision 1.5 1998/11/15 00:51:51 ivan |