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: $!";
my %seen;
while (<MAPSECRETS>) {
+ next if /^\s*(#|$)/;
/^([\w\-\.]+)\s(.*)$/
or do { warn "strange line in mapsecrets: $_"; next; };
my($user, $datasrc) = ($1, $2);
close MAPSECRETS;
+ #lalala probably broken on freebsd
+ ($<, $>) = ($>, $<);
+ $< = 0;
+
}
1;