Hallo,ich wollte es wie folgt machen:
Zunächst muss ich die auszuwertenden Felder benennen. Da in meinem Fall 2 verschiedene Datumsangaben ausgewertet werden müssen (Ankunftsdatum und Abfahrtsdatum) und ein drittes Datum hinzugefügt werden muss (Serverdatum) habe ich schon mal 3 verschiedene Auswertungen vorzunehmen:
$day1 = $INPUT{antag};
$month1 = $INPUT{anmonat};
$year1 = $INPUT{anjahr};
$day2 = $INPUT{abtag};
$month2 = $INPUT{abmonat};
$year2 = $INPUT{abjahr};
($year,$month,$day) = System_Clock();
Anschliesend muss ich das check-date anwenden
use Date::Calc qw( check_date );
if ( check_date( $year1, $month1, $day1 )
{
print "Location: $msg_ok\n\n";
exit;
}
else
{
print "Location: $msg_badmail\n\n";
exit;
}
if ( check_date( $year2, $month2, $day2 )
{
print "Location: $msg_ok\n\n";
exit;
}
else
{
print "Location: $msg_badmail\n\n";
exit;
}
und jetzt muss ich die drei Datumsangaben miteinander vergleichen (das Serverdaum kann kleiner oder gleich dem Ankunftsdatum sein und das Abfahrtsdatum muss größer als das Ankunftsdatum sein):
use Date::Calc qw( Date_to_Days );
if (Date_to_Days($year3,$month3,$day3) <=
Date_to_Days($year1,$month1,$day1))
{
print "Location: $msg_ok\n\n";
exit;
}
else
{
print "Location: $msg_badmail\n\n";
exit;
}
if (Date_to_Days($year1,$month1,$day1) <
Date_to_Days($year2,$month2,$day2))
{
print "Location: $msg_ok\n\n";
exit;
}
else
{
print "Location: $msg_badmail\n\n";
exit;
}
So hatte ich es jedenfalls gedacht, aber aus irgendeinem Grund funktioniert es nicht.
Könnt Ihr mir sagen, wo der/die Fehler sind?
Gruß Ulli
Datum: 24.02.2009-22:36
Datum aus Formular auslesen und prüfen
