abstract:
print "working link<br>$url";
} else {
print "Content-type: text/htmlnn";
print "broken link<br>$url";
}
Can anyone help?
Ryan
I wrote this simple script to check links, but no matter what the url, it always returns a working link:
<BLOCKQUOTE><font size="1" face="Verdana,Arial,Helvetica">code:</font><HR><pre>
#!/usr/bin/perl
use LWP::Simple;
$url = "http://www.thisdoesnotworkcrap.com";
if (head($url)) {
print "Content-type: text/htmlnn";
print "working link<br>$url";
} else {
print "Content-type: text/htmlnn";
print "broken link<br>$url";
}
[/code]
Can anyone help?
Ryan |
