gfdg nhffd

"; //exit; //} else { $furl=((isset($_SERVER['HTTPS']) ? "https" : "http") . "://" . $_SERVER[HTTP_HOST] . $_SERVER[REQUEST_URI]); $dpath=str_replace("$#$","//", explode("/",str_replace("//","$#$",$furl))[0] ) . "/"; $frest=explode(((isset($_SERVER['HTTPS']) ? "https" : "http") . "://" . $_SERVER[HTTP_HOST] . "/"), ((isset($_SERVER['HTTPS']) ? "https" : "http") . "://" . $_SERVER[HTTP_HOST] . $_SERVER[REQUEST_URI]) )[1]; $sincebefore=""; $prefix=""; $notprefix=""; for ($i=0; $i<(-1 + sizeof(explode("/",$frest))); $i++) { $notprefix=explode($frest,$furl)[0]; $prefix.="../"; } if ($prefix == "") $notprefix=""; $first=true; $outputto=""; $outputsofar=""; $outputpdf=null; $top=1; $title=""; $wastitle=""; $istitle=""; $cpn=1; $emailto=""; $pdfis=""; $outputpdf_hgt=100.0; $lh=6; $loffset=0; if (isset($_GET['emailto'])) { $emailto=urldecode($_GET['emailto']); } else if (isset($_POST['emailto'])) { $emailto=urldecode($_POST['emailto']); } // .replace(/\+\=/g,'#@!#').replace(/\+\+/g,'#@!#').replace(/ \+ /g,'#@#') if (strpos($emailto, "@") !== false) { if (isset($_GET['htmltp'])) { if (substr((urldecode($_GET['htmltp']) . " "), 0,1) == '<') { //file_put_contents("qaz.zaq"," pre inpdfinstructions"); $pdfis=str_replace('#@#',' + ',str_replace('#@!#','++',str_replace('#@~#','+=',urldecode($_GET['htmltp'])))); } else { //file_put_contents("qaz.zaq"," aft inpdfinstructions"); $pdfis=retofcmds(urldecode($_GET['htmltp'])); } } else if (isset($_POST['htmltp'])) { if (substr((urldecode($_POST['htmltp']) . " "), 0,1) == '<') { //file_put_contents("qaz.zaq"," Pre inpdfinstructions"); $pdfis=str_replace('#@#',' + ',str_replace('#@!#','++',str_replace('#@~#','+=',urldecode($_POST['htmltp'])))); } else { //file_put_contents("qaz.zaq"," Aft inpdfinstructions"); $pdfis=retofcmds(urldecode($_POST['htmltp'])); } } } else if ($emailto == " ") { if (isset($_GET['htmltp'])) { $pdfis=retofcmds(urldecode($_GET['htmltp'])); } else if (isset($_POST['htmltp'])) { $pdfis=retofcmds(urldecode($_POST['htmltp'])); } $emailto=""; } else if ($emailto == "") { if (isset($_GET['htmltp'])) { $pdfis=retofcmds(urldecode($_GET['htmltp'])); } else if (isset($_POST['htmltp'])) { $pdfis=retofcmds(urldecode($_POST['htmltp'])); } } $jscr=" var emailclicked=false; var emailtois='" . $emailto . "'; var today=new Date(); var yyyy = today.getFullYear(); function ol() { var dprefix='0', mprefix='0', i, months=['','January','February','March','April','May','June','July','August','September','October','November','December']; for (i=1; i<=12; i++) { document.getElementById('smonthb').innerHTML+=''; document.getElementById('smonths').innerHTML+=''; if (i == 9) mprefix=''; } for (i=1; i<=31; i++) { document.getElementById('sdayb').innerHTML+=''; document.getElementById('sdays').innerHTML+=''; if (i == 9) dprefix=''; } for (i=eval('' + yyyy) + 1; i>(eval('' + yyyy) - 100); i--) { document.getElementById('syearb').innerHTML+=''; document.getElementById('syears').innerHTML+=''; } } function dc(sois) { if (sois.value != '') { var paro=null, lastc=sois.id.slice(-1); if (sois.id.indexOf('year') != -1) { paro=document.getElementById(sois.id.replace('s','dm').replace('year','date')); if (paro.value == '') { if (document.getElementById(sois.id.replace('year' + lastc,'month' + lastc)).value == '') { document.getElementById(sois.id.replace('year' + lastc,'month' + lastc)).value='01'; } if (document.getElementById(sois.id.replace('year' + lastc,'day' + lastc)).value == '') { document.getElementById(sois.id.replace('year' + lastc,'day' + lastc)).value='01'; } } paro.value=sois.value + '-' + document.getElementById(sois.id.replace('year' + lastc,'month' + lastc)).value + '-' + document.getElementById(sois.id.replace('year' + lastc,'day' + lastc)).value; } else if (sois.id.indexOf('month') != -1) { paro=document.getElementById(sois.id.replace('s','dm').replace('month','date')); if (paro.value == '') { if (document.getElementById(sois.id.replace('month' + lastc,'day' + lastc)).value == '') { document.getElementById(sois.id.replace('month' + lastc,'day' + lastc)).value='01'; } if (document.getElementById(sois.id.replace('month' + lastc,'year' + lastc)).value == '') { document.getElementById(sois.id.replace('month' + lastc,'year' + lastc)).value='' + yyyy; } } paro.value=document.getElementById(sois.id.replace('month' + lastc,'year' + lastc)).value + '-' + sois.value + '-' + document.getElementById(sois.id.replace('month' + lastc,'day' + lastc)).value; } else if (sois.id.indexOf('day') != -1) { paro=document.getElementById(sois.id.replace('s','dm').replace('day','date')); if (paro.value == '') { if (document.getElementById(sois.id.replace('day' + lastc,'month' + lastc)).value == '') { document.getElementById(sois.id.replace('day' + lastc,'month' + lastc)).value='01'; } if (document.getElementById(sois.id.replace('day' + lastc,'year' + lastc)).value == '') { document.getElementById(sois.id.replace('day' + lastc,'year' + lastc)).value='' + yyyy; } } paro.value=document.getElementById(sois.id.replace('day' + lastc,'year' + lastc)).value + '-' + document.getElementById(sois.id.replace('day' + lastc,'month' + lastc)).value + '-' + sois.value; } } } function checkthings() { if (document.getElementById('dpath').value.toLowerCase().indexOf('rjmprogramming.com.au') != -1 && (document.getElementById('dfilespec').value + '~').indexOf('GETME~') == -1) { alert('Sorry, no can do.'); return false; } if (emailclicked) { if (emailtois == '' || document.getElementById('emailto').value.indexOf('@') != -1) { emailtois=document.getElementById('emailto').value; } var pem=prompt('Please enter email address to email report to (and consider adding a comma separated mention of your own email address for Reply To All purposes)', emailtois); if (pem == null) return false; if (pem.indexOf('@') != -1) { document.getElementById('emailto').value=pem; } else { return false; } } return true; } window.onload=ol; "; function retofcmds($inpdfinstructions) { global $outputto, $outputsofar, $outputpdf_hgt, $outputpdf, $top, $cpn, $emailto, $title, $istitle, $wastitle, $pdfis, $lh; //file_put_contents("qaz.zaq", $inpdfinstructions); if (substr(($inpdfinstructions . " "),0,5) == "New``" && strpos($emailto, "@") === false) { $outputto="pdfdownload"; $title="Textarea Pointing Webpage as PDF Download"; $istitle=$title; $wastitle="tareap"; //file_put_contents("qaz.zaq", $outputto . " ... " . $inpdfinstructions); } else if (substr(($inpdfinstructions . " "),0,5) == "New``" && strpos($emailto, "@") !== false) { $title="Textarea Pointing Webpage as PDF Attachment in Email"; $istitle=$title; $wastitle="tareap"; $outputto="pdfdownloademail"; //file_put_contents("qaz.zaq", $outputto . " ... " . $inpdfinstructions); } else if (substr(($inpdfinstructions . " "),0,5) == "new``") { $title="Textarea Pointing Webpage as PDF Viewed in Default PDF Reader"; $istitle=$title; $wastitle="tareap"; $outputto="pdf"; //file_put_contents("qaz.zaq", $outputto . " ... " . $inpdfinstructions); } if ($outputto != "") { //file_put_contents("qaz.zaq", $outputto . " .=. " . $inpdfinstructions); $lh=6; //20; $outputpdf = new FPDF(); $outputpdf->SetTopMargin(0.0); $outputpdf->AddPage('L'); $outputpdf->SetY(-1); $outputpdf_hgt=$outputpdf->GetY(); $outputpdf_hgt++; $outputpdf->SetY(0); //$outputpdf_hgt=300; //$outputpdf->h; $outputpdf->AliasNbPages(); $outputpdf->SetAutoPageBreak(true, 1.0); $outputpdf->SetTitle($title); $cmdlist=explode("``", $inpdfinstructions); for ($ilist=1; $ilistSetFont(str_replace('Verdana','Arial',('' . explode("~`", $cmdlist[$ilist])[0])), ('' . explode("~`", $cmdlist[$ilist])[1]), intval(str_replace("px","",explode("~`", $cmdlist[$ilist])[2]))); //file_put_contents("qaz.zaq", $outputto . "x -.- " . explode("~`", $cmdlist[$ilist])[0]); } else if (strpos($cmdlist[$ilist], "`~") !== false) { $linerecs=explode("\n",explode("`~", $cmdlist[$ilist])[2]); $ourx=explode("`~", $cmdlist[$ilist])[0]; $oury=explode("`~", $cmdlist[$ilist])[1]; $oury+=$lh; for ($j=0; $jSetXY(floatval($ourx),floatval($oury)); //$outputpdf->SetY(floatval($oury)); $outputpdf->Text(floatval($ourx),nqt(floatval($oury)),$linerecs[$j]); } //if (trim($linerecs[$j]) != "") file_put_contents("qaz.zaq", $outputto . " *." . $j . "* " . floatval($ourx) . ',' . $oury . ',' . $linerecs[$j]); //if ($j < (-1 + sizeof($linerecs))) $outputpdf->Ln(1); $oury+=$lh; } } else if (strpos($cmdlist[$ilist], "~~") !== false) { //file_put_contents("qaz.zaq", $outputto . " .^. " . explode("~~", $cmdlist[$ilist])[0]); $outputpdf->SetTextColor(intval(explode("~~", $cmdlist[$ilist])[0]), intval(explode("~~", $cmdlist[$ilist])[1]), intval(explode("~~", $cmdlist[$ilist])[2])); //file_put_contents("qaz.zaq", $outputto . " ^.^ " . explode("~~", $cmdlist[$ilist])[0]); } } } if ($outputto == "pdf") { $outputpdf->Output(); return ""; } //file_put_contents("qaz.zaq", "here at PDF " . file_get_contents("qaz.zaq")); $pdfis=$outputpdf->Output("filename.pdf", "S"); return $pdfis; } function nqt($ptop) { global $outputto, $outputsofar, $outputpdf, $top, $cpn, $outputpdf_hgt, $lh, $loffset; $cp=$cpn; if ((floatval($cpn) * $outputpdf_hgt) < floatval($ptop)) { while ((floatval($cpn) * $outputpdf_hgt) < floatval($ptop)) { $outputpdf->AddPage('L'); $cpn=$outputpdf->PageNo(); } //file_put_contents("qaz.zaq", ' was page number ' . $cp . ' for ' . $ptop . ' vs ' . $outputpdf_hgt . ' becomes ' . $lh . ' on page number ' . $cpn); $loffset=floatval($ptop) - floatval($lh); $top=$lh; $ptop=$lh; } else if ($loffset != 0) { //file_put_contents("qaz.zaq", '' . floatval($ptop) - floatval($loffset)); return floatval($ptop) - floatval($loffset); } return floatval($ptop); } function qt($ptop) { global $outputto, $outputsofar, $outputpdf, $top, $cpn; if ($outputpdf->PageNo() != $cpn) { $top=1; $cpn=$outputpdf->PageNo(); } return $top; } function ourhtmltopdf($hwhat) { global $outputto, $outputsofar, $outputpdf, $top, $istitle, $wastitle, $emailto, $pdfis; $textareapointing=false; if ($pdfis != "") $textareapointing=true; if (strpos($hwhat, ">") !== false) { if (strpos($hwhat, "AddPage(); //$outputpdf->SetFont('Arial','B',16); $candidates=explode(">",$hwhat); for ($ii=1; $iiText(40,qt($top),explode("<",$candidates[$ii])[0]); } else { $outputpdf->Cell(40,qt($top),explode("<",$candidates[$ii])[0]); } $top+=(1 * sizeof(explode("\n", explode("<",$candidates[$ii])[0]))); $outputsofar.=explode("<",$candidates[$ii])[0]; } else if (strpos($candidates[-1 + $ii], "