From e597d2b34262b0bb5312fc6bebd401ad09b16f5e Mon Sep 17 00:00:00 2001
From: Alexander Lutay <alutay@sipwise.com>
Date: Wed, 28 Jun 2017 10:24:50 +0200
Subject: [PATCH] TT#17989 Add function lib/get_mgmt_name (as a copy of
 lib/get_ngcp_version)

Change-Id: I6f8cc15d7687ee0a89c9b22b42e450c5363bd162
---
 lib/get_mgmt_name | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 lib/get_mgmt_name

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 -%]