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);
[download]

Regards,
Ganesh