PDA

Archiv verlassen und diese Seite im Standarddesign anzeigen : gaestebuch in perl :-(



andi
04.05.2002, 09:53
tach @all,

hab vor kurzen ein gaestebuch in perl geschrieben. eigentlich nichts besonderes sollte man denken ......
mein Problem:
der server meldet mir interner Fehler 500 ?!
trotzdem führt er das script aus !
habe das script lokal ausprobiert , ohne Probleme.....

vielleicht hat jemand von euch ne idee.
das script sieht folgender maßen aus:

#!/usr/bin/perl
open (db, &quot;< /kunden/homepages/30/d11176583/htdocs/werftler/gaestebuch/gaestebuch.html&quot;);
@eingabe = <db>;
close (db);
read (STDIN, $formdaten, $ENV{&acute;CONTENT_LENGTH&acute;});
@formfelder = split (/&/, $formdaten);
($x[1],$author) = split (/=/, $formfelder[0]);
($x[2],$email) = split (/=/, $formfelder[1]);
($x[3],$homepage) = split (/=/, $formfelder[2]);
($x[4],$text) = split (/=/, $formfelder[3]);
$_ = &quot;@eingabe&quot;;
s {<!--daten>}#<!--daten>
<table border=&quot;1&quot;>
<TBODY>
<tr><td>Text:</td><td width=&quot;590&quot;>$text</td></tr><tr><td>Author:</td><td>$author</td></tr><tr><td>Email:</td><td>$email</td></tr><tr><td>Homepage:</td><td>$homepage</td></tr></tbody></table><br><br><hr><hr><br><br>#;
open (db1, &quot;> /kunden/homepages/30/d11176583/htdocs/werftler/gaestebuch/gaestebuch_neu.html&quot;);
print db1 (&quot;$_&quot;);
close (dbx);
#rename &quot;/kunden/homepages/30/d11176583/htdocs/werftler/gaestebuch/gaestebuch_neu.html&quot;, &quot;/kunden/homepages/30/d11176583/htdocs/werftler/gaestebuch/gaestebuch.html&quot;;
print STDOUT (&quot;<HTML><HEAD></HEAD><BODY><H1 align=center>Danke für Ihren Eintrag</h1><a href=www.andis-homepage.de/werftler/gaestebuch/gaestebuch.html>zurück</a></body></html>&quot;);

danke im voraus
andi

Andre
05.05.2002, 18:47
leider nicht weiter helfen :(
hab nicht mal den blassesten Schimmer von perl :(

aber wird sich bestimmt jemand finden der sich da nen bissel auskennt
:]

andi
05.05.2002, 19:04
Macht nix .....

trotzdem danke

Speedio
06.05.2002, 11:41
der server meldet mir interner Fehler 500 ?!
trotzdem führt er das script aus !



das versteh ich et so ganz
führt er es nun aus oder komt ein fehler? :frage:

andi
06.05.2002, 18:41
er führt es aus ( datei geschrieben und geändert ) anschließend kommt der fehler ......

es wäre eigentlich alles gut wenn da nicht das dämliche fehlerbild anstatt der abschlußmeldung käme :-(

andi

08.05.2002, 19:07
uh..

du musst dem webserver schon sagen, wass du senden willst

print(&quot;Content-type: text/html

&quot;);

behebt das problem :) (beachte die 2 newlines!)

bye

andi
10.05.2002, 10:25
dat wars leider auch nicht .... :-(

sch.... provider !

scheint am server zu liegen .....

X(

11.05.2002, 08:30
doch, das ist es.. du kannst imho einfach nicht CGI coden..

der content-type muss vor jedem anderen zeichen gesendet werden..

..das problem liegt also zwischen stuhl und keyboard..

11.05.2002, 08:32
#!/usr/bin/perl
print(&quot;Content-type: text/html

&quot;);
open (db, &quot;< /kunden/homepages/30/d11176583/htdocs/werftler/gaestebuch/gaestebuch.html&quot;);
@eingabe = <db>;
close (db);
read (STDIN, $formdaten, $ENV{&acute;CONTENT_LENGTH&acute;});
@formfelder = split (/&/, $formdaten);
($x[1],$author) = split (/=/, $formfelder[0]);
($x[2],$email) = split (/=/, $formfelder[1]);
($x[3],$homepage) = split (/=/, $formfelder[2]);
($x[4],$text) = split (/=/, $formfelder[3]);
$_ = &quot;@eingabe&quot;;
s {<!--daten>}#<!--daten>
<table border=&quot;1&quot;>
<TBODY>
<tr><td>Text:</td><td width=&quot;590&quot;>$text</td></tr><tr><td>Author:</td><td>$author</td></tr><tr><td>Email:</td><td>$email</td></tr><tr><td>Homepage:</td><td>$homepage</td></tr></tbody></table><br><br><hr><hr><br><br>#;
open (db1, &quot;> /kunden/homepages/30/d11176583/htdocs/werftler/gaestebuch/gaestebuch_neu.html&quot;);
print db1 (&quot;$_&quot;);
close (dbx);
#rename &quot;/kunden/homepages/30/d11176583/htdocs/werftler/gaestebuch/gaestebuch_neu.html&quot;, &quot;/kunden/homepages/30/d11176583/htdocs/werftler/gaestebuch/gaestebuch.html&quot;;
print STDOUT (&quot;<HTML><HEAD></HEAD><BODY><H1 align=center>Danke für Ihren Eintrag</h1><a href=www.andis-homepage.de/werftler/gaestebuch/gaestebuch.html>zurück</a></body></html>&quot;);


..SO tut das! ausser dein script hat noch andere fehler..

andi
23.05.2002, 17:00
... stimmt ich kanns nicht, aber ich versuchs, deshalb habe ich auch hier her geschrieben X(

danke für den hinweis, werds sobald ich einen neuen cgi-host habe ( alter hat gekündigt ) probieren.


andi

Andre
23.05.2002, 17:27
findest du hier ne liste freier provider...
http://www.webhostlist.de/free/
und hier auch noch pay-provider...
http://www.webhostlist.de/

netten Gruss Andre :)

andi
25.05.2002, 05:47
danke werds mal ausprobieren ......

netten gruß zurück

andi