<?xml version="1.0" encoding="UTF-8"?>
<rss xmlns:content="http://purl.org/rss/1.0/modules/content/" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:taxo="http://purl.org/rss/1.0/modules/taxonomy/" version="2.0">
  <channel>
    <title>topic perl: unable to filter 'event-list-iter-start' using 'event-severities' parameter (dfm 5.2p2) in Software Development Kit (SDK) and API Discussions</title>
    <link>https://community.netapp.com/t5/Software-Development-Kit-SDK-and-API-Discussions/perl-unable-to-filter-event-list-iter-start-using-event-severities-parameter-dfm/m-p/67408#M946</link>
    <description>&lt;P&gt;I'm pulling the list of current events using perl and the API. I can get a list of events and I can filter the list using some of the documented parameters.&lt;/P&gt;
&lt;P&gt;('include-deleted-objects','FALSE','is-acknowledged','FALSE','is-deleted','FALSE', etc...)&lt;/P&gt;
&lt;P&gt;But if I try to use&lt;/P&gt;
&lt;P&gt;$output = $s-&amp;gt;invoke("event-list-iter-start",'event-severities','critical');&lt;/P&gt;
&lt;P&gt;I get the same number of events reguardless of what severity level I try (normal, information, warning, critical, etc...) I can put any string as a value&lt;/P&gt;
&lt;P&gt;to the event-severities parameter and I get no errors and the same list of events.&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;NetApp.pm from netap-manageability-sdk-5.2.1R1&lt;/P&gt;
&lt;P&gt;dfm 5.2p2 (one is 7-mode, the other cluster, same behaviour)&lt;/P&gt;
&lt;P&gt;There are only normal and information events on my servers so I should get 0 events from the API call, but I get hundreds of normal and information&lt;/P&gt;
&lt;P&gt;events. The check would be much more efficient if I could only get warning and above events, but I can't get the filter to work as documented.&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;sample code:&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;---&lt;/P&gt;
&lt;P&gt;#!/usr/bin/perl&lt;/P&gt;
&lt;P&gt;my $VERSION = '1.0';&amp;nbsp;&amp;nbsp;&amp;nbsp; # Controls the SDK release.&lt;/P&gt;
&lt;P&gt;use strict;&lt;/P&gt;
&lt;P&gt;use lib '/usr/local/share/perl5/NetApp';&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; #&amp;lt;====change to match locaion of your NaServer.pm file&lt;/P&gt;
&lt;P&gt;use NaServer;&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;our $port=&amp;lt;port&amp;gt;;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; #&amp;lt;==============insert your port here&lt;/P&gt;
&lt;P&gt;our $filer="&amp;lt;dfmserver&amp;gt;";&amp;nbsp; #&amp;lt;==============insert your DFM server ip or fqdn here&lt;/P&gt;
&lt;P&gt;our $s = NaServer-&amp;gt;new($filer, 1, 0);&lt;/P&gt;
&lt;P&gt;$s-&amp;gt;set_admin_user($user, $password);&lt;/P&gt;
&lt;P&gt;$s-&amp;gt;set_server_type('DFM');&lt;/P&gt;
&lt;P&gt;$s-&amp;gt;set_transport_type('HTTPS');&lt;/P&gt;
&lt;P&gt;$s-&amp;gt;set_port($port);&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;$output = $s-&amp;gt;invoke("event-list-iter-start",'include-deleted-objects','FALSE','is-acknowledged','FALSE','is-deleted','FALSE','event-severities','error');&lt;/P&gt;
&lt;P&gt;if ($output-&amp;gt;results_errno != 0) {&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; our $r = $output-&amp;gt;results_reason();&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; print "Failed: $r\n";&lt;/P&gt;
&lt;P&gt;} else {&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; my $tag = $output-&amp;gt;child_get_string("tag");&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; my $records = $output-&amp;gt;child_get_string("records");&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; print "$records available...next tag is $tag\n";&lt;/P&gt;
&lt;P&gt;}&lt;/P&gt;
&lt;P&gt;---&lt;/P&gt;</description>
    <pubDate>Thu, 05 Jun 2025 05:33:51 GMT</pubDate>
    <dc:creator>jimwelchgt</dc:creator>
    <dc:date>2025-06-05T05:33:51Z</dc:date>
    <item>
      <title>perl: unable to filter 'event-list-iter-start' using 'event-severities' parameter (dfm 5.2p2)</title>
      <link>https://community.netapp.com/t5/Software-Development-Kit-SDK-and-API-Discussions/perl-unable-to-filter-event-list-iter-start-using-event-severities-parameter-dfm/m-p/67408#M946</link>
      <description>&lt;P&gt;I'm pulling the list of current events using perl and the API. I can get a list of events and I can filter the list using some of the documented parameters.&lt;/P&gt;
&lt;P&gt;('include-deleted-objects','FALSE','is-acknowledged','FALSE','is-deleted','FALSE', etc...)&lt;/P&gt;
&lt;P&gt;But if I try to use&lt;/P&gt;
&lt;P&gt;$output = $s-&amp;gt;invoke("event-list-iter-start",'event-severities','critical');&lt;/P&gt;
&lt;P&gt;I get the same number of events reguardless of what severity level I try (normal, information, warning, critical, etc...) I can put any string as a value&lt;/P&gt;
&lt;P&gt;to the event-severities parameter and I get no errors and the same list of events.&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;NetApp.pm from netap-manageability-sdk-5.2.1R1&lt;/P&gt;
&lt;P&gt;dfm 5.2p2 (one is 7-mode, the other cluster, same behaviour)&lt;/P&gt;
&lt;P&gt;There are only normal and information events on my servers so I should get 0 events from the API call, but I get hundreds of normal and information&lt;/P&gt;
&lt;P&gt;events. The check would be much more efficient if I could only get warning and above events, but I can't get the filter to work as documented.&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;sample code:&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;---&lt;/P&gt;
&lt;P&gt;#!/usr/bin/perl&lt;/P&gt;
&lt;P&gt;my $VERSION = '1.0';&amp;nbsp;&amp;nbsp;&amp;nbsp; # Controls the SDK release.&lt;/P&gt;
&lt;P&gt;use strict;&lt;/P&gt;
&lt;P&gt;use lib '/usr/local/share/perl5/NetApp';&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; #&amp;lt;====change to match locaion of your NaServer.pm file&lt;/P&gt;
&lt;P&gt;use NaServer;&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;our $port=&amp;lt;port&amp;gt;;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; #&amp;lt;==============insert your port here&lt;/P&gt;
&lt;P&gt;our $filer="&amp;lt;dfmserver&amp;gt;";&amp;nbsp; #&amp;lt;==============insert your DFM server ip or fqdn here&lt;/P&gt;
&lt;P&gt;our $s = NaServer-&amp;gt;new($filer, 1, 0);&lt;/P&gt;
&lt;P&gt;$s-&amp;gt;set_admin_user($user, $password);&lt;/P&gt;
&lt;P&gt;$s-&amp;gt;set_server_type('DFM');&lt;/P&gt;
&lt;P&gt;$s-&amp;gt;set_transport_type('HTTPS');&lt;/P&gt;
&lt;P&gt;$s-&amp;gt;set_port($port);&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;$output = $s-&amp;gt;invoke("event-list-iter-start",'include-deleted-objects','FALSE','is-acknowledged','FALSE','is-deleted','FALSE','event-severities','error');&lt;/P&gt;
&lt;P&gt;if ($output-&amp;gt;results_errno != 0) {&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; our $r = $output-&amp;gt;results_reason();&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; print "Failed: $r\n";&lt;/P&gt;
&lt;P&gt;} else {&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; my $tag = $output-&amp;gt;child_get_string("tag");&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; my $records = $output-&amp;gt;child_get_string("records");&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; print "$records available...next tag is $tag\n";&lt;/P&gt;
&lt;P&gt;}&lt;/P&gt;
&lt;P&gt;---&lt;/P&gt;</description>
      <pubDate>Thu, 05 Jun 2025 05:33:51 GMT</pubDate>
      <guid>https://community.netapp.com/t5/Software-Development-Kit-SDK-and-API-Discussions/perl-unable-to-filter-event-list-iter-start-using-event-severities-parameter-dfm/m-p/67408#M946</guid>
      <dc:creator>jimwelchgt</dc:creator>
      <dc:date>2025-06-05T05:33:51Z</dc:date>
    </item>
  </channel>
</rss>

