From: Dirk Koopman <djk@tobit.co.uk>
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;