+sub _find
+{
+ my $call = shift;
+ return $circuit{$call};
+}
+
+sub connect
+{
+ my ($conn, $line) = @_;
+
+ my ($port, $call) = split /\s+/, $line;
+ $conn->{agwpid} = ord "\xF0";
+ $conn->{agwport} = $port - 1;
+ $conn->{lineend} = "\cM";
+ $conn->{incoming} = 0;
+ $conn->{csort} = 'ax25';
+ $conn->{agwcall} = uc $call;
+ $circuit{$conn->{agwcall}} = $conn;
+
+ _sendf('C', $main::mycall, $conn->{agwcall}, $conn->{agwport}, $conn->{agwpid});
+ $conn->{state} = 'WC';
+
+ return 1;
+}
+