Link Validation not working correctly

[JoeM6]

After connecting to my database, I use the following to make sure the links are working properly:

use LWP::Simple;

while(my ($id, $Name, $Cat, $Type, $Players, $Object, $GameURL) = $sth->fetchrow_array()) {

if(head($GameURL)){

} else {
print &quot;Not Working: $GameURL<br>&quot;
}
}

However, of the 430 links in my database, it says that 183 of them arent working. I know this isnt right because I test the links out myself and they work. I know this method is kind of simple, is there a better way to do this with more accurate results?



JoeM6
JPMJR11@aol.com

http://gamecentral.20m.com

 

[duncdude]

I am a novice at this but I am reading quite a bit about LWP at the moment - I don't think you can always rely on the header info... it's not always supported by the servers as far as I understand. If the header specifically states that there is no problem then you can act upon this but sometimes no value is set and this appears as if there is trouble when there might not be.

It works as follows (in list context):-

(content_type, document_length, modified_time, expires, server)
= head(url);

so the code might appear:-

my ($type, $length, $mod) = head($url);

unless (defined $type) {
print &quot;Couldn't get $url\n&quot;;
}

Hope this is of some help...

Cheers
Duncan