Error

#!/usr/bin/perl use lib '$urlcgi'; use Kal; use CGI::Carp "fatalsToBrowser"; use CGI qw(:all); use warnings; use strict; use vars qw($Tag $Monat $Jahr $filetoopen @events @sortevents $urlcgi $titel $beginn $name $ort $veranstalter $location $am $art $mail $url $sonstiges); require "data/info.cgi"; require "data/date.cgi"; require "data/lang.cgi"; my $ev_day = param('ev_day'); my $ev_month = param('ev_month'); my $ev_year = param('ev_year'); if ($ev_day eq "" || $ev_month eq "" || $ev_year eq "") { if ($Monat < 10) {$Monat = "0" . $Monat}; chdir $Jahr; chdir $Monat; $filetoopen = "$Tag.$Monat.$Jahr.thd"; $ev_day = $Tag; $ev_month = $Monat; $ev_year = $Jahr; }else{ chdir $ev_year; chdir $ev_month; $filetoopen = "$ev_day.$ev_month.$ev_year.thd"; }; if (-f $filetoopen) { unless (open(FILE, $filetoopen)) { print "Error: couldn't read from '$filetoopen': $!\n"; }else { open(FILE, "$filetoopen"); @events = ; close(FILE); }; }else{ print "Content-type: text/html\n\n"; print '', "\n"; print "Error\n"; print "\n"; print "

Events

» Heute sind keine Events 1

\n"; exit; }; if (@events == ""){ print "Content-type: text/html\n\n"; print '', "\n"; print "Error\n"; print "\n"; print "

Events

» Heute sind keine Events 2

\n"; exit; }else{ print "Content-type: text/html\n\n"; print '', "\n"; print "Titel\n"; print "\n"; @sortevents = sort{ $a <=> $b }@events; foreach (@sortevents) { ($beginn, $name, $veranstalter, $titel, $ort, $location, $am, $art, $mail, $url, $sonstiges) = split(/\|/,$_); print "

Events

» $titel
by $veranstalter

"; }; exit; };