# 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;