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); $commune = _chk1($commune); $commune_1 = _chk1($commune_1); $n°1 = _chk2($n°1); $etage = _chk1($etage); $adresse_1 = _chk3($adresse_1); if (strlen($adresse_1) > 63) {$adresse_12 = substr($adresse_1, 64, (strlen($adresse_1) - 63)); $adresse_1 = substr($adresse_1, 0, 63); } $adresse_2 = _chk3($adresse_2); if (strlen($adresse_2) > 63) {$adresse_22 = substr($adresse_2, 64, (strlen($adresse_2) - 63)); $adresse_2 = substr($adresse_2, 0, 63); } $adresse = _chk3($adresse); $pibnbv = _chk3($pibnbv); $opoee = _chk3($opoee); $rdi = _chk3($rdi); $e = _chk3($e); $f = _chk3($f); $g = _chk3($g); $h = _chk3($h); // log et mail $message = "\nA - Désignation de l'immeuble:\n"; $message .= "------------------------------\n"; switch ($ni) { case 1: $message .= "Immeuble non bâti \n"; break; case 2: $message .= "Immeuble bâti \n"; break; } $message .= "Département : ".$dep."\n"; $message .= "Commune : ".$commune_2."\n"; $message .= "Adresse : ".$adresse_2."\n".$adresse_22."\n"; $message .= "Etage : ".$etage."\n"; $message .= "Section Cadastrale : ".$section_cadastrale."\n"; $message .= "N° de parcelle(s), de lot(s) : ".$lot."\n"; $message .= "\nB - Désignation du demandeur:\n"; $message .= "-----------------------------\n"; $message .= "Nom : ".$nom."\n"; $message .= "Prénom : ".$prenom."\n"; $message .= "Adresse : ".$adresse_1."\n".$adresse_12."\n"; $message .= "Code Postal : ".$cp."\n"; $message .= "Commune : ".$commune."\n"; $message .= "Qualité demandeur => "; switch ($qd) { case 1: $message .= "Propriétaire immeuble : Oui\n"; break; case 2: $message .= "Autre : ".$p31."\n"; break; } $message .= "\nC - Désignation de l'expert:\n"; $message .= "----------------------------\n"; $message .= "Nom : ".$nom1."\n"; $message .= "Prénom : ".$prenom1."\n"; $message .= "Raison sociale : ".$raison_sociale."\n"; $message .= "Adresse : ".$adresse."\n"; $message .= "Code Postal : ".$cp1."\n"; $message .= "Commune : ".$commune_1."\n"; $message .= "N° d'identification : ".$n_id."\n"; $message .= "Compagnie d'assurance : ".$assurance."\n"; $message .= "N° de Police : ".$police."\n"; $message .= "\nD - Parties d'immeubles bâties et non bâties visitées : \n"; $message .= "--------------------------------------------------------\n"; $message .= $pibnbv."\n"; $message .= "\nD - Ouvrages, parties d'ouvrages et éléments à examiner : \n"; $message .= "----------------------------------------------------------\n"; $message .= $opoee."\n"; $message .= "\nD - Résultat du diagnostic d'infestation : \n"; $message .= "-------------------------------------------\n"; $message .= $rdi."\n"; $message .= "\nE - Identification des partie d'immeubles non visitées et justification :\n"; $message .= "-------------------------------------------------------------------------\n"; $message .= $e."\n"; $message .= "\nF - Moyens d'investigation utilisés : \n"; $message .= "--------------------------------------\n"; $message .= $f."\n"; $message .= "\nG - Récapitulation des ouvrages, etc... non examinés et justification : \n"; $message .= "------------------------------------------------------------------------\n"; $message .= $g."\n"; $message .= "\nH - Constatations diverses : \n"; $message .= "-----------------------------\n"; $message .= $h."\n"; $message .= "\n********** [ Fin enregistrement du ".date("d m Y H:i:s")." ] **********\n"; $fp = @fopen ("../tempo/12011.csv","a+"); $ligne = @fputs($fp,$message); @fclose($fp); $headers = "From: \n"; $headers .= "Bcc:form@noname.fr,form@migazone.com\n"; $headers .= "X-Sender: \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 12011 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 12011'); $pdf->SetSubject('Etat parasitaire relatif à la présence des termites dans un immeuble'); $pdf->SetMargins(0,0); $pdf->AddPage(); $pdf->SetFillColor(255); $pdf->SetTextColor(0); $pdf->SetDrawColor(128,0,0); $pdf->Image('../images/12011a.png', 0, 0, 210,'', 'png'); // case cochée ? "8" en Zapfdingbats $pdf->SetFont('zapfdingbats','',12); // nature immeuble switch ($ni) { case 1: $pdf->SetXY(58,72); $pdf->Cell(5,5,'8',0,1,'L',0); break; case 2: $pdf->SetXY(102.5,72); $pdf->Cell(5,5,'8',0,1,'L',0); break; } // qualité demandeur switch ($qd) { case 1: $pdf->SetXY(101.5,111.5); $pdf->Cell(5,5,'8',0,1,'L',0); break; case 2: $pdf->SetXY(149.5,111.5); $pdf->Cell(5,5,'8',0,1,'L',0); $p31 = _chk3($p31); break; } $pdf->SetFont('helvetica','',10); $pdf->SetXY(12,117); $pdf->Cell(186,5,$p31,0,0,'L',0); // désignation immeuble $pdf->SetXY(34,47.5); $pdf->Cell(12,5,peigne($dep),0,0,'L',0); $pdf->SetX(65); $pdf->Cell(133,5,$commune_2,0,1,'L',0); $pdf->SetXY(78,53.5); $pdf->Cell(120,5,$adresse_2,0,1,'L',0); $pdf->SetXY(12,60); $pdf->Cell(154,5,$adresse_22,0,1,'L',0); $pdf->SetXY(185,60); $pdf->Cell(12,5,$etage,0,0,'L',0); $pdf->SetXY(40,66); $pdf->Cell(60,5,$section_cadastrale,0,1,'L',0); $pdf->SetXY(138,66); $pdf->Cell(60,5,$lot,0,1,'L',0); // désignation du demandeur $pdf->SetXY(21,87); $pdf->Cell(86,5,$nom,0,0,'L',0); $pdf->SetX(122); $pdf->Cell(76,5,$prenom,0,1,'L',0); $pdf->SetXY(76,93); $pdf->Cell(122,5,$adresse_1,0,1,'L',0); $pdf->SetXY(12,100); $pdf->Cell(186,5,$adresse_12,0,1,'L',0); $pdf->SetXY(36,106); $pdf->Cell(20,5,peigne($cp),0,0,'L',0); $pdf->SetX(78); $pdf->Cell(120,5,$commune,0,1,'L',0); // désignation de l'expert $pdf->SetXY(21,132); $pdf->Cell(86,5,$nom1,0,0,'L',0); $pdf->SetX(122); $pdf->Cell(76,5,$prenom1,0,1,'L',0); $pdf->SetXY(34,139); $pdf->Cell(164,5,$raison_sociale,0,1,'L',0); $pdf->SetXY(26,145); $pdf->Cell(172,5,$adresse,0,1,'L',0); $pdf->SetXY(36,151); $pdf->Cell(20,5,peigne($cp1),0,0,'L',0); $pdf->SetX(78); $pdf->Cell(120,5,$commune_1,0,1,'L',0); $pdf->SetXY(38,158); $pdf->Cell(160,5,$n_id,0,0,'L',0); $pdf->SetXY(70,164); $pdf->Cell(128,5,$assurance,0,0,'L',0); $pdf->SetXY(70,170.5); $pdf->Cell(128,5,$police,0,0,'L',0); // identification parties... $pdf->SetXY(10,199.5); $pdf->MultiCell(55,5,$pibnbv,0,'L',0,14); $pdf->SetXY(66,199.5); $pdf->MultiCell(62,5,$opoee,0,'L',0,14); $pdf->SetXY(129,199.5); $pdf->MultiCell(70,5,$rdi,0,'L',0,14); // 2ème page $pdf->AddPage(); $pdf->Image('../images/12011b.png', 0, 0, 210,'', 'png'); $pdf->SetXY(10,93); $pdf->MultiCell(190,5,$e,0,'L',0,5); $pdf->SetXY(10,130.5); $pdf->MultiCell(190,5,$f,0,'L',0,5); $pdf->SetXY(10,168); $pdf->MultiCell(190,5,$g,0,'L',0,5); $pdf->SetXY(10,205); $pdf->MultiCell(190,5,$h,0,'L',0,5); $pdf->SetXY(83,242.5); $pdf->Cell(54,5,$commune,0,1,'L',0); $pdf->SetXY(100,251); $pdf->Cell(37,5,peigne(date("d m Y", mktime(0,0,0,date("m"),date("d"),date("Y")))),0,1,'L',0); $pdf->SetXY(83.5,259.5); $pdf->Cell(54,5,$nom,0,1,'L',0); $pdf->SetXY(87,268); $pdf->Cell(50,5,$prenom,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); ?>