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

my $env = {
};

my $load_ClamAV = sub {
	my ($env,$her_hin) = @_;

	delete $her_hin->{fehler} if defined $her_hin->{fehler};													# zurück setzen

	my %conf_local = (
		abrufe		=> [
			{
				url		=> 'http://database.clamav.net/daily.cvd',
			},
		],
	);

	require LWP::UserAgent;
	require HTTP::CookieJar::LWP;

	my $jar = HTTP::CookieJar::LWP->new;
	my $ua = LWP::UserAgent->new(
		agent				=> 'Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/93.0.4577.82 Safari/537.36',
		cookie_jar			=> $jar,
		protocols_allowed	=> ['http','https'],
		timeout				=> 10,
	);

	foreach my $ref (@{$conf_local{abrufe}}) {

		my $response = $ua->get($ref->{url});

		if ($response->is_success) {
say __LINE__;
			print $response->decoded_content;
		}
		else {
say __LINE__;
say $response->status_line;
say $response->headers()->as_string;
say $response->header('content-type');
			$her_hin->{fehler} = "Abruf der URL '"
				.$ref->{url}
				."' ist gescheitert mit HTTP Status-Code "
				.$response->status_line
			;
			last;
		}
	}

	return if defined $her_hin->{fehler};
};

###############################################################################
my %hin_her = (
);
$load_ClamAV->($env,\%hin_her);
if (defined $hin_her{fehler}) {
say "FEHLER!\n$hin_her{fehler}";
}