if (-e $filetoopen) { open(FILE, "$filetoopen"); @events = ; close(FILE); .. .. .. print "Content-type: text/html\n\n"; print '', "\n"; print "$lang{header} $wday $lang{the} $ev_day.$ev_month.$ev_year\n"; print "\n"; @sortevents = sort{ $a <=> $b }@events; $id = -1; $a = nein; foreach (@sortevents) { ($beginn, $name, $veranstalter, $titel, $ort, $location, $am, $art, $mail, $url, $sonstiges) = split(/\|/,$_); $id++; if ($a eq nein) { print "
Events
» $titel
by $veranstalter

"; $a = ja; }; }; exit; };