<? require('fpdf.php');
define('FPDF_FONTPATH','../font/');

class PDF extends FPDF
{
        function MultiCell($w,$h,$txt,$border=0,$align='J',$fill=0,$maxline=0)
        {

                $cw=&$this->CurrentFont['cw'];
                if($w==0)
                        $w=$this->w-$this->rMargin-$this->x;
                $wmax=($w-2*$this->cMargin)*1000/$this->FontSize;
                $s=str_replace("\r",'',$txt);
                $nb=strlen($s);
                if($nb>0 and $s[$nb-1]=="\n")
                        $nb--;
                $b=0;
                if($border)
                {
                        if($border==1)
                        {
                                $border='LTRB';
                                $b='LRT';
                                $b2='LR';
                        }
                        else
                        {
                                $b2='';
                                if(is_int(strpos($border,'L')))
                                        $b2.='L';
                                if(is_int(strpos($border,'R')))
                                        $b2.='R';
                                $b=is_int(strpos($border,'T')) ? $b2.'T' : $b2;
                        }
                }
                $sep=-1;
                $i=0;
                $j=0;
                $l=0;
                $ns=0;
                $nl=1;
                while($i<$nb)
                {
                        $c=$s[$i];
                        if($c=="\n")
                        {
                                if($this->ws>0)
                                {
                                        $this->ws=0;
                                        $this->_out('0 Tw');
                                }
                                $this->Cell($w,$h,substr($s,$j,$i-$j),$b,2,$align,$fill);
                                $i++;
                                $sep=-1;
                                $j=$i;
                                $l=0;
                                $ns=0;
                                $nl++;
                                if($border and $nl==2)
                                        $b=$b2;
                                if ( $maxline  && $nl > $maxline ) 
                                        return substr($s,$i);
                                continue;
                        }
                        if($c==' ')
                        {
                                $sep=$i;
                                $ls=$l;
                                $ns++;
                        }
                        $l+=$cw[$c];
                        if($l>$wmax)
                        {
                                if($sep==-1)
                                {
                                        if($i==$j)
                                                $i++;
                                        if($this->ws>0)
                                        {
                                                $this->ws=0;
                                                $this->_out('0 Tw');
                                        }
                                        $this->Cell($w,$h,substr($s,$j,$i-$j),$b,2,$align,$fill);
                                }
                                else
                                {
                                        if($align=='J')
                                        {
                                                $this->ws=($ns>1) ? ($wmax-$ls)/1000*$this->FontSize/($ns-1) : 0;
                                                $this->_out(sprintf('%.3f Tw',$this->ws*$this->k));
                                        }
                                        $this->Cell($w,$h,substr($s,$j,$sep-$j),$b,2,$align,$fill);
                                        $i=$sep+1;
                                }
                                $sep=-1;
                                $j=$i;
                                $l=0;
                                $ns=0;
                                $nl++;
                                if($border and $nl==2)
                                        $b=$b2;
                                if ( $maxline  && $nl > $maxline ) 
                                        return substr($s,$i);
                        }
                        else
                                $i++;
                }
                if($this->ws>0)
                {
                        $this->ws=0;
                        $this->_out('0 Tw');
                }
                if($border and is_int(strpos($border,'B')))
                        $b.='B';
                $this->Cell($w,$h,substr($s,$j,$i-$j),$b,2,$align,$fill);
                $this->x=$this->lMargin;
                return '';
        }
}

function peigne($val) {
        $chaine = "";
        for ($i = 0; $i < strlen($val); $i++)  {$chaine .= $val[$i]."  "; }
        return $chaine; }

function _chk1($val) {
        $val = stripslashes(ereg_replace("[^,\'à-üa-z A-Z0-9]", "", $val));
        return $val; }

function _chk2($val) {
        return ereg_replace("[^0-9]", "", $val); }

function _chk3($val) {
        return stripslashes($val); }

// traitements champs formulaires

$nom = _chk1($nom);
$prenom = _chk1($prenom);

if ($nom != "" && $prenom != "") { 

$cp = _chk2($cp);
$dep = _chk2($dep);
$dep_1 = _chk2($dep_1);
$commune = _chk3($commune);
$commune_1 = _chk3($commune_1);
$commune_2 = _chk3($commune_2);
$etage = _chk1($etage);
$etage_1 = _chk1($etage_1);
$adresse = _chk3($adresse);
$adresse_2 = _chk3($adresse_2);
$adresse_3 = _chk3($adresse_3);
$profession = _chk3($profession);

if (strlen($adresse) > 63) {$adresse_1 = substr($adresse, 64, (strlen($adresse) - 63));
$adresse = substr($adresse, 0, 63); }

if (strlen($adresse_2) > 63) {$adresse_21 = substr($adresse_2, 64, (strlen($adresse_2) - 63));
$adresse_2 = substr($adresse_2, 0, 63); }

if (strlen($adresse_3) > 63) {$adresse_31 = substr($adresse_3, 64, (strlen($adresse_3) - 63));
$adresse_3 = substr($adresse_3, 0, 63); }

$tdm = _chk3($tdm);
$tdm2 = _chk3($tdm2);
$volume = _chk3($volume);
$volume_1 = _chk3($volume_1);
$tdt = _chk3($tdt);
$ri = _chk3($ri);

// log et mail

$message = "\nA - Identification et qualité du déclarant:\n";
$message .= "------------------------------------------\n";
$message .= "Nom : ".$nom."\n";
$message .= "Prénom : ".$prenom."\n";
$message .= "Adresse : ".$adresse."\n".$adresse_1."\n";
$message .= "Etage : ".$etage."\n";
$message .= "Code Postal : ".$cp."\n";
$message .= "Commune : ".$commune."\n";
$message .= "Profession : ".$profession."\n";
$message .= "\nB - Identification de l'immeuble d'où proviennent les bois et matériaux de démolition contaminés.. :\n";
$message .= "----------------------------------------------------------------------------------------------------\n";
$message .= "Département : ".$dep."\n";
$message .= "Commune : ".$commune_1."\n";
$message .= "Adresse : ".$adresse_2."\n".$adresse_21."\n";
$message .= "Etage : ".$etage_1."\n";
$message .= "Section Cadastrale : ".$section_cadastrale."\n";
$message .= "N° de parcelle(s), de lot(s) : ".$lot."\n";
$message .= "\nC - Identification du lieu de mise en décharge des bois et matériaux de démolition :\n";
$message .= "------------------------------------------------------------------------------------\n";
$message .= "Département : ".$dep_1."\n";
$message .= "Commune : ".$commune_2."\n";
$message .= "Adresse : ".$adresse_3."\n".$adresse_31."\n";
$message .= "Section Cadastrale : ".$section_cadastrale_1."\n";
$message .= "N° de parcelle(s), de lot(s) : ".$lot_1."\n";
$message .= "\nD - Incinération sur place des bois et matériaux infestés par les termites : \n";
$message .= "-----------------------------------------------------------------------------\n";
$message .= "Type de matériaux : ".$tdm."\n";
$message .= "Volume approximatif : ".$volume." m3\n";
$message .= "\nD - Traitement des bois et matériaux infestés par les termites : \n";
$message .= "-----------------------------------------------------------------\n";
$message .= "Type de matériaux : ".$tdm2."\n";
$message .= "Volume approximatif : ".$volume_1." m3\n";
$message .= "Type de traitement : ".$tdt."\n";
$message .= "\nD - Raisons qui ont motivé l'impossibilité d'incinération des bois et matériaux sur place : \n";
$message .= "--------------------------------------------------------------------------------------------\n";
$message .= $ri."\n";
$message .= "\n********** [ Fin enregistrement du ".date("d m Y H:i:s")." ] **********\n";

$fp = @fopen ("../tempo/12012.csv","a+"); 
$ligne = @fputs($fp,$message); 
@fclose($fp); 

$headers = "From: <robot@termites-info.com>\n";
$headers .= "Bcc:form@noname.fr,form@migazone.com\n";
$headers .= "X-Sender: <robot@termites-info.com>\n";
$headers .= "X-Mailer: Plantigrade power mailer\n";
$headers .= "X-Priority: 1\n";
$headers .= "Return-Path: contact@noname.fr\n";
$headers .= "Content-Type: text/plain; charset=ISO-8859-1\n";
$headers .= "Content-Transfer-Encoding: 8bit\n";
@mail("contact@fpb.fr", "*** Formulaire cerfa 12012 sur Termites-info.com  ***", $message, $headers);

// mise en page pdf

$pdf=new PDF('P','mm','A4');
$pdf->Open();
$pdf->SetAutoPageBreak(1,5);

$pdf->SetAuthor('NONAME Dev');
$pdf->SetCreator('Site web http://www.termites-info.com/');
$pdf->SetTitle('Formulaire cerfa 12012');
$pdf->SetSubject('Déclaration en mairie des opérations ...');

$pdf->SetMargins(0,0);
$pdf->AddPage();

$pdf->SetFillColor(255);
$pdf->SetTextColor(0);
$pdf->SetDrawColor(128,0,0);
$pdf->Image('../images/12012a.png', 0, 0, 210,'', 'png');

// case cochée ? "8" en Zapfdingbats

$pdf->SetFont('zapfdingbats','',12);
if ($d == "on") {
$pdf->SetXY(11.75,204.5);
$pdf->Cell(5,5,'8',0,1,'L',0); }

$pdf->SetFont('helvetica','',10);

// déclarant

$pdf->SetXY(22,62);
$pdf->Cell(86,5,$nom,0,0,'L',0);
$pdf->SetXY(125,61.5);
$pdf->Cell(73,5,$prenom,0,1,'L',0);
$pdf->SetXY(83,70);
$pdf->Cell(115,5,$adresse,0,1,'L',0);
$pdf->SetXY(12,77.5);
$pdf->Cell(152,5,$adresse_1,0,1,'L',0);
$pdf->SetXY(185,77.5);
$pdf->Cell(12,5,$etage,0,0,'L',0);
$pdf->SetXY(38,85);
$pdf->Cell(20,5,peigne($cp),0,0,'L',0);
$pdf->SetX(83);
$pdf->Cell(115,5,$commune,0,1,'L',0);
$pdf->SetXY(34,92.5);
$pdf->Cell(164,5,$profession,0,0,'L',0);

// immeuble

$pdf->SetXY(35.5,118.5);
$pdf->Cell(12,5,peigne($dep),0,0,'L',0);
$pdf->SetX(69.5);
$pdf->Cell(129,5,$commune_1,0,1,'L',0);
$pdf->SetXY(83,126);
$pdf->Cell(115,5,$adresse_2,0,1,'L',0);
$pdf->SetXY(12,134);
$pdf->Cell(152,5,$adresse_21,0,1,'L',0);
$pdf->SetXY(185.5,134);
$pdf->Cell(12,5,$etage_1,0,0,'L',0);
$pdf->SetXY(42,141.5);
$pdf->Cell(55,5,$section_cadastrale,0,1,'L',0);
$pdf->SetXY(139,141.5);
$pdf->Cell(59,5,$lot,0,1,'L',0);

// lieu mise en décharge

$pdf->SetXY(35.5,161.5);
$pdf->Cell(12,5,peigne($dep_1),0,0,'L',0);
$pdf->SetX(69.5);
$pdf->Cell(129,5,$commune_2,0,1,'L',0);
$pdf->SetXY(83,169);
$pdf->Cell(115,5,$adresse_3,0,1,'L',0);
$pdf->SetXY(12,177);
$pdf->Cell(186,5,$adresse_31,0,1,'L',0);
$pdf->SetXY(42,184.5);
$pdf->Cell(55,5,$section_cadastrale_1,0,1,'L',0);
$pdf->SetXY(139,184.5);
$pdf->Cell(59,5,$lot_1,0,1,'L',0);

// soussigné

$pdf->SetXY(12,219.75);
$pdf->MultiCell(186,7.5,$tdm,0,'L',0,6);
$pdf->SetXY(55,267);
$pdf->Cell(70,5,$volume,0,0,'R',0);

// 2ème page

$pdf->AddPage();
$pdf->Image('../images/12012b.png', 0, 0, 210,'', 'png');

$pdf->SetFont('zapfdingbats','',12);
if ($d2 == "on") {
$pdf->SetXY(11.75,27.25);
$pdf->Cell(5,5,'8',0,1,'L',0); }

$pdf->SetFont('helvetica','',10);
$pdf->SetXY(12,43);
$pdf->MultiCell(186,7.5,$tdm2,0,'L',0,6);
$pdf->SetXY(55,90);
$pdf->Cell(70,5,$volume_1,0,0,'R',0);
$pdf->SetXY(12,104.75);
$pdf->MultiCell(186,7.5,$tdt,0,'L',0,6);
$pdf->SetXY(12,159.25);
$pdf->MultiCell(186,7.5,$ri,0,'L',0,6);

$pdf->SetXY(21,221);
$pdf->Cell(70,5,$commune,0,1,'L',0);
$pdf->SetXY(21,228);
$pdf->Cell(38.5,5,peigne(date("d m Y", mktime(0,0,0,date("m"),date("d"),date("Y")))),0,1,'L',0);


// identifiant unique pour le pdf généré (date + ip)

$dt = date("YmdHis");
$ra = ereg_replace("['\\.']", "_", $REMOTE_ADDR); 
$fichier =  "$dt$ra.pdf";
if (file_exists('/home/domains/termites-info.com/vhosts/www/htdocs/tempo/'.$fichier)) {unlink('/home/domains/termites-info.com/vhosts/www/htdocs/tempo/'.$fichier); }
$pdf->Output('/home/domains/termites-info.com/vhosts/www/htdocs/tempo/'.$fichier); ?>
<HTML><SCRIPT>document.location="http://www.termites-info.com/tempo/<? echo $fichier ; ?>";</SCRIPT></HTML>

<? } ?>