[%
  # 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 -%]
[% IF !hosts.${nodename}.defined -%][% out = 'self' -%][% END -%]
