diff --git a/lib/get_mgmt_name b/lib/get_mgmt_name new file mode 100644 index 00000000..a61d25ce --- /dev/null +++ b/lib/get_mgmt_name @@ -0,0 +1,16 @@ +[% + # Returns the name of the management node calling this function. + # + # @return out mgmt name (e.g. 'web01' or 'db01') +-%] +[% PERL -%] +my $filename = '/etc/ngcp_mgmt_node'; +open my $hh, '<', $filename or die "Error opening $filename"; +my $mgmt_name = <$hh>; +close $hh; +chomp $mgmt_name; +die "Fatal error retrieving mgmt_name [$mgmt_name]" unless length $mgmt_name; + +$stash->set(out => $mgmt_name); +return; +[% END -%]