package Opals::SIF::ZIS_ackMsgRegister;

# Version number
$VERSION   = 0.01;

use warnings;
use strict;
use XML::XPath;

use Opals::SIF::ZIS_ackMsg;

my @accessCtrl= qw(
    SIF_ProvideAccess
    SIF_SubscribeAccess 
    SIF_PublishAddAccess 
    SIF_PublishChangeAccess
    SIF_PublishDeleteAccess
    SIF_RequestAccess
    SIF_RespondAccess);

our @ISA =qw(Opals::SIF::ZIS_ackMsg);
#################################################################

sub getACL{
    my ($self)=@_;
    
    my $acl={};

    if($self->{"ackMsg"}->exists("/SIF_Message/SIF_Ack/SIF_Status/SIF_Data/SIF_AgentACL")){
       foreach my $ac (@accessCtrl){
           if(my ($node)=$self->{"ackMsg"}->findnodes("/SIF_Message/SIF_Ack/SIF_Status/SIF_Data/SIF_AgentACL/$ac/SIF_Object")){
                my $objName= $node->getAttribute("ObjectName"); 
                $acl->{$objName}->{$ac}=1;
            }
       }
    }

    return $acl;
}



1;