hamradio/spider
1
0
Fork 0
mirror of git://scm.dxcluster.org/scm/spider synced 2024-09-21 07:47:10 +00:00
Code Issues Packages Projects Releases Wiki Activity

add logging of PC92A ip addresses

Browse Source
This commit is contained in:
Dirk Koopman 2009-11-26 12:58:28 +00:00
parent 82267cf9d2
commit 5167e718e0
3 changed files with 18 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
perl/DXProtHandle.pm
View File

@ -1404,15 +1404,25 @@ sub _add_thingy
my @rout;
if ($call) {
my $ncall = $parent->call;
if ($is_node) {
dbg("ROUTE: added node $call to " . $parent->call) if isdbg('routelow');
dbg("ROUTE: added node $call to $ncall") if isdbg('routelow');
@rout = $parent->add($call, $version, Route::here($here), $ip);
my $r = Route::Node::get($call);
$r->PC92C_dxchan($dxchan->call, $hops) if $r;
if ($ip) {
$r->ip($ip);
Log('DXProt', "PC92A $call -> $ip on $ncall");
}
} else {
dbg("ROUTE: added user $call to " . $parent->call) if isdbg('routelow');
dbg("ROUTE: added user $call to $ncall") if isdbg('routelow');
@rout = $parent->add_user($call, Route::here($here), $ip);
$dxchan->tell_buddies('loginb', $call, $parent->call) if $dxchan;
$dxchan->tell_buddies('loginb', $call, $ncall) if $dxchan;
my $r = Route::User::get($call);
if ($ip) {
$r->ip($ip);
Log('DXProt', "PC92A $call -> $ip on $ncall");
}
}
if ($pc92_slug_changes && $parent == $main::routeroot) {
$things_add{$call} = Route::get($call);

4
perl/Msg.pm
View File

@ -196,6 +196,10 @@ sub pid_gone
sub peerhost
{
my $self = shift;
my $ip;
unless ($self->{peerhost}) {
$self->{peerhost} = $self->{sock}->peerhost;
}
return $self->{peerhost};
}

2
perl/Version.pm
View File

@ -11,6 +11,6 @@ use vars qw($version $subversion $build);
$version = '1.55';
$subversion = '0';
$build = '56';
$build = '57';
1;