#!/usr/bin/env perl                       
use warnings;
use strict;
                               
#use HTTP::Request::Common qw(GET);
use LWP::UserAgent;
use DateTime;
use DateTime::Format::Strptime;
use Cpanel::JSON::XS qw(encode_json);

## Variable Definition

my $dtnow = DateTime->now;
my $twoWeeksAgo = DateTime->now->subtract(weeks => 2);  ## Date used to pull events data from today – 2 weeks.
my $resp;
my $request;

## Get events from OMi ##

	my $omi_url="https://omi.test.com/opt-web/rest/9.10/event_list/?query=title%20LIKE%20%22logtec(100)%25%22&watermark=$twoWeeksAgo%2B02:00";
	my $user="username";
	my $password="*******";

	#print "$omi_url\n";
	my $ua = LWP::UserAgent->new( ssl_opts => { verify_hostname => 0 }, );;
	$ua->credentials('omi.test.com:544','HP Operations Manager i',$user,$password);
	$request = HTTP::Request->new(GET => $omi_url);
	$resp = $ua->request($request);
	$resp->is_success or die $resp->status_line;
	print $resp->as_string;
	open(my $fh, '>', 'events.xml');
	print $fh $resp->content;
	close $fh;

## End ###