#!/usr/bin/perl
use strict;
use warnings;
use perunServicesInit;
use perunServicesUtils;

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

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

my $fileName = "$DIRECTORY/$::SERVICE_NAME";
my $data = perunServicesInit::getHashedHierarchicalData;

#Constants

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

my $users;

foreach my $memberId ($data->getMemberIdsForFacility()) {
	$users->{$data->getUserFacilityAttributeValue(member => $memberId, attrName => $A_LOGIN)} = 1;
}

open FILE,">$fileName" or die "Cannot open $fileName: $! \n";
binmode FILE, ":utf8";


my @logins = sort keys %{$users};
for my $login (@logins) {

    print FILE $login . "\tAuth-Type := Reject" . "\n";
    print FILE "\tReply-Message = \"Your account has been disabled.\"";

    # Empty line after each entry to make file more readable
    print FILE "\n";
}

close(FILE);
perunServicesInit::finalize;
