From: minima Date: Tue, 27 Mar 2001 23:26:01 +0000 (+0000) Subject: allow out going frames :-) X-Git-Tag: R_1_47~89 X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=11e514588175780cfbc8c75d97275e3ba4d705a4;p=spider.git allow out going frames :-) --- 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;