##################################
# Read-Out-Engine / Buchausleser #
##################################

open(LESER, "<coresys/message.csv") or die "ERROR: Unable to open the Message-file during read-access!";
flock(LESER, LOCK_SH);

my @Collector;
my $counter = 0;

while(! eof(LESER)){
my $zeile = <LESER>;
my ($DB_nick, $DB_nachricht, $DB_zaehler, $DB_gbrgelesen, $DB_IPAdresse, $DB_Monatstag, $DB_Monat, $DB_Jahr, $DB_Stunden, $DB_Minuten, $DB_Sekunden) = split(/;/,$zeile);

$counter = ($counter + 1);

push (@Collector, $counter, $DB_nick, $DB_nachricht, $DB_zaehler, $DB_gbrgelesen, $DB_IPAdresse, $DB_Monatstag, $DB_Monat, $DB_Jahr, $DB_Stunden, $DB_Minuten, $DB_Sekunden);
}