[vienna.pm] Probs mit CGI-Script
Peter Seitz
seitz at bzs.tu-graz.ac.at
Mon May 15 17:42:00 CDT 2000
* * * vienna-pm-list * * *
Hallo Freunde,
ich habe ein klein wenig Schwierigkeiten mit einem CGI-Script,
welches auf einem Apache (WinNT 4.0) mit ActivePerl laufen soll.
Fuer eine Listenfeld in einem Formular moechte ich bei der
Fehlerbehandlung die bereits gesetzten Werte setzen. Ich habe das wie
folgt realisiert:
sub novalue{
# generate error message in case any important field is not filled out
#
local( $item )= @_;
$field_checklist1{"$FORM{'checklist'}"} = "checked";
$field_checklist2{"$FORM{'month'}"} = "selected";
#print "$FORM{'month'} --\n"
print "$field_checklist2{'Februar'}\n";
print <<"EOT";
Content-type: text/html
<html><head><title>$item nicht definiert</title></head>
# [...]
<td></font><font color=green><b>Termin:</b></font></td>
<td><input name="day" size=2 maxlength=2 value="$FORM{'day'}">
<select name="month" size=1>
<option $field_checklist2{"Januar"}> Januar
<option $field_checklist2{"Februar"}> Februar
<option $field_checklist2{"März"}> März
<option $field_checklist2{"April"}> April</option>
<option> Mai</option>
<option $field_checklist2{"Juni"}> Juni</option>
<option $field_checklist2{"July"}> July</option>
<option $field_checklist2{"August"}> August</option>
<option $field_checklist2{"September"}> September</option>
<option $field_checklist2{"Oktober"}> Oktober</option>
<option> November</option>
<option $field_checklist2{'Dezember'}> Dezember</option>
</select>
<input name="year" size=4 maxlength=4 value="2000" value="$FORM{'year'}"> wann Checkliste erledigt sein soll<br></td></tr>
# [...]
</table>
<ul></ul><input type=submit value="Dokument generieren"> --- <input type=reset value="Formular l÷schen">
<br><font size=-2>Hinweis: Datum und Dokumentname werden automatisch generiert.
</FORM>
# [...]
EOT
;
# Log The Error
# if ($uselog eq '1') {
# &log('no_name');
# }
# quit the cgi-script
exit;
} ## novalue
Wenn ich nun im Mai auch ein $field_checklist2{"Mai"} einfuege, dann
braucht das Script vom Browser aus aufgerufen eine halbe Ewigkeit und
kommt nicht zu Ende. Wenn ich das script von der Befehlszeile aufrufe
scheint alles zu klappen. Ein kurzer Test unter Linux auf der
Befehlszeile hat auch nichts auffaelliges ergeben.
Irgendwo mach ich da wohl was falsch, doch nur was?
Daraufhin hab ich ein miniscript zum testen geschrieben, welches
leider auch nicht funktioniert. Er schreibt sowas wie "malformatted
header at <tr><td>"
#!c:\perl\bin\perl.exe -w
print <<"EOT";
<tr><td>5. </td>
<td></font><font color=green><b>Termin:</b></font></td>
<td><input name="day" size=2 maxlength=2
value="$FORM{'day'}">
<select name="month" size=1>
<option $field_checklist2{"Januar"}> Januar
<option $field_checklist2{"Februar"}> Februar
<option $field_checklist2{"März"}> März
<option $field_checklist2{"April"}> April</option>
<option> Mai</option>
<option $field_checklist2{"Juni"}> Juni</option>
<option $field_checklist2{"July"}> July</option>
<option $field_checklist2{"August"}> August</option>
<option $field_checklist2{"September"}> September</option>
<option $field_checklist2{"Oktober"}> Oktober</option>
<option> November</option>
<option> Dezember</option>
</select>
<input name="year" size=4 maxlength=4 value="2000"
value="$FORM{'year'}"> wann Checkliste erledigt sein
soll<br></td></tr>
EOT
;
Wer kann helfen.
Danke fuer Euere Tips.
With best compliments
Peter Seitz
--
Technische Universitaet Graz, Austria - Fak. f. Bauingenieurwesen
mailto:seitz at bzs.tu-graz.ac.at - http://wwwbzs.tu-graz.ac.at/~seitz/
Mitglied der Pegasus Mail Supportgruppe
Koordinator des Pegasus Mail Uebersetzungsprozesses
Die (In)Offizielle deutschsprachige Support Seite fuer Pegasus Mail:
Original: http://wwwbzs.tu-graz.ac.at/software/pegasus/
Mirror: http://ftp.uni-mannheim.de/mirror/pmail/
###
You are subscribed to vienna-pm-list as "Peter Seitz" <seitz at bzs.tu-graz.ac.at>
http://www.fff.at/fff/vienna.pm/
More information about the Vienna-pm
mailing list