Christian Kruse: (PERL/CGI) Schreiben in Dateien auf anderen Servern

Beitrag lesen

Hi,

  1. Das mit dem lesen klappt jetzt mit get($Url); Wie schaffe ich
    es aber, in eine Datei (die Dateirechte wurden auf 777 gestellt)
    auf einem anderen Server zu schreiben?

»»

Im Modul LWP ist diese Funktion nicht vorhanden und trotz suchens
kann ich keine so geartete Funktion finden!

Das geht auch so nicht. Man kann nicht auf andere Domains schreiben;
das geht nur über den Umweg eines CGI-Scripts, z. B. so:

$context = get($url);
$geschrieben = get("http://der.server.de/cgi-bin/das-script.pl?".$context);

Jetzt das Script müßte so aussehen:

#!/usr/bin/perl
my $data = $ENV{'QUERY_STRING'};

open(DAT,">>datei.endung");
print DAT $data;
close(DAT);

print "eingetragen";

mfg
CK1

P.S.: diese Datei ist _nicht_ über den Browser ausführbar. Außerdem
stellt sie eine Sicherheitslücke dar.