From 11e514588175780cfbc8c75d97275e3ba4d705a4 Mon Sep 17 00:00:00 2001
From: minima <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