#
# This class will morph into (and is the test bed for) Multicasts
#
-# $Id$
+#
#
# Copyright (c) 2002 - Dirk Koopman G1TLH
#
return $circuit{$call};
}
+sub peerhost
+{
+ my $conn = shift;
+ $conn->{peerhost} ||= 'ax25';
+ return $conn->{peerhost};
+}
+
sub connect
{
my ($conn, $line) = @_;