#################################################
# Multi-Post-Blocker (MPB) / Mehrfachpostsperre #
#################################################

open(FILEMANAGER, "<coresys/incoming.csv") or die "ERROR: Unable to open the IC-file during read-access!";
flock(FILEMANAGER, LOCK_EX);
my $DeltaMinuten = "";
my $GlobalDB_Minuten = "";

while(! eof(FILEMANAGER)){
my $zeile = <FILEMANAGER>;
my ($DB_customstorycode, $DB_headline, $DB_benutzergeschichte, $DB_zaehler, $DB_internetpost, $DB_tbgelesen, $DB_IPAdresse, $DB_Monatstag, $DB_Monat, $DB_Jahr, $DB_Stunden, $DB_Minuten, $DB_Sekunden, $DB_clientdatakey) = split(/;/,$zeile);
$GlobalDB_Minuten = $DB_Minuten;
$DeltaMinuten = ($Minuten - $DB_Minuten);
if ($DB_IPAdresse eq $IPAdresse and $DB_Monatstag eq $Monatstag and $DB_Monat eq $Monat and $DB_Jahr eq $Jahr and $DB_Stunden eq $Stunden and $DeltaMinuten < 5) {
close(FILEMANAGER);
goto TimeLock;
}
}
close(FILEMANAGER);