projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix routing on converted rcmd PCs
[spider.git]
/
perl
/
DXProt.pm
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index 04f2aff75d7efcc0b3bab3990e7ccc3374e0c2e4..e7bda8bc5f5fe9ce82c1b9660813da17d3fea980 100644
(file)
--- a/
perl/DXProt.pm
+++ b/
perl/DXProt.pm
@@
-848,7
+848,7
@@
sub normal
} else {
my $ref = DXUser->get_current($field[1]);
if ($ref && $ref->is_clx) {
} else {
my $ref = DXUser->get_current($field[1]);
if ($ref && $ref->is_clx) {
- route($field[1], pc84($field[2], $field[1], $field[2], $field[3]));
+
$self->
route($field[1], pc84($field[2], $field[1], $field[2], $field[3]));
} else {
$self->route($field[1], $line);
}
} else {
$self->route($field[1], $line);
}
@@
-871,7
+871,7
@@
sub normal
} else {
my $ref = DXUser->get_current($field[1]);
if ($ref && $ref->is_clx) {
} else {
my $ref = DXUser->get_current($field[1]);
if ($ref && $ref->is_clx) {
- route($field[1], pc85($field[2], $field[1], $field[2], $field[3]));
+
$self->
route($field[1], pc85($field[2], $field[1], $field[2], $field[3]));
} else {
$self->route($field[1], $line);
}
} else {
$self->route($field[1], $line);
}
@@
-1040,7
+1040,7
@@
sub normal
if ($ref && $ref->is_clx) {
$self->route($field[1], $line);
} else {
if ($ref && $ref->is_clx) {
$self->route($field[1], $line);
} else {
- route($field[1], pc34($field[2], $field[1], $field[4]));
+
$self->
route($field[1], pc34($field[2], $field[1], $field[4]));
}
}
return;
}
}
return;
@@
-1068,7
+1068,7
@@
sub normal
if ($ref && $ref->is_clx) {
$self->route($field[1], $line);
} else {
if ($ref && $ref->is_clx) {
$self->route($field[1], $line);
} else {
- route($field[1], pc35($field[2], $field[1], $field[4]));
+
$self->
route($field[1], pc35($field[2], $field[1], $field[4]));
}
}
return;
}
}
return;
@@
-1475,9
+1475,11
@@
sub route
unless ($dxchan) {
my $cl = DXCluster->get_exact($call);
$dxchan = $cl->dxchan if $cl;
unless ($dxchan) {
my $cl = DXCluster->get_exact($call);
$dxchan = $cl->dxchan if $cl;
- if ($dxchan eq $self) {
- dbg('chan', "PCPROT: Trying to route back to source, dropped");
- return;
+ if (ref $dxchan) {
+ if (ref $self && $dxchan eq $self) {
+ dbg('chan', "PCPROT: Trying to route back to source, dropped");
+ return;
+ }
}
}
if ($dxchan) {
}
}
if ($dxchan) {