Link checker

Hmm, jeg kan ikke finde nogen i perl, men her er en i php http://netcoders.dk/sourcecode.asp?mode=dl&source_id=178

Er det noget du skal implementere på en hjemmeside ???

Snowball

$_ giver indholdet af siden

##########

#!/usr/bin/perl
use strict;
$| = 1;
my $VERSION = "1.0";

use LWP::UserAgent;
use URI::Escape;

my $query = uri_escape(shift);

my $QBASE = "http://www.opasia.dk/index.html";

my $ua = new LWP::UserAgent;
$ua->agent("browser/$VERSION");
$ua->env_proxy;


$_ = &fetch("$QBASE");
print $_;

 
sub fetch {
my $url = shift;

my $request = new HTTP::Request('GET',$url);
my $response = $ua->request($request);
die "$url failed: ",$response->error_as_HTML
unless $response->is_success;

$response->content;
}


#####
# Du kan kun få siden, så kan du fx søge efter 404 el. lign.

Ja, det skal kaldes i en asp side.
Måske noget ligende "cgi-bin/check.pl?url=http://www.noget.noget/noget.noget

du laver da bare dit check.pl ud fra det ovenstående


Hvis du ikke kender perl, kan jeg (måske) lave et færdigt.

Det lyder meget interessant.

nukovski@newmail.net
Så kan vi fortsætte der fra.

Jeg har sendt en mail til dig panton, men du har endnu ikke svaret.