%pc92_find $pc92_find_timeout $pc92_short_update_period
$next_pc92_obs_timeout $pc92_slug_changes $last_pc92_slug
$pc92_extnode_update_period $pc50_interval
%pc92_find $pc92_find_timeout $pc92_short_update_period
$next_pc92_obs_timeout $pc92_slug_changes $last_pc92_slug
$pc92_extnode_update_period $pc50_interval
%pc92_find = (); # outstanding pc92 find operations
$pc92_find_timeout = 30; # maximum time to wait for a reply
$senderverify = 0; # 1 = check spotter is on node it says it is and check ip address if available
%pc92_find = (); # outstanding pc92 find operations
$pc92_find_timeout = 30; # maximum time to wait for a reply
$senderverify = 0; # 1 = check spotter is on node it says it is and check ip address if available
my $fc = DXSubprocess->new;
# just behave normally if something has set the "one-shot" _nospawn in the channel
my $fc = DXSubprocess->new;
# just behave normally if something has set the "one-shot" _nospawn in the channel
{
my ($self, $from, $to, $via, $line, $origin) = @_;
{
my ($self, $from, $to, $via, $line, $origin) = @_;
- $self->send(pc93($to, $from, $via, $line));
+ $self->send(pc93($to, $from, $via, $line, undef, $ipaddr));
} else {
$self->send(pc10($from, $to, $via, $line, $origin));
}
} else {
$self->send(pc10($from, $to, $via, $line, $origin));
}
- Log('talk', $to, $from, '>' . ($via || $origin || $self->call), $line) unless $origin && $origin ne $main::mycall;
+ Log('talk', $to, $from, '>' . ($via || $origin || $self->call), $line, $ipaddr) unless $origin && $origin ne $main::mycall;
broadcast_route_pc9x($self, $origin, \&pc92c, $line, 1, @_);
}
broadcast_route_pc9x($self, $origin, \&pc92c, $line, 1, @_);
}
broadcast_route_pc9x($self, $origin, \&pc92a, $line, 1, @_);
}
broadcast_route_pc9x($self, $origin, \&pc92a, $line, 1, @_);
}
broadcast_route_pc9x($self, $origin, \&pc92d, $line, 1, @_);
}
broadcast_route_pc9x($self, $origin, \&pc92d, $line, 1, @_);
}
$via = '*' if $target eq 'ALL' || $target eq 'SYSOP';
Log('ann', $target, $main::mycall, $text);
AnnTalk::add_anncache('ann', $target, $main::mycall, $text);
$via = '*' if $target eq 'ALL' || $target eq 'SYSOP';
Log('ann', $target, $main::mycall, $text);
AnnTalk::add_anncache('ann', $target, $main::mycall, $text);
-
- $main::me->normal(DXProt::pc93($target, $main::mycall, $via, $text));
+ my $ipaddr = DXCommandmode::alias_localhost($main::me->hostname || '127.0.0.1');
+ $main::me->normal(DXProt::pc93($target, $main::mycall, $via, $text, undef, $ipaddr));