Hallo ich habe mir aus der
Forums-Auslese von Selfhtml dem File-Upload Beitrag
ein Form und ein Perl-Script kopiert.
Hier die URL:
http://www.uni-bayreuth.de/departments/physik/servic…
Leider kann ich das Upgeloadete - File nie finden.
Vielleicht wurde das File ja auch nie upgeloadet ?
Den Inhalt des Files kann ich im CGI schon erfolgreich ausgeben.
Aber wo das file ist ??? Keine Ahnung.
Hier die Scripts :
#!/usr/bin/perl -w
binmode STDIN;
read STDIN, $Daten, $ENV{'CONTENT\_LENGTH'};
@Teile = split /-----------------------------.{9}/, $Daten;
@Datei = split /\n/, $Teile[1], 5;
while ($Datei[1] =~ /\\/) { $Datei[1] =~ s/^.\*\\//; }
$Datei[1] =~ s/"//;
chop $Datei[1];
chop $Datei[4]; chop $Datei[4];
$pfad1 = "/usr/home/single/www/..........de/";
$pfad2 = "/tmp/";
$pfad3 = "$Datei[1]";
$speicherein = "$pfad1$pfad2$pfad3";
open DATEI, "\>$speicherein";
binmode DATEI;
print DATEI $Datei[4];
close DATEI;
print "Content-type: text/html\n\nUpload vollständig!";
print "[$pfad2$pfad3](%2524pfad2%2524pfad3)
";
Das HTML-Form