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