15 lines
239 B
Perl
15 lines
239 B
Perl
|
sub on_call
|
||
|
|
{
|
||
|
|
if ($config{"tor-proxy"}) {
|
||
|
|
foreach (split(/;/, $hosts)) {
|
||
|
|
if ($_ =~ /\.onion\z/) {
|
||
|
|
$hosts = $_;
|
||
|
|
$socks = $config{"tor-proxy"};
|
||
|
|
Log(4, "using tor-proxy $socks for .onion address");
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
}
|