Thread Upload (runterladen auf den Server) von PDF files
(2 answers)
Opened by empireking at 2009-12-05 17:13
Hallo ihr lieben,
bin begeistert das es auch ein PERL Forum gibt. Habe mich frisch angemeldet und entschuldigt bitte meine stimperhaften Fragen. So nun zu dem Problem. Habe ein upload PERL Script von DOC auf PDF umgeschrieben, allerdings werden dann die PDF files nicht richtig gespeichert. Einige funktionieren andere wiederum nicht. Ich denke es liegt daran wie es abgespeichert wird. Folgende Befehle habe ich verwendet: 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 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 # Zum Hochladen des PDF´s print "<form name=\"UPLOAD\" OnSubmit=\"if (document.UPLOAD.Datei.value==\'\') { alert (\'Please choose a PDF file\'); document.UPLOAD.Datei.focus(); picflag=0; return false; } else return true;\" action=\"zertifikat-cms.pl?$SessionID?newspicupload?$dateiname\" method=post enctype=\"multipart/form-data\">"; print "<p CLASS=\"text\"><big><b>PDF Upload</b></big><br>(Funktioniert nur mit PDF-Format und Dateigrößen bis max. 3.200.000 bytes!)<br>"; print "<b>Sichern Sie unbedingt Ihre Änderungen <u>bevor</u> Sie ein PDF hochladen!</b><br></b>"; print "<input type=file size=20 maxlength=3200000 name=\"Datei\" accept=\"application/pdf\" CLASS=\"text\" style=\"background-color:\#EEEEEE; border-color:\#BBBBBB;\"> "; print "<input OnClick=\"picflag=1;\" type=submit value=\"Upload PDF\" CLASS=\"button\" style=\"background-color:\#EEEEEE; border-color:\#BBBBBB;\">"; print "<br><br><b>Wichtig: Sichern Sie Ihren Datensatz nach dem Hochladen eines PDFs!</b></p>"; print "</form>"; #Bearbeitet ein hochgeladenes PDF sub NewsPicUpload { my $dateiname=$Value1; my $wordmarke=chr(0x90).chr(0x00).chr(0x03).chr(0x00).chr(0x00).chr(0x00).chr(0x04).chr(0x00); if (&CheckSessionID($SessionID)==0) { &nozugriff; exit (0); } &write_start; my $file = $cgi->param("Datei"); my $filename = $file; binmode $file; my $Daten; read $file,$Daten,3205000; # hier schreibt er im MZ PDF $Daten=substr ($Daten, 0, rindex ($Daten,"MZ")); if (length($Daten)<1000) { $Daten=""; } if ($Daten ne "" && length($Daten)<=3204800) { open (DATEI, ">news/docdata/$dateiname.pdf"); binmode DATEI; print DATEI $Daten; close (DATEI); } unlink "news/$dateiname.open"; &write_end; Es wäre toll wenn ihr mir dan helfen könnt! Ich bin schon total genervt. Vielen Dank im voraus Frank Last edited: 2009-12-05 17:18:37 +0100 (CET) |