nicht angemeldet
Hi Leute,
ich versuche mich im Augenblick im Perl einzuarbeiten.
Dazu habe ich mir nen Interpreter + einen Xitamiserver installiert.
Folgende Situation:
- ein einfaches Script -wie das Beispiel aus SelfHTML - funzt.
- ein vorgefertigtes Guestbookscript funzt nicht!
=> es wird nicht in die datei guestbook.htm geschrieben!
=> es kommt keine Fehlermeldung
=> im Browserfenster steht dann nur guestbook.pl - kein text!
*schnief*
Also habe ich ein eigenes script entworfen. own.pl => eine ziemlich abgespeckte einfacher Version eines guestbooks.
=> das gleiche Problem.
Ich würde mich über eine Antwort freuen. thx - shcon im voraus!
David Langkamp
P.S Vielleicht kennt einer von euch sich gut in Perl aus. Vielleicht liegt ja der Fehler auf der Hand - nur ich finde ihn nich. Deshalb hier der Quelltext...
___________________________________________________________________
#! c:\perl\bin\perl
#Variablen bekommen
$guestbook = "http://amd350/own.htm";
$cgihome = "http://amd350/cgi-bin/own.pl";
read(STDIN,$buffer,$ENV{'CONTENT_LENGHTH'});
@pairs = split(/&/,$buffer);
foreach $pair (@pairs) {
($name,$value) = split(/=/,$pair);
$value=~tr/+//;
$value=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
$value=~s/<!--(.\n)*-->//g;
&no_comments unless $FORM{'beitrag'};
&no_comments unless $FORM{'benutzer'};
open(FILE,"$guestbook") die "Kann nicht oeffnen $guestbook: $!\n";
@LINES=<file>;
close(FILE);
$SIZE=@LINES;
open(GUEST,"$guestbook") die "Kann nicht oeffnen $guestbook: $!\n";
print GUEST "<!--anfang-->\n";
print GUEST "<h1>$FORM{'benutzer'}</h1><br>\n";
print GUEST "<p>$FORM{'beitrag'}</p><br><hr><br>\n";
close(GUEST);
print "Content-Type:text/html\n\n";
print "<html><head><title>Danke!</title></head>\n";
print "<body><h1>Dank DIR!</h1><br><br>\n";
print "lala<br>\n";
print "</body></html>\n";
exit;
}
____________________________________________________________________
*g*