Intel/AMT/EventManager.pm

package Intel::AMT::EventManager;

use warnings;
use strict;

use Data::Dump qw/dump/;

our $debug = 0;

=for reference

dpavlin@t61p:~/Desktop/docs/amt/AMT-5.1-SDK/Linux/Intel_AMT/Samples/Soap/EventManager/c++$ grep FunctionCall *
EventManager.cpp:       FunctionCall("AddEventFilter");
EventManager.cpp:       FunctionCall("GetEventFilter");
EventManager.cpp:       FunctionCall("GetGeneralAlertSubscription");
EventManager.cpp:       FunctionCall("UpdateEventFilter");
EventManager.cpp:       FunctionCall("SubscribeForGeneralAlert");
EventManager.cpp:       FunctionCall("FreezeEventLog");
EventManager.cpp:       FunctionCall("GetEventLogStatus");
EventManager.cpp:       FunctionCall("GetEventLogTimestampClock");
EventManager.cpp:       FunctionCall("ReadEventLogRecords");
EventManager.cpp:       FunctionCall("EnumerateEventFilters");
EventManager.cpp:       FunctionCall("EnumerateAlertPolicies");
EventManager.cpp:       FunctionCall("EnumerateGeneralAlertSubscriptions");
EventManager.cpp:       FunctionCall("CancelAlertSubscription");
EventManager.cpp:       FunctionCall("RemoveEventFilter");
EventManager.cpp:       FunctionCall("ClearEventLog");
EventManager.cpp:       FunctionCall("EnumerateSensors");
EventManager.cpp:       FunctionCall("GetSensorAttributes");
EventManager.cpp:       FunctionCall("GetAlertCommunityString");

dpavlin@t61p:~/Desktop/docs/amt/AMT-5.1-SDK/DOCS/WSDL$ grep -l ReadEventLogRecords *
EventManagerInterface.wsdl

=cut


use lib 'lib';
use base qw/Intel::AMT::SOAP/;

sub GetEventLogStatus {
        my %info;
        my @Response =  qw/
                NumberOfFreeRecords NumberOfRecords Time IsFrozen
        /;
        @info{ @Response } = Intel::AMT::SOAP::_soap( 'EventManager' )->GetEventLogStatus->paramsout;
        return \%info;
};

sub ReadEventLogRecords {
#       my @out = Intel::AMT::SOAP::_soap( 'EventManager' )->ReadEventLogRecords( SOAP::Data->name( 'StartIndex' => 1 ) )->paramsout;
#       return [ @out ];


        my %info;
        my @Response =  qw/
                TotalRecordCount RecordsReturned EventRecords
        /;
        @info{ @Response } = Intel::AMT::SOAP::_soap( 'EventManager' )->ReadEventLogRecords( SOAP::Data->name('StartIndex'=>1) )->paramsout;
        return \%info;
};
#       warn dump $soap->ReadEventLogRecords->paramsout;
1;
1	package Intel::AMT::EventManager;
2
3	use warnings;
4	use strict;
5
6	use Data::Dump qw/dump/;
7
8	our $debug = 0;
9
10	=for reference
11
12	dpavlin@t61p:~/Desktop/docs/amt/AMT-5.1-SDK/Linux/Intel_AMT/Samples/Soap/EventManager/c++$ grep FunctionCall *
13	EventManager.cpp: FunctionCall("AddEventFilter");
14	EventManager.cpp: FunctionCall("GetEventFilter");
15	EventManager.cpp: FunctionCall("GetGeneralAlertSubscription");
16	EventManager.cpp: FunctionCall("UpdateEventFilter");
17	EventManager.cpp: FunctionCall("SubscribeForGeneralAlert");
18	EventManager.cpp: FunctionCall("FreezeEventLog");
19	EventManager.cpp: FunctionCall("GetEventLogStatus");
20	EventManager.cpp: FunctionCall("GetEventLogTimestampClock");
21	EventManager.cpp: FunctionCall("ReadEventLogRecords");
22	EventManager.cpp: FunctionCall("EnumerateEventFilters");
23	EventManager.cpp: FunctionCall("EnumerateAlertPolicies");
24	EventManager.cpp: FunctionCall("EnumerateGeneralAlertSubscriptions");
25	EventManager.cpp: FunctionCall("CancelAlertSubscription");
26	EventManager.cpp: FunctionCall("RemoveEventFilter");
27	EventManager.cpp: FunctionCall("ClearEventLog");
28	EventManager.cpp: FunctionCall("EnumerateSensors");
29	EventManager.cpp: FunctionCall("GetSensorAttributes");
30	EventManager.cpp: FunctionCall("GetAlertCommunityString");
31
32	dpavlin@t61p:~/Desktop/docs/amt/AMT-5.1-SDK/DOCS/WSDL$ grep -l ReadEventLogRecords *
33	EventManagerInterface.wsdl
34
35	=cut
36
37
38
39	use lib 'lib';
40	use base qw/Intel::AMT::SOAP/;
41
42	sub GetEventLogStatus {
43	my %info;
44	my @Response = qw/
45	NumberOfFreeRecords NumberOfRecords Time IsFrozen
46	/;
47	@info{ @Response } = Intel::AMT::SOAP::_soap( 'EventManager' )->GetEventLogStatus->paramsout;
48	return \%info;
49	};
50
51	sub ReadEventLogRecords {
52	# my @out = Intel::AMT::SOAP::_soap( 'EventManager' )->ReadEventLogRecords( SOAP::Data->name( 'StartIndex' => 1 ) )->paramsout;
53	# return [ @out ];
54
55
56	my %info;
57	my @Response = qw/
58	TotalRecordCount RecordsReturned EventRecords
59	/;
60	@info{ @Response } = Intel::AMT::SOAP::_soap( 'EventManager' )->ReadEventLogRecords( SOAP::Data->name('StartIndex'=>1) )->paramsout;
61	return \%info;
62	};
63	# warn dump $soap->ReadEventLogRecords->paramsout;
64	1;