fix ssid handling on (un)set/badnode.pl

diff --git a/cmd/set/badnode.pl b/cmd/set/badnode.pl
index b123ef96d625e564ada6857cffb49a0bcb6d5052..6ac5b3981916e0714f15c136e2daa410c4351d37 100644 (file)
--- a/cmd/set/badnode.pl
+++ b/cmd/set/badnode.pl
@@ -9,6 +9,6 @@ my ($self, $line) = @_;
 return (1, $self->msg('e5')) if $self->remotecmd;
 # are we permitted?
 return (1, $self->msg('e5')) if $self->priv < 6;
-$line = join(' ', map {s|[/-]\d+$||; $_} split(/\s+/, $line));
+#$line = join(' ', map {s|[/-]\d+$||; $_} split(/\s+/, $line));
 return $DXProt::badnode->set(8, $self->msg('e12'), $self, $line);
 

diff --git a/cmd/unset/badnode.pl b/cmd/unset/badnode.pl
index cd44a0aaa1ce04f8dfc3fc9593f43f8ba855afab..c104be27fc52597a64dd5a8762da9451c9233551 100644 (file)
--- a/cmd/unset/badnode.pl
+++ b/cmd/unset/badnode.pl
@@ -9,6 +9,6 @@ my ($self, $line) = @_;
 return (1, $self->msg('e5')) if $self->remotecmd;
 # are we permitted?
 return (1, $self->msg('e5')) if $self->priv < 6;
-$line = join(' ', map {s|[/-]\d+$||; $_} split(/\s+/, $line));
+#$line = join(' ', map {s|[/-]\d+$||; $_} split(/\s+/, $line));
 return $DXProt::badnode->unset(8, $self->msg('e12'), $self, $line);