1 files changed, 0 insertions, 127 deletions
diff --git a/vespaclient/src/perl/lib/Yahoo/Vespa/Bin/SetNodeState.pm b/vespaclient/src/perl/lib/Yahoo/Vespa/Bin/SetNodeState.pm
deleted file mode 100644
index b1daebff03c..00000000000
--- a/vespaclient/src/perl/lib/Yahoo/Vespa/Bin/SetNodeState.pm
+++ /dev/null
@@ -1,127 +0,0 @@
-# Copyright Yahoo. Licensed under the terms of the Apache 2.0 license. See LICENSE in the project root.
-
-package Yahoo::Vespa::Bin::SetNodeState;
-
-use strict;
-use warnings;
-use Yahoo::Vespa::ClusterController;
-use Yahoo::Vespa::ConsoleOutput;
-use Yahoo::Vespa::ContentNodeSelection;
-use Yahoo::Vespa::ArgParser;
-use Yahoo::Vespa::Utils;
-
-BEGIN {
-    use base 'Exporter';
-    our @EXPORT = qw(
-        setNodeState
-    );
-}
-
-our $wanted_state;
-our $wanted_state_description;
-our $nodes_attempted_set;
-our $success;
-our $no_wait;
-our $safe_mode;
-
-return 1;
-
-# Run the set node state tool
-sub setNodeState { # (Command line arguments)
-    my ($argsref) = @_;
-    &handleCommandLine($argsref);
-    detectClusterController();
-    &showSettings();
-    &maybeRequireClusterSelection();
-    &execute();
-}
-
-# Parse command line arguments
-sub handleCommandLine { # (Command line arguments)
-    my ($args) = @_;
-    my $description = <<EOS;
-Set the user state of a node. This will set the generated state to the user
-state if the user state is "better" than the generated state that would have
-been created if the user state was up. For instance, a node that is currently
-in initializing state can be forced into down state, while a node that is
-currently down can not be forced into retired state, but can be forced into
-maintenance state.
-EOS
-    $description =~ s/(\S)\n(\S)/$1 $2/gs;
-    chomp $description;
-
-    setProgramDescription($description);
-
-    setArgument(\$wanted_state, "Wanted State",
-                "User state to set. This must be one of "
-              . "up, down, maintenance or retired.",
-                OPTION_REQUIRED);
-    setArgument(\$wanted_state_description, "Description",
-                "Give a reason for why you are altering the user state, which "
-              . "will show up in various admin tools. (Use double quotes to "
-              . "give a reason with whitespace in it)");
-
-    setOptionHeader("Options related to operation visibility:");
-    setFlagOption(['n', 'no-wait'], \$no_wait, "Do not wait for node state "
-                . "changes to be visible in the cluster before returning.");
-    setFlagOption(['a', 'safe'], \$safe_mode, "Only carries out state changes "
-                . "if deemed safe by the cluster controller. For maintenance mode, "
-                . "will also set the distributor with the same distribution key "
-                . "to down atomically as part of the same state change. For up "
-                . "mode, transition is only allowed if the content node reports "
-                . "itself as up. Only supported for type storage.");
-
-    Yahoo::Vespa::ContentNodeSelection::registerCommandLineArguments();
-    Yahoo::Vespa::VespaModel::registerCommandLineArguments();
-    handleCommandLineArguments($args);
-
-    if (!Yahoo::Vespa::ContentNodeSelection::validateCommandLineArguments(
-             $wanted_state)) {
-        exitApplication(1);
-    }
-}
-
-# Show what settings this tool is running with (if verbosity is high enough)
-sub showSettings { # ()
-    Yahoo::Vespa::ClusterController::showSettings();
-}
-
-sub maybeRequireClusterSelection
-{
-    return if Yahoo::Vespa::ContentNodeSelection::hasClusterSelection();
-    my %clusters;
-    VespaModel::visitServices(sub {
-        my ($info) = @_;
-        if ($$info{'type'} =~ /^(?:distributor|storage|storagenode)$/ ) {
-            $clusters{$$info{'cluster'}} = 1;
-        }
-    });
-    my $clusterCount = scalar keys %clusters;
-    if ($clusterCount > 1) {
-        printWarning "More than one cluster is present but no cluster is selected\n";
-        exitApplication(1);
-    }
-}
-
-# Sets the node state
-sub execute { # ()
-    $success = 1;
-    $nodes_attempted_set = 0;
-    Yahoo::Vespa::ContentNodeSelection::visit(\&setNodeStateForNode);
-    if ($nodes_attempted_set == 0) {
-        printWarning("Attempted setting of user state for no nodes");
-        exitApplication(1);
-    }
-    if (!$success) {
-        exitApplication(1);
-    }
-}
-
-sub setNodeStateForNode {
-    my ($info) = @_;
-    my ($cluster, $type, $index) = (
-            $$info{'cluster'}, $$info{'type'}, $$info{'index'});
-    $success &&= setNodeUserState($cluster, $type, $index, $wanted_state,
-                                  $wanted_state_description, $no_wait, $safe_mode);
-    ++$nodes_attempted_set;
-}