selfhtml.de - Alles für den Webmaster!

Anzeige: united-domains - Die ganze Welt der Domains

Datum aus HTML-Formular auslesen und prüfen

Autor: smudo1967
Datum: 11.02.2009 21:12:00

Hallo Zusammen,

eines muss ich vorab gestehen, ich bin ein absoluter Neuling in Sachen Perl. Folgendes Szenario gibt es bei mir. Ich habe ein Formular, in dem ich diverse Dinge per „cgi“ prüfen möchte – z.B. ob ein ein Name eingetragen ist, ob ein Vorname eingetragen ist, ob eine richtig formulierte E-Mail-Adresse eingegeben ist und auch ob 3 verschiedene Werte von Auswahlboxen ein gültiges Datum ergeben, um es anschließend per Mail zu versenden. Die entsprechenden Auswahlboxen lauten wie folgt:
<select class="select" name="tag"><option selected="selected">Tag</option><option>01</option><option>02 </option><option>03 </option><option>04
</option><option>05 </option><option>06 </option><option>07
</option><option>08 </option><option>09
</option><option>10 </option><option>11 </option><option>12
</option><option>13 </option><option>14 </option><option>15
</option><option>16 </option><option>17 </option><option>18
</option><option>19 </option><option>20 </option><option>21
</option><option>22 </option><option>23 </option><option>24
</option><option>25 </option><option>26 </option><option>27
</option><option>28 </option><option>29 </option><option>30
</option><option>31 </option></select>

<select class="select" name="monat"><option value="0" selected="selected">Monat</option><option value="1">Januar</option><option value="2">Februar</option><option value="3">März</option><option value="4">April</option><option value="5">Mai</option><option value="6">Juni</option><option value="7">Juli</option><option value="8">August</option><option value="9">September</option><option value="10">Oktober</option><option value="11">November</option><option value="12">Dezember</option></select>

<select class="select" name="jahr" size="1"><option selected="selected">Jahr</option><option>2009</option><option>2010</option><option>2011</option><option>2012</option><option>2013</option></select>




Das Script lautet in den entsprechenden Zeilen:

if (($INPUT{Vorname}                eq "") ||
    ($INPUT{Name}                   eq "") ||
    ($INPUT{Email}                  eq "") )
{
print "Location: $msg_errmissnn";
exit;
}

if (($INPUT{Email} =~ /(@.*@)|(..)|(@.)|(.@)|(^.)/) ||
    ($INPUT{Email} !~ /^.+@([?)[a-zA-Z0-9-.]+.([a-zA-Z]{2,3}|[0-9]{1,3})(]?)$/))
{
print "Location: $msg_badmailnn";
exit;
}

Leider weiss ich absolut nicht, wie ich die Datumsabfrage gestalten soll und vor allem, wie ich die. Sicherlich ist es für Euch nur eine Kleinigkeit. Bitte helft mir weiter.

Gruß Ulli

Re: Datum aus HTML-Formular auslesen und prüfen

Autor: moll
Datum: 16.02.2009 16:43:54

Hier mal ein  Beispiel für ein Perl Skript, das einige Variablen abfragt und prüft:

#!/usr/bin/perl -w

  use CGI qw/:standard/;
  use CGI::Carp qw(fatalsToBrowser);
  
  print header,
        start_html('Perl CGI Beispiel'),
        h1('Perl CGI Beispiel'),
        start_form,
        "<table><tr><td>Vorname </td><td>",textfield('vorname'),"</td></tr>",
        "<tr><td>Name  </td><td>",textfield('name'),"</td></tr>",
        "<tr><td>Email  </td><td>",textfield('email'),"</td></tr></table>",
        submit,
        end_form,
        hr;

   if (param()) {
       my $name     = param('name');
       my $vorname      = param('vorname');
       my $email = param('email');
  
       $email = "" unless ($email =~ /^[a-z,A-Z,0-9,-_.]+@[a-z,A-Z,0-9,-_.]+$/);
  
       print "Vorname: ",escapeHTML($vorname || "?"),br,
"Name:", escapeHTML($name || "?") ,br,
         "Email: ", escapeHTML($email || "?"),hr;
   }

   print end_html;

Re: Datum aus HTML-Formular auslesen und prüfen

Autor: smudo1967
Datum: 21.02.2009 20:04:46

Hallo,

recht vielen Dank für Deine Antwort.

Da ich ein absoluter Neuling bin verstehe ich nicht ganz genau, wie und wo ich den entsprechenden Code einfügen muss.

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:

Ich würde es wie folgt machen:


$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_oknn";
        exit;
}
else  
{
        print "Location: $msg_badmailnn";
        exit;
}

if ( check_date( $year2, $month2, $day2 )  
{  
        print "Location: $msg_oknn";
        exit;
}
else  
{
        print "Location: $msg_badmailnn";
        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_oknn";
        exit;
}
else  
{
        print "Location: $msg_badmailnn";
        exit;
}

if (Date_to_Days($year1,$month1,$day1)  <
    Date_to_Days($year2,$month2,$day2))
{  
        print "Location: $msg_oknn";
        exit;
}
else  
{
        print "Location: $msg_badmailnn";
        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