A
andi
Grünschnabel
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, "< /kunden/homepages/30/d11176583/htdocs/werftler/gaestebuch/gaestebuch.html"
;
@eingabe = <db>;
close (db);
read (STDIN, $formdaten, $ENV{´CONTENT_LENGTH´});
@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]);
$_ = "@eingabe";
s {<!--daten>}#<!--daten>
<table border="1">
<TBODY>
<tr><td>Text:</td><td width="590">$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, "> /kunden/homepages/30/d11176583/htdocs/werftler/gaestebuch/gaestebuch_neu.html"
;
print db1 ("$_"
;
close (dbx);
#rename "/kunden/homepages/30/d11176583/htdocs/werftler/gaestebuch/gaestebuch_neu.html", "/kunden/homepages/30/d11176583/htdocs/werftler/gaestebuch/gaestebuch.html";
print STDOUT ("<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>"
;
danke im voraus
andi
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, "< /kunden/homepages/30/d11176583/htdocs/werftler/gaestebuch/gaestebuch.html"

@eingabe = <db>;
close (db);
read (STDIN, $formdaten, $ENV{´CONTENT_LENGTH´});
@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]);
$_ = "@eingabe";
s {<!--daten>}#<!--daten>
<table border="1">
<TBODY>
<tr><td>Text:</td><td width="590">$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, "> /kunden/homepages/30/d11176583/htdocs/werftler/gaestebuch/gaestebuch_neu.html"

print db1 ("$_"

close (dbx);
#rename "/kunden/homepages/30/d11176583/htdocs/werftler/gaestebuch/gaestebuch_neu.html", "/kunden/homepages/30/d11176583/htdocs/werftler/gaestebuch/gaestebuch.html";
print STDOUT ("<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>"

danke im voraus
andi