$root = $ENV{'DXSPIDER_ROOT'} if $ENV{'DXSPIDER_ROOT'};
mkdir "$root/local_data", 02777 unless -d "$root/local_data";
unshift @INC, "$root/perl"; # this IS the right way round!
unshift @INC, "$root/local";
$root = $ENV{'DXSPIDER_ROOT'} if $ENV{'DXSPIDER_ROOT'};
mkdir "$root/local_data", 02777 unless -d "$root/local_data";
unshift @INC, "$root/perl"; # this IS the right way round!
unshift @INC, "$root/local";
my $ors = join ', ', @or;
my $es = join ', ', @exit;
dbg "$0: $e->{nickname} $e->{last_seen} relays: [$ors] exits: [$es]" if $debug;
my $ors = join ', ', @or;
my $es = join ', ', @exit;
dbg "$0: $e->{nickname} $e->{last_seen} relays: [$ors] exits: [$es]" if $debug;
move "$relayfn.$rand", $relayfn if $rcount;
move "$exitfn.$rand", $exitfn if $ecount;
unlink "$relayfn.$rand";
unlink "$exitfn.$rand";
move "$relayfn.$rand", $relayfn if $rcount;
move "$exitfn.$rand", $exitfn if $ecount;
unlink "$relayfn.$rand";
unlink "$exitfn.$rand";