use utf8;
use warnings; no warnings "redefine";
use strict;
use Cf qw($KUNDEBUNT_URL);
use Term::ANSIColor qw(GREEN RESET);

my %ist_bekannt;

sub hinweis_auf_kundebunt($) {
#	my ($hinweis) = @_;
#	return if $ist_bekannt{$hinweis}++;
#	chomp $hinweis;
#	$hinweis =~ s/<URL>/<$KUNDEBUNT_URL>/g;
#	print GREEN, $hinweis, RESET, "\n";
}

1
