#1
  1. No Profile Picture
    Contributing User
    Devshed Newbie (0 - 499 posts)

    Join Date
    Jul 2000
    Posts
    456
    Rep Power
    15
    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
  2. #2
  3. No Profile Picture
    Contributing User
    Devshed Newbie (0 - 499 posts)

    Join Date
    Jul 2000
    Posts
    456
    Rep Power
    15
    Actually, that does work. LWP was just installed wrong!

IMN logo majestic logo threadwatch logo seochat tools logo