[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'}">&nbsp;
    <select name="month" size=1>
    <option $field_checklist2{"Januar"}> Januar
    <option $field_checklist2{"Februar"}> Februar
    <option $field_checklist2{"M&auml;rz"}> M&auml;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>&nbsp;
    <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.&nbsp;&nbsp;</td>
    <td></font><font color=green><b>Termin:</b></font></td>
    <td><input name="day" size=2 maxlength=2 
value="$FORM{'day'}">&nbsp;
    <select name="month" size=1>
    <option $field_checklist2{"Januar"}> Januar
    <option $field_checklist2{"Februar"}> Februar
    <option $field_checklist2{"M&auml;rz"}> M&auml;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>&nbsp;
    <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