Fileupload-script

[Frank Schönmann]

hi!

#!C:/Programme/Perl/bin/perl.exe

Das hat unter Windows überhaupt keine Auswirkung. Man kann also einfach #!/usr/bin/perl stehenlassen, damit es unter Windows und unter Unix funktioniert.

open DATEI, ">$uploaddir$Datei[1]";
binmode DATEI;
length $Datei[4] < $maxsize || { print "Location: fehler.html\n\n"; die; }
print DATEI $Datei[4];
close DATEI;

Obiges müsste eigentlich funktionieren. Ansonsten vielleicht so:

if (length $Datei[4] < $maxsize)
{
  open DATEI, ">$uploaddir$Datei[1]";
  binmode DATEI;
  print DATEI $Datei[4];
  close DATEI;
  print "Location: $url\n\n";
} else {
  print "Location: fehler.html\n\n";
}

bye, Frank!