Torwächter: Datei(Bild)upload

SELF-Forum

Datei(Bild)upload

Torwächter
– Informationen zu den Bewertungsregeln

Hallo zusammen,
ich möchte einen sch... einfachen Upload installieren und hab diesen Futureartikel gefunden. Leider hab ich keinen Schimmer, wohin es mir die Datei hochlädt. Wo muss ich $root einsetzen um die Datei da hinladen zu lassen ???

Viele Grüße
Torwächter

#!/usr/bin/perl -w

$root = "C:/Website/htdocs/";
#$root
use strict;
use CGI; # Modul fuer CGI-Programme

my $cgi = new CGI; # neues Objekt erstellen

Content-type fuer die Ausgabe

print $cgi->header(-type => 'text/html');

die datei-daten holen

my $file = $cgi->param("myfile");

dateinamen erstellen und die datei auf dem server speichern

my $fname = 'file_'.$$.'_'.$ENV{REMOTE_ADDRESS};
open DAT,'>'.$fname or die 'Error processing file: ',$!;

Dateien in den Binaer-Modus schalten

binmode $file;
binmode DAT;

my $data;
while(read $file,$data,1024) {
  print DAT $data;
}
close DAT;

print <<HTML;
<html>
<head>
<title>Fileupload</title>
</head>
<body bgcolor="#FFFFFF">
<h1>Die Datei $file wurde erfolgreich hochgeladen.</h1>

<p>
Die Datei $file wurde erfolgreich auf dem Server
   gespeichert.
  </p>
</body>
</html>
HTML

Beitrag melden
–
Informationen zu den Bewertungsregeln

  1. Datei(Bild)upload

    xwolf
    – Informationen zu den Bewertungsregeln

    Steht doch hier:

    my $fname = 'file_'.$$.'_'.$ENV{REMOTE_ADDRESS};
    open DAT,'>'.$fname or die 'Error processing file: ',$!;

    $$ ist die Prozessnummer des CGI-Skripts.

    Also im CGI-Verzeichnis würde z.B. die Datei
    "file_122_125.0.0.1"
    angelegt werden, wenn jemand von der Adresse 125.0.0.1
    das Bild reinlaed und das Skript die Prozessnumer 122 erhielt.

    Allerdings wird das ganze nicht funktionieren, wenn das Skript nicht in
    das CGI-Verzeichnis schreiben darf....

    Ciao,
     Wolfgang

    Beitrag melden
    –
    Informationen zu den Bewertungsregeln