Thread Dateien kaputt nach Upload via Script
(8 answers)
Opened by cbxk1xg at 2004-06-04 18:32
Hallo Freunde der Sonne,
ich habe ein Script (größtenteils aus dem WIKI kopiert) welches Dateien hochladen soll. Das funktioniert auch prima, nur sind die Dateien danach kaputt. Die Dateigröße ändert sich geringfügig und die Datei (z.B. ein GIF) ist danach nicht mehr lesbar. Das HTML Formular habe ich bereits überprüft und die Suchefunktion und das WIKI habe ich auch schon bemüht. Das Bild ist auch mit Sicherheit nicht zu groß und $MAX_SIZE_UPLOAD is auch definiert. Client: Windows, IE Server: Linux, Apache Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 use CGI qw/:standard/; my $UploadDir = $TEMP_DIR; $CGI::POST_MAX=1024 * $MAX_SIZE_UPLOAD; my ($filename) = param('attachment') || "undefined"; print header, start_html; print ("Filename: $filename<BR><HR> "); my $serverFile = $UploadDir . "/" . (split(/[\\\/]/, param('attachment')))[-1]; if (-e $serverFile) {print ("File is already existing ");} else { print ("Writing to file $serverFile<BR> "); my $buffer; open (FILE,">$serverFile"); binmode(FILE); # Windows OS hack binmode $filename; # Windows OS hack while (my $bytesread=read($filename,$buffer,1024)) {print FILE $buffer;} close (FILE); } chmod (0744, "$serverFile"); print end_html; Achja, da viel mir gerade noch was ein. Gibt's für so eine Standardaufgabe auch ein Modul?\n\n <!--EDIT|cbxk1xg|1086359589--> |