projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add logging of PC92A ip addresses
[spider.git]
/
perl
/
DXProt.pm
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index bc27395b209944be8341a8749fa4438a939ccd90..dae0b3c75255df063bf1b9b018731c39f0b0e18a 100644
(file)
--- a/
perl/DXProt.pm
+++ b/
perl/DXProt.pm
@@
-269,7
+269,7
@@
sub new
my @rout = $ref->delete;
$self->route_pc21($main::mycall, undef, @rout) if @rout;
}
my @rout = $ref->delete;
$self->route_pc21($main::mycall, undef, @rout) if @rout;
}
- $main::routeroot->add($call, '5000', Route::here(1)) if $call ne $main::mycall;
+ $main::routeroot->add($call, '5000', Route::here(1)
, $self->{conn}->peerhost
) if $call ne $main::mycall;
return $self;
}
return $self;
}
@@
-284,7
+284,7
@@
sub start
my $user = $self->{user};
# log it
my $user = $self->{user};
# log it
- my $host = $self->{conn}->
{peerhost}
;
+ my $host = $self->{conn}->
peerhost
;
$host ||= "AGW Port #$self->{conn}->{agwport}" if exists $self->{conn}->{agwport};
$host ||= "unknown";
$host ||= "AGW Port #$self->{conn}->{agwport}" if exists $self->{conn}->{agwport};
$host ||= "unknown";