Opened by Keanuf at 2005-06-03 03:02
User since
2005-06-02
9 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2005-06-02
9 Artikel
BenutzerIn
Guten Abend Perl Community,
Folgendes Problem oder Anfrage.
ich habe ein HTML Formular über das ich Bilder hochlade.
Da die Bilder doch sehr gross sind, habe ich den Upload mit Hilfe der
$CGI::POST_MAX variabel auf 5MB beschränkt.
Nun möcht ich aber schon beim drücken auf den sende knopf
reagieren und nicht erst,
wenn die Datei schon raufgeladen wurde bis zur Maximalen Datei Grösse.
Wie komm ich nun an die Informationen heran ?.
Folgenden Link habe ich hier gefunden:
upload CGI
hier gibt es eine funktion upload_hook.
Diese soll man mit einer sub aufrufen und einen $data Wert angeben.
Nur leider habe ich keine Ahnung, was für einen Wert ich da eingeben soll.
Ich hoffe ihr könnt mir hier helfen.
Zusammenfassung:
Also ich brauch eine Lösung die Datei grösse zu ermitteln, noch bevor die komplette Datei hochgeladen wird.
Auch andere Lösungswege sind mir recht ;)
Code kann ich nicht viel anbieten.
Das ganze ist noch nicht produktiv,
da ich ja hier und da noch Sicherheiten einbauen
muss und will.
Es ist reines test Skript.
Für jede Hilfe bin ich euch dankbar.
Danke im vorraus.
Wenn ihr mehr infos braucht, dann fragt einfach nach.
Folgendes Problem oder Anfrage.
ich habe ein HTML Formular über das ich Bilder hochlade.
Da die Bilder doch sehr gross sind, habe ich den Upload mit Hilfe der
$CGI::POST_MAX variabel auf 5MB beschränkt.
Nun möcht ich aber schon beim drücken auf den sende knopf
reagieren und nicht erst,
wenn die Datei schon raufgeladen wurde bis zur Maximalen Datei Grösse.
Wie komm ich nun an die Informationen heran ?.
Folgenden Link habe ich hier gefunden:
upload CGI
hier gibt es eine funktion upload_hook.
Diese soll man mit einer sub aufrufen und einen $data Wert angeben.
Nur leider habe ich keine Ahnung, was für einen Wert ich da eingeben soll.
Ich hoffe ihr könnt mir hier helfen.
Zusammenfassung:
Also ich brauch eine Lösung die Datei grösse zu ermitteln, noch bevor die komplette Datei hochgeladen wird.
Auch andere Lösungswege sind mir recht ;)
Code kann ich nicht viel anbieten.
Code: (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
my $ori_datei = "";
my $datei_typ = "";
my $typ = "";
my $kop_datei = "";
my @dateiinfo =();
my $web = new CGI;
print $web->header;
print $web->start_html(-title => 'Datei hochladen');
print $web->h1('Datei hochladen');
my $ori_dateiname = $web->param("userfile");
my $kop_dateiname = "/pfad/zur/Bild/".$ori_dateiname;
$datei_typ = $web->uploadInfo($ori_dateiname);
print %{$datei_typ};
foreach $typ (%{$datei_typ}) {
print "<br>$typ";
}
$ori_datei = $web->upload("userfile");
@dateiinfo = stat($ori_datei);
open (KOPDATEI,">$kop_dateiname");
binmode (KOPDATEI);
binmode ($ori_datei);
while (<$ori_datei> {
print (KOPDATEI $buffer);
#print "<br> Grössenangabe : ".$dateiinfo[7];
}
close (KOPDATEI);
print "<br> Datei wurde raufgeladen";
Das ganze ist noch nicht produktiv,
da ich ja hier und da noch Sicherheiten einbauen
muss und will.
Es ist reines test Skript.
Für jede Hilfe bin ich euch dankbar.
Danke im vorraus.
Wenn ihr mehr infos braucht, dann fragt einfach nach.