projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
ab01045
)
enhance info on incoming disconnects
author
minima
<minima>
Fri, 30 Mar 2001 20:58:33 +0000
(20:58 +0000)
committer
minima
<minima>
Fri, 30 Mar 2001 20:58:33 +0000
(20:58 +0000)
perl/AGWMsg.pm
patch
|
blob
|
history
diff --git
a/perl/AGWMsg.pm
b/perl/AGWMsg.pm
index 06af81cb4c91092e3441f59abdd2bff3ef9a6313..a94af02b1c22bf9564b71d6d30884defd2c030ca 100644
(file)
--- a/
perl/AGWMsg.pm
+++ b/
perl/AGWMsg.pm
@@
-327,7
+327,9
@@
sub _decode
$conn->to_connected($call, 'A', $conn->{csort} = 'ax25');
}
} elsif ($sort eq 'd') {
$conn->to_connected($call, 'A', $conn->{csort} = 'ax25');
}
} elsif ($sort eq 'd') {
- dbg('agw', "AGW '$from'->'$to' port: $port Disconnected");
+ my $d = unpack "Z*", $data;
+ $d =~ s/\cM$//;
+ dbg('agw', "AGW '$from'->'$to' port: $port Disconnected ($d)");
my $conn = _find($from eq $main::mycall ? $to : $from);
if ($conn) {
&{$conn->{eproc}}() if $conn->{eproc};
my $conn = _find($from eq $main::mycall ? $to : $from);
if ($conn) {
&{$conn->{eproc}}() if $conn->{eproc};