warn "[FS::InitHandler] handler called\n" if $DEBUG;
+ #this is sure to be broken on freebsd
+ $> = $FS::UID::freeside_uid;
+
open(MAPSECRETS,"<$FS::UID::conf_dir/mapsecrets")
or die "can't read $FS::UID::conf_dir/mapsecrets: $!";
close MAPSECRETS;
+ #lalala probably broken on freebsd
+ ($<, $>) = ($>, $<);
+ $< = 0;
+
}
1;
$ENV{'ENV'} = '';
$ENV{'BASH_ENV'} = '';
- croak "Not running uid freeside!" unless checkeuid() || !$>;
+ croak "Not running uid freeside!" unless checkeuid();
getsecrets;
$dbh = DBI->connect($datasrc,$db_user,$db_pass, {
'AutoCommit' => 0,
=head1 VERSION
-$Id: UID.pm,v 1.17 2002-07-03 11:10:12 ivan Exp $
+$Id: UID.pm,v 1.18 2002-07-03 11:23:25 ivan Exp $
=head1 BUGS