<?php
define('FPDF_FONTPATH', $prafix . '/iloj/fpdf/font/');
require_once 'iloj/fpdf/ufpdf.php';
echo "<!-- FPDF_FONTPATH: " . FPDF_FONTPATH . "-->";
$fp = fopen("dosieroj_generitaj/adresaro.csv", "w");
//por la .csv versio
$font = 'FreeSans';
$pdf = new UFPDF();
$pdf->AddFont($font, '', $font . '.php');
$pdf->AddFont($font, 'B', $font . 'Bold.php');
$pdf->SetFont($font, '', 15);
$pdf->Open();
$pdf->AddPage();
$pdf->write(7, uni("Listo de Partoprenantoj\n" . $_SESSION["renkontigxo"]->datoj["nomo"] . " en " . $_SESSION["renkontigxo"]->datoj["loko"] . " (" . $_SESSION["renkontigxo"]->datoj["de"] . " g^is " . $_SESSION["renkontigxo"]->datoj["gxis"] . ")\n"));
if ('JES' == $granda) {
$pdf->SetFont($font, '', 12);
$pdf->write(8, uni("Bonvolu kontroli (kaj eble korekti) vian adreson en la adresaro, por ke en" . " la fina versio estu g^ustaj datoj."));
$pdf->ln(12);
$linlargxo = 7;
$interlinspaco = 13;
} else {
$pdf->SetFont($font, '', 9);
$pdf->write(3.7, uni("Vi rajtas uzi tiun adresaron nur por personaj celoj. Vi ne rajtas" . " uzi g^in por amasaj leteroj au^ retmesag^oj (ankau^ ne por informi pri via" . " Esperanto-renkontig^o), kaj ne rajtas pludoni" . " g^in (ec^ ne parte). " . " Se amiko de vi (kiu partoprenis la " . $_SESSION['renkontigxo']->datoj['mallongigo'] . ") ne ricevis la adresaron," . " li povas mendi propran c^e is.admin@esperanto.de. La sama validas," . " se vi perdis g^in.\n" . "Atentu, la g^usta sinsekvo de la adres-partoj sur leteroj - depende de la lando -" . " ofte ne estas la sama kiel tiu en tiu c^i listo. Informig^u antau^ eksendado" . " de letero (ekzemple per retpos^to al la ricevonto)."));
$pdf->ln(7);
$linlargxo = 3.0;
$interlinspaco = 4.05;
}
$pdf->write($linlargxo * 1.7, uni("persona nomo; nomo; adresaldonaj^o; strato; pos^tkodo; urbo; lando; telefono; telefakso; retpos^to"));
$pdf->ln($interlinspaco);
$pdf->ln($interlinspaco);
