projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
added a possibly spurious conn->disconnect to client
[spider.git]
/
perl
/
DXProt.pm
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index 64727b8a7d993b3e9ba480ac1871ae780dcaf922..e65cad70a799ddc53af94e0fb45279ca2745d201 100644
(file)
--- a/
perl/DXProt.pm
+++ b/
perl/DXProt.pm
@@
-190,7
+190,7
@@
sub normal
# is it for me or one of mine?
my $call = ($field[5] gt ' ') ? $field[5] : $field[2];
# is it for me or one of mine?
my $call = ($field[5] gt ' ') ? $field[5] : $field[2];
- if ($call eq $main::mycall || grep $_ eq $call, get_all_user_calls()) {
+ if ($call eq $main::mycall || grep $_ eq $call,
DXChannel::
get_all_user_calls()) {
# yes, it is
my $text = unpad($field[3]);
# yes, it is
my $text = unpad($field[3]);
@@
-818,9
+818,10
@@
sub finish
{
my $self = shift;
my $call = $self->call;
{
my $self = shift;
my $call = $self->call;
+ my $nopc39 = shift;
my $ref = DXCluster->get_exact($call);
my $ref = DXCluster->get_exact($call);
- $self->send_now("D", DXProt::pc39($main::mycall, $self->msg('disc1', "System Op")));
+ $self->send_now("D", DXProt::pc39($main::mycall, $self->msg('disc1', "System Op")))
unless $nopc39
;
# unbusy and stop and outgoing mail
my $mref = DXMsg::get_busy($call);
# unbusy and stop and outgoing mail
my $mref = DXMsg::get_busy($call);