From 11e514588175780cfbc8c75d97275e3ba4d705a4 Mon Sep 17 00:00:00 2001 From: minima Date: Tue, 27 Mar 2001 23:26:01 +0000 Subject: [PATCH] allow out going frames :-) --- perl/AGWMsg.pm | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/perl/AGWMsg.pm b/perl/AGWMsg.pm index d80f4235..26939af9 100644 --- a/perl/AGWMsg.pm +++ b/perl/AGWMsg.pm @@ -262,6 +262,9 @@ sub _decode } } else { $conn = AGWMsg->new($rproc); + $conn->{agwpid} = $pid; + $conn->{agwport} = $port; + $conn->{lineend} = "\cR"; $conn->to_connected($call, 'A', $conn->{csort} = 'ax25'); } } elsif ($sort eq 'd') { @@ -309,9 +312,17 @@ sub in_disconnect sub disconnect { my $conn = shift; - _sendf('d', $main::mycall, $conn->{call}); + _sendf('d', $main::mycall, $conn->{call}, $conn->{agwport}); $conn->SUPER->disconnect; } +sub enqueue +{ + my ($conn, $msg) = @_; + if ($msg =~ /^[D]/) { + $msg =~ s/^[-\w]+\|//; + _sendf('D', $main::mycall, $conn->{call}, $conn->{agwport}, $conn->{agwpid}, $msg . $conn->{lineend}); + } +} 1; -- 2.43.0