#!/usr/bin/perl -w
use strict;
use warnings;
use LWP::UserAgent;
use CGI qw(param);
use CGI::Carp qw(fatalsToBrowser set_message);
set_message('There is a problem in the script.');
print "Content-type: text/html\n\n";
# Sehr lange URL-Liste
my @url = ('','','','','','');
# Testurls sind hier im Formular des Forums entfernt worden, vermutlich um SPAM zu vermeiden (nehmt einfach die 4 funktionierende URLs und eine URL zu einer nicht existierenden Webseite
# html head
print '
Test';
# loop
foreach my $url (@url) {
if (check_website($url) eq 'FEHLER') {
print 'Fehler bei '.$url;
} else {
print 'ok'
}
print "
\n";
}
# html foot
print ''."\n";
sub check_website{
my $url = shift;
my $result = '';
my $agent = "UserAgent Test-Skript/v0.01";
my $ua = LWP::UserAgent->new(agent=>$agent);
$ua->timeout(3); #Sekunden
my $request = HTTP::Request->new('GET' => "$url");
my $response = $ua->request($request);
if ( $response->is_success() ) {
$result = "erfolgreich";
} else {
$result = "FEHLER";
}
return ($result);
}