<?php
  // form_creator.php
  // RJM Programming
  // October, 2019
  // Create PDF forms.

//Based on HTML2PDF by Clément Lavoillotte
//Thanks to http://www.fpdf.org/en/script/script50.php

if (is_file('MarkItUp/fpdf17/fpdf.php')) {
require('MarkItUp/fpdf17/fpdf.php');
} else {
require('../MarkItUp/fpdf17/fpdf.php');
}

const MAX_P_WIDTH = 595; //1150;
const MAX_P_HEIGHT = 842; //1650;

const MAX_L_HEIGHT = 595; //1150;
const MAX_L_WIDTH = 842; //1650;

$wasphpcode=file_get_contents(dirname(__FILE__) . '/form_creator.php');

$pollid=0;
$pollers=[","];

// Data below ...
// Data above ...

if (isset($_GET['collate'])) {
    $bits=explode('/' . '/ ?', $wasphpcode);
    $csvis="";
    for ($ij=1; $ij<sizeof($bits); $ij++) {
      $arec=explode("\n", $bits[$ij])[0];
      if (strpos($arec, "&ipollid=") !== false) {
        $plid=explode("&", explode("&ipollid=", $arec)[1])[0];
        $arec=str_replace("&ipollid=" . $plid, "", $arec);
        if ($csvis == "") {
          $csvis='"Poller Number","Timestamp","Favourite anything","Favourite integer","Favourite colour","Favourite file","Favourite email","Favourite url","Favourite date","Favourite time","Favourite month"' . "\n";
        }
        if (strpos($arec, "&timestamp=") !== false) {
          $ts=explode("&", explode("&timestamp=", $arec)[1])[0];
          // Initialising a DateTime 
          date_default_timezone_set('GMT');
          //$datetime = gmdate("M d Y H:i:s", mktime(0, 0, 0, 1, 1, 1970)); //new DateTime('2019-09-30');
          $xdatetime = new DateTime('1970-01-01 00:00:00'); 
          // DateInterval object is taken as the  
          // parameter of the add() function 
          // Here lots of seconds added 
          $dis=(($ts - ($ts % (24 * 60 * 60))) / (24 * 60 * 60));
          $hrs=floor(($ts % (24 * 60 * 60)) / (60 * 60));
          $mins=floor(($ts % (60 * 60)) / 60);
          $secs=floor(($ts % 60));
          
          $xdatetime->add(new DateInterval('P' . $dis . 'D')); 
          $xdatetime->add(new DateInterval('PT' . $hrs . 'H')); 
          $xdatetime->add(new DateInterval('PT' . $mins . 'M')); 
          $xdatetime->add(new DateInterval('PT' . $secs . 'S')); 

          $arec=str_replace("&timestamp=" . $ts, "", $arec);
          $brec='"' . $plid . '","' . $xdatetime->format('Y-m-d H:i:s') . " GMT" . '","' . str_replace("+"," ",urldecode(explode("&", explode("fa=", $arec)[1])[0])) . '","' . str_replace("+"," ",urldecode(explode("&", explode("fn=", $arec)[1])[0])) . '","' . str_replace("+"," ",urldecode(explode("&", explode("fc=", $arec)[1])[0])) . '","' . str_replace("+"," ",urldecode(explode("&", explode("ff=", $arec)[1])[0])) . '","' . str_replace("+"," ",urldecode(explode("&", explode("fe=", $arec)[1])[0])) . '","' . str_replace("+"," ",urldecode(explode("&", explode("fu=", $arec)[1])[0])) . '","' . str_replace("+"," ",urldecode(explode("&", explode("fd=", $arec)[1])[0])) . '","' . str_replace("+"," ",urldecode(explode("&", explode("ft=", $arec)[1])[0])) . '","' . str_replace("+"," ",urldecode(explode("&", explode("fm=", $arec)[1])[0])) . '"' . "\n";
        } else {
          $brec='"' . $plid . '","","' . str_replace("+"," ",urldecode(explode("&", explode("fa=", $arec)[1])[0])) . '","' . str_replace("+"," ",urldecode(explode("&", explode("fn=", $arec)[1])[0])) . '","' . str_replace("+"," ",urldecode(explode("&", explode("fc=", $arec)[1])[0])) . '","' . str_replace("+"," ",urldecode(explode("&", explode("ff=", $arec)[1])[0])) . '","' . str_replace("+"," ",urldecode(explode("&", explode("fe=", $arec)[1])[0])) . '","' . str_replace("+"," ",urldecode(explode("&", explode("fu=", $arec)[1])[0])) . '","' . str_replace("+"," ",urldecode(explode("&", explode("fd=", $arec)[1])[0])) . '","' . str_replace("+"," ",urldecode(explode("&", explode("ft=", $arec)[1])[0])) . '","' . str_replace("+"," ",urldecode(explode("&", explode("fm=", $arec)[1])[0])) . '"' . "\n";
        }
        $csvis.=$brec;
      }
    }
    if ($csvis != "") {
      header('Content-type: text/csv');
      header('Content-disposition: attachment;filename=form_creator.csv'); 
      echo $csvis;
      exit;
    }
} else if (isset($_GET['ipollid'])) {

  if (strpos($wasphpcode, "&" . "ipo" . "llid=" . urldecode($_GET['ipollid']) . "&") !== false) {
    $bits=explode("&" . "ipo" . "llid=" . urldecode($_GET['ipollid']) . "&", $wasphpcode);
    $prebits='/' . '/ ?' . explode('?', $bits[0])[-1 + sizeof(explode('?', $bits[0]))] . "&" . "ipo" . "llid=" . urldecode($_GET['ipollid']) . "&" . explode("\n", $bits[1])[0] . "\n";
    $isphpcode=str_replace($prebits, '/'. '/ ?' . $_SERVER['QUERY_STRING'] . '&timestamp=' . urlencode($_SERVER['REQUEST_TIME']) . "\n",$wasphpcode);
    file_put_contents(dirname(__FILE__) . '/form_creator.php', $isphpcode);
    header("Location: //www.rjmprogramming.com.au/HTMLCSS/oninvalid.html?was" . str_replace("&", "&was", explode("\n", explode("?", $prebits)[1])[0]) . "&" . $_SERVER['QUERY_STRING']);
    exit;
  } else {
    $isphpcode=str_replace('/'. '/ Dat' . 'a abo' . 've ..' . '.', '/'. '/ ?' . $_SERVER['QUERY_STRING'] . '&timestamp=' . urlencode($_SERVER['REQUEST_TIME']) . "\n" . '/'. '/ Dat' . 'a abo' . 've ..' . '.',$wasphpcode);
    file_put_contents(dirname(__FILE__) . '/form_creator.php', $isphpcode);
    header("Location: //www.rjmprogramming.com.au/HTMLCSS/oninvalid.html?" . $_SERVER['QUERY_STRING']);
    exit;
  }
} else if (isset($_GET['pollerquery'])) { 
  $ibit="";    
  $eis=strtolower(str_replace('+',' ',urldecode($_GET['pollerquery'])));
  if (strpos($eis, "@") !== false) {
  if (strpos($wasphpcode . ',', ',' . $eis . ',') !== false) {
  $plst=explode(",", substr($pollers[0],1));
  for ($ii=0; $ii<sizeof($plst); $ii++) {
    if (strtolower($eis) == strtolower($plst[$ii])) {
      $pollid=$ii;
  if (strpos($wasphpcode, "&" . "ipo" . "llid=" . $pollid . "&") !== false) {
    $bits=explode("&" . "ipo" . "llid=" . $pollid . "&", $wasphpcode);
    $prebits='?' . explode('?', $bits[0])[-1 + sizeof(explode('?', $bits[0]))] . "&" . "ipo" . "llid=" . $pollid . "&" . explode("\n", $bits[1])[0];
  echo "<html><body onload=\"  parent.document.getElementById('ipollid').value='" . $pollid . "';  window.open('//www.rjmprogramming.com.au/HTMLCSS/oninvalid.html" . $prebits . "','_blank','top=20,left=20,width=700,height=950'); \"></body></html>";
    exit;
  }
      }
  }
  }
  }
  echo "<html><body onload=\" parent.document.getElementById('ipollid').value='" . $pollid . "';  alert('No previous Favourites recorded for your email.'); \"></body></html>";
  exit;
} else if (isset($_GET['polleremail'])) { 
  $ibit="";    
  $eis=strtolower(str_replace('+',' ',urldecode($_GET['polleremail'])));
  if (strpos($eis, "@") !== false) {
  if (strpos($wasphpcode . ',', ',' . $eis . ',') === false) {
    $isphpcode=str_replace('"' . ']' . ';', $eis . ',"' . ']' . ';',$wasphpcode);
    file_put_contents(dirname(__FILE__) . '/form_creator.php', $isphpcode);
  }
  $plst=explode(",", substr($pollers[0],1));
  for ($ii=0; $ii<sizeof($plst); $ii++) {
    if (strtolower($eis) == strtolower($plst[$ii])) {
      $pollid=$ii;
    }
  }
  // $imgdis=file_get_contents('HTTP://www.rjmprogramming.com.au/MyBusinessUnidad/Welcome_files/logo.jpg');
  // $ibit=" parent.document.getElementById('imgpoll').src='" . 'data:image/jpeg;base64,' . base64_encode($imgdis) . "'; ";
  }
  echo "<html><body onload=\" parent.document.getElementById('ipollid').value='" . $pollid . "'; " . $ibit . " \"></body></html>";
  exit;
}

$okpollhtml='<div id=drep></div>
<h1>Favourites Polling</h1>
<h3>RJM Programming - November, 2019</h3>
<h4>Please note that on clicking Poll Me button &amp; proceeding onto a RJM Programming webpage we shall store your email address &amp; answers there.</h4>
<form action="//www.rjmprogramming.com.au/HTMLCSS/oninvalid.html" method="GET">
  Favourite anything: <input placeholder="Mandatory field" name=fa type="text" oninvalid="alert(' . "'" . 'You must fill out this ' . "'" . ' + moredetail(this.name) + ' . "'" . ' field!' . "'" . ');" value="" required></input><br><br>
  Favourite integer: <input placeholder="Mandatory field" name=fn type="number" oninvalid="alert(' . "'" . 'You must fill out this ' . "'" . ' + moredetail(this.name) + ' . "'" . ' field!' . "'" . ');" value="" step=1 required></input><br><br>
  Favourite colour: <input placeholder="Mandatory field" name=fc type="color" oninvalid="alert(' . "'" . 'You must fill out this ' . "'" . ' + moredetail(this.name) + ' . "'" . ' field!' . "'" . ');" value="" required></input><br><br>
  Favourite file: <input placeholder="Mandatory field" name=ff type="file" oninvalid="alert(' . "'" . 'You must fill out this ' . "'" . ' + moredetail(this.name) + ' . "'" . ' field!' . "'" . ');" value="" required></input><br><br>
  Favourite email: <input placeholder="Mandatory field" name=fe type="email" oninvalid="alert(' . "'" . 'You must fill out this ' . "'" . ' + moredetail(this.name) + ' . "'" . ' field!' . "'" . ');" value="" required></input><br><br>
  Favourite url: <input placeholder="Mandatory field" name=fu type="url" oninvalid="alert(' . "'" . 'You must fill out this ' . "'" . ' + moredetail(this.name) + ' . "'" . ' field!' . "'" . ');" value="" required></input><br><br>
  Favourite date: <input placeholder="Mandatory field" name=fd type="date" oninvalid="alert(' . "'" . 'You must fill out this ' . "'" . ' + moredetail(this.name) + ' . "'" . ' field!' . "'" . ');" value="" required></input><br><br>
  Favourite time: <input placeholder="Mandatory field" name=ft type="time" oninvalid="alert(' . "'" . 'You must fill out this ' . "'" . ' + moredetail(this.name) + ' . "'" . ' field!' . "'" . ');" value="" required></input><br><br>
  Favourite month: <input placeholder="Mandatory field" name=fm type="month" oninvalid="alert(' . "'" . 'You must fill out this ' . "'" . ' + moredetail(this.name) + ' . "'" . ' field!' . "'" . ');" value="" required></input><br><br>
<input type="submit" value="Poll Me" style="background-color:yellow;">
</form>
';

$sleepcode='function doubleAfter2Seconds(x) {
  return new Promise(resolve => {
    setTimeout(() => {
      resolve(x * 2);
    }, 2000);
  });
}

async function addAsync(x) {
  const a = await doubleAfter2Seconds(10);
  const b = await doubleAfter2Seconds(20);
  const c = await doubleAfter2Seconds(30);
  return x + a + b + c;
}
'; // thanks to https://stackoverflow.com/questions/17883692/how-to-set-time-delay-in-javascript

//function hex2dec
//returns an associative array (keys: R,G,B) from a hex html code (e.g. #3FE5AA)
function hex2dec($couleur = "#000000") {
    $R = substr($couleur, 1, 2);
    $rouge = hexdec($R);
    $V = substr($couleur, 3, 2);
    $vert = hexdec($V);
    $B = substr($couleur, 5, 2);
    $bleu = hexdec($B);
    $tbl_couleur = array();
    $tbl_couleur['R']=$rouge;
    $tbl_couleur['G']=$vert;
    $tbl_couleur['B']=$bleu;
    return $tbl_couleur;
}

//conversion pixel -> millimeter in 72 dpi
function px2mm($px) {
    return $px*25.4/72;
}

function txtentities($html) {
    $trans = get_html_translation_table(HTML_ENTITIES);
    $trans = array_flip($trans);
    return strtr($html, $trans);
}
////////////////////////////////////

class PDF extends FPDF {
//variables of html parser
protected $B;
protected $I;
protected $U;
protected $HREF;
protected $fontList;
protected $issetfont;
protected $issetcolor;

public $canvascmds;
public $numi;

function __construct($orientation='P', $unit='mm', $format='A4') {
    //Call parent constructor
    parent::__construct($orientation,$unit,$format);

    //Initialization
    $this->B=0;
    $this->I=0;
    $this->U=0;
    $this->HREF='';

    $this->canvascmds=['elem.style.display="block";'];
    $this->numi=0;

    $this->tableborder=0;
    $this->tdbegin=false;
    $this->tdwidth=0;
    $this->tdheight=0;
    $this->tdalign="L";
    $this->tdbgcolor=false;

    $this->oldx=0;
    $this->oldy=0;

    $this->fontlist=array("arial","times","courier","helvetica","symbol");
    $this->issetfont=false;
    $this->issetcolor=false;
}

//////////////////////////////////////
//html parser

function WriteHTML($html) {
    $html=strip_tags($html,"<b><u><i><a><img><p><br><strong><em><font><tr><blockquote><hr><td><tr><table><sup>"); //remove all unsupported tags
    $html=str_replace("\n",'',$html); //replace carriage returns with spaces
    $html=str_replace("\t",'',$html); //replace carriage returns with spaces
    $a=preg_split('/<(.*)>/U',$html,-1,PREG_SPLIT_DELIM_CAPTURE); //explode the string
    foreach($a as $i=>$e) 
    {
        if($i%2==0) 
        {
            //Text
            if($this->HREF)
                $this->PutLink($this->HREF,$e);
            elseif($this->tdbegin) {
                if(trim($e)!='' && $e!="&nbsp;") {
                                     
            $this->canvascmds[sizeof($this->canvascmds)]='context.beginPath();';
            $this->canvascmds[sizeof($this->canvascmds)]='context.strokeStyle="#000000";';
            $this->canvascmds[sizeof($this->canvascmds)]='context.lineWidth=1;'; 
            $this->canvascmds[sizeof($this->canvascmds)]='context.rect(' . round($this->GetX()) . ',' . round($this->GetY()) . ',' . round($this->tdwidth) . ',' . round($this->tdheight) . ');';
            $this->canvascmds[sizeof($this->canvascmds)]='context.stroke();';
            $this->canvascmds[sizeof($this->canvascmds)]='context.strokeText("'. preg_replace('/[\x00-\x1F\x7F]/', '', str_replace("\r",'" + String.fromCharCode(10) + "',str_replace("\n",'" + String.fromCharCode(10) + "',str_replace("\r\n",'" + String.fromCharCode(10) + "',$e)))) . '",' . round($this->GetX()) . ',' . (round($this->GetY()) + round($this->tdheight) / 2) . ');';

                    $this->Cell($this->tdwidth,$this->tdheight,$e,$this->tableborder,'',$this->tdalign,$this->tdbgcolor);
                }
                elseif($e=="&nbsp;") {
                                     
            $this->canvascmds[sizeof($this->canvascmds)]='context.beginPath();';
            $this->canvascmds[sizeof($this->canvascmds)]='context.strokeStyle="#000000";';
            $this->canvascmds[sizeof($this->canvascmds)]='context.lineWidth=1;'; 
            $this->canvascmds[sizeof($this->canvascmds)]='context.rect(' . round($this->GetX()) . ',' . round($this->GetY()) . ',' . round($this->tdwidth) . ',' . round($this->tdheight) . ');';
            $this->canvascmds[sizeof($this->canvascmds)]='context.stroke();';

                    $this->Cell($this->tdwidth,$this->tdheight,'',$this->tableborder,'',$this->tdalign,$this->tdbgcolor);
                }
            }
            else {
                $this->canvascmds[sizeof($this->canvascmds)]='context.strokeText("'. preg_replace('/[\x00-\x1F\x7F]/', '', str_replace("\r",'" + String.fromCharCode(10) + "',str_replace("\n",'" + String.fromCharCode(10) + "',str_replace("\r\n",'" + String.fromCharCode(10) + "',stripslashes(txtentities($e)))))) . '",' . round($this->GetX()) . ',' . (round($this->GetY()) + round($this->tdheight) / 2) . ');';

                $this->Write(5,stripslashes(txtentities($e)));
            }
        }
        else
        {
            //Tag
            if($e[0]=='/')
                $this->CloseTag(strtoupper(substr($e,1)));
            else
            {
                //Extract attributes
                $a2=explode(' ',$e);
                $tag=strtoupper(array_shift($a2));
                $attr=array();
                foreach($a2 as $v)
                {
                    if(preg_match('/([^=]*)=["\']?([^"\']*)/',$v,$a3))
                        $attr[strtoupper($a3[1])]=$a3[2];
                }
                $this->OpenTag($tag,$attr);
            }
        }
    }
}

function OpenTag($tag, $attr) {
    //Opening tag
    switch($tag){

        case 'SUP':
            if( !empty($attr['SUP']) ) {    
                //Set current font to 6pt     
                $this->SetFont('','',6);
                //Start 125cm plus width of cell to the right of left margin         
                //Superscript "1" 
                                     
            $this->canvascmds[sizeof($this->canvascmds)]='context.beginPath();';
            $this->canvascmds[sizeof($this->canvascmds)]='context.strokeStyle="#000000";';
            $this->canvascmds[sizeof($this->canvascmds)]='context.lineWidth=1;'; 
            $this->canvascmds[sizeof($this->canvascmds)]='context.rect(' . round($this->GetX()) . ',' . round($this->GetY()) . ',2,2);';
            $this->canvascmds[sizeof($this->canvascmds)]='context.stroke();';
            $this->canvascmds[sizeof($this->canvascmds)]='context.strokeText("'. $attr['SUP'] . '",' . round($this->GetX()) . ',' . round($this->GetY()) . ');';

                $this->Cell(2,2,$attr['SUP'],0,0,'L');
            }
            break;

        case 'TABLE': // TABLE-BEGIN
            if( !empty($attr['BORDER']) ) $this->tableborder=$attr['BORDER'];
            else $this->tableborder=0;
            break;
        case 'TR': //TR-BEGIN
            break;
        case 'TD': // TD-BEGIN
            if( !empty($attr['WIDTH']) ) $this->tdwidth=($attr['WIDTH']/4);
            else $this->tdwidth=40; // Set to your own width if you need bigger fixed cells
            if( !empty($attr['HEIGHT']) ) $this->tdheight=($attr['HEIGHT']/6);
            else $this->tdheight=6; // Set to your own height if you need bigger fixed cells
            if( !empty($attr['ALIGN']) ) {
                $align=$attr['ALIGN'];        
                if($align=='LEFT') $this->tdalign='L';
                if($align=='CENTER') $this->tdalign='C';
                if($align=='RIGHT') $this->tdalign='R';
            }
            else $this->tdalign='L'; // Set to your own
            if( !empty($attr['BGCOLOR']) ) {
                $coul=hex2dec($attr['BGCOLOR']);
                    $this->SetFillColor($coul['R'],$coul['G'],$coul['B']);
                    $this->tdbgcolor=true;
                }
            $this->tdbegin=true;
            break;

        case 'HR':
            if( !empty($attr['WIDTH']) )
                $Width = $attr['WIDTH'];
            else
                $Width = $this->w - $this->lMargin-$this->rMargin;
            $x = $this->GetX();
            $y = $this->GetY();
            $this->SetLineWidth(0.2);
                
            $this->canvascmds[sizeof($this->canvascmds)]='context.beginPath();';
            $this->canvascmds[sizeof($this->canvascmds)]='context.strokeStyle="#000000";';
            $this->canvascmds[sizeof($this->canvascmds)]='context.lineWidth=2;'; 
            $this->canvascmds[sizeof($this->canvascmds)]='context.moveTo(' . round($x) . ',' . round($y) . ');';
            $this->canvascmds[sizeof($this->canvascmds)]='context.lineTo(' . round(($x+$Width)) . ',' . round($y) . ');';
            $this->canvascmds[sizeof($this->canvascmds)]='context.stroke();';

            $this->Line($x,$y,$x+$Width,$y);
            $this->SetLineWidth(0.2);
            $this->Ln(1);
            break;
        case 'STRONG':
            $this->SetStyle('B',true);
            break;
        case 'EM':
            $this->SetStyle('I',true);
            break;
        case 'B':
        case 'I':
        case 'U':
            $this->SetStyle($tag,true);
            break;
        case 'A':
            $this->HREF=$attr['HREF'];
            break;
        case 'IMG':
            if(isset($attr['SRC']) && (isset($attr['WIDTH']) || isset($attr['HEIGHT']))) {
                if(!isset($attr['WIDTH']))
                    $attr['WIDTH'] = 0;
                if(!isset($attr['HEIGHT']))
                    $attr['HEIGHT'] = 0;
                
            $this->canvascmds[sizeof($this->canvascmds)]='x[' . $this->numi . ']=' . round($this->GetX()) . ';';
            $this->canvascmds[sizeof($this->canvascmds)]='y[' . $this->numi . ']=' . round($this->GetY()) . ';';
            $this->canvascmds[sizeof($this->canvascmds)]='w[' . $this->numi . ']=' . round(px2mm($attr['WIDTH'])) . ';';
            $this->canvascmds[sizeof($this->canvascmds)]='h[' . $this->numi . ']=' . round(px2mm($attr['HEIGHT'])) . ';';
            $this->canvascmds[sizeof($this->canvascmds)]='aimg[' . $this->numi . ']="' . $attr['SRC'] . '";';
            if ($this->numi == 0) { $this->canvascmds[sizeof($this->canvascmds)]='ielem.src="' . $attr['SRC'] . '";'; }
            $this->numi++;
            //$this->canvascmds[sizeof($this->canvascmds)]='while (h >= 0) { addAsync(10).then((sum) => {  console.log(sum); });  } ';
            $this->canvascmds[sizeof($this->canvascmds)]='if (1 == 3) { context.drawImage(ielem,' . round($this->GetX()) . ',' . round($this->GetY()) . round(px2mm($attr['WIDTH'])) . ',' . round(px2mm($attr['HEIGHT'])) . '); } ';

                $this->Image($attr['SRC'], $this->GetX(), $this->GetY(), px2mm($attr['WIDTH']), px2mm($attr['HEIGHT']));
           }
            break;
        case 'BLOCKQUOTE':
        case 'BR':
            $this->Ln(5);
            break;
        case 'P':
            $this->Ln(10);
            break;
        case 'FONT':
            if (isset($attr['COLOR']) && $attr['COLOR']!='') {
                $coul=hex2dec($attr['COLOR']);
                $this->SetTextColor($coul['R'],$coul['G'],$coul['B']);
                $this->issetcolor=true;
            }
            if (isset($attr['FACE']) && in_array(strtolower($attr['FACE']), $this->fontlist)) {
                $this->SetFont(strtolower($attr['FACE']));
                $this->issetfont=true;
            }
            if (isset($attr['FACE']) && in_array(strtolower($attr['FACE']), $this->fontlist) && isset($attr['SIZE']) && $attr['SIZE']!='') {
                $this->SetFont(strtolower($attr['FACE']),'',$attr['SIZE']);
                $this->issetfont=true;
            }
            break;
    }
}

function CloseTag($tag) {
    //Closing tag
    if($tag=='SUP') {
    }

    if($tag=='TD') { // TD-END
        $this->tdbegin=false;
        $this->tdwidth=0;
        $this->tdheight=0;
        $this->tdalign="L";
        $this->tdbgcolor=false;
    }
    if($tag=='TR') { // TR-END
        $this->Ln();
    }
    if($tag=='TABLE') { // TABLE-END
        $this->tableborder=0;
    }

    if($tag=='STRONG')
        $tag='B';
    if($tag=='EM')
        $tag='I';
    if($tag=='B' || $tag=='I' || $tag=='U')
        $this->SetStyle($tag,false);
    if($tag=='A')
        $this->HREF='';
    if($tag=='FONT'){
        if ($this->issetcolor==true) {
            $this->SetTextColor(0);
        }
        if ($this->issetfont) {
            $this->SetFont('arial');
            $this->issetfont=false;
        }
    }
}

function SetStyle($tag, $enable) {
    //Modify style and select corresponding font
    $this->$tag+=($enable ? 1 : -1);
    $style='';
    foreach(array('B','I','U') as $s) {
        if($this->$s>0)
            $style.=$s;
    }
    $this->SetFont('',$style);
}

function PutLink($URL, $txt) {
    //Put a hyperlink
    $this->SetTextColor(0,0,255);
    $this->SetStyle('U',true);
    
    $this->canvascmds[sizeof($this->canvascmds)]='context.strokeText("'. preg_replace('/[\x00-\x1F\x7F]/', '', str_replace("\r",'" + String.fromCharCode(10) + "',str_replace("\n",'" + String.fromCharCode(10) + "',str_replace("\r\n",'" + String.fromCharCode(10) + "',$txt)))) . '",' . round($this->GetX()) . ',' . (round($this->GetY()) + round($this->tdheight) / 2) . ');';

    $this->Write(5,$txt,$URL);
    $this->SetStyle('U',false);
    $this->SetTextColor(0);
}

} //end of class

  function addtotable($imgurl) {
    global $thtml, $pdf, $mw, $mh;
    $prefix="";
    if (strpos(("~" . strtolower($imgurl)), "~http") === false) {
    if (!file_exists($prefix . $imgurl)) {
      if (isset($_GET['rp'])) {
        if (file_exists(str_replace('+',' ',urldecode($_GET['rp'])) . $imgurl)) {
          $prefix=str_replace('+',' ',urldecode($_GET['rp']));
        } else if (file_exists("../" . str_replace('+',' ',urldecode($_GET['rp'])) . $imgurl)) {
          $prefix="../" . str_replace('+',' ',urldecode($_GET['rp']));
        }
      } else if (isset($_POST['rp'])) {
        if (file_exists(str_replace('+',' ',urldecode($_POST['rp'])) . $imgurl)) {
          $prefix=str_replace('+',' ',urldecode($_POST['rp']));
        } else if (file_exists("../" . str_replace('+',' ',urldecode($_POST['rp'])) . $imgurl)) {
          $prefix="../" . str_replace('+',' ',urldecode($_POST['rp']));
        }
      } else if (file_exists("../" . $imgurl)) {
        $prefix="../";
      }
    }
    }
    list($width, $height, $type, $attr) = getimagesize($prefix . $imgurl);
    if (!$pdf) { if ($width >= $height) {  $pdf=new PDF('L'); $mw=MAX_L_WIDTH;  $mh=MAX_L_HEIGHT;  } else {  $pdf=new PDF('P');   $mw=MAX_P_WIDTH;  $mh=MAX_P_HEIGHT;   }  }
    if ($mw < $width && $mh >= $height) { $width=0; } else if ($mw >= $width && $mh < $height) {  $height=0; } else if ($mw < $width && $mh < $height) { $width=-$mw;  $height=-$mh;   }
    if ($thtml == "") {
      $pdf->AddPage();
      $pdf->SetFont('Arial','',12);
      if ($width == 0) {
      //echo "h";
      //exit;
      $thtml.='<img height="' . $height . '" src="' . $prefix . $imgurl . '"></img>';
      } else if ($height == 0) {
      //echo "w";
      //exit;
      $thtml.='<img width="' . $width . '" src="' . $prefix . $imgurl . '"></img>';
      } else if ($height < 0 && $width < 0) {
      //echo "hw";
      //exit;
      $thtml.='<img height="' . $height . '" width="' . $width . '" src="' . $prefix . $imgurl . '"></img>';
      } else {
      //echo "table " . $width . " vs " . $mw . " and " . $height . " vs " . $mh;
      //exit;
      $thtml.='<table border="1" width="' . $width . '" height="' . $height . '"><tr><td width="' . $width . '" height="' . $height . '"><img width="' . $width . '" height="' . $height . '" src="' . $prefix . $imgurl . '"></img></td></tr></table>';
      }
      $pdf->WriteHTML($thtml);   // $thtml is some HTML table code collected earlier on
      $thtml=' ';
    } else {
      $pdf->AddPage();
      $pdf->SetFont('Arial','',12);
      if ($width == 0) {
      $thtml.='<img height="' . $height . '" src="' . $prefix . $imgurl . '"></img>';
      } else if ($height == 0) {
      $thtml.='<img width="' . $width . '" src="' . $prefix . $imgurl . '"></img>';
      } else if ($height < 0 && $width < 0) {
      $thtml.='<img height="' . $height . '" width="' . $width . '" src="' . $prefix . $imgurl . '"></img>';
      } else {
      $thtml='<br><br><table border="1" width="' . $width . '" height="' . $height . '"><tr><td width="' . $width . '" height="' . $height . '"><img width="' . $width . '" height="' . $height . '" src="' . $prefix . $imgurl . '"></img></td></tr></table>';
      }
      $pdf->WriteHTML($thtml);   // $thtml is some HTML table code collected earlier on
      $thtml=' ';
    }
  }

  $none='none';
  if (isset($_GET['viaemail'])) { $none='inline-block'; }
  $pdf=null;
  $trow='<tr><td width="200" height="30">cell 1</td><td width="200" height="30" bgcolor="#D0D0FF">cell 2</td></tr>';
  $thtml='<table border="1"></table>';
  $mw=MAX_P_WIDTH;
  $mh=MAX_P_HEIGHT;
  
  if (isset($_POST['formtable'])) {
    $thtml=str_replace('+', ' ', urldecode($_POST['formtable']));
  } else if (isset($_GET['formtable'])) {
    $thtml=str_replace('+', ' ', urldecode($_GET['formtable']));
  } else if (isset($_POST['slideshowlist'])) {
    $thtml='';
    $slideshowlist=explode(",", str_replace('+', ' ', urldecode($_POST['slideshowlist'])));
    for ($ii=0; $ii<sizeof($slideshowlist); $ii++) {
     if ($slideshowlist[$ii] != "") { addtotable($slideshowlist[$ii]); }
    }
  } else if (isset($_GET['slideshowlist'])) {
    $thtml='';
    $slideshowlist=explode(",", str_replace('+', ' ', urldecode($_GET['slideshowlist'])));
    for ($ii=0; $ii<sizeof($slideshowlist); $ii++) {
     if ($slideshowlist[$ii] != "") { addtotable($slideshowlist[$ii]); }
    }
  } else {
    $thtml='<table border="1" height="400"><tr><td width="200" height="400">cell 1</td><td width="200" height="400" bgcolor="#D0D0FF"><img width="200" height="200" src="./one.jpg"></img></td></tr></table>';
    $otherbuttons='<input onclick="woit();" style="background-color:lightblue;" value="Preview HTML Rendering" type=button></input>&nbsp;<input id=inlinei onclick="emailit();" style="background-color:lightblue;" value="Email HTML Inline" type=button></input>&nbsp;<input onclick="pollit();" style="background-color:lightblue;" value="Email Inline Poll Report" type=button></input>&nbsp;<input onclick="collateit();" style="background-color:lightblue;" value="Poll Report" type=button></input>&nbsp;';
    $ebutton='<form target=iemail data-target=_blank method=POST data-method=GET action=../HTMLCSS/emailhtml.php style=display:none;><input type=hidden id=eto name=eto value=""></input><input type=hidden id=esubject name=esubject value="Email HTML Inline"></input><textarea style=display:none; id=ebody name=ebody value=""></textarea><input type=hidden name=inline value=""></input><input type=submit id=esubmit style=display:none; value=Email></input></form><iframe name=iemail id=iemail style=display:none; src=></iframe>&nbsp;';
    $thtml.='<br><br><table border="1" height="400"><tr><td width="200" height="400">cell 1</td><td width="200" height="400" bgcolor="#D0D0FF"><img width="200" height="200" src="./one.jpg"></img></td></tr></table>';
    $jscr="<sc" . "ript type='text/javascript'>
      var elem=null, context=null;
      var pollerid=" . $pollid . ";
      var tois='';
      var pollexec=false;
      var wo=null;
      var url=document.URL.split('#')[0].split('?')[0];

 function relative_to_absolute(inth) {
    var huhs, posthuhs, ii, m, delimis=\" \";
    var uubits=url.split(\"?\");

    if (url == \"\") return inth;

    if (uubits[0].indexOf(\"/\") != -1) {
      var uuubits=uubits[0].split(\"/\");
      if (uuubits[eval(uuubits.length - 1)] != \"\") {
        if (uuubits[eval(uuubits.length - 1)].indexOf(\".\") != -1) {
          uubits[0] = uubits[0].replace(\"/\" + uuubits[eval(uuubits.length - 1)], \"/\");
        } else {
          uubits[0] += \"/\";
        }
      }
    }

    var uudirname=uubits[0];
    var outth = inth;
    var ideas = new Array(\" action='\", ' action=\"', \" Action='\", ' Action=\"', \" ACTION='\", ' ACTION=\"', \" action=\", \" Action=\", \" ACTION=\", \" href='\", ' href=\"', \" Href='\", ' Href=\"', \" HREF='\", ' HREF=\"', \" href=\", \" Href=\", \" HREF=\", \" src='\", ' src=\"', \" Src='\", ' Src=\"', \" SRC='\", ' SRC=\"', \" src=\", \" Src=\", \" SRC=\");

    if (uudirname != \"\" && url != \"\") {
     for (m=0; m<ideas.length; m++) {
      huhs = inth.split(ideas[m]);
      if (huhs.length > 1) {
        for (ii=eval(huhs.length - 1); ii>=1; ii--) {
          delimis=ideas[m].substring(eval(ideas[m].length - 1), eval(ideas[m].length));
          if (delimis == \"=\") delimis=\" \";
          posthuhs=huhs[ii].trim().replace(\">\",\" \").replace(/mailto:/g, \"http:\").replace(/javascript:none;/g, \"http:\").split(delimis);
          if (posthuhs[0].length > 0) {
          if (posthuhs[0].substring(0,1) == \"#\" || posthuhs[0].substring(0,4).toLowerCase().replace(/file/g, \"http\").toLowerCase() == \"http\") {
              outth = outth;
          } else if (posthuhs[0].substring(0,1) != \"/\" && posthuhs[0].substring(0,1) != \"'\" && posthuhs[0].substring(0,1) != '\"') {
              while (outth.indexOf(posthuhs[0]) != -1) {
                outth=outth.replace(posthuhs[0], \"youwill-never-ever-findthis\");
              }
              outth=outth.replace(/youwill-never-ever-findthis/g, uudirname + posthuhs[0]).replace(/\/\.\//g, '/');
          } else if (posthuhs[0].substring(1,2) != \"/\" && posthuhs[0].substring(0,1) != \"'\" && posthuhs[0].substring(0,1) != '\"') {
              while (outth.indexOf(posthuhs[0]) != -1) {
                outth=outth.replace(posthuhs[0], \"youwill-never-ever-findthis\");
              }
              outth=outth.replace(/youwill-never-ever-findthis/g, uudirname.substring(0, eval(uudirname.length - 1)) + posthuhs[0]).replace(/\/\.\//g, '/');
          }
          }
        }
      }
     }
    }

    return outth.replace(/\/\.\//g, '/');
 }

      function woit() {
         if (wo) { wo.close(); wo=null; }
         wo=window.open('','_blank','top=50,left=50,width=500,height=500');
         document.getElementById('formtable').innerHTML=relative_to_absolute(document.getElementById('formtable').value.replace(/\</g,'&lt;').replace(/\>/g,'&gt;'));        
         document.getElementById('formtable').value=document.getElementById('formtable').innerHTML.replace(/\&lt\;/g,'<').replace(/\&gt\;/g,'>');
         wo.document.write('<body><table><tr><td>' + relative_to_absolute(document.getElementById('formtable').value) + '</td><td> ... is the look of ...</td><td><form method=POST action=' + document.URL.split('#')[0].split('?')[0] + '>' + document.getElementById('formtable').outerHTML + '<br><br><input id=bsubmit style=\"background-color:yellow;\" value=\"HTML Above to PDF\" type=submit></input>&nbsp;<input id=bbsubmit style=\"background-color:orange;\" value=\"HTML Above to PDF and Canvas\" name=both type=submit></input>&nbsp;<input id=bbcsubmit style=\"background-color:lightgray;\" value=\"HTML Above to Canvas\" name=justc type=submit></input></form></td></tr></table><input style=\"position:absolute;top:-200px;left:-200px;\" value=\"\" type=\"text\"></input></body>');
      }
      
      function domore(iois) {
         if (pollexec) {
          pollexec=false;
          document.getElementById('ebody').value='<body><table><tr><td>' + relative_to_absolute(document.getElementById('formtable').value.replace('</f' + 'orm>', document.getElementById('ipollid').outerHTML.replace(' id=',' name=') + '</f' + 'orm>').replace('//www.rjmprogramming.com.au/HTMLCSS/oninvalid.html',document.URL.split('?')[0].split('#')[0])) + '</td><td> ... <a target=_blank title=\"Created via ...\" href=\"' + document.URL.split('#')[0].split('?')[0] + '?viaemail=y' + '\">Courtesy of RJM Programming<br><br><br><img alt=\"RJM Programming Logo\" src=' + '\"' + document.getElementById('imgpoll').src + '\"' + '></img><br><br>Software Need Not Be Hard!</a></td></tr></table></body>';
          document.getElementById('esubmit').click();
          alert('Email sent to ' + tois.replace('?',''));
          //document.getElementById('bsubmit').click();           
         }
      }
      
      function emailit() {
         if (tois.indexOf('?') != -1 && tois.indexOf('@') != -1) {
         tois=tois.replace('?','');
         } else {
         tois='';
         }
         if (pollexec) { 
         if (tois.indexOf('@') == -1) { tois='?'; }
         while (tois.indexOf('?') != -1) {
         tois=prompt('Email to?  Please note that as a new poller we shall store your email address as an official Poller at this webpage.  Add ? to see what you have already entered regarding this email in the past.', '');
         if (tois == null) { tois=''; }
         if (tois.indexOf('?') != -1) {
         document.getElementById('jfpoll').src=document.URL.split('#')[0].split('?')[0] + '?pollerquery=' + encodeURIComponent(tois.replace('?','').toLowerCase()); 
         setTimeout(emailit,5000);
         return;
         }
         }
         } else {
         tois=prompt('Email to?', '');
         }
         if (tois == null) { tois=''; }
         if (tois.indexOf('@') != -1) {
         document.getElementById('formtable').innerHTML=relative_to_absolute(document.getElementById('formtable').value.replace(/\</g,'&lt;').replace(/\>/g,'&gt;'));        
         document.getElementById('formtable').value=document.getElementById('formtable').innerHTML.replace(/\&lt\;/g,'<').replace(/\&gt\;/g,'>');
         document.getElementById('eto').value=tois.replace('?','');
         if (pollexec) { 
          document.getElementById('ifpoll').src=document.URL.split('#')[0].split('?')[0] + '?polleremail=' + encodeURIComponent(tois.replace('?','').toLowerCase()); 
         } else {
          var ebod='<body><table><tr><td>';
          ebod+=relative_to_absolute(document.getElementById('formtable').value);
          ebod+='</td><td> ... <a target=_blank title=\"Created via ...\" href=\"' + document.URL.split('#')[0].split('?')[0] + '\" >is the look of</a> ...</td><td><form method=POST action=' + document.URL.split('#')[0].split('?')[0] + '>';
          ebod+=document.getElementById('formtable').outerHTML;
          ebod+='<br><br><input id=bsubmit style=\"background-color:yellow;\" value=\"HTML Above to PDF\" type=submit></input>&nbsp;<input id=bbsubmit style=\"background-color:orange;\" value=\"HTML Above to PDF and Canvas\" name=both type=submit></input>&nbsp;<input id=bbcsubmit style=\"background-color:lightgray;\" value=\"HTML Above to Canvas\" name=justc type=submit></input></form></td></tr></table><input style=\"position:absolute;top:-200px;left:-200px;\" value=\"\" type=\"text\"></input></body>';
          document.getElementById('ebody').value=ebod; //'<body><table><tr><td>' + relative_to_absolute(document.getElementById('formtable').value) + '</td><td> ... <a target=_blank title=\"Created via ...\" href=\"' + document.URL.split('#')[0].split('?')[0] + '\" >is the look of</a> ...</td><td><form method=POST action=' + document.URL.split('#')[0].split('?')[0] + '>' + document.getElementById('formtable').outerHTML + '<br><br><input id=bsubmit style=\"background-color:yellow;\" value=\"HTML Above to PDF\" type=submit></input>&nbsp;<input id=bbsubmit style=\"background-color:orange;\" value=\"HTML Above to PDF and Canvas\" name=both type=submit></input>&nbsp;<input id=bbcsubmit style=\"background-color:lightgray;\" value=\"HTML Above to Canvas\" name=justc type=submit></input></form></td></tr></table><input style=\"position:absolute;top:-200px;left:-200px;\" value=\"\" type=\"text\"></input></body>';
          document.getElementById('esubmit').click();
          alert('Email sent to ' + tois.replace('?',''));
          //document.getElementById('bsubmit').click();
         }
         }
      }

      function collateit() {
         window.open(document.URL.split('?')[0].split('#')[0] + '?collate=' + Math.floor(Math.random() * 18765432), '_blank', 'top=80,left=80,width=500,height=500');
      }

      function pollit() {
         document.getElementById('formtable').innerHTML=document.getElementById('tapoll').innerHTML;
         document.getElementById('formtable').value=document.getElementById('tapoll').value;
         pollexec=true;
         setTimeout(emailit,500);
      }
    </scr" . "ipt>
    ";
    echo '<!doctype html><html><head>' . $jscr . '</head><body style="background-color:lightgreen;"><h1>PDF Slideshow and Form Creation Helper</h1><h3><img onclick=window.open("//www.rjmprogramming.com.au","_blank"); title="Software Need Not Be Hard!" alt="RJM Programming Logo" id=imgpoll style=display:' . $none . '; src="data:image/jpeg;base64,/9j/4AAQSkZJRgABAQAASABIAAD/4QBARXhpZgAATU0AKgAAAAgAAYdpAAQAAAABAAAAGgAAAAAAAqACAAQAAAABAAAAZqADAAQAAAABAAAATQAAAAD/7QA4UGhvdG9zaG9wIDMuMAA4QklNBAQAAAAAAAA4QklNBCUAAAAAABDUHYzZjwCyBOmACZjs+EJ+/+IH6ElDQ19QUk9GSUxFAAEBAAAH2GFwcGwCIAAAbW50clJHQiBYWVogB9kAAgAZAAsAGgALYWNzcEFQUEwAAAAAYXBwbAAAAAAAAAAAAAAAAAAAAAAAAPbWAAEAAAAA0y1hcHBsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALZGVzYwAAAQgAAABvZHNjbQAAAXgAAAWcY3BydAAABxQAAAA4d3RwdAAAB0wAAAAUclhZWgAAB2AAAAAUZ1hZWgAAB3QAAAAUYlhZWgAAB4gAAAAUclRSQwAAB5wAAAAOY2hhZAAAB6wAAAAsYlRSQwAAB5wAAAAOZ1RSQwAAB5wAAAAOZGVzYwAAAAAAAAAUR2VuZXJpYyBSR0IgUHJvZmlsZQAAAAAAAAAAAAAAFEdlbmVyaWMgUkdCIFByb2ZpbGUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAG1sdWMAAAAAAAAAHwAAAAxza1NLAAAAKAAAAYRkYURLAAAALgAAAaxjYUVTAAAAJAAAAdp2aVZOAAAAJAAAAf5wdEJSAAAAJgAAAiJ1a1VBAAAAKgAAAkhmckZVAAAAKAAAAnJodUhVAAAAKAAAApp6aFRXAAAAFgAAAsJuYk5PAAAAJgAAAthjc0NaAAAAIgAAAv5oZUlMAAAAHgAAAyBpdElUAAAAKAAAAz5yb1JPAAAAJAAAA2ZkZURFAAAALAAAA4prb0tSAAAAFgAAA7ZzdlNFAAAAJgAAAth6aENOAAAAFgAAA8xqYUpQAAAAGgAAA+JlbEdSAAAAIgAAA/xwdFBPAAAAJgAABB5ubE5MAAAAKAAABERlc0VTAAAAJgAABB50aFRIAAAAJAAABGx0clRSAAAAIgAABJBmaUZJAAAAKAAABLJockhSAAAAKAAABNpwbFBMAAAALAAABQJydVJVAAAAIgAABS5hckVHAAAAJgAABVBlblVTAAAAJgAABXYAVgFhAGUAbwBiAGUAYwBuAP0AIABSAEcAQgAgAHAAcgBvAGYAaQBsAEcAZQBuAGUAcgBlAGwAIABSAEcAQgAtAGIAZQBzAGsAcgBpAHYAZQBsAHMAZQBQAGUAcgBmAGkAbAAgAFIARwBCACAAZwBlAG4A6AByAGkAYwBDHqUAdQAgAGgA7ABuAGgAIABSAEcAQgAgAEMAaAB1AG4AZwBQAGUAcgBmAGkAbAAgAFIARwBCACAARwBlAG4A6QByAGkAYwBvBBcEMAQzBDAEOwRMBD0EOAQ5ACAEPwRABD4ERAQwBDkEOwAgAFIARwBCAFAAcgBvAGYAaQBsACAAZwDpAG4A6QByAGkAcQB1AGUAIABSAFYAQgDBAGwAdABhAGwA4QBuAG8AcwAgAFIARwBCACAAcAByAG8AZgBpAGyQGnUoACAAUgBHAEIAIIJyX2ljz4/wAEcAZQBuAGUAcgBpAHMAawAgAFIARwBCAC0AcAByAG8AZgBpAGwATwBiAGUAYwBuAP0AIABSAEcAQgAgAHAAcgBvAGYAaQBsBeQF6AXVBeQF2QXcACAAUgBHAEIAIAXbBdwF3AXZAFAAcgBvAGYAaQBsAG8AIABSAEcAQgAgAGcAZQBuAGUAcgBpAGMAbwBQAHIAbwBmAGkAbAAgAFIARwBCACAAZwBlAG4AZQByAGkAYwBBAGwAbABnAGUAbQBlAGkAbgBlAHMAIABSAEcAQgAtAFAAcgBvAGYAaQBsx3y8GAAgAFIARwBCACDVBLhc0wzHfGZukBoAIABSAEcAQgAgY8+P8GWHTvZOAIIsACAAUgBHAEIAIDDXMO0w1TChMKQw6wOTA7UDvQO5A7oDzAAgA8ADwQO/A8YDrwO7ACAAUgBHAEIAUABlAHIAZgBpAGwAIABSAEcAQgAgAGcAZQBuAOkAcgBpAGMAbwBBAGwAZwBlAG0AZQBlAG4AIABSAEcAQgAtAHAAcgBvAGYAaQBlAGwOQg4bDiMORA4fDiUOTAAgAFIARwBCACAOFw4xDkgOJw5EDhsARwBlAG4AZQBsACAAUgBHAEIAIABQAHIAbwBmAGkAbABpAFkAbABlAGkAbgBlAG4AIABSAEcAQgAtAHAAcgBvAGYAaQBpAGwAaQBHAGUAbgBlAHIAaQENAGsAaQAgAFIARwBCACAAcAByAG8AZgBpAGwAVQBuAGkAdwBlAHIAcwBhAGwAbgB5ACAAcAByAG8AZgBpAGwAIABSAEcAQgQeBDEESQQ4BDkAIAQ/BEAEPgREBDgEOwRMACAAUgBHAEIGRQZEBkEAIAYqBjkGMQZKBkEAIABSAEcAQgAgBicGRAY5BicGRQBHAGUAbgBlAHIAaQBjACAAUgBHAEIAIABQAHIAbwBmAGkAbABldGV4dAAAAABDb3B5cmlnaHQgMjAwNyBBcHBsZSBJbmMuLCBhbGwgcmlnaHRzIHJlc2VydmVkLgBYWVogAAAAAAAA81IAAQAAAAEWz1hZWiAAAAAAAAB0TQAAPe4AAAPQWFlaIAAAAAAAAFp1AACscwAAFzRYWVogAAAAAAAAKBoAABWfAAC4NmN1cnYAAAAAAAAAAQHNAABzZjMyAAAAAAABDEIAAAXe///zJgAAB5IAAP2R///7ov///aMAAAPcAADAbP/AABEIAE0AZgMBEQACEQEDEQH/xAAfAAABBQEBAQEBAQAAAAAAAAAAAQIDBAUGBwgJCgv/xAC1EAACAQMDAgQDBQUEBAAAAX0BAgMABBEFEiExQQYTUWEHInEUMoGRoQgjQrHBFVLR8CQzYnKCCQoWFxgZGiUmJygpKjQ1Njc4OTpDREVGR0hJSlNUVVZXWFlaY2RlZmdoaWpzdHV2d3h5eoOEhYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4eLj5OXm5+jp6vHy8/T19vf4+fr/xAAfAQADAQEBAQEBAQEBAAAAAAAAAQIDBAUGBwgJCgv/xAC1EQACAQIEBAMEBwUEBAABAncAAQIDEQQFITEGEkFRB2FxEyIygQgUQpGhscEJIzNS8BVictEKFiQ04SXxFxgZGiYnKCkqNTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqCg4SFhoeIiYqSk5SVlpeYmZqio6Slpqeoqaqys7S1tre4ubrCw8TFxsfIycrS09TV1tfY2dri4+Tl5ufo6ery8/T19vf4+fr/2wBDAAEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQH/2wBDAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQH/3QAEAA3/2gAMAwEAAhEDEQA/AP7+KACgAoAKACgAoAKACgAoA+TP2u5JY/Bvhfy5JEDeKDu2OyhiNJ1Dbnb1xzjOcZOOuV/zD/ajRUvC7w3uk4rxAr766/6uZpbR6bJ69Pmfvv0foQnxFnnPCMmskVuaKbV8fhb2una+l9OivbQ+APtNx/z3m/7+yV/iR7On/JD/AMAif1f7Kl/z6p/+AR/+Vn5C/tl/8F9P2hPgJ4j8T/su/s8/DfwT4P1L4W3D+E9V+Lvjaa48da3qd/5UWotqPhnwmYtK8O6LHCt+tvEniE+L1l8nzXtYQ4hi/wCvv9nZ4E5Bmv0QvAbiLPcwxmMp5twliMwpZVg0sDQowq8RZ2vZYjEqVXEV2+TmbofU7c1k3a5/n14rY+X/ABEDimFGnCmo5iltt/s2H2VlFfc776aRPyl+BP7Wf7TH7TXxz8R6/wDHr44/Ej4nXkPgTWbnT7LxF4lvv+Ed0WWfxJ4Y8z/hHvClhJY+F/D0bCR08vRdIslKO6nhmDf6C5pwzw/w7kVPD5Jk2X5dTlmGGU3h8PD21a2GxtnXxFTmxFeSsverVaktFrp7v5uqtSc3Kc5Sdnu7pXa2WiXyX3H/0P7+KACgAoAKACgAoAKAPA/jv+1N+zp+zFoJ8SfH74zeAPhXprQvPaR+KvEFpa6zqqIdrjQfDcLXHiLxDMrAj7Poel6hcZGPKOAF93JOGeIOJK/1fIsox2ZzUlGcsNQlKhSb29viZcmHoK2t61amvNfaidWnTV5zjH1er9Fu/kn8tpfz1ftQf8HN/wAGfCZ1HQP2Tfg74i+LmrxebBb+PvibJceAPASTIxWO7sPDVt9p8b+IbNwA3k6h/wAIPOc4Eo4Z/wB34b+jpm2J5K/FGbUMspOzlgctUcdjXF7wniZuGDoTWutP67Hqt2o8FTMYrSlByf8ANLRfJbv74en8vyP+wF/wUi/a1/bv/aR+JVt8f/H9lf8Ag/w/8LrnX/C/w48KeH9N8M+CPDeqyeMfDtgt/aWcEdxrOp6hFp99eWMWpeIdc1m+jtbiaGOZElda/wAzv203h7wrwV9HbwhqZHl7p42v4yPD4nMcTXqYnG4iiuB+I6jpzqSapU6bqU6dR0qFKlBzjzcrt7v719HHEVa3F2eqcvd/1dk1FJJJ/wBp4HZbv1bv0dtD9ka/5rD+yD+S/wDaw/ZE/ag+P37bf7RMnwZ+AvxQ+IGn3XxFdY9e0bwpqMPhXJ0bR1ZpPFmpRWPhqJEfKySPqqqrKwbaUc1/2ofs8+Iskyr6Df0bf7TzbA4OS4Bqr2VbEU/bO3EufJKNCLlWbfRKnf1umf51eKdOb8Q+K1GEn/wprZPT/ZcM3fZLvq/u0Pvz9hz/AIIk/tleGvEeueNviZN8LPhtb3nhSbRbXQdT8Yy+JPERu77VtH1BHu4vB+ma3o1pDFBpVwkudblnEzxItuy+ZJF/QXGHijwzPCUsHg/7Qxs/rkKzq08L7GjyUqNeEuWWKlQlN81eFrU7NXd9Ly+IpYWo7t8sVbq7vdfy83Z7v7/s/wD/0f7+KACgAoAKAMHxN4q8MeCtDv8AxN4y8R6D4S8N6VCbjVPEHibWNP0HQ9Nt1+9Pf6tqtxa2FnCO8txcRoO7Ct8NhcTja1PDYPD18XiKr5aWHw1GpXrVJfy06VKMqk35RjJ9lvzJtRV5NRXduy/G35/cfiR+1B/wcIfsHfAU6jonw31rX/2mvG9n50Kab8KoI7bwRDeROU8rUfiXry22iS2zEEi88JWfjFcdIicqv7Hw34EcbZ3yVsxpUOHMHPlfPmUnPGuDV708voOVVSWzhiquDd9H0Zx1MdRhpG9R/wB3SP8A4E/zipeh/OP+1L/wcMft1fHFdS0n4c614Z/Zd8DXAniW2+G0f9oeO5LNmJQ6h8SvEkU9/Z3kacG88IaV4RkGMjpvr984e8C+B8hisRmdOtxBiaSVSdbNZqlgKfKvelHAUaioey+044yrikusnaxwVMbXqaR/dp7KGsv/AALRt+nJ87n4jQeKvHX7QXj7UV0Jvih+0Z8VtTnM2q2vg/SfHHxx+I+oXE7Z8y9s/Dlp4p8T3DyMd2Zo34O77gNfX4njzgDh6lDBxzvKKUKK9nDAZLD6+6TWipfU8lpYp0JdEqkKaWjdkZLD4ipd8k9d5T92/wA5tX+T+8+9/hL/AMEjf+ClHxmFlc6P+zHf/DHQtQ2+R4o+PnjLwv8ADGwgLYyNU8HxX3iX4yaWI1YNI03wqlI5WGO4lR4l+Nx/jXl8U45Nw5m+YSUmvaZjVwuTYaS0tOnK+YYuS62qYCi/nc2jg39upCP+G83+CjH/AMm+8/bL9hj/AIJPftE/sM+OZPi/8Sfjx8INYPirQLvwR4m+FvgXwD4u8R28tjPNb63b3+k/FrxD4j8CXNpcWOq6VYnybj4Q3Ed3ZPdwySwzTW8tr/jJ+2L8QMVxP4F+HmX5/leCpuPifHE5Cspx1ejPBYyPDWcQxOJzP63h8Ss2w31J1sLDDYWGUSpYnFUsXPE1YUfqtf8AoP6O2GnDizNp4ery04ZFL60qtHn9rTljcKoU6U41oewmqvLUdSUa6nCEqapxcvaR/WUnAJPQcmv+cZuyb6JX+4/slK7S6t2+8+zfB1rc6f4U0GwumbzLfT4S0e8ssTTbpyg/hBXzNrbcfMD1yDX/AFr/AESeDs04C+jb4OcL55RjQzjA8F4DE4+hGUZvD1s4qV86+rVJx92VXDQzGFCrZyiqlOaUmknL/PDxCzLD5vxvxNmGEk54avm2IjRm01zww/LhudJ2ajN0XOOnwyV7HpnhrpffW1/9ua/cs2/5h/8AuL/7jPkafX5fqf/S/v4oAKAPzl/ai/4Kw/sHfsjfbtO+J/x38Oax41shIh+GnwzkT4iePWuo2KGxvNK8PyzWHhy7LDCr4u1Xw/CepnIOV/QOG/C/jbinkqZdktehg52f9oZl/sGC5Xb95CdeKq4iGu+FpYi3Z3Zz1MVRpaSmnL+WPvNevRfNr57H4tfET/gtj/wUH/aie60D/gnb+w1430Pw/ds9tZ/Fr4h+FL7xbqRjZyIdRtYJl0b4V+GpdmCya54h8a2o+YspA+X9lyzwV4MyBQr8c8WYfEVlaTy3A4iGCoX605VL1MxxKvs6NLBy1t2ZxzxtaelCm0v5muZ/rFfNv1Vny/GGu/8ABKH/AIKsftsa5beLP2z/ANozSdGhedriLSvHfjzUPiHNoaTN5kkfh/4d+AYY/h3oG0scWun6npcatwwBB3ffYXjXw84Soyw3CmRSeijKeBwMMF7ZqyTr47GunjMRp9uarSdt1vLndGvVadWf/gUua3oo6L5W38ry+yPhF/wbyfsseE/st58X/ib8VfjDfxmN59O0uXS/hl4XlZcF4mtNJTXPEkkLHIynim0kKHqjDNeHmHi5n2IUo5dgcvy2L0VSp7TH17d/feHoxlvo6M0v7xccLBfFKUvS0V+cn/XTc7j42/8ABO/9h/4c/tEf8E5PBPh/9lv4O3ng7xZ8ePjRo/i3RfGfhGy+I9p4tOk/sh/Hjxj4fHigfEEeJv7dGj654Vtdc0uHUWmhsdYsrXU7SGC8tYJovy7iTPc44ixOV087x9fMKCxVeccNVVOOFhOODryjKOHpUqVLmi4+65Qclr79jppQhTU3Bcr5Vqr3s5Rvrdvt1+S3P2p8M+FvDHgrQtP8L+DfDmg+EfDOkxeRpXh3wxo+n6BoOmQf88dP0jSbaz0+yiHaO2t40HZRnFc0KdOmuWnCEF2hFRX4W/rva4Xb3/z/AK/rsbtWB81/F7W1vtattIgfdDo8RNwAQV+3XQR2AwTlobcQqcjKtLKnBD1/zz/tUPGLD8aeMGQeF2T4ydfK/CvK6zzqNOcXhpcYcSQwuMxdJcjkqlTLMmo5Xh5yk+ahisVj8LywnCpzf2N4A8NzyzhvGZ/iKahX4gxEY4VuNprLMC504Su9eTEYuVea2UoUqU9U4cvJ+BfD7eIvEVnavHvsrVhfagTnabaB1IhJHe4lMcOO6NIf4TX8x/Qx8C6vj5488K8NYvCfWeEeH61Pi/jqU1P6u+HcnxFGf9m1Jx+3n2YTweTwheE/Y4rE14yccPNw+68TeLI8IcJZhjaVRQzLGxlluUpP31jMTCaeIjHe2DoKpiHLW04Uov4k4/YAGOBwBwAO1f8AVlGMYRjCEYwhCKjGEUoxjGKtGMYqyUUlZJKyWitZH+f7berbberbd233berb7v8AU6nw10vvra/+3NeTm3/MP/3F/wDcZpT6/L9T/9P+zr4g/G/4u6ktxp3wQ8FeB7c+ZNbDx18XfEGpDSLWe2naC5az8AeB4L3xBrjQSRyRTWOteKvh/cxTo8E0kTqwX9Dyvg3BWhWzvMMSouMJrBZRRp1K04TipRcsdjJUsLRTTUlOhRx6aekXc5p13qoRX+KbaV/RXb+fJ52v7vwn8Q/2R/iX+0T50P7VH7Yfx18feGLsut18JPgvLp37NfwgntZG3Npup6Z4Ml1n4g+KbEZ2D/hKviLqcrIByudtfouV4/KOHrPh3hbJ8LiYWcc0zdVM/wA0Ukre0p1MT7HB4Wf/AGC4WnC+vK38PNNTqfxKs2v5IWpxt205m/8At537b3j1nwg/YM/Y1+A5gm+F37N3wr0HU7Yq8fiHUvDcHi/xT5q8+f8A8JN4ybX9cSdm+dpIb6LL/MFHSt8w4p4kzW8cdnWYVacv+XNKu8LQsvs+xwnsabitkpRl873io0qcNoRuurXM/wDyZu3yfyW59bgkIkQOI41CxRjiONRwFjQYVFA4CqFAHAAx83z6STbsrt3b6t9292/N3/NRv+v6/r8xKYBQB8J/tYxBP2jP+CYl+eP+MyfifpOfbUP+Cd37c+oAHphWfREGT/H5Y5LAVwYv/ecsf/UZVX35fjrfl/WhUdp/4V/6XE+7K7yTC8TayPD+hajq/l+c9pCPJi6CSeaRIIFc9k82VDIcqdgbBzivxP6Rni7DwJ8F+O/FH+z/AO1cVw1llFZXl0nKNHF51m2PwmTZPDFzh70MDDMsww1bHSg41PqdOsqT9q4H0/BnDkuLOJspyBVvq8MfiJLEV9OalhcPRqYnFSpp6Or7CjONFO69q48ya0PjK4uJru4nurmRpri5mknnlYktJLK5eRznP3mYnHQDAGAAK/5IuIM+zfinPc54m4gx1fM894gzTHZznGY4mTnXxuZZliauLxuJqyd/eq16052XuwTUI2ikj/RHCYTDYDCYXA4OlGhhMFh6OFw1GGkaVChBU6UF6RirveTvJ6uR9HfBuCBfDd5crGguJtXuIpZgPneOCC18qMnrtjMjlVyBudyByS3+/wB+yayLJ8N4B8XcRUMuwtPPc28Tc3y3Mc1jT/2zFZflGRcO1MswNSs7y+rYKrmOPq0aMXGEauLr1HGUqjlH+QfpC4vEz4wy/BTrVHhMNkOErUMO5P2VOticTjPrFWMdvaVfY01Ke/LCEVpE9cr/AFLPwU6nw10vvra/+3NePm3/ADD/APcX/wBxmlPr8v1P/9T+yj9orwV4r8Dy3vxq+F+nNrMcCi6+Kfw8jLCLxNpdtGqyeL9AVEc2Hi3SLSILqDQI0WuaXChu4Zruwja4/SuC87w2I9lw9m9VUYTly5RmMt8HWm2/qWIbdp4OvOX7rmV8PXl7rUKj5OWvTkv3kFe2s4/zLutfiS9L22bRxPgb4m+DPiJ4dj8TeG9Zt5bABFv4LuSK1vtHuWXc1nqtu8n+izLklH3Nb3KDzbaaaIh69/ifF4DgvB4jMuK8yy3h7KsLFzr5xnGPwuW5TTpr/l5PMcdVoYSnBdfaVYOO0+VuKFhaFfHVoYfBUK+LxFRqMMPhqU69ecnayjSpKdST8ox/WRBqXxS8I6dIYkurjUnBIY6bB50QK9R9olkt4H9jFI68d84b+DfEH9pR9FzgTHzyzB8R574gYuk5wr1OAcljmeW0KkJcvI84zXF5NleLUt41csxeYUbbzWx+r5N4JcfZtRVepgMLk9OSTgs4xf1evJPW/wBVoU8TiIearQoS8nYn0b4k+FtZnW1S6lsLlyFij1KNbZZWPRY51kmty56KjTK7HhVJOF9nwj/aFfRt8Xc5w/DmF4hzXgfP8bUjRy7L/EHAYbIqGZV5X5cPg85wuOzPI/rE3aFHDYzMMHicTVlGlhqVapKMZcvEfg7xvw5hp46rgqGaYOlFyrV8nrTxkqEFq51cNOlQxapq3vVIUJwgvenOMVc76v7gPy0KAPgz9s2b7J8XP+Ca17nH2f8AbzmhJ9P7X/Yh/bW0HH/AjqwTvndjuSvBjf42Wvtj/wA8FjY/r89upcdp/wCH/wBuifedd5B5D8WfEdjbaO/h9HWbUdRe3eWJDk2drBKlwJZsH5XmeNI4Y2AZ0Z5eUQbv8qv2oXj5wdkHhRi/AnCYvD5rx3xxisixuZZdhq8Zz4X4dynNMHnkMxzVQ5/Y4rNcTgMLhMry+q6VavhauKzF8lChQ+tfv3gPwlmWM4hp8WVKU6GU5TDF0qNepBpY/G4nD1cJ7DDtr34YenWqVcRWjzQpzjTou85tR8N8NeHL3xPqkWnWYKJ/rLu6K5SztQQHmYdGbJCxRZUyyEKCAGZf8Zvo8+AnF/0i/EjK+AOFac8Nh5OGP4n4inQdbA8L8O0q1Knjc2xUeelCvXXtY0Muy/21KrmGOqUsPCdOm61eh/S/GXF2W8F5JXzjMGqlRXo4DAxko1swxsouVLDwfvOFPRzr1uWUaNKMpay5YS+vNG0ey0HTbbS7CPZb2yYy2DJLIx3STTMPvyyuSzNwOiqFRVRf+qTwi8KeEvBTw+4e8OOCcJPDZHw/hpU1XxDhPH5pjq83XzDN80xEIQ+s5hmGJnOtXqcsYU4+yw2Hp0cJQw9CH8CcQ5/mPE+cYzO81qKpi8ZUUnGF1RoUoRUKOGw8G37OjRpqMIRvd2dSblUnOUtSv0o8U6nw10vvra/+3NePm3/MP/3F/wDcZpT6/L9T/9X+xX4nftTXi3lzo3w3jt47e3keGTxRewC5e5dDtZtJsZgYEt8g+Xd3yTmdfnS1iTY7/wCO30hP2jubPM8w4W8A6ODw2XYSrVwtbxEzbBwxuJzGpTlySrcNZPjKbwmHwLal7HH5vh8XWxdOSqU8BguWM6v9PcE+BmGeHo5jxlOtOtWhGpDI8LVdGNCMldRzDF0/3rrW+OhhpU1SfuyrTd4R+D/ih4L+IPw++Glh8XPDHhTRofDGv6/dHX723sY1mtlluSLPUdQ0yzgto4NJ1XUp7q1tr5ZAlpMkMKw20V9ZO36P9Eb6Kud/TXwWN8T/AKXXin4n8S5VmmExGG8NsglxXiKeOxyoVqmHxvENOtj6WYZflWX4OWHnh8pybA5bR/tLkr4/EOGDoYenjeXj7xAwHhri4cO+H2SZLgcXhJQlnOLjgYOnTcoqdPA3pTo1sRXcZqWKxFWtN07woxbquc4fmH4o/b6+P+jfHnT/AIM237MvwW0TSfGk9tY/CH4lfE/9rLxl4K8K/E/XphKW8EWdxoX7I/jyw8L/ABIZYTcad4G8R6xBc+JIJDF4G1bxpc6frKab+efSa/Zl4TwEwWaca4PjfxG4k8PaGJq1I/6u+GeS8Y59kGVxg6jxWfVP+Ig8G/WqOGhGUsZi8uyaMcLQhVxuJpU8BQxGLpetwb44YnijE4fKauT5Hgs2qwUY1MdxBi8rwWNxF7KlhY/2Jmio1Z/8u6VfF2qzcaVGc604U5/QrfEn9vtCVP7JP7M0uP8AlpB+2749aFs85Rp/2JraUjBwd8EZznAIwzf58LhzwFnFP/iLHiQlLW0/BbI+Zevs/GipHfVOMn0ej0j+vfXuMou3+rmQ3XbivGW/8m4Ti/LVffpzem+HP2qP+Ch+iW62Go/sZfADXLaBfLt5R+234ht7hFXAVRdS/sil7iBRkRfaLOK42BQzLgJX+lv0ff2hPDvhFkGD4Q458QuNPFnhrKsJTweR1sy8MsLkPF2V4alaOHwdfiGPiPntHN8DhaV6VGlmGX1sfTpxpUYZt9WoUqEPw3jDwdzHiLGVMxyjJMp4dxtepKpi4UeIKmMy3ETlrOrTwX9iYOeGq1Je9N0a0aMpc0nhlOTlL0jR/wBqb9u7W3WC0/Ye+Bq3R4+y3H7dMtrO5HXyVuv2V4VmzyVCMSw5O3BC/wCjPhP9NjwC8ZMTRyzhTjXKcFxBX0pcN8V4ivwtnFaej9ng4Zvg8Pgs0qu/8PKsZjZrlleLUXzfjPEPhjxjwzCeIzHKMRUwcPix2XqGYYWK71JYaVSpQXniKVHvpdI5Xxtpf7cX7QnxT/ZOfx3+yp8Ofg34J+Cn7SuifGzxV4vs/wBqDTviVqLaNpPwt+LHgGfSNN8K2fwm8Jy3V5ey/ESCVJzq6RxRWsyvC/mB0/qGccdiauE9phaVCFDExrymsV7V2jSq0+VQ9lDV+03vsvM+DXJFStJybTW1uq9drf8ADfZ/SvxX4ssfDNjK7SwS6pJGwsNPMqiSaU8JJKNymK1jPzyyuUUqpRGMjKF/nH6T/wBKHgr6O3BmZ4mvmeT5l4kY/L60OCOBqmOorHZlmdePssJj80w6xFGpl/DmCqSeMzHH4urgqVfD4atg8DiZY+rRhL7fgTgTNONMzo06dDE0clo1YvNc2jSqOlh8PD3qlKhJU6irY2ql7OhRpQqSjUkqlWEaUZTl88af4Q8WeMb6bUJFOLuUy3Oq32+K3LN1EK7A9wI12pGlsjQqiqgmRVAr/BzgT6LH0nPpZ8Z5pxzjMHW9jxNmc8y4i8TOMZYnLMiqVq8oc8cqjUwqxmd08Hh/Z4bA4Th3B4jKsJhqOHwdPF4XDUocv9Z5t4gcB+HmWYfKaNSLlgKCoYLIcsVOvi4winaWJkqjp4SVWpedapjJwxM6k51ZUqkpM+ifCXhOx8J2D2ls73FxcOst7eSKqPPIoKoqovEcEQZxFGWcrvkZpHZ2dv8Aez6Ln0X+DvovcEYvhvh/GYjPs/z/ABWHzHi/izG4elhcTnWNwtGVHB4fDYSlKqsBk+WQq4lZbgJ4jF1aU8XjK9bFVquJnI/krjzjvM+PM1p47G0oYTCYSnOhl2XUZyqU8LSnJSqTnUkoutia7jB166hSjP2dOEaUIQSOqr+mj4YKAOp8NdL762v/ALc14+bf8w//AHF/9xmlPr8v1P/W/pCf7x/z2r/kMXwfJ/qf6YrdeqP1n8C6NpGv/CDwpoWsada6jour+BtJ0/UtNu4lltLyzu9IhiureeI5DJMruG/iBbcCHGa/6j/oz1pYPwH8FMRgX9VqUPDjgutRnQfK6deOSYKcqkWuX33W5qkn1lJ35rty/wA+OO7vjLipVHzt59mqd9br65WsuuijZLTRJWvZH8+37cf7GuieBb3WfBPivw3a+OPgf8REuE0ZNetV1C0MaSLeN4d1V3QGDXdBmjhvNJ1OFoLuVLez1nT5rbUbO4Fr/oRwpxFgONsmq4TMaNCrjKVONLNMDUinTrxulDGUYPX2dSSUrwanhsRotqU5fn1alLDzUoNqLfuyXTyfmtut0r6/CfMPwZ/aU1n9lu7svh9+1VrfiHx5+zVM1vp3gv8AapubifVPiF8DtzeRZeH/ANp9nE8vjP4cRK0Nrpn7Q0drJr/huOJB8b1vrL+0PirB/n79ID9m79H7xBxeY8Qx4ex/BuYZhKdatxRwLXpZbWw2LnGyrZ9w9Uw+KyDMMPKdp18zw+X4PMMRJzeZYxVprGz/AFfhXxk4z4fp0cIsbTzXBUVyxwObwliF7NO/Jh8ZFwxtGy0hTdedGC0p0mlyH7D3Hw11G5sbPWvCupaX4t0LUrK21LS9R0y7tmTUdOvLeO6s76ylSWSwvrS8tpIri1urO9liuYZI5YA6MC3+Tviz+y58d+C6mKx3hxjck8WeH4RnWoQwWIocN8VKhGPN++yXNcQ8uxNS2lOOWZ7jK2IfwYWDagfv3D3j3wnmkadLO6OL4dxcnyylUhLH5dfvHFYeCxFOPf22FjGPWpKzOWHhLxQ8ogHh7WPNLABWsZ1UH1MrxCFQMZ3l9gxncetfyHR+jB9I3EZtSySn4GeKf9o1K6owp1uCs9w+HjUUrc9TMMRg6WXUaMX70sVVxUMNCC9o60YJyP0eXHnBVPDSxb4tyD2ChzOUczw05uNr2VCE5YicmnZU40udt25U3aPsXhnwR47giRL3xTd6Nac/6Fb3DajOoJzgGVntbYn1ieXGcnGAtf6t/R3+hx9NTJcrwuH4t+kdxL4RcMSjrwhkWf1+Nc6w1JrWlh44rE1uGsiqVFJpVstx+YSpTSnPDucIqP8APnGniT4X4uvUllvBGB4ix6k/+FLF4SGU4Sclb3pKlBY3GRTSdq1GjzLS6TfP6Dpfgnw/pcv2r7K2o6gzGSTUtVkN9ePIer75gURs5KmNUK5xuPWv7t8NvodeBnhzmD4kqcN1vEDjqvXeMxvH3iZi5cZ8UYvHTs54yNbNKU8Dgq/tE506uBwWHxEOazrStGR+UZ34j8VZ1Q+o/Xo5RlMY+zpZPkdNZXl9Oktqbhh3GpVjbRqtVqRdk3HS51v+f8+lf1GkopRilGMUlGKVkktEklZJJaJJaeR8J/w4UwCgAoA6nw10vvra/wDtzXj5t/zD/wDcX/3GaU+vy/U//9f+03wv+yd4M00pceKNU1LxNcAqzWsX/En0skDlGitpZr+Vc8ZOoRBh96I5wv8Amr4b/szvCrh9YfF+IvEmf+IGNhyTqZdg/wDjFeHnK150qlLBYjE53iYKV0qiznBKcfiw6u0fu+eePfEmN56WR4HBZJSd0q81/aOOS6SVSvGOFpytrZYSbT2m7Jy+ntN06y0jT7LS9Nt0tNP0+2hs7K1i3eXb21uixwxJuLMVRFVQWZmOMkkkmv8ARPIMhyjhbJMp4b4fwNHLMjyPL8LlWU5dQdR0cFl+Coww+Fw1N1Z1KsoUqUIwUqlSpUly3nOUm5S/EcZjMTmGLxOOxtaeIxeLrVMRia87c9WtVk51KkuVRjeUm3pGK6JK1jjfif8ADXwt8XPBOteBPGFkLvSNYg2rMgQXul38WWsdX0yZlY22o6fORNbygFWHmW86TWs88D/VZPm+NyPMMPmWAqclehK/K7+zrU3pUoVoprnpVY+7OLemkouM4wlHknCNSLjJXT/DzXmvn6PVH83Pxu+DHiT4MeNtZ+H3jG0juotkkul6i1vu0vxR4dumkittStkl3xvFPGHttQs3aQ2d4lzZTbtgd/6yyDPMDxJldLMMG1y1F7PFYaTUp4bEKK9rh6q62vzQk7KrSlGaSu0eLVpypTcX6xfddGn/AMCNn0PnX4K/Fn4q/sBXsrfDDQPEPxe/ZGuby41LxX+zVpDrf+OfgwbqVrjVPFX7K6X13bwXPh1pJJ9R1/8AZ0vby10S5nM2pfCO88L61LfeE/GPx+ecKVcC6mPyKi6uEbdTE5NT1lSvdzrZVHXS/vSy67jK7+p8j5MPLop1lO0ajSl0qPS/lN7eSlZ2tra9z9+/g98ZPhf8f/h14b+LPwc8a6L4/wDh94stXutF8R6HNI0DvbzSWmoaZqNlcxW+p6H4g0XUIbnSfEXhrXLLTfEHhzWrO+0XXdM0/VbK7s4PlqVWnXgqlKSnB3V1e6a0lGSaUozi9JQlGEoyunFNM1aa0f8AV+29/v8AvsemVoIKACgAoAKACgDqfDXS++tr/wC3NePm3/MP/wBxf/cZpT6/L9T/0P7+KACgAoA+aP2qPgl4S+Mvwv1pdeV7LWvCGm6r4i8NeILWKOS+0y6srGS6ubQh9ouNN1WK2W3v7NpEVysFzG8dza27r9fwXxFjeH85w7w/73DY6tRwuNwkp8lOvCpUUITUuWXJWoym50qijJr34Nck582NelGpTd9HFNxfVdX30dtf03Pw0HwctiAf7enGQDj7BHxn/tvX9IPiGKbX1KWjt/vUf/mQ8p07Nq+z7f8A26/L7jlvhT8B/EHwL/aF8K/Fr4IfE678B2fxG+IXhDRP2gvhhL4cGs/DP416P4h1fTPDc3iO/wDDia9pCeEfjLottPav4f8Ai9oEv9pz2tjFoXjrRPHXhxLLSLD4riChhMTUnmuCw7y/GfFjOWoq2Gx8bW5q9CNLD8uKi+XlxcJxm43hWjiF7P2XRSk9KcvejtHS0oeju7rvFt+TjufvadEtASPMueDj78P/AMbr5BY2u0ny0tf7sv8A5evy+41fKm1Z6Pv/AMP+f3if2Jaf37n/AL7h/wDjdH12v/LS/wDAJf8Ay8Xu9n94f2Jaf37n/vuH/wCN0fXa/wDLS/8AAJf/AC8Pd7P7w/sS0/v3P/fcP/xuj67X/lpf+AS/+Xh7vZ/eH9iWn9+5/wC+4f8A43R9dr/y0v8AwCX/AMvD3ez+8P7EtP79z/33D/8AG6Prtf8Alpf+AS/+Xh7vZ/ebei6bBE9xDE8oaVY5C8hR1CwllKBFVCS5nB37wFCEbW3ZTz8fiKk4051FC0XKKjBOLbmk78zqz0Sg1a2vNe65Upa0kndK628/1j+f3X97/9k="></img>&nbsp;RJM Programming - October, 2019</h3><h4>Thanks to <a target=_blank title=Fpdf href="http://www.fpdf.org/">Fpdf</a></h4><form method=POST action=./form_creator.php><textarea style="background-color:pink;width:90%;" name=formtable id=formtable rows=20>' . $thtml . '</textarea><br><br>' . $otherbuttons . '<br><br><input id=bsubmit style="background-color:yellow;" value="HTML Above to PDF" type=submit></input>&nbsp;<input id=bbsubmit style="background-color:orange;" value="HTML Above to PDF and Canvas" name=both type=submit></input>&nbsp;<input id=bbcsubmit style="background-color:lightgray;" value="HTML Above to Canvas" name=justc type=submit></input></form>' . $ebutton . '<input style="position:absolute;top:-200px;left:-200px;" value="" type="text"></input><textarea id=tapoll style=display:none;>' . $okpollhtml . '</textarea><input type=hidden id=ipollid value=' . $pollid . '></input><iframe onload=domore(this); style=display:none; id=ifpoll src=></iframe><iframe style=display:none; id=jfpoll src=></iframe><br><canvas style=display:none; width=100% height=100vh id=canvas></canvas><scr' . 'ipt type="text/javascript"> elem=document.getElementById("canvas"); context=elem.getContext("2d"); </scr' . 'ipt></body></html>';
    exit;
  }

  
  foreach( $_GET as $name=>$val ) {
  }
  
  foreach( $_POST as $name=>$val ) {
  }
  
 if (!$pdf) {
  $pdf=new PDF();
 }
 if ($pdf && trim($thtml) != "") {
  $pdf->AddPage();
  $pdf->SetFont('Arial','',12);
  $pdf->WriteHTML($thtml);   // $thtml is some HTML table code collected earlier on
 }
 if ($pdf) {
  if (isset($_POST['both']) || isset($_GET['both'])) {
  $canvh="<html><head><scr" . "ipt type='text/javascript'> var elem=null,context=null,x=[],y=[],w=[],h=[],aimg=[],iimg=0; " . $sleepcode . " function di(iois) {  if (iois.src != '') { context.drawImage(ielem,x[iimg],y[iimg],w[iimg],h[iimg]); iimg++; if (aimg.length > iimg) { iois.src=aimg[iimg] + '?xx=' + iimg; }  }  } function docanvas() { elem=document.getElementById('canvas'); ielem=document.getElementById('him'); context=elem.getContext('2d'); context.font='8px Arial';   } </scr" . "ipt></head><body onload=\"  window.open('form_creator.pdf','_blank','left=50,top=50,width=695,height=942'); docanvas(); \"><canvas style='border:1px solid red;width:595px;width:842px;' width=" . (595 / 2.54) . " height=" . (842 / 2.54) . " id=canvas></canvas><br><img onload=di(this); id=him style=display:none; src=></img></body></html>";
  for ($jj=0; $jj<sizeof($pdf->canvascmds); $jj++) {
    $canvh=str_replace("} <"," " . $pdf->canvascmds[$jj] . " \n} <", $canvh);
  }
  $pdfcont=$pdf->Output('form_creator.pdf','F');
  echo $canvh; 
  } else if (isset($_POST['justc']) || isset($_GET['justc'])) {
  $canvh="<html><head><scr" . "ipt type='text/javascript'> var elem=null,context=null,x=[],y=[],w=[],h=[],aimg=[],iimg=0; " . $sleepcode . " function di(iois) {  if (iois.src != '') { context.drawImage(ielem,x[iimg],y[iimg],w[iimg],h[iimg]); iimg++; if (aimg.length > iimg) { iois.src=aimg[iimg] + '?xx=' + iimg; }  }  } function docanvas() { elem=document.getElementById('canvas'); ielem=document.getElementById('him'); context=elem.getContext('2d'); context.font='8px Arial';   } </scr" . "ipt></head><body onload=\"  docanvas(); \"><canvas style='border:1px solid red;width:595px;width:842px;' width=" . (595 / 2.54) . " height=" . (842 / 2.54) . " id=canvas></canvas><br><img onload=di(this); id=him style=display:none; src=></img></body></html>";
  for ($jj=0; $jj<sizeof($pdf->canvascmds); $jj++) {
    $canvh=str_replace("} <"," " . $pdf->canvascmds[$jj] . " \n} <", $canvh);
  }
  //$pdfcont=$pdf->Output('form_creator.pdf','F');
  echo $canvh; 
  } else {
  header('Content-type: application/pdf'); 
  $pdf->Output();
  }
 }
 exit;

?>