
September 8th, 2000, 11:35 PM
|
|
Contributing User
|
|
Join Date: Jul 2000
Posts: 452
Time spent in forums: 1 Day 41 m 50 sec
Reputation Power: 9
|
|
|
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
|