hamradio/spider
1
0
Fork 0
mirror of git://scm.dxcluster.org/scm/spider synced 2024-09-21 15:57:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

prevent PC92 A/C changing our $my(alias|call)

Browse Source 
It appears that some nodes are getting knickers in a twist in their
routing tables and causing routes and thus $my(alias|call) file types to
change. Prevent this from happening.
This commit is contained in:
Dirk Koopman 2022-01-03 13:17:16 +00:00
parent f3ce297654
commit a24cc09d82
5 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Changes
View File

@ -3,6 +3,8 @@
$clusterport. This is really only of use for people trying to run more than
one instance of DXSpider on the same machine.
2. Fix who command to make RBN connections as RBN and not USER.
3. Prevent other nodes claiming that $myalias or $mycall is a different type
(user or node) from changing our route table and thence the user type.
02Jan22=======================================================================
1. Fix dx bug introduced to handle dx by ip <ipaddr> for webclusters.
2. Remove _add_thingy dbg message from general view.

2
cmd/dx.pl
View File

@ -45,7 +45,7 @@ if ($f[0] =~ /^by$/i) {
return (1, $self->msg('e5')) unless $main::allowdxby || $self->priv > 1;
$spotter = uc $f[1];
$line =~ s/^\s*$f[0]\s+$f[1]\s+//;
@f = split /\s+/, $line, 3;
@f = split /\s+/, $line, 3;
return (1, $self->msg('dx2')) unless @f >= 2;
}

2
cmd/set/rbn.pl
View File

@ -19,7 +19,7 @@ return (1, $self->msg('e5')) if $self->priv < 5;
foreach $call (@args) {
$call = uc $call;
if ($call eq $main::myalias) {
if ($call eq $main::mycall) {
push @out, $self->msg('e11', $call);
next;
}

2
cmd/set/spider.pl
View File

@ -19,7 +19,7 @@ return (1, $self->msg('e5')) if $self->priv < 5;
foreach $call (@args) {
$call = uc $call;
if ($call eq $main::myalias) {
if ($call eq $main::mycall) {
push @out, $self->msg('e11', $call);
next;
}

5
perl/DXProtHandle.pm
View File

@ -2016,6 +2016,11 @@ sub handle_92
dbg("PCPROT: $_->[0] refers to me, ignored") if isdbg('chanerr');
next;
}
if ($_->[0] eq $main::myalias && $_->[1] || $_->[0] eq $main::mycall && $_->[1] == 0) {
dbg("PCPROT: $_->[0] changing type to " . $_->[1]?"Node":"User" . ", ignored") if isdbg('chanerr');
next;
}
push @nent, $_;
}