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.
$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.
$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.
02Jan22=======================================================================
1. Fix dx bug introduced to handle dx by ip <ipaddr> for webclusters.
2. Remove _add_thingy dbg message from general view.
return (1, $self->msg('e5')) unless $main::allowdxby || $self->priv > 1;
$spotter = uc $f[1];
$line =~ s/^\s*$f[0]\s+$f[1]\s+//;
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;
}
return (1, $self->msg('dx2')) unless @f >= 2;
}
foreach $call (@args) {
$call = uc $call;
foreach $call (@args) {
$call = uc $call;
- if ($call eq $main::myalias) {
+ if ($call eq $main::mycall) {
push @out, $self->msg('e11', $call);
next;
}
push @out, $self->msg('e11', $call);
next;
}
foreach $call (@args) {
$call = uc $call;
foreach $call (@args) {
$call = uc $call;
- if ($call eq $main::myalias) {
+ if ($call eq $main::mycall) {
push @out, $self->msg('e11', $call);
next;
}
push @out, $self->msg('e11', $call);
next;
}
dbg("PCPROT: $_->[0] refers to me, ignored") if isdbg('chanerr');
next;
}
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;
+ }
+