my $url = "https://site.company.com/javaprog.jsp"; print LOGFILE localtime()."Url Value: *".$url."*\n"; my $request = HTTP::Request->new(GET => $url); my $ua = LWP::UserAgent->new; $ua->protocols_allowed( [ 'http', 'https'] ); my $response = $ua->request($request); if ($response->is_success) { print LOGFILE localtime()."\tSuccessfully initiated cache +reload via $url\n"; } else { $warningCnt++; $warningMsg=$warningMesg||" Unable to remove $filename fro +m $sshHost\n"; print LOGFILE localtime()."\tWARNING: Unable to intiate +cache refresh via $url\n"; print LOGFILE localtime()."\t\tDEBUG: $response \n"; }
The result being output to the log is: DEBUG: HTTP::Response=HASH(0x2cd1ae0)
I confess newness to Perl so please be gentle.
In reply to HTTPS Problem by jfalck
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |