uploadscript mit Tücken: uploaden tuht, alles andere mag er nicht (Perl/CGI)

[thread]72[/thread]

uploadscript mit Tücken: uploaden tuht, alles andere mag er nicht

Free Faq

2003-10-21 00:17

User since
2003-09-10
141 Artikel
BenutzerIn
[default_avatar]

ich benutze folgendes Script zum hochladen von Dateien:

Code (perl): (dl )

use CGI(qw(:standard));
$File = param("file");
$Filename = "attachments/1.txt";
open (FILE, "> $Filename");
binmode $File;
binmode FILE;
while(read $File,$Temp,1024) {
        print FILE $Temp;
}
close FILE;

Funktioniert eigentlich wunderbar! NUR:
1. Will das Teil die Dateien nur im gleichen Verzeichniss speichern. Das obere Script tut desshalb nicht. Lässt man das Unterverzeichniss attachments weg: gehts.
2. Wie komme ich auf den original namen der Datei? Wie die also auf der Festplatte eines besuchers liegt?
Irgendwann später kann ich mit param("file") den Dateinamen auslesen. Aber gerade dann wenn ich es brauche will er nicht.
das geht glaub ich erst, wenn ich "print "content-type: text/html\ n\ n";" geschrieben habe.
3. Wie kann ich die einstellen, wie gross die dateien max werden dürfen? Ich meine bevor die ganze Datei hochgeladen wird. Ich weiss wie man das machen kann, aber eben: Die Datei wird erst komplett hochgeladen und dann erst geprüft :(
Hab irgendwann mal diesen befehl gefunden:
$CGI::POST_MAX=1024*100;
wie setz ich den genau ein?

Haut mich nicht, ich bin ein Noob!

jan

2003-10-21 00:40

User since
2003-08-04
2536 Artikel
ModeratorIn

>Will das Teil die Dateien nur im gleichen Verzeichniss speichern. Das obere Script tut desshalb nicht. Lässt man das Unterverzeichniss attachments weg: gehts.

schreibrechte in attachments?

>Wie komme ich auf den original namen der Datei? Wie die also auf der Festplatte eines besuchers liegt?

http://wiki.perl-community.de/bin/view/Wissensbasis/CGIUploadSkript

ad 3: siehe link

Free Faq

2003-10-21 00:43

User since
2003-09-10
141 Artikel
BenutzerIn
[default_avatar]

Teste das Script gerade auf meinem PC, also Windows System --> Keine schreibrechte,...
wegen dem Link: Werde es morgen mal testen, bin jetzt zu müde, da durchzublicken =)

Haut mich nicht, ich bin ein Noob!

View all threads created 2003-10-21 00:17.