nicht angemeldet
Hallo,
Monat: <select name="monatende" size="1">
<option value="januar"> Januar
<option value="februar"> Februar
<option value="maerz"> März
<option value="april"> April
<option value="mai"> Mai
<option value="juni"> Juni
<option value="juli"> Juli
<option value="august"> August
<option value="september"> September
<option value="oktober"> Oktober
<option value="november"> November
<option value="dezember"> Dezember
</select>
Jahr: <select name="jahrende" size="1">
<option value="nullzwei"> 2002
<option value="nulldrei"> 2003
<option value="nullvier"> 2004
<option value="nullfuenf"> 2005
</select>
<table border=0 bgcolor="#E7F7FF" width=74% height=50>
<tr><td><p align=right><input type="button" value="Speichern" onClick="self.location.href='/cgi-bin/zeit/angaben.cgi?mode=abwesenheit'"></p>
</td></tr><tr><td></table>
----------------------
angaben.cgi:
----------------------
#!/usr/bin/perl -w
use CGI; #Das CGI Modul erledigt alle Aufgaben, wie dekodieren usw..
use strict;
my $query = new CGI; #Neues CGI Objekt anlegen
my $monat = $query->param('monatende'); #Hier wird der Wert von Monatsende der Variable $monat zugewiesen.
my $jahr = $query->param('jahr'); # mit Jahr genauso
print $query->header; # Header ausgeben
print "$monat\n";
print "$jahr\n"; # über STDOUT ausgeben