# 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;\">&nbsp;&nbsp;&nbsp;&nbsp;";
        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;