From 7c7080ad7019d6e23a8ad401256122e81fa03a5a Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Sat, 13 Mar 2010 15:55:04 +0000 Subject: [PATCH] try to fix crashes on AGW with peerhost. --- Changes | 2 ++ perl/AGWMsg.pm | 7 +++++++ perl/Version.pm | 2 +- 3 files changed, 10 insertions(+), 1 deletion(-) 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; -- 2.43.0