Re: Error handling

Hello snehit.ar,

I have not used this module before, but from the point that I see most likely you have an error on your code or sign in with the credentials.

From the documentation:

verify_hostname => $bool

When TRUE LWP will for secure protocol schemes ensure it connects to s
+ervers that have a valid certificate matching the expected hostname. 
+If FALSE no checks are made and you can't be sure that you communicat
+e with the expected peer. The no checks behaviour was the default for
+ libwww-perl-5.837 and earlier releases.
[download]

I see on your code you have:

my $ua = LWP::UserAgent->new( ssl_opts => { verify_hostname => 0 }, );
[download]

Why? Are you sure you can communicate with the remote host?

Provide us a bit more information.

Seeking for Perl wisdom...on the process of learning...not there...yet!

Comment on Re: Error handling Select or Download Code

Replies are listed 'Best First'.
Re^2: Error handling by snehit.ar (Beadle) on Aug 07, 2017 at 06:48 UTC
yes i am able to access the host with the credentials . I'm also able to open the url from the browser with the same credentials . `my $omi_url="https://omi.test.com/opt-web/rest/9.10/event_list/?qu +ery=title%20LIKE%20%22logtec(100)%25%22&watermark=$twoWeeksAgo%2B02:0 +0"; my $user="username"; my $password="*****";` [download] Below i have the timeout exception pls check if its correct or any other way around ## Get events from OMi ## my $omi_url="https://omi.test.com/opt-web/rest/9.10/event_list/?qu +ery=title%20LIKE%20%22logtec(100)%25%22&watermark=$twoWeeksAgo%2B02:0 +0"; 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',$use +r,$password); $request = HTTP::Request->new(GET => $omi_url); $ua->timeout(300); $resp = $ua->request($request); if ($resp->is_success) { # print $resp->as_string; open(my $fh, '>', 'events.xml'); # print $fh $resp->content; close $fh; } else { print "Error: " . $resp->status . "\n"; } ## End ### [download] Please check .Thank you	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^2: Error handling
by snehit.ar (Beadle) on Aug 07, 2017 at 06:48 UTC

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

Below i have the timeout exception pls check if its correct or any other way around

## Get events from OMi ##

    my $omi_url="https://omi.test.com/opt-web/rest/9.10/event_list/?qu
+ery=title%20LIKE%20%22logtec(100)%25%22&watermark=$twoWeeksAgo%2B02:0
+0";
    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',$use
+r,$password);
    $request = HTTP::Request->new(GET => $omi_url);
$ua->timeout(300);
    $resp = $ua->request($request);
if ($resp->is_success) {
    #    print $resp->as_string;
        open(my $fh, '>', 'events.xml');
    #    print $fh $resp->content;
        close $fh;
    }
    else {
        print "Error: " . $resp->status . "\n";
    }
## End ###
[download]

Please check .Thank you

[reply]
[d/l]
[select]