#!/usr/bin/perl

use strict;
use warnings;
use perunServicesInit;
use perunServicesUtils;

local $::SERVICE_NAME = "hadoop_hdfs";
local $::PROTOCOL_VERSION = "3.0.0";
my $SCRIPT_VERSION = "3.0.1";

perunServicesInit::init;
my $DIRECTORY = perunServicesInit::getDirectory;
my $data = perunServicesInit::getHashedHierarchicalData;

#Constants
our $A_USER_FACILITY_LOGIN;           *A_USER_FACILITY_LOGIN =       \'urn:perun:user_facility:attribute-def:virt:login';

my $fileName = "$DIRECTORY/$::SERVICE_NAME";
open FILE,">$fileName" or die "Cannot open $fileName: $! \n";

my @logins;
foreach my $memberId ($data->getMemberIdsForFacility) {
	push(@logins, $data->getUserFacilityAttributeValue(attrName => $A_USER_FACILITY_LOGIN, member => $memberId));
}

my @uniqueLogins = uniqList @logins;
print FILE join "\n", sort @uniqueLogins;
print FILE "\n";

close(FILE) or die "Cannot close $fileName: $! \n";
perunServicesInit::finalize;
