projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
bcf3a91
)
fix dx bug introduced by ip <ipaddr>
author
Dirk Koopman
<djk@tobit.co.uk>
Sun, 2 Jan 2022 08:12:17 +0000
(08:12 +0000)
committer
Dirk Koopman
<djk@tobit.co.uk>
Sun, 2 Jan 2022 08:12:17 +0000
(08:12 +0000)
Changes
patch
|
blob
|
history
cmd/dx.pl
patch
|
blob
|
history
diff --git
a/Changes
b/Changes
index 1cb9c7816879ab95eb2b84bdd7d5924aff0e743d..517ec77de0c10de4c6925455da0a8a1ec5573de9 100644
(file)
--- a/
Changes
+++ b/
Changes
@@
-1,3
+1,5
@@
+02Jan22=======================================================================
+1. Fix dx bug introduced to handle dx by ip <ipaddr> for webclusters.
01Jan22=======================================================================
1. Fixed missing ';' in spoof
30Dec21=======================================================================
01Jan22=======================================================================
1. Fixed missing ';' in spoof
30Dec21=======================================================================
diff --git
a/cmd/dx.pl
b/cmd/dx.pl
index 306fb77bf7fe4d9cfd0dbe946020abecc128fcc5..792f4b7e5f131019580a2c18d413d8f03557b6fd 100644
(file)
--- a/
cmd/dx.pl
+++ b/
cmd/dx.pl
@@
-18,7
+18,7
@@
my $valid = 0;
my $localonly;
my $oline = $line;
my $localonly;
my $oline = $line;
-
#
$DB::single=1;
+$DB::single=1;
return (1, $self->msg('e5')) if $self->remotecmd || $self->inscript;
return (1, $self->msg('e28')) unless $self->isregistered;
return (1, $self->msg('e5')) if $self->remotecmd || $self->inscript;
return (1, $self->msg('e28')) unless $self->isregistered;
@@
-56,7
+56,7
@@
if ($f[0] eq 'ip') {
if (is_ipaddr($f[1])) {
$ipaddr = $f[1];
} else {
if (is_ipaddr($f[1])) {
$ipaddr = $f[1];
} else {
- return (1, $self->msg('dx
3
', $f[1]));
+ return (1, $self->msg('dx
4
', $f[1]));
}
$line =~ s/^\s*$f[0]\s+$f[1]\s+//;
@f = split /\s+/, $line, 3;
}
$line =~ s/^\s*$f[0]\s+$f[1]\s+//;
@f = split /\s+/, $line, 3;
@@
-73,7
+73,9
@@
if (is_freq($f[1]) && $f[0] =~ m{^[\w\d]+(?:/[\w\d]+){0,2}$}) {
} else {
return (1, $self->msg('dx3'));
}
} else {
return (1, $self->msg('dx3'));
}
-$line =~ s/^\s*$f[0]\s+$f[1]\s+//;
+$line =~ s/^\s*$f[0]//;
+$line =~ s/^\s*$f[1]//;
+$line =~ s/^\s*//;
$line =~ s/\t+/ /g; # do this here because it needs to be stopped ASAP!
$line ||= ' ';
$line =~ s/\t+/ /g; # do this here because it needs to be stopped ASAP!
$line ||= ' ';