MT#8419 add get_nodename

12 years ago · 9adfa4570d
parent d9e6ba263d
commit 9adfa4570d
1 changed files with 15 additions and 0 deletions
--- a/lib/get_nodename
+++ b/lib/get_nodename
@ -0,0 +1,15 @@
+[%
+  # Returns the nodename of the node calling this function.
+  #
+  # @return out		The nodename of the node calling this function.
+-%]
+[% PERL -%]
+my $filename = '/etc/ngcp_ha_node';
+$filename = '/etc/ngcp_nodename' unless -f $filename;
+open my $hh, '<', $filename or die "Error opening $filename";
+my $nodename = <$hh>;
+close $hh;
+chomp $nodename;
+die "Fatal error retrieving nodename [$nodename]" unless length $nodename;
+$stash->set(out => $nodename);
+[% END -%]