Werte in Datei schreiben (CGI-Formular) (gelöst) - #172683 (Perl/CGI)

fred0815

2013-12-23 10:21

User since
2013-12-23
35 Artikel
BenutzerIn

user image

Hallo allerseits, ich möchte aus einem Formular einen Wert in eine Datei anhängen, komme aber nicht weiter. Ich hatte das Problem auch schon auf einer anderen Webseite geschildert, leider konnten die aber kein Perl, bzw. nicht genug um das Problem zu lösen.
Konkret geht es darum, eine IP-Adresse von einem Formular an ein Perlscript zu übergeben, welches die IP mit einem vorgestellten "allow from" in eine .htaccess einträgt. Ich poste mal den Code den ich schon habe und die Fehlermeldung die ich dann bekomme:
Das Formular:

Code (html): (dl )

<p>Kopiere die angezeigte IP-Adresse,
füge sie in das Feld unten ein und drücke den Knopf "Senden"
<br>
<?php echo $_SERVER['REMOTE_ADDR']; ?>
</p>
<form action="ip.pl" method="post" enctype="multipart/form-data" >
<table align="left">
</td>
<td>IP:</td>
<td><textarea name=IP size=15></textarea></td>
<td colspan=2 align=center>
<input type=submit value="Senden"></td>
</table>
</form>

Das Script:

Code (perl): (dl )

#!/pfad/zu/perl
@IP=(IP);
open(HTACCESS,">>.htaccess");
foreach $IP (@IP) {
  print HTACCESS "$IP\n";
}
close(HTACCESS);

Was rauskommen soll:

Code: (dl )

order deny, allow
#google#
allow from 66.249.64.1
#yandex#
allow from 141.8.147.1
#bing#
allow from 157.55.34.181
#msn#
allow from 199.30.20.58
#user#
allow from 12.34.56.78
deny from all

Und die Fehlermeldung:
Error 500 Premature end of script headers: ip.pl

Ich hoffe ihr könnt mir auf die Sprünge helfen.
MfG

modedit Editiert von GwenDragon: Titel erweitert, Code formatiert
Last edited: 2013-12-23 11:21:25 +0100 (CET)