%circuit = ();
$total_in = $total_out = 0;
$lastconnect = 0;
-$connectinterval = 60;
+$connectinterval = 30;
sub init
{
return $circuit{$call};
}
+sub peerhost
+{
+ my $conn = shift;
+ $conn->{peerhost} ||= 'ax25';
+ return $conn->{peerhost};
+}
+
sub connect
{
my ($conn, $line) = @_;