From: Dirk Koopman Date: Sat, 13 Mar 2010 15:55:04 +0000 (+0000) Subject: try to fix crashes on AGW with peerhost. X-Git-Tag: 1.56~37 X-Git-Url: http://scm.dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=7c7080ad7019d6e23a8ad401256122e81fa03a5a;hp=a0da21e1af6a9e4c7e582ed6fc3f5c93fea5b0c3;p=spider.git try to fix crashes on AGW with peerhost. --- diff --git a/Changes b/Changes index aa21bfdb..261fb369 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,5 @@ +13Mar10======================================================================= +1. try to fix AGW crashes caused by peerhost looking at the wrong thing. 03Mar10======================================================================= 1. add IP addresses to connecting PC92 A addresses and log them 2. add CTY-2002 prefixes diff --git a/perl/AGWMsg.pm b/perl/AGWMsg.pm index fdd4bc18..76b80fde 100644 --- a/perl/AGWMsg.pm +++ b/perl/AGWMsg.pm @@ -409,6 +409,13 @@ sub _find return $circuit{$call}; } +sub peerhost +{ + my $conn = shift; + $conn->{peerhost} ||= $conn->{agwcall} || "UNKNOWN"; + return $conn->{peerhost}; +} + sub connect { my ($conn, $line) = @_; diff --git a/perl/Version.pm b/perl/Version.pm index 2426fd7c..42f6c129 100644 --- a/perl/Version.pm +++ b/perl/Version.pm @@ -11,6 +11,6 @@ use vars qw($version $subversion $build); $version = '1.55'; $subversion = '0'; -$build = '62'; +$build = '63'; 1;