projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
a64c5be
)
fix routing on converted rcmd PCs
author
minima
<minima>
Sat, 23 Dec 2000 15:01:56 +0000
(15:01 +0000)
committer
minima
<minima>
Sat, 23 Dec 2000 15:01:56 +0000
(15:01 +0000)
Changes
patch
|
blob
|
history
perl/DXProt.pm
patch
|
blob
|
history
diff --git
a/Changes
b/Changes
index 8e847cb5d6943cf6468a1d1670f104867b3d2fad..75a719e4e1484eb6e55c1ceeefb7540ad0f1a1ea 100644
(file)
--- a/
Changes
+++ b/
Changes
@@
-1,5
+1,6
@@
23Dec00=======================================================================
1. don't route anything back down the channel it came from.
23Dec00=======================================================================
1. don't route anything back down the channel it came from.
+2. and, in the process, fix some silly errors in routing converted rcmd PCs
18Dec00=======================================================================
1. fix double printing of DB results
2. add new style filtering for WWV and WCY to complete the set
18Dec00=======================================================================
1. fix double printing of DB results
2. add new style filtering for WWV and WCY to complete the set
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) {