use strict;
use WWW::Mechanize;
use HTML::TreeBuilder;
my $search_url = "https://careers-ketchum.icims.com/jobs/search?ss=1&searchKeyword=&searchLocation=&searchCategory";
my $mech = WWW::Mechanize->new( autocheck => 1, ssl_opts => {verify_hostname => 0} );
print "\nChecking: $search_url ...\n";
eval{
$mech->agent_alias('Mac Safari');
$mech->get($search_url);
};
if ($@) {
print "Error connecting to URL $search_url. Restart script required...\n($@)\n";
exit(1);
}
my $filename = 'OUTPUT.html';
$mech->save_content( $filename );
exit(0);
####
Checking: https://careers-ketchum.icims.com/jobs/search?ss=1&searchKeyword=&sear
chLocation=&searchCategory ...
*******************************************************************
Using the default of SSL_verify_mode of SSL_VERIFY_NONE for client
is deprecated! Please set SSL_verify_mode to SSL_VERIFY_PEER
together with SSL_ca_file|SSL_ca_path for verification.
If you really don't want to verify the certificate and keep the
connection open to Man-In-The-Middle attacks please set
SSL_verify_mode explicitly to SSL_VERIFY_NONE in your application.
*******************************************************************
at C:/Perl/lib/LWP/Protocol/http.pm line 31.
Error connecting to URL https://careers-ketchum.icims.com/jobs/search?ss=1&searc
hKeyword=&searchLocation=&searchCategory. Restart script required...
(Error GETing https://careers-ketchum.icims.com/jobs/search?ss=1&searchKeyword=&
searchLocation=&searchCategory: Can't connect to careers-ketchum.icims.com:443 a
t C:\Users\Jingu\AppData\Local\Temp\dir8CA9.tmp\Save_content_test.pl line 31.
)
####
use strict;
use WWW::Mechanize;
use HTML::TreeBuilder;
use IO::Socket::SSL qw( SSL_VERIFY_NONE );
my $search_url = "https://careers-ketchum.icims.com/jobs/search?ss=1&searchKeyword=&searchLocation=&searchCategory";
my $mech = WWW::Mechanize->new( autocheck => 1, ssl_opts => {
SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE,
verify_hostname => 0,
});
print "\nChecking: $search_url ...\n";
eval{
$mech->agent_alias('Mac Safari');
$mech->get($search_url);
};
if ($@) {
print "Error connecting to URL $search_url. Restart script required...\n($@)\n";
exit(1);
}
my $filename = 'OUTPUT.html';
$mech->save_content( $filename );
exit(0);
####
Error connecting to URL https://careers-ketchum.icims.com/jobs/search?ss=1&searc
hKeyword=&searchLocation=&searchCategory. Restart script required...
(Error GETing https://careers-ketchum.icims.com/jobs/search?ss=1&searchKeyword=&
searchLocation=&searchCategory: Can't connect to careers-ketchum.icims.com:443 a
t C:\Users\Jingu\AppData\Local\Temp\dir8CA9.tmp\Save_content_test.pl line 31.
)