![](https://seccdn.libravatar.org/avatar/5f8d171744ca381375c2c1f670a55da9.jpg?s=120&d=mm&r=g)
Norman schrieb:
#####Auszug aus httpd.errors.log:
Use of uninitialized value at cgiuprgs.pl line 45. Use of uninitialized value at /usr/local/httpd/cgi-bin/chat.cgi.pl line 27, <DAT> chunk 125. Use of uninitialized value at cgiuprgs.pl line 45. Use of uninitialized value at /usr/local/httpd/cgi-bin/chat.cgi.pl line 27, <DAT> chunk 126.
Hallo Norman, das sagt Dir, dass Du eine Variable benutzt, die keinen Wert hat.
#####Ausschnitt von cgiuprgs.pl
sub SeitenKopf { local $title = $_[0];
besser my $title = shift;
print ("Content-type: text/html\n\n"); print ('<html>'); print ('<head><title>'); print $title; ^^^^^^^^^^^^^^^^^^^^^^^^^^ print ('</title></head>'); }
Ohne Dein vollstaendiges Script zu kennen vermute ich, dass die variable $title nicht belegt wird. Wenn Du nicht immer die Funktion mit Parameter aufrufst, kannst Du Dir vielleicht mit $title ="" unless $title; helfen. Dann ist $title zumindest "" und nicht undef. Du solltest Dir uebrigens unbedingt mal das CGI-Modul anschauen. perldoc CGI
####Ausschnitt von chat.cgi.pl
sub text { my $zaehler = 1; $dat[0] = $datum . '##' . $dat{'farbe'} . '##' . $dat{'name'} . '##' . $dat{'homepage'} . '##' . $dat{'text'} . "\n"; open (DAT, "
Auf jeden Fall pruefen ob's geklappt hat:
open (DAT, " while (length ($dat = <DAT>) > 10)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Existiert die Datei chat.dat ueberhaupt? Naja, mehr auf der Website...
Dazu habe ich jetzt leider keine Zeit gefunden, aber vielleicht
kommst Du auch so weiter. Viel Erfolg
Michael
--
Michael Baumeister
E-mail: m.baumeister@gmx.de
---------------------------------------------------------------------
To unsubscribe, e-mail: suse-linux-unsubscribe@suse.com
For additional commands, e-mail: suse-linux-help@suse.com