#!/usr/bin/perl
use strict;
use warnings;

# Config-Datei
my $config = './webpage_check.cfg';

# Oeffne Datei zum Lesen, bei Fehler brich ab
open my $fh, '<', $config or die $!;

# Lese jede Zeile ein
while( my $line = <$fh> ) {

    # teile Zeile an Tabulator und nimm die Elemente

    my ($fqdn,$svc_id,$comment,$url,$pattern) = split(/\t/, $line);
    print "fqdn: $fqdn\n";
    print "svc_id: $svc_id\n";
    print "comment: $comment\n";
    print "url: $url\n";
    print "pattern: $pattern\n";

    # uebergib URL an wget
    my $content = qx{ /usr/sfw/bin/wget -t 2 -T 5 -S -O - '$url' | grep '$pattern' };

    print $content
}
close $fh;