Dear All,
I am testing the weblinks for connectivity using Test::HTTPStatus
module. I could able to test 187 and in those 165 links are success
and 22 links are failed. When I test manually by entering the weblink
in the browser out of 22, 5 weblinks are working fine.
I am not sure why this module is showing those 5 links as failure. Can
somebody help in get it resolved.
My code is as follows:
unlink("linktest.log");
$xfile = "$ARGV[0]";
open(OUT, ">>linktest.log");
use XML::XPath;
use XML::XPath::XMLParser;
use Test::HTTPStatus tests=>1;
$xp = XML::XPath->new(filename => $xfile);
$nodeset1 = $xp->find('//xref/@href');
foreach $node1 ($nodeset1->get_nodelist) {
$aid=XML::XPath::XMLParser::as_string($node1);
$aid=~s!href="!!g;
$aid=~s!"!!g;
$aid=~s! !!g;
$a=http_ok( $aid, HTTP_OK );
sleep 10;
print OUT "$aid\n" if ($a == 0);
}
close(OUT);
Regards,
Ganesh
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
