#!/usr/local/bin/perl

use strict;
use Data::Dumper;
use YMS::Client::MonStatus::Filter;
use YMS::Client::MonStatus;

my $client = YMS::Client::MonStatus->new("sports");
$client->debug("on");
$client->yms_rotation("my_api_server");
$client->byauth( { username => "xxxxx", password => "xxxxxxxxxx" } );

my $filters = YMS::Client::MonStatus::Filter->new();
$filters->add("service", "!=", "OOR check,system-oor,uptime");
$filters->add("status", "in", "critical");
$filters->add("acknowledged", "=", 0);

my $client_args = { filters => $filters };
my $output = $client->status_list($client_args);