summaryrefslogtreecommitdiffstats
path: root/vespaclient
diff options
context:
space:
mode:
authorArne Juul <arnej@yahoo-inc.com>2018-05-09 14:00:59 +0000
committerArne Juul <arnej@yahoo-inc.com>2018-05-14 10:08:15 +0000
commitcc5f5b2b41db293a9ce7ef554adde9e776fd1ad2 (patch)
tree4afd49f607f3b11f077aa61a8187585dcfa98dbe /vespaclient
parent5224e612edc9f5af2f93051a41000a36ca6c5c93 (diff)
update bootstrap section of scripts
Diffstat (limited to 'vespaclient')
-rwxr-xr-xvespaclient/src/perl/bin/GetClusterState.pl12
-rwxr-xr-xvespaclient/src/perl/bin/GetNodeState.pl12
-rwxr-xr-xvespaclient/src/perl/bin/SetNodeState.pl12
3 files changed, 36 insertions, 0 deletions
diff --git a/vespaclient/src/perl/bin/GetClusterState.pl b/vespaclient/src/perl/bin/GetClusterState.pl
index 6dd36d9e131..e3528fff039 100755
--- a/vespaclient/src/perl/bin/GetClusterState.pl
+++ b/vespaclient/src/perl/bin/GetClusterState.pl
@@ -52,9 +52,21 @@ sub findhome {
die "FATAL: Missing VESPA_HOME environment variable\n";
}
+sub findhost {
+ $ENV{'PATH'} = $ENV{'VESPA_HOME'} . '/bin:' . $ENV{'PATH'};
+ my $tmp = $ENV{'VESPA_HOSTNAME'};
+ if (!defined $tmp) {
+ $tmp = `vespa-detect-hostname` or die "Could not detect hostname\n";
+ }
+ system("vespa-validate-hostname $tmp");
+ ( $? == 0 ) or die "Could not validate hostname\n";
+}
+
BEGIN {
my $tmp = findhome();
$ENV{'VESPA_HOME'} = $tmp;
+ $tmp = findhost();
+ $ENV{'VESPA_HOSTNAME'} = $tmp;
}
my $VESPA_HOME = $ENV{'VESPA_HOME'};
diff --git a/vespaclient/src/perl/bin/GetNodeState.pl b/vespaclient/src/perl/bin/GetNodeState.pl
index f7ac5a24918..28f3cf99b1f 100755
--- a/vespaclient/src/perl/bin/GetNodeState.pl
+++ b/vespaclient/src/perl/bin/GetNodeState.pl
@@ -52,9 +52,21 @@ sub findhome {
die "FATAL: Missing VESPA_HOME environment variable\n";
}
+sub findhost {
+ $ENV{'PATH'} = $ENV{'VESPA_HOME'} . '/bin:' . $ENV{'PATH'};
+ my $tmp = $ENV{'VESPA_HOSTNAME'};
+ if (!defined $tmp) {
+ $tmp = `vespa-detect-hostname` or die "Could not detect hostname\n";
+ }
+ system("vespa-validate-hostname $tmp");
+ ( $? == 0 ) or die "Could not validate hostname\n";
+}
+
BEGIN {
my $tmp = findhome();
$ENV{'VESPA_HOME'} = $tmp;
+ $tmp = findhost();
+ $ENV{'VESPA_HOSTNAME'} = $tmp;
}
my $VESPA_HOME = $ENV{'VESPA_HOME'};
diff --git a/vespaclient/src/perl/bin/SetNodeState.pl b/vespaclient/src/perl/bin/SetNodeState.pl
index f5df40a2433..91ceeea2c1b 100755
--- a/vespaclient/src/perl/bin/SetNodeState.pl
+++ b/vespaclient/src/perl/bin/SetNodeState.pl
@@ -52,9 +52,21 @@ sub findhome {
die "FATAL: Missing VESPA_HOME environment variable\n";
}
+sub findhost {
+ $ENV{'PATH'} = $ENV{'VESPA_HOME'} . '/bin:' . $ENV{'PATH'};
+ my $tmp = $ENV{'VESPA_HOSTNAME'};
+ if (!defined $tmp) {
+ $tmp = `vespa-detect-hostname` or die "Could not detect hostname\n";
+ }
+ system("vespa-validate-hostname $tmp");
+ ( $? == 0 ) or die "Could not validate hostname\n";
+}
+
BEGIN {
my $tmp = findhome();
$ENV{'VESPA_HOME'} = $tmp;
+ $tmp = findhost();
+ $ENV{'VESPA_HOSTNAME'} = $tmp;
}
my $VESPA_HOME = $ENV{'VESPA_HOME'};