/** * $kodigo - aux 'x-metodo' aux 'utf-8'. */ function kreu_unuan_konfirmilan_tekston($partoprenanto, $partopreno, $renkontigxo, $kodigo = 'utf-8') { // TODO: ebligu nacilingvan varianton $speciala = array(); $speciala['landonomo'] = eltrovu_landon($partoprenanto->datoj['lando']); $speciala['tejojaro'] = TEJO_MEMBRO_JARO; $speciala['tejorabato'] = TEJO_RABATO; $speciala['asekuro'] = $partopreno->datoj['havas_asekuron'] == 'J' ? "Vi havas asekuron pri malsano kaj kunportos la necesajn paperojn." : "Vi ne havas tauxgan asekuron pri malsano."; $speciala['partopreno'] = $partopreno->datoj['partoprentipo'] == 't' ? "tuttempe" : "parttempe"; switch ($partopreno->datoj['vegetare']) { case 'J': $speciala['mangxmaniero'] = "vegetarano"; break; case 'N': $speciala['mangxmaniero'] = "viandmang^anto"; break; case 'A': $speciala['mangxmaniero'] = "vegano"; break; default: $speciala['mangxmaniero'] = "nekonata mang^anto"; } if ($partopreno->datoj['domotipo'] == 'M') { $speciala['domotipo'] = "log^os en la amaslog^ejo kaj mang^os memzorge"; $speciala['cxambro'] = ""; } else { $speciala['domotipo'] = "log^os kaj mang^os en la junulargastejo"; switch ($partopreno->datoj['cxambrotipo']) { case 'u': $cxambrosekso = "unuseksan c^ambron"; case 'g': $cxambrosekso = "gean c^ambron"; default: $cxambrosekso = "(strang-seksan: '{$partopreno->datoj['cxambrotipo']}')" . " c^ambron"; } $speciala['cxambro'] = "\n Vi mendis " . ($partopreno->datoj['dulita'] == "J" ? "dulitan " : "") . $cxambrosekso . ($partopreno->datoj['kunkiu'] ? " kun (eble) " . $partopreno->datoj['kunkiu'] : ""); } // TODO: kunmangxas $kotizo = new Kotizo($partopreno, $partoprenanto, $renkontigxo); $speciala['antauxpago'] = $kotizo->minimuma_antauxpago(); $speciala['pageblecoj'] = pageblecoj_retpagxo; $invitpeto = $partopreno->sercxu_invitpeton(); if ($invitpeto) { $speciala['invitpeto'] = "\n Detaloj por la Invitilo" . "\n-------------------------" . "\n" . $invitpeto->konfirmilaj_detaloj() . "\n\n" . donu_tekston('konf1-invitilo', $renkontigxo); } else { // ne petis invitleteron, do ne necesas ion pri tio skribi $speciala['invitpeto'] = ""; } // TODO - aldonu kiel teksto, cxu ne? $speciala['dissendolisto'] = ""; $speciala['subskribo'] = $renkontigxo->funkciulo('admin') . ", en la nomo de " . organizantoj_nomo . ", la organiza teamo."; $datumoj = array('anto' => $partoprenanto->datoj, 'eno' => $partopreno->datoj, 'igxo' => $renkontigxo->datoj, 'speciala' => $speciala); $sxablono = file_get_contents($GLOBALS['prafix'] . '/sxablonoj/unua_konfirmilo_eo.txt'); return eotransformado(transformu_tekston($sxablono, $datumoj), $kodigo); }
/** */ function sendu_specialan_mesagxon($row, $to_name, $to_address, $bcc = '') { $nomo = eotransformado($row[personanomo], "utf-8"); $teksto = <<<DATOFINO Kara {$nomo}, antaux ioma tempo vi aligxis al la 49a Internacia Seminario. Ni rimarkis, ke ofte helpas, ke partoprenontoj povas komuniki inter si (kaj ne nur al KKRen) jam antaux la IS - ekzemple pri kuna alveturo, kaj similaj aferoj. Pri tio ni nun kreis dissendolisto (jahugrupon) "is-en-germanio". Gxi estos uzata ne nur por tiu cxi IS, sed por cxiuj ontaj ISoj (gxis ni iam trovos alian solvon), do indas aligxi al gxi ekzemple ankaux por ekscii pri la sekvaj ISoj ... Vi povas aligxi al gxi per la retpagxo de la grupo http://groups.yahoo.com/group/is-en-germanio aux per sendo de retmesagxo al is-en-germanio-subscribe@yahoogroups.com Kelkaj KKRenanoj jam aligxis, do ankaux gxeneralajn demandojn vi tie povos meti (kaj espereble ricevi respondon). Pri konkretaj problemoj turnigxu al la koncerna respondulo ene de KKRen - listo trovigxas cxe http://www.esperanto.de/is/de/2005/adresoj. Kore salutas nome de KKRen (Konstanta Komisiono pri Renkontigxoj de GEJ) kaj IReK (InterReta Komisiono de GEJ) Pauxlo Ebermann (respondeculo pri tekniko en KKRen kaj membro de IReK) DATOFINO; echo "Al: {$to_address}"; sendu_xxxxx_mesagxon("Dissendolisto pri la IS", $teksto, $to_name, $to_address); erareldono("Messag^o sendata!"); }
/** * Sendas retmesagxon al iu h**o. * * $subjekto - temlinio de la mesagxo (en UTF-8, EO-signoj per c^-kodigo) * $korpo - la teksto de la mesagxo (dito) * $to_name - la nomo de la ricevonto (dito) * $to_adress - la retposxtadreso de la ricevonto */ function sendu_xxxxx_mesagxon($subjekto, $korpo, $to_name, $to_address, $kodigo = 'utf-8') { $subject = eotransformado($subjekto, $kodigo); // $mesagxo = "### auxtomata mesagxo de la DEJ-aligilo ###\n\n"; $mesagxo .= eotransformado($korpo, $kodigo); // $mesagxo .= "\n\n### Se estas iu problemo bonvolu informi Paul.Ebermann@esperanto.de ###"; $from_name = "IS-Teamo"; // TODO: (eble prenu nomon aux el la datumbazo/konfiguro, aux la entajpanton ?) $from_address = "*****@*****.**"; // TODO: Eble prenu el la datumbazo? $email_message = new email_message_class(); $email_message->default_charset = "UTF-8"; if (!strcmp($error = $email_message->SetEncodedEmailHeader("To", $to_address, eotransformado($to_name, $kodigo)), "") && !strcmp($error = $email_message->SetEncodedEmailHeader("From", $from_address, $from_name), "") && !strcmp($error = $email_message->SetEncodedEmailHeader("Reply-To", $from_address, $from_name), "") && !strcmp($error = $email_message->SetEncodedHeader("Errors-To", $from_address, $from_name), "") && !strcmp($error = $email_message->SetEncodedEmailHeader("Bcc", "*****@*****.**", "Paul Ebermann"), "") && !strcmp($error = $email_message->SetEncodedHeader("Subject", $subject), "") && !strcmp($error = $email_message->AddQuotedPrintableTextPart($email_message->WrapText($mesagxo)), "")) { $error = $email_message->Send(); } if ($error) { erareldono($error); exit; } }
function plilongigi($io, $longeco) { $io = eotransformado($io, "x-metodo"); if (strlen($io) < $longeco) { for ($i; $i < $longeco - strlen($io); $i++) { $rezulto .= " "; } } return $rezulto . $io; }
$mangxo = 'V'; } else { $mangxo = 'F'; } } if ($linio['sxildlando']) { $lando = $linio['sxildlando']; } else { $lando = $linio['landonomo']; } if ($linio['KKRen'] == 'J') { $kkren = 'J'; } else { $kkren = 'N'; } echo eotransformado($linio['personanomo'] . ";" . $linio['nomo'] . ";" . $linio['agxo'] . ";" . $linio['domotipo'] . ";" . $linio['vegetare'] . ";" . $mangxo . ";" . $lando . ";" . $kkren . ';' . $linio['alvenstato'] . ";\n", "utf-8"); } } else { if ("francoj" == $elekto) { // SELECT pa.personanomo, pa.nomo, pa.retposxto FROM `is_partoprenoj` as po, is_partoprenantoj as pa WHERE (po.partoprenantoID = pa.ID) and (pa.lando = 15) and (po.renkontigxoID = 4) $sql = datumbazdemando(array("personanomo", "nomo", "retposxto"), array("partoprenoj" => "po", "partoprenantoj" => "pa"), array("po.partoprenantoID = pa.ID", "pa.lando = 15"), "renkontigxoID"); sercxu($sql, array("personanomo", "ASC"), array(array("personanomo", "persona_nomo", "XXXXX", "", "", ""), array("nomo", "famila_nomo", "XXXXX", "", "", ""), array("retposxto", "retadreso", "XXXXX", "", "", "")), array(), "francoj_is_2004", "", 2, "", "", ""); } else { if ($elekto == "notojn") { $vortext = "Montras c^iun noton de partoprenanto " . "<a href='partrezultoj.php?partoprenantoidento={$partoprenantoidento}'>#" . $partoprenantoidento . "</a>.</p>\n" . "<p><a href='notoj.php?elekto=bla&partoprenantoidento={$partoprenantoidento}'>Kreu novan noton!</a>"; // "select ID,prilaborata,dato,partoprenantoID,subjekto,kiu,kunKiu,tipo from notoj where partoprenantoID='$partoprenantoidento'" $sql = datumbazdemando(array("ID", "prilaborata", "dato", "partoprenantoID", "subjekto", "kiu", "kunKiu", "tipo"), "notoj", "partoprenantoID = '{$partoprenantoidento}'"); sercxu($sql, array("dato", "desc"), array(array('0', '', '->', 'z', '"notoj.php?wahlNotiz=XXXXX"', '-1'), array('prilaborata', 'prilaborata?', 'XXXXX', 'z', '', '-1'), array('dato', 'dato', 'XXXXX', 'l', '', '-1'), array('subjekto', 'subjekto', 'XXXXX', 'l', '', '-1'), array("kiu", "kiu", 'XXXXX', 'l', '', '-1'), array("kunKiu", "kun Kiu?", 'XXXXX', 'l', '', '-1'), array("tipo", "tipo", 'XXXXX', 'l', '', '-1')), array(array('', array('∑ XX', 'A', 'z'))), "notoj-partoprenanto", array('Zeichenersetzung' => array('1' => array('j' => '<strong class="malaverto">prilaborata</strong>', '' => '<strong class="averto">neprilaborata</strong>', 'n' => '<strong class="averto">neprilaborata</strong>'))), 0, $vortext, ""); } else { if ($elekto == "kunmangxo") { $sql = datumbazdemando(array("pn.ID", "p.ID" => "partoprenoIdento", "pn.nomo" => "nomo", "personanomo", "p.domotipo", "p.kunmangxas", "'" . $_SESSION['renkontigxo']->datoj['ID'] . "'" => "renkNumero"), array("partoprenoj" => "p", "partoprenantoj" => "pn"), array("NOT (( p.domotipo = 'J' AND p.kunmangxas = 'J' ) OR " . "( p.domotipo = 'M' AND p.kunmangxas = 'N' )) ", "p.partoprenantoid = pn.ID"), 'p.renkontigxoID');
kontrolu_rajton('retumi'); HtmlKapo('speciala'); die("Vi ne rajtas uzi tiun dosieron. Se vi ne scias, kial, demandu Pauxlon."); if ($_POST['sendu'] == 'sendu') { $komenco = $_POST['komenco']; $nombro = $_POST['nombro']; echo "<p>\n"; $demando = datumbazdemando(array("p.ID", "nomo", "personanomo", "retposxto", "sekso", "pn.agxo"), array("partoprenantoj" => "p", "partoprenoj" => "pn"), array("pn.partoprenantoID = p.ID", "retposxto <> ''", "alvenstato = 'a'"), "renkontigxoID", array("limit" => "{$komenco}, {$nombro}", "order" => "pn.ID ASC")); eoecho("Demando: [<code>" . $demando . "</code>]<br/>\n"); eoecho("dato: " . date("Y-m-d H:i:s") . "<br/>\n"); $rezulto = sql_faru($demando); $i = $komenco; while ($row = mysql_fetch_array($rezulto, MYSQL_BOTH)) { eoecho($i . " " . $row['personanomo'] . " " . $row['nomo'] . "<br/>\n"); $i++; $to_name = eotransformado($row['personanomo'] . " " . $row['nomo'], "x-metodo"); // $to_address = teknika_administranto_retadreso; $to_address = $row['retposxto']; if ($_POST['vere'] == 'jes') { sendu_adresaron($row, $to_name, $to_address, $bcc); } flush(); usleep(200); } eoecho("Fino.<br/>\n"); eoecho("dato: " . date("Y-m-d H:i:s") . "</p>\n"); } echo "<h2>Sendado de adresaroj</h2>"; echo "<form action='sendu_adresaron_gxenerale.php' method='POST'>\n<table>"; tabelentajpejo("Nombro en unu pas^o:", 'nombro', $_POST['nombro'], 10, "", "", 1); tabelentajpejo("Komencu c^e:", 'komenco', $i, 10, "", "", 0);
/** * kreas konfirmilon en unu el du lingvoj. * $partopreno - Partopreno-objekto * $partoprenanto - la Partoprenanto-objekto * $renkontigxo - Renkontigxo-objekto * @param Kotizokalkulilo $kotizo - Kotizo-objekto (estu kreita el la tri antauxe * menciitaj objektoj) * @param lingvokodo $lingvo */ function kreu_konfirmilon_unulingve($partopreno, $partoprenanto, $renkontigxo, $kotizo, $lingvo) { require_once $GLOBALS['prafix'] . "/tradukendaj_iloj/trad_htmliloj.php"; eniru_dosieron(); eniru_lingvon($lingvo); // TODO!: cxio GEJ-specifa estu konfigurebla. $this->pdf->AddPage(); $this->pdf->SetLeftMargin(20); $this->pdf->SetRightMargin(20); $this->pdf->Image($GLOBALS['prafix'] . '/bildoj/tejo-emblemo.png', 20, 10, 30); $this->pdf->Image($GLOBALS['prafix'] . '/bildoj/ijk-emblemo.png', 160, 10, 30); // $this->pdf->Image($GLOBALS['prafix'] . '/bildoj/eo-logo.png', 162, 10, 28); $this->pdf->SetFontSize($this->unikode ? 17 : 19); // TODO: el datumbazo $this->pdf->text(50, 17, "Tutmonda Esperantista Junulara Organizo"); $this->pdf->text(60, 26, $this->trans_eo($renkontigxo->datoj['nomo'])); // falc- kaj truil-markiloj $this->pdf->line(4, 100, 9, 100); $this->pdf->line(4, 147, 7, 147); $this->pdf->line(4, 198, 9, 198); // adreso de la partoprenanto $this->pdf->SetFont('', 'B', 12); $this->pdf->setY(59); $this->pdf->cell(60, 5, $this->trans_eo($partoprenanto->tuta_nomo())); $this->pdf->ln(); $this->pdf->write(5, $this->trans_eo($partoprenanto->datoj['adreso'])); /* if ($partoprenanto->datoj[adresaldonajxo]!='') */ /* { */ /* $this->pdf->write(5,$this->trans_eo($partoprenanto->datoj[adresaldonajxo])); */ /* $this->pdf->ln(); */ /* } */ /* $this->pdf->write(5,$this->trans_eo($partoprenanto->datoj[strato])); */ $this->pdf->ln(); $this->pdf->write(5, $this->trans_eo($partoprenanto->datoj['posxtkodo'] . " " . $partoprenanto->datoj['urbo'])); $this->pdf->ln(); $this->pdf->Cell(60, 5, $this->trans_eo($partoprenanto->landonomo_en_lingvo($lingvo))); $this->pdf->setXY(120, 60); if ($partoprenanto->datoj['sxildnomo']) { $cxefnomo = $partoprenanto->datoj['sxildnomo']; $malcxefnomo = $partoprenanto->datoj['personanomo'] . " " . $partoprenanto->datoj['nomo']; } else { $cxefnomo = $partoprenanto->datoj['personanomo']; $malcxefnomo = $partoprenanto->datoj['nomo']; } $this->pdf->SetFont('', "B", 14); $this->pdf->Cell(40, 10, $this->trans_eo($cxefnomo), "LTR", 2, "R"); $this->pdf->SetFont('', '', 10); $this->pdf->Cell(40, 6, $this->trans_eo($malcxefnomo), "LR", 2, "R"); $this->pdf->Cell(40, 6, $this->trans_eo($partoprenanto->sxildlando()), "LRB", 1, "R"); $this->pdf->SetFont('', '', 10); $this->pdf->setY(90); $this->pdf->write(5, "Saluton!"); $this->pdf->ln(); $this->pdf->write(5, $this->trans_eo(donu_tekston_lauxlingve("konf2-enkonduko", $lingvo, $renkontigxo))); $this->pdf->ln(); $this->pdf->SetLeftMargin(30); /* $kotizo->montru_kotizon($lingvo == 'eo' ? 3 : 4, $this); */ $kotizo->tabelu_kotizon(new PDFKotizoFormatilo($this->pdf, $lingvo, $this->unikode)); $this->pdf->SetLeftMargin(20); $this->pdf->ln(3); $this->pdf->SetFontSize(10); // $this->pdf->setXY(30,102); if (DEBUG) { echo "<!-- alk: [{$alk}] -->"; // echo "<!-- renkontigxo->datoj['meze']: [" . $renkontigxo->datoj['meze']. "] -->" ; echo "<!--"; // echo "\npartopreno: "; // var_export($partopreno); // echo "\npartoprenanto: "; // var_export($partoprenanto); echo "\nrenkontigxo: "; var_export($renkontigxo); echo "-->"; } // TODO: tio ĉi estas speciala por IJK 2009: switch ($partopreno->datoj['domotipo']) { case 'A': $mendo = CH("mendis-amaslogxejon"); break; case 'J': if ($partopreno->datoj['dulita'] == 'U') { $mendo = CH("mendis-studenthejmon-unulitan"); } else { if ($partopreno->datoj['cxambrotipo'] == 'u') { $mendo = CH("mendis-studenthejmon-dulitan-unuseksan"); } else { $mendo = CH("mendis-studenthejmon-dulitan-ambauxseksan"); } if ($partopreno->datoj['kunKiu']) { $mendo .= " " . CH("volas-logxi-kun", eotransformado($partopreno->datoj['kunKiu'], 'utf-8')); } } break; case 'T': $mendo = CH("mendis-tendon"); break; case 'M': $mendo = CH("mendis-nenion"); break; default: $mendo = "-- erara domotipo: " . $partopreno->datoj['domotipo'] . " --"; erareldono($mendo); } $teksto = $mendo; // la granda teksto, kiu konfirmas la aligxon. $this->pdf->SetFont('', 'B', 10); $this->pdf->write(4, $this->trans_uni($teksto)); $this->pdf->ln(); // atentigo pri pagenda resto: $pagenda = $kotizo->restas_pagenda(); echo "<!-- restas_pagenda: " . $pagenda . " -->"; if ($pagenda > 0) { list($kurzo, $dato) = eltrovu_kurzon('EUR'); $pagenda_eur = number_format((double) $pagenda / (double) $kurzo, 2, ".", ""); $teksto = CH("restas-pagenda-CZK-EUR-dato", $pagenda, $pagenda_eur, $kurzo, $dato); // $teksto = strtr(donu_tekston_lauxlingve("konf2-kunportu-reston", // $lingvo, // $renkontigxo), // array("{{sumo}}" => $pagenda)); // atentigo pri kunportado de mono $this->pdf->SetFont('', 'B', 8); $this->pdf->write(3.8, $this->trans_uni($teksto)); $this->pdf->ln(); } $this->pdf->SetFont("", "", 10); $this->pdf->write(5, $this->trans_uni(CH("vi-mendis-mangxojn"))); $this->pdf->ln(); pdf_montru_manĝojn($this->pdf, $partopreno, $this); //$this->pdf->setY(155); $this->pdf->SetFont('', 'B', 11); $this->pdf->Write(6, $this->trans_uni(CH("gravaj-informoj"))); $this->pdf->ln(); $this->pdf->SetFont('', '', 9); $this->pdf->setX(25); $teksto = donu_tekston_lauxlingve("konf2-gravaj-informoj", $lingvo, $renkontigxo); /* if ($partopreno->datoj['agxo']< 18) */ /* $teksto .= " " . donu_tekston_lauxlingve("konf2-junulo", $lingvo, $renkontigxo); */ /* if ($domotipo=='junulargastejo' and $cioenordo == 'jes') */ /* { */ /* $teksto .= " " . donu_tekston_lauxlingve("konf2-21a-horo", $lingvo, $renkontigxo); */ /* //aus der DB zaubern */ /* } */ /* else if ($domotipo=='memzorgantejo') */ /* { */ /* $teksto .= " " . donu_tekston_lauxlingve("konf2-memzorganto", $lingvo, $renkontigxo); */ /* } */ /* if ($partoprenanto->datoj['lando']==HEJMLANDO) //germanio */ /* { */ /* $teksto .= "\n" . donu_tekston_lauxlingve("konf2-membreco-averto", $lingvo, $renkontigxo); */ /* } */ if ($partopreno->datoj['tejo_membro_kontrolita'] == 'j') { $teksto .= "" . donu_tekston_lauxlingve("konf2_tejo_estos_membro", $lingvo, $renkontigxo); } else { $teksto .= "" . donu_tekston_lauxlingve("konf2_tejo_ne_jam", $lingvo, $renkontigxo); } $teksto .= ' '; $this->pdf->multicell(170, 3.8, $this->trans_eo($teksto), 0, "L"); $this->pdf->SetFontSize(10); $this->pdf->ln(5); // $this->pdf->setY(200); // TODO: cxu sencas absoluta pozicio? // $this->pdf->setY(240); $this->pdf->write(5, $this->trans_eo(donu_tekston_lauxlingve("konf2-elkonduko", $lingvo, $renkontigxo))); // $this->pdf->Image($GLOBALS['prafix'] . '/bildoj/subskribo-julia-2.png', 100, 251, 80); // TODO: allgemein (el konfiguro aux datumbazo) $this->pdf->Ln(10.0); eliru_dosieron(); eliru_lingvon(); }
/** */ function sendu_adresaron($row, $savu, $to_name, $to_address, $bcc = '') { $nomo = eotransformado($row[personanomo], "utf-8"); $teksto = <<<DATOFINO Kara {$nomo}, ni esperas, ke vi bone alvenis hejmen post la IS. Per tiu mesagxo venos kelkaj informoj por vi: (1) Trovitajxoj (2) IS-Enketo (3) Adresaro (1) Trovitajxoj ------------- Kiel cxiujare ni dum la ordigado post la IS trovis plurajn aferojn - plejparte vestaxjojn, sed ankaux aliajn aferojn. Se vi ion perdis, bonvolu sendi mesagxon al la Berlina Oficejo (BerO) de GEJ (bero@esperanto.de) - ni rigardos, cxu gxi estas inter la trovitajxoj, kaj se jes, povas sendi al vi (vi pagos la sendokostojn). Inverse: Se vi trovis ion, kiu ne apartenas al vi, sendu mesagxon al la BerO - eble iu alia jam sercxas gxin. (Se vi jam scias la posedanton, bonvolu rekte kontaktu lin - lia adreso ja troveblas en la listo.) Ni planas kunporti kaj disauxkcii la restajn trovitajxojn dum iu estonta IS, kiam ni havos suficxe da spaco en la auxto. Jen konkreta kazo: Flavie (el la franca teatra grupo) perdis sxian fotaron. "La fotoj estas en 3 apartaj blankaj kovertoj, kiuj estas en blanka-rugha plasta sako." Se vi trovis (aux iel alie povas helpi), kontaktu Flavie Audibert <*****@*****.**> (2) IS-Enketo ----------- La organiza teamo rimarkis, ke cxi-jare ne cxiu funkciis glate. Ni nun volas ekscii, kiom la partoprenantoj rimarkis ;-) Pli serioze: Ni volas plibonigi la organizadon. Tial ni petas vin partopreni la sekvan enketon. Ni lotumos inter tiuj partoprenantoj de la enketo, kiuj respondis gxis la 15a de februaro, antauxpagon por la sekva IS (en valoro de 30 Euro). Ni ne uzos viajn datojn krom por statistiko, do sen persona rilato. La nomojn unu fidebla persono forigos de la datoj. (Se vi preferas, vi rajtas ankaux tute anonime respondi (uzu nekonatan retadreson) - sed tiel ne eblas partopreni la lotumadon.) Bonvolu plenigi la sekvan formularon (per krucoj "X", kie tauxgas, aux per teksto anstataux la _______ - vi rajtas ankaux skribi pli ol la linio estas longa) kaj resendu gxin al is-enketo@esperanto.de. (Bonvolu forigi la ceteron de la mesagxo, se vi simple respondos.) -8X ------------------------------------------------------------------ (X) Jes, mi volas partopreni la lotumadon. (Forprenu la X, se vi ne volas.) DATOFINO; if ($row['sekso'] == 'i') { $teksto .= "Mi estas: (X) ina ( ) malina \n"; } else { $teksto .= "Mi estas: ( ) ina (X) malina \n"; } $teksto .= "Mi apartenas al la agxgrupo (agxo je komenco de IS):\n"; $agxo1 = $agxo2 = $agxo3 = $agxo4 = $agxo5 = ' '; if ($row['agxo'] <= 17) { $agxo1 = 'X'; } else { if ($row['agxo'] <= 21) { $agxo2 = 'X'; } else { if ($row['agxo'] <= 26) { $agxo3 = 'X'; } else { if ($row['agxo'] <= 35) { $agxo4 = 'X'; } else { $agxo5 = 'X'; } } } } $teksto .= " ({$agxo1}) sub 17, ({$agxo2}) 18-21, ({$agxo3}) 22-26,\n" . " ({$agxo4}) 27-35, ({$agxo5}) super 36\n"; $teksto .= <<<DATOFINO Cxu vi partoprenis unuafoje? ( ) jes ( ) ne se ne: Kio estis gxis nun via plej sxatata IS? _________ Kial? ________________ Kion programeron vi plej sxatas en la IS? _________ Kial?________________ Kion programeron/okazajxon vi plej malsxatas en la IS? ________ Kial?________________ Donu notojn por la sekvaj programpunktoj de la IS en Wetzlar, kie 1 estas la plej bona, 5 la plej malbona. (Lasu malplena, se vi ne scias/ne partoprenis). Taga programo entute: [ ] (1-5) Tema programo [ ] (1-5) speciale bone estis: __________ speciale malbone estis: __________ Distra programo [ ] (1-5) speciale bone estis: __________ speciale malbone estis: __________ Movada programo [ ] (1-5) speciale bone estis: __________ speciale malbone estis: __________ Cxu vi rimarkis la diferencon inter tiuj tri partoj? ( ) jes ( ) ne Urborigardado [ ] (1-5) Nagxpostagmezo [ ] (1-5) Vespera programo entute: [ ] (1-5) interkona vespero: [ ] (1-5) koncerto de Kadakar: [ ] (1-5) koncerto de Esperanto Desperado: [ ] (1-5) teatrajxo: [ ] (1-5) koncerto de La Rolls: [ ] (1-5) novjara koncerto: [ ] (1-5) internacia vespero: [ ] (1-5) Tuttaga ekskurso (al Marburg) [ ] (1-5) Silvestra bufedo [ ] (1-5) Silvestra balo [ ] (1-5) Novjara promenado [ ] (1-5) IS-lumdisko [ ] (1-5) Nokta programo entute: [ ] (1-5) Diskejo: [ ] (1-5) Gufujo: [ ] (1-5) Trinkejo: [ ] (1-5) Nokta universitato [ ] (1-5) speciale bone estis: __________ speciale malbone estis: __________ Nokta filmo [ ] (1-5) speciale bone estis: __________ speciale malbone estis: __________ Libroservo [ ] (1-5) Adresaro [ ] (1-5) Bonvolu nun NE rigardu en la brosxuron aux en la retpagxon! Cxu vi scias la temon de la IS? ( ) jes ( ) ne Se jes: Kio estis? _____________ Cxu vi nun intencas veni denove al IS? ( ) jes ( ) ne Cxu vi rekomendos al amikaj esperantistoj veni al IS? ( ) jes ( ) ne Se ne, kio estis la cxefa kauxzo? ________________ Kion vi proponas por plibonigi la ISon? ____________________ Kio estis nenecesa? ____________________ Kion vi proponas al ni, por venigi pli da homoj (el via lando)? __________________ Pliaj aldonoj: __________________________ -8X ------------------------------------------------------------------ (3) Adresaro ---------- La IS-adresaro trovigxas en PDF-formato en la aldono. Bonvolu atenti la regulojn pri la uzo, kiuj trovigxas komence de gxi. Se vi perdis la adresaron, vi povas mendi novan cxe is.admin@esperanto.de. Mi cxi-foje uzis diversajn kolorojn por plifaciligi la distingon inter la unuopaj personoj - tio estas fakte eksperimento. Se vi ne sxatas, marku gxin tiel en la supra enketo. Kore salutas nome de KKRen (Konstanta Komisiono pri Renkontigxoj de GEJ) Pauxlo Ebermann DATOFINO; $dosierojn = array('adresaro.pdf'); // jen la necesaj dosieroj echo "Al: {$to_address}"; sendu_dosier_mesagxon("Adresaro kaj pliaj informoj pri pasinta IS", $teksto, $to_name, $to_address, $dosierojn, $bcc); erareldono("Messag^o sendata!"); }
/** */ function sendu_adresaron($row, $savu, $to_name, $to_address, $bcc = '') { $nomo = eotransformado($row[personanomo], "utf-8"); $teksto = <<<DATOFINO Saluton kara {$nomo}, dankon pro via cxeesto dum la 50a Internacia Seminario (aux "IS 2006/2007") en Wewelsburg. Ni (la organiza teamo) ege gxuis la etoson kaj ni esperas, ke vi sekvan jaron denove venos al IS, tiam en Würzburg (vidu sube). Kiel promesite, ni nun sendas la adresaron de cxiuj partoprenantoj de la IS, kaj krome kelkajn pliajn informojn. * Adresaro * Enketo * Murgazeto * Trovitajxoj * Fotoj * Sekva IS Adresaro ---------- La adresaron vi trovos en PDF-formato kiel aldonajxo (ordigita laux persona nomo). Se vi havas problemojn rilate al gxia uzo, bonvolu sendi mesagxon al ... Bonvolu ne pludoni la adresaron al homoj kiuj ne cxeestis la IS-on en Wewelsburg (tiuj tamen versxajne jam ricevis gxin, se ili aperas kun retadreso en la adresaro). Cetere, vi povas ankaux peti gxin denove de ... Ankaux estas malpermesita uzi la adresaron por sendi amasajn leterojn (cxu retposxte, cxu papere). Tio inkluzivas varbadon por Esperanto-renkontigxoj (kiel lastjare okazis)! Enketo -------- Por plibonigi la Internacian Seminarion, ni nuntempe preparas enketon pri gxi. Ni petas vin partopreni - detaloj pri tio sekvos post kelkaj tagoj. Vi taman rajtas jam nun sendi kritikon kaj lauxdon al la IS-teamo, ekzemple al ... Murgazeto ----------- Cxu vi sxatis la murgazeton de la IS? Se jes, eble vi volas relegi gxin ankorauxfoje ... La redakcio de la "blinda gardisto", kiu samtempe estas la redakcio de "Kune", la membrogazeto de GEJ kaj AEJ, post kelkaj tagoj aperigos en sia retpagxo PDF-an eldonon de la murgazeto. Ankaux vi tie trovas (jam nun) kuracilon kontraux la postrenkontigxa sindromo (PRS). http://www.esperanto.de/dej/asocio/kune_eo (La kuracilo trovigxas ankaux en la IS-lumdisko, en la dosierujo "pauxlo" (aux "pa_lo"), la du .wav-dosieroj.) Parenteze: Jxus trovinte en pagxo ok de la tria eldono foton de mia "vekhorlogxo", mi (Pauxlo) sxatus danki al la nederlandaj memzorgantoj (kaj precipe Oscar), pro la preskaux cxiutaga plenumo de mia peto ... Trovitajxoj ------------- Ni post la fino de la IS trairis la cxambrojn kaj la memzorgantejon kaj kolektis multajn ajxojn, kiujn iuj forgesis. Tiujn ni transportis al la Berlina Oficejo (BerO) de GEJ, kie ili nun stokigxas en la kelo. La mangxajxojn el la memzorgantejo ni jam formangxis aux baldaux formangxos - sed jen listo de aliaj trovajxoj, afable kreitaj de Anna-Laura Wickström: * beba kovrilo, brodita per leporeto * blanka eta sekigtuko, brodita per rugxa rozo * blua sekigxtuko kun "1. FC Oberhaid" kaj "Vonhausen L." * nigra kapucxa pulovero kun zipo, grandeco 128 * griza/burgund-kolora longmanika cxemizo, grandeco 110 * grizeflava "cargo"-pantalono, grandeco 98 * violkolora dormsakujo * verda ujo (eble por tendo) * "Swan Beaud" kun multaj cxinaj signoj * brun-verda dormsako * rugxa sekigtuko * hel-verda sekigxtuko, brodita per blua lekanto * kartludo "TOMATEN TROEF" * nigra (masxin-)trikita pulovero * kradita sxalo * bunt-linia sxalo * okulvitro-paro kun surskribajxo "Athena" (la maldekstra lenso estas pli forta ol la dekstra) * griza vesperto (uzita dum "Sxafo kaj Urso 2") * saketo kun diverskoloraj lignaj kubetoj, versxajne aparteninta al iu ludo Krome retrovigxis la trovajxo-sako kun la trovajxoj el la antauxa IS, kiun ni kunportis kaj volis disdoni al la posedantoj, kiuj venis nun - sed iam la sako perdigxis ... Se io el tio apartenas al vi, bonvolu kontakti la Berlinan oficejon de GEJ: ... Kontraux pago de la sendokostoj ni povas sendi gxin al vi, aux kunporti al la sekva IS, aux fari ion alian pri gxi. Bonvolu ankaux skribi, se vi volas donaci gxin al GEJ. Restis krome kelkaj foto-lumdiskoj - tiujn vi povas acxeti kontraux 3 Euxroj + sendokostoj. Fotoj de IS ------------- La teamo de IS kunlaboras kun la nova retejo http://amikumu.com, por enretigi fotojn pri la evento. Tie jam estas pluraj fotoj pri la IS, aperas fotoj el la oficiala foto-lumdisko, kaj ankaux vi povos alsxuti viajn fotojn. La retejo estas ankoraux en elprova stato, do ne tro miru, se io ne bone funkcias (sed anstatauxe sendu informan mesagxon al Chuck Smith, la adreson vi trovas en la adresaro, kaj certe ankaux ie en la pagxaro amikumo.com). La teamo de amikumo.com ankaux petas ne jam publike anonci gxin ... En pli simpla formo la fotoj de la IS-lumdisko (en la origina alta kvalito, ne en la pro spacmanko malpligrandigita versio de la lumdisko) trovigxas cxe http://bildoj.esperanto.de/50-a_IS/ Kelkaj homoj donis ne nur bildoj, sed ankaux filmojn al la lumdisko-teamo, kaj ni decidis pro spacaj kialoj ne meti ilin al la disko. Ili tamen nun aperas en la interreto: http://bildoj.esperanto.de/50-a_IS-filmoj/ Sekva IS ---------- La sekva, 51a, IS okazos de la 27a de decembro 2007 gxis la 3a de januaro 2008, en la Germana urbo Würzburg, en nordokcidenta Bavario (tamen en suda Germanio) - ni do dauxrigas la tradicion de loko-nomoj komencantaj per ne-esperantaj literoj (Wetzlar, Xanten, Wewelsburg, Würzburg, ...). Ni dankas al tiuj, kiuj jam surloke aligxis. La retpagxo por reta aligxo laux aktuala plano pretos post kelkaj semajnoj. En la nomo de la Organiza teamo (KKRen) Pauxlo Ebermann (teknika respondeculo pri IS-administrado kaj auxtoro de tiu teksto) PS: Mi planis sendi la adresaron jam du tagojn pli frue, sed teknika problemo en nia retservilo malhelpis tion ... mi pardonpetas pro tio. DATOFINO; $dosierojn = array($GLOBALS['prafix'] . 'dosieroj_generitaj/adresaro.pdf'); // jen la necesaj dosieroj echo "Al: {$to_address}"; sendu_dosier_mesagxon("Adresaro kaj pliaj informoj pri pasinta IS", $teksto, $to_name, $to_address, $dosierojn, $bcc); erareldono(" Messag^o sendita! "); }
/** * */ function sendu_adresaro_demandon($partoprenanto, $partopreno, $renkontigxo, $sendanto, $vere = true) { $kodigo = "x-metodo"; $mesagxo = kreu_auxtomatan_mesagxon(); if ($vere) { $mesagxo->ricevanto_estu($partoprenanto->datoj['retposxto'], eotransformado($partoprenanto->tuta_nomo(), $kodigo)); } else { $mesagxo->ricevanto_estu("undisclosed_recipients:", $partoprenanto->tuta_nomo()); // sen ricevanto } $mesagxo->temo_estu("Adresaro de IJK - cxu vi volas aperi? (kaj aliaj informoj)"); $enkonduko = "Kara " . $partoprenanto->datoj['personanomo'] . ",\n\nni dankas pro via partopreno dum la " . $renkontigxo->datoj['nomo'] . ".\nNi tre g^uis la arang^on, kaj esperas, ke por vi estis same.\nPer tiu c^i mesag^o ni sendas al vi kelkajn informojn rilatajn\nal la " . $renkontigxo->datoj['mallongigo'] . ".\n\n\n Enhavo\n========\n\n"; $adresaro_teksto = "\nNi volas sendi adresaron de la partoprenintoj al c^iuj\npartoprenintoj de la " . $renkontigxo->datoj['mallongigo'] . ".\n\nLau^ nia datumbazo, vi " . ($partopreno->datoj['intolisto'] == 'J' ? "volas aperi en tiu listo." : "ne volas aperi en tiu listo.") . "\nSe tio ne g^ustas, bonvolu sendi mesag^on al ijk.admin@esperanto.cz,\nankau^ se via adreso s^ang^ig^is au^ estas malg^usta.\n\nVia adreso aperus tiel (ordigita lau^ persona nomo '" . $partoprenanto->datoj['personanomo'] . "'):\n\n"; $adresaro_teksto .= $partoprenanto->datoj['personanomo'] . " " . $partoprenanto->datoj['nomo'] . "\n" . $partoprenanto->datoj['adreso'] . "\n" . $partoprenanto->datoj['posxtkodo'] . " " . $partoprenanto->datoj['urbo'] . "\n\n" . $partoprenanto->datoj['retposxto'] . "\n" . $partoprenanto->datoj['telefono'] . "\n" . $partoprenanto->datoj['tujmesagxiloj'] . "\n\n"; if ($partoprenanto->datoj['sxildnomo']) { $adresaro_teksto .= "Aldone ni metos plusendilon de via s^ildnomo '" . $partoprenanto->datoj['sxildnomo'] . "'\nal via plena nomo por trovi vin tiel.\n\n"; } if ($partopreno->datoj['intolisto'] == 'J') { $adresaro_teksto .= "Se ni ne au^dos de vi g^is la 17a de Julio, ni uzos vian\nadreson en la menciita formo."; } else { $adresaro_teksto .= "Se ni ne au^dos de vi g^is la 17a de Julio, vi ne \naperos en la adresaro."; } $enhavo[1] = array("Adresaro", $adresaro_teksto); if ($partopreno->datoj['tejo_membro_kontrolita'] == 'i') { $enhavo[] = array("UEA/TEJO-membreco: Jarlibro", "\nLau^ nia informo, vi surloke ig^is membro de TEJO/UEA.\nNi kore bonvenigas vin en la organizo!\n\nNi donis al la plejmulto de la novaj alig^intoj dum la akceptado la\nJarlibron 2009, sed ne certas, c^u ankau^ al vi (mi forgesis informi\nla akceptantojn, ke ili tion tion notu).\nSe vi ne ricevis la jarlibron kaj volas g^in ankorau^ havi, bonvolu\nsendi mesag^on pri tio al oficejo@tejo.org."); } $enhavo[] = array("Eh^oj kaj viaj komentoj", "\nEn la IJK-retpag^aro ni j^us komencis kolektadi tekstojn, fotojn kaj \naliajn materialojn pri la IJK aperintajn en amaskomunikiloj au^ \ninterrete. La listo ankorau^ ne estas kompleta kaj ni tre g^ojos se vi \npovas helpi g^in kompletigi. Ankau^ ni volonte legos viajn komentojn, \ngratulojn, lau^dojn au^ plendojn pri la IJK. Tiucele ni instalis ankau^ \npublikan mesag^muron. Vidu c^e http://ijk.esperanto.cz/eo/Ehxoj/\n"); $enhavo[] = array("TEJO serc^as volontulon", "\nVers^ajne vi jam au^dis pri tio, ke TEJO serc^is novan volontulon.\nNu, oni dau^re ne trovis posteulon por Pau^lo, kio estas bedau^rinda,\nc^ar temas pri sufic^e interesa (kaj grava) posteno.\n\nJ^us estis s^ovita la limdato. Rigardu c^e\n http://www.tejo.org/eo/volontulu\npri pliaj informoj. (Se vi ne mem volas/povas, sed konas iun, kiu\neble interesig^as, plusendu tiun informon al li/s^i.)"); $enhavo[] = array("Foto-kolektado", "\nHelpu al ni krei liberan kolekton de fotoj kaj videoj el Liberec'! C^iun \nkolektitan materialon ni disponigos rete lau^ la libera permesilo \n\"Creative Commons Atribuite-Samkondic^e\". Se vi volas kontribui per viaj \nfotoj kaj videoj el la IJK, als^utu ilin en ZIP-dosiero per \nhttp://tinyurl.com/deponejo (atentu ke klakinte la butonon Upload \nnecesos pacience atendi) KAJ sendu al ni al ijk@esperanto.cz per \nretpos^to kompletigitan tekston de permesa deklaro, kies modelon vi trovos \nc^e http://ijk.esperanto.cz/dokumentoj/permeso.txt (en la teksto plenigu \nlokon, tagon, viajn nomon kaj naskig^daton)."); $malenkonduko = "Kore salutas vin nome de TEJO kaj LKK de IJK\nPau^lo Ebermann\n(IJK-administranto kaj TEJO-volontulo)"; $teksto = eotransformado($enkonduko, $kodigo); foreach ($enhavo as $i => $ero) { $teksto .= "({$i}) " . eotransformado($ero[0], $kodigo) . "\n"; } foreach ($enhavo as $i => $ero) { $titolo = "({$i}) " . eotransformado($ero[0], $kodigo); $teksto .= "\n\n\n"; $teksto .= " " . $titolo . "\n"; $teksto .= str_repeat("=", mb_strlen($titolo, 'utf-8') + 2); $teksto .= "\n"; $teksto .= eotransformado($ero[1], $kodigo); } $teksto .= "\n\n\n" . eotransformado($malenkonduko, $kodigo); $mesagxo->auxtomata_teksto_estu($teksto, $kodigo, $sendanto, $renkontigxo); $mesagxo->eksendu(); }
/** * Transformas tekston el nia esperanta c^-kodigo al * la defaŭlta kodigo. * * @param eostring $io transforminda teksto * @global string _SESSION['enkodo'] kodigo uzenda * @global string GLOBALS['enkodo'] kodigo uzenda, se $_SESSION["enkodo"] ne ekzistas. (Se ankaŭ tiu ne ekzistas, uzu "unikodo". * @return string la transformita teksto. * @uses eotransformado */ function eotransform($io) { $enkodo = valoro($_SESSION['enkodo']) or $enkodo = valoro($GLOBALS['enkodo'], "unikodo"); return eotransformado($io, $enkodo); }
function traktu_kampon_interne($tabelnomo, $kamponomo, $dosiernomo, $restrikto, $atributoj) { if ($atributoj['flag']) { traktu_kampon_flag($tabelnomo, $kamponomo, $dosiernomo, $restrikto, $atributoj); return; } global $trovitaj, $chefa, $tradukoj; $helpajKampoj = array(); if ($atributoj['helpoteksto']) { $helpajKampoj[$atributoj['helpoteksto']] = 'helpoteksto'; } if ($atributoj['helpeDe']) { $helpajKampoj[$atributoj['helpeDe']] = 'helpo'; } /* * ideo: ni trairas ambaŭ samtempe ordigitaj laŭ ID, kaj * tiel trovas samtempe aldonendajn kaj forigendajn. */ $sql_org = datumbazdemando(array_merge(array('ID', $kamponomo => 'org'), $helpajKampoj), $tabelnomo, $restrikto, "", array('order' => 'ID ASC')); /* "\n SELECT `ID`, `" . $kamponomo . "` AS org" . $helpValSQL . "\n FROM `" . $tabelo_interna . "` " . "\n ORDER BY `ID` ASC "; */ $sql_trad = datumbazdemando(array('(0 + `cheno`)' => 'ID', 'cheno', 'traduko'), 'tradukoj', array("`dosiero` = '" . $dosiernomo . "'", "`iso2` = '" . $chefa . "'"), "", array("order" => "`ID` ASC")); /* "\n SELECT (0 + `cheno`) AS `ID`, `cheno`, `traduko` " . "\n FROM `" . $tabelo . "` " . "\n WHERE `dosiero` = '" . $dosiernomo . "' " . "\n AND `iso2` = '" . $chefa . "' " . "\n ORDER BY `ID` ASC "; */ echo("<pre>$sql_org</pre><pre>$sql_trad</pre>"); $rez_org = mysql_query($sql_org); $rez_trad = mysql_query($sql_trad); $linio_org = mysql_fetch_assoc($rez_org); $linio_trad = mysql_fetch_assoc($rez_trad); while (true) { if (null == $linio_org) { // ne plu estas linioj en la originala tabelo if (null == $linio_trad) { break; } // TODO: listu la restantajn $id_org = PHP_INT_MAX; $id_trad = (int) $linio_trad['ID']; } else if (null == $linio_trad) { // ne plu estas linioj en la traduktabeloj, sed ja en la originala // TODO: listu la restantajn $id_org = (int) $linio_org['ID']; $id_trad = PHP_INT_MAX; } else { $id_org = (int) $linio_org['ID']; $id_trad = (int) $linio_trad['ID']; } // echo "<pre>org: $id_org, trad: $id_trad</pre>\n"; if ($id_trad < $id_org) { // ni havas tradukon sen originalo - ne traktu nun, estos // trovita poste. // next(trad) $linio_trad = mysql_fetch_assoc($rez_trad); } else { // ni trovis linion en la originala tabelo, ĉu // kun aŭ sen traduko $trad_kampo = eotransformado($linio_org['org'], "por-tradukilo"); if ($id_org == $id_trad) { // linio kun jam ekzistanta traduko $cheno = $linio_trad['cheno']; // ==> ni komparu ĝin nun. if ($trad_kampo != $linio_trad['traduko']) { // proponu aktualigon skatolo_por_cheno("aktualigu", $tradukoj["stato-aktualigenda-db"], "retradukenda", $dosiernomo, 1, $cheno, $chefa, $linio_trad['traduko'], $trad_kampo); } // next(trad) $linio_trad = mysql_fetch_assoc($rez_trad); } else { // ni havas linion en la originala tabelo sen tradukoj $trovitaj[]= $dosiernomo . "#" . $id_org; if ($atributoj['helpoteksto']) { $cheno = ((string)$id_org) . " (" . $linio_org['helpoteksto'] . ")"; } else { $cheno = (string)$id_org; } $komento = ""; if ($atributoj['helpeDe']) { if ($atributoj['klarigoj']) { require_once($GLOBALS['prafix'] . "/iloj/iloj_tekstoj.php"); $helpdosiero = $GLOBALS['prafix'] . $atributoj['klarigoj']; $informoj = donu_tekstpriskribon($linio_org['helpo'], $helpdosiero); $komento = eotransformado($informoj['priskribo'], "por-tradukilo"); // echo "<pre>"; // // var_export(); // var_export($helpdosiero); // var_export($komento); // echo "</pre>"; } else { $komento = ""; } } // proponu aldonon skatolo_por_cheno("aldonu", $tradukoj["stato-aldonenda-db"], "aldonenda", $dosiernomo, 1, $cheno, $chefa, "", $trad_kampo, $komento); } // por la listo de trovitajxoj $trovitaj[]= $dosiernomo . "#" . $cheno; // next(org) $linio_org = mysql_fetch_assoc($rez_org); } // else }// while } // traktu_kampon
function formatu_subtabelon($sxablono, $titolo) { // echo("<!-- formatu_subtabelon( ..., " . var_export($titolo, true) . // ")\n-->"); $teksto = "\n"; $titolo = eotransformado($titolo, $this->kodigo); $teksto .= "\n " . $titolo . " "; $teksto .= "\n-" . str_repeat('-', mb_strlen($titolo, "UTF-8")) . "-"; $teksto .= "\n"; $linioj = explode("\n", $sxablono); $tabellinioj = array(); $largxo = 0; foreach ($linioj as $linio) { list($titolo, $kamponomo) = explode("|", $linio); $titolo = eotransformado($titolo, trim($this->kodigo)); $len = mb_strlen($titolo, "UTF-8"); $tabellinio = array($titolo, $kamponomo, $len); $tabellinioj[] = $tabellinio; $largxo = max($largxo, $len); } // echo "<!-- " . var_export($tabellinioj, true) . "-->"; foreach ($tabellinioj as $tabellinio) { list($titolo, $kamponomo, $len) = $tabellinio; $teksto .= "\n" . $titolo . " " . str_repeat(" ", $largxo - $len); $kamponomo = trim($kamponomo); $valoro = teksttransformo_donu_datumon($kamponomo, $this->datumoj); $valoro = implode(str_repeat(" ", $largxo + 1), explode("\n", eotransformado($valoro, $this->kodigo))); $teksto .= $valoro; } $this->teksto .= $teksto . "\n"; }
require_once $prafix . '/iloj/retmesagxiloj.php'; require_once $prafix . '/tradukendaj_iloj/iloj_konfirmilo.php'; require_once $prafix . '/iloj/diversaj_retmesagxoj.php'; $teksto = kreu_kaj_sendu_unuan_konfirmilon($_SESSION["partoprenanto"], $_SESSION["partopreno"], $partopreno_renkontigxo, $_SESSION['kkren']['entajpantonomo']); echo "<p>Ni sendis la jenan unuan konfirmilon:</p><pre>"; echo eotransformado($teksto, 'utf-8'); echo "</pre>"; } if ('sendu_informmesagxon' == $_REQUEST['faru']) { kontrolu_rajton('retumi'); require_once $prafix . '/iloj/retmesagxiloj.php'; require_once $prafix . '/tradukendaj_iloj/iloj_konfirmilo.php'; require_once $prafix . '/iloj/diversaj_retmesagxoj.php'; $teksto = sendu_informmesagxon_al_partoprenanto($_SESSION["partoprenanto"], $_SESSION["partopreno"], $partopreno_renkontigxo, $_SESSION['kkren']['entajpantonomo']); echo "<p>Ni sendis la jenan informmesagxon:</p><pre>"; echo eotransformado($teksto, 'utf-8'); echo "</pre>"; } if ($faru == "ekzporti") { require_once $prafix . '/iloj/retmesagxiloj.php'; require_once $prafix . '/iloj/diversaj_retmesagxoj.php'; // simpla_test_mesagxo(); sendu_sekurkopion_de_aligxinto($_SESSION['partoprenanto'], $_SESSION['partopreno'], $partopreno_renkontigxo, $_SESSION['kkren']['entajpantonomo']); echo "<p> Sekurkopio sendita al la administranto. </p>"; } if ($faru == "programmesagxoj") { // por elprovi: require_once $prafix . '/iloj/retmesagxiloj.php'; require_once $prafix . '/iloj/diversaj_retmesagxoj.php'; sendu_invitilomesagxon($_SESSION['partoprenanto'], $_SESSION['partopreno'], $partopreno_renkontigxo, $_SESSION['kkren']['entajpantonomo']); sendu_informmesagxon_pri_programero($_SESSION['partoprenanto'], $_SESSION['partopreno'], $partopreno_renkontigxo, $_SESSION['kkren']['entajpantonomo']);
/** */ function sendu_adresaron($row, $savu, $to_name, $to_address, $bcc = '') { $nomo = eotransformado($row[personanomo], "utf-8"); $teksto = <<<DATOFINO Saluton kara {$nomo}, dankon pro via cxeesto dum la 49a Internacia Seminario (aux "IS 2005/2006"). Ni (la organiza teamo) ege gxuis la etoson, kaj ni esperas, ke vi sekvan jaron denove venos al IS en Germanio. Kiel promesite, ni nun sendas la adresaron de cxiuj partoprenantoj de la IS, kaj krome kelkajn pliajn informojn. * Adresaro * Trovitajxoj * Fotoj * Filmoj * Kritikoj/Lauxdoj * Sekva IS Adresaro ---------- La adresaron vi trovos en PDF-formato kiel aldonajxo (ordigita laux persona nomo). Se vi havas problemojn rilate al gxia uzo, bonvolu sendi mesagxon al is.admin@esperanto.de. Bonvolu ne pludoni la adresaron al homoj kiuj ne cxeestis la IS-on en Xanten (tiuj tamen versxajne jam ricevis gxin, se ili aperas kun retadreso en la adresaro). Cetere, vi povas ankaux peti gxin denove de is.admin@esperanto.de. Trovitajxoj ------------- Ni post la fino de la IS trairis la cxambrojn kaj kolektis multajn ajxojn, kiujn iu forgesis. Tiujn ni (fakte Martin kaj Pauxlo en la malgranda auxto de Martin) transportis al la Berlina Oficejo (BerO) de GEJ, kie ili nun stokigxas en la kelo. La Berlinaj Studentoj-Esperantistoj (BSE) estis tiom afablaj krei liston de la trovitajxoj dum ilia unua post-IS-a kunveno: * nigra trikita pulovro * trikita jako, malhelblua, blankaj strioj, grandeco L, kun zipo. * esperanto-T-cxemizo * nigra trikita pulovro, rugxaj, verdaj kaj grizaj strioj * grizblua pantalono, grandeco L * nigra cxapo * paro de vinrugxaj gantoj * paro de rozkoloraj "Thinsulate"-gantoj * blanka XL-T-cxemizo, initialoj SWR. * nigra T-cxemizo, "liberte pour Leonard Peltier ..." * blanka mantuko (rozoj) * blanka sxnurego (plastika) * paro da rugxvinkoloraj, virinaj sxuoj, grandeco 40. * nigra trikita jako, kun zipo, grandeco L (malodoras). * blua fliza pulovero, grandeco M. * nigra "Timberland"-sako * dormsako ("Eurohiker", nigra) * trinkbotelo en izola sako de "Adventuridge" * kablo USB/FireWire (helgriza) * kuverto "Stephanie", kun fotoj de infanoj kaj letero * izolmatraco (blua, ege largxa) * kravato kun strioj violetaj/bluaj * trigamba segxo (el fero kaj ligno, tre peza) Se io el tio estas via (kaj vi volas rehavi gxin), bonvolu sendi mesagxon al bero@esperanto.de. Kontraux pago de la sendokostoj ni povas sendi gxin al vi. Restis krome kelkaj foto-lumdiskoj - tiujn vi povas acxeti kontraux 2 Euxroj + sendokostoj. Fotoj de IS ------------- Pluraj fotoj de la IS (tiuj, kiuj estas ankaux sur la lumdisko, sed en iomete pli alta kvalito - pro spacmanko sur la lumdisko) haveblas je http://bildoj.esperanto.de/49-a_IS/ Fotoj de Lukazs estas troveblaj cxi tie: http://kalmar.one.pl/esperanto/fotoj/IS-2005-06 Ivo Miesen prilaboris siajn fotojn (kaj faris elekton) kaj la rezulto troveblas (same kiel fotoj de aliaj arangxoj) cxi tie: http://fotoalbum.dds.nl/ivo_m Fotoj de Sebastian Kirf trovigxas cxe http://fotoj.kirf.de/thumbnails.php?album=9 Filmoj -------- Dum kelkaj tagoj okazis seminarieto kun profesia filmfaristo por krei varbfilmojn pri Esperanto. La rezultojn (du filmoj de po ~ 45 sekundoj, en Esperanto, kun germanaj subtekstoj) ni metis al nia servilo kaj alligis cxe http://www.esperanto.de/is/eo/2005/index. Kelkaj filmoj de la partoprenantoj troveblas cxe http://bildoj.esperanto.de/49-a_IS-filmoj/ Kritikoj/Lauxdoj ------------------ Ni kunportis la liston de la lauxdoj kaj kritikoj, kiuj pendis dum IS en la enirhalo, kaj analizos gxin. Se vi havas kritikon aux lauxdon, kiun vi forgesis skribi sur tiun folion, vi povas sendi gxin al is.admin@esperanto.de - ni certe pridiskutos gxin ene de KKRen. (Bonvolu menciu "kritiko" aux "lauxdo" en la kaplinio, por ke la spamfiltrilo nur kaptu la kritikojn ;-) [1]) Sekva IS ---------- Ni bedauxrinde ankoraux ne scias, kie ekzakte okazos la sekva IS, sed certe gxi okazos en Germanio kaj de la 27a de decembro 2006 gxis la 3a de januaro 2007. Gxi estos la 50a, kaj gxi estu aparte bona! KKRen (la IS-teamo) nun esploras eblajn ejojn (kun malpli fora memzorgantejo!), diskutas la temon kaj la plano por la vespera programo jam nun estas preskaux preta. Se vi volas cxiam esti informita pri la plej novaj aktualajxoj, vi aligxu (se vi ankoraux ne faris) al la dissendolisto is-en-germanio, http://groups.yahoo.com/group/is-en-germanio. Ankorauxfoje dankon pro via cxeesto kaj gxis sekva IS En la nomo de la Organiza teamo (KKRen) Pauxlo Ebermann (teknika respondeculo pri IS-administrado kaj auxtoro de tiu teksto) [1] Ne, nia spamoflitrilo tute ne distingas inter kritiko kaj lauxdo, tio estis sxerco. DATOFINO; $dosierojn = array($GLOBALS['prafix'] . 'dosieroj_generitaj/adresaro.pdf'); // jen la necesaj dosieroj echo "Al: {$to_address}"; sendu_dosier_mesagxon("Adresaro kaj pliaj informoj pri pasinta IS", $teksto, $to_name, $to_address, $dosierojn, $bcc); erareldono(" Messag^o sendita! "); }
/** * transkodigas tekston en UTF-8 kun ^ al UTF-8 * kun veraj supersignoj. * Tio estas uzata por la unikoda PDF-eldono. */ function uni($teksto) { return eotransformado($teksto, "utf-8"); }
/** * TODO: dokumentado por faru_1ankonfirmilon * * ### uzata de partrezultoj.php, AligxiloDankon.php, * kaj sendu_konfirmilon(). ### */ function faru_1akonfirmilon($partoprenanto, $partopreno, $renkontigxo) { //$partoprenanto = new Partoprenanto($antoID); //$partopreno = new Partopreno($enoID); //$kotizo = new Kotizo($partopreno,$partoprenanto,$renkontigxo); $ek = ""; if ($partopreno->datoj["germanakonfirmilo"] == "J") { $ek .= utf8_encode("[ Deutsche Übersetzung am Ende. ]\n\n"); } $ek .= "Saluton kara " . eotransformado($partoprenanto->datoj[personanomo] . " " . $partoprenanto->datoj[nomo], "x-metodo"); $ek .= "\nni jxus ricevis vian aligxilon por la\n" . eotransformado($renkontigxo->datoj[nomo], "x-metodo") . " en " . eotransformado($renkontigxo->datoj[loko], "x-metodo") . ".\n"; if ($partopreno->datoj[retakonfirmilo] == "J") { $ek .= "\nVi indikis, ke vi deziras retan konfirmilon, do vi\n ricevas la jenan mesagxon kiel 1a konfirmilo. \nLa 2a konfirmilo sekvos en novembro.\n"; } $ek .= "\n"; //$ek .= "De ".$partoprenanto->datoj[retposxto]." venis la sekva aligxilo\n"; $ek .= "Aligxdato: " . $partopreno->datoj[aligxdato] . "\n"; $ek .= "\n"; $ek .= "---- Personaj datoj ----\n"; $ek .= "Personanomo: " . $partoprenanto->datoj[personanomo] . "\n"; $ek .= "Familianomo: " . $partoprenanto->datoj[nomo] . "\n"; $ek .= "Sekso: " . $partoprenanto->datoj[sekso] . "\n"; $ek .= "Naskigxdato: " . $partoprenanto->datoj[naskigxdato] . "\n"; // $ek .= "okupigxo: ".okupigxtipo($partoprenanto->datoj[okupigxo])." ".$partoprenanto->datoj[okupigxteksto]."\n"; if ($partoprenanto->datoj[lando] == '16') { $ek .= "Gejmembro: " . $partopreno->datoj[GEJmembro] . "\n"; } $ek .= "\n"; $ek .= "---- Adreso ----\n"; if ($partoprenanto->datoj[adresaldonajxo]) { $ek .= "adresaldonajxo:" . $partoprenanto->datoj[adresaldonajxo] . "\n"; } $ek .= "strato: " . $partoprenanto->datoj[strato] . "\n"; $ek .= "posxtkodo: " . $partoprenanto->datoj[posxtkodo] . "\n"; $ek .= "urbo: " . $partoprenanto->datoj[urbo] . "\n"; $ek .= "lando: " . eltrovu_landon($partoprenanto->datoj[lando]) . "\n"; $ek .= "\n---- Komunikado ----\n"; $ek .= "telefono: " . $partoprenanto->datoj[telefono] . "\n"; $ek .= "telefakso: " . $partoprenanto->datoj[telefakso] . "\n"; $ek .= "retposxtadreso: " . $partoprenanto->datoj[retposxto] . "\n"; $ek .= "\n---- Partoprendatumoj ----\n"; if ($partoprenanto->datoj['ueakodo']) { $ek .= "Via UEA-kodo estas " . $partoprenanto->datoj['ueakodo'] . ".\n"; } if ($partopreno->datoj['tejo_membro_laudire'] == 'j') { $ek .= "Vi indikis, ke vi en " . substr($renkontigxo->datoj['gxis'], 0, 4) . " estos individua membro de TEJO.\n" . "(Ni kontrolos tion - prefere sendu vian TEJO/UEA-kotizon\n" . " jam antaux la renkontigxo al UEA.)\n"; } if ($partopreno->datoj[komencanto][0] == "J") { $ek .= "Vi estas novulo / komencanto.\n"; } if ($partopreno->datoj[invitletero][0] == "J") { $ek .= "Vi deziras invitlereron por pasportnumero: " . $partopreno->datoj[pasportnumero] . ".\n"; } if ($partopreno->datoj["havas_asekuron"][0] == "J") { $ek .= "Vi havas asekuron pri malsano kaj kunportos la necesajn paperojn.\n"; } else { $ek .= "Vi ne havas tauxgan asekuron pri malsano.\n"; } if ($partopreno->datoj[partoprentipo][0] == "t") { $ek .= "Vi partoprenos tuttempe (de: " . $partopreno->datoj[de] . " gxis: " . $partopreno->datoj[gxis] . ")" . "\n"; } elseif ($partopreno->datoj[partoprentipo][0] == "p") { $ek .= "Vi partoprenos partatempe (de: " . $partopreno->datoj[de] . " gxis: " . $partopreno->datoj[gxis] . ")" . "\n"; } else { $ek .= "mankas partoprentipo?? io eraro okazis - bonvolu kontaktu nin" . "\n"; //TODO: MAcht das skript dann automatisch :)) } if ($partopreno->datoj[vegetare][0] == "J") { $ek .= "Vi aligxis kiel vegetarano kaj "; } else { if ($partopreno->datoj['vegetare'][0] == "N") { $ek .= "Vi aligxis kiel viandmangxanto kaj "; } else { if ($partopreno->datoj['vegetare'][0] == "A") { $ek .= "Vi aligxis kiel vegano kaj "; } else { $ek .= "Vi aligxis (pri mangxado) en nekonata formo\n" . "(" . $partopreno->datoj['vegetare'] . ")"; } } } if ($partopreno->datoj[domotipo][0] == "M") { $vosto .= "memzorgas "; if ($partopreno->datoj[kunmangxas][0] == "J") { $vosto .= "sed kunmangxas "; } } else { if ($partopreno->datoj[domotipo][0] == "J") { $vosto .= "junulargastejumas \n en (eble) "; if ($partopreno->datoj[dulita][0] == "J") { $vosto .= "dulita "; } if ($partopreno->datoj[cxambrotipo][0] == "u") { $vosto .= "unuseksa "; } if ($partopreno->datoj[cxambrotipo][0] == "g") { $vosto .= "gea " . ""; } if ($partopreno->datoj[cxambrotipo][0] == "n") { $vosto .= "negrava " . ""; } $vosto .= "cxambro "; if ($partopreno->datoj[kunkiu] != "") { $vosto .= "(eble) kun " . $partopreno->datoj[kunkiu] . "\n"; } } } $ek .= $vosto; if ($partopreno->datoj[tema]) { $ek .= "\n[X] kontribuos al la tema programo per: " . $partopreno->datoj[tema] . ""; } if ($partopreno->datoj[distra]) { $ek .= "\n[X] kontribuos al la distra programo per: " . $partopreno->datoj[distra] . ""; } if ($partopreno->datoj[vespera]) { $ek .= "\n[X] kontribuos al la vespera programo per: " . $partopreno->datoj[vespera] . ""; } if ($partopreno->datoj[muzika]) { $ek .= "\n[X] kontribuas al la muzika vespero: " . $partopreno->datoj[muzika] . ""; } /* if ($partopreno->datoj[rabato]!=0.00) { $ek .= "\n[X] deziras rabato de: ".$partopreno->datoj[rabato]." Euro, cxar \"".$partopreno->datoj[kialo]." \""; }*/ if ($partopreno->datoj[rimarkoj]) { $ek .= "\nkaj havas la jenajn rimarkojn:\n\n[" . $partopreno->datoj[rimarkoj] . "]\n"; } // Sonderregelung Deutsche Ü 27 if ($renkontigxo->datoj["mallongigo"] == "IS 2005" and $partoprenanto->datoj["lando"] == HEJMLANDO and strcmp($partoprenanto->datoj["naskigxdato"], "1978-12-27") < 0) { $ek .= "\nVi (je la komenco de IS) agxos 27 jarojn aux pli. Tial vi" . "\n nur povos partopreni, se vi kontribuos al la programo." . "\n Bonvolu sendi proponojn al la programrespondeculoj." . "\n Vidu http://www.esperanto.de/is/de/2005/adresoj#programo." . "\n"; } // TODO: generaligu antauxpagon (prenu el datumbazo?) $landkat = eltrovu_landokategorion($partoprenanto->datoj[lando]); switch ($landkat) { case "A": $antauxpago = "30"; break; case "B": $antauxpago = "10"; break; } if ($landkat != "C") { $ek .= "\n\nNe forgesu, ke via aligxo nur ekvalidas post alveno de\n minimuma antauxpago de {$antauxpago} euxroj cxe ni.\n"; $ek .= "Pri pageblecoj rigardu http://www.esperanto.de/is/eo/2006/kontoj\n\n"; } if ($partopreno->datoj[invitletero][0] == 'J') { $ek .= "\n" . donu_tekston("konf1-invitilo", $renkontigxo) . "\n"; } $ek .= "\nPor priparoli la ISon jam antaux la IS, plani kunveturadon, ktp." . "\nnun ekzistas aparta jahugrupo: is-en-germanio." . "\n" . "\nPor aligxi uzu" . "\n http://groups.yahoo.com/group/is-en-germanio/" . "\naux sendu retmesagxon al" . "\n is-en-germanio-subscribe@yahoogroups.com" . "\n"; $ek .= "\nNi atendos vin en la IS.\n\nJulia Noe en la nomo de la organiza teamo de la IS."; //$kotizo->montru_kotizon(1,$partopreno,$partoprenanto,$renkontigxo); //$ek .= $kotizo->mesagxo; if ($partopreno->datoj["germanakonfirmilo"] == "J") { $ek .= utf8_encode("\n\n ------- Deutsche Übersetzung ---------\n\n") . faru_1an_konfirmilon_germane($partoprenanto, $partopreno, $renkontigxo); } return $ek; }
/** */ function sendu_adresaron($row, $savu, $to_name, $to_address, $bcc = '') { $nomo = eotransformado($row[personanomo], "utf-8"); $teksto = <<<DATOFINO Saluton kara {$nomo}, dankon pro via cxeesto dum la 51a Internacia Seminario (aux "IS 2007/2008") en Würzburg. Ni (la organiza teamo) ege gxuis la etoson kaj ni esperas, ke vi sekvan jaron denove venos al IS, tiam en Biedenkopf (vidu sube). Kiel promesite, ni nun sendas la adresaron de cxiuj partoprenantoj de la IS, kaj krome kelkajn pliajn informojn. * Adresaro * Trovitajxoj * Fotoj + Filmo * Sekva IS * Etaj anoncoj Adresaro ---------- La adresaron vi trovos en PDF-formato kiel aldonajxo (ordigita laux persona nomo). Se vi havas problemojn rilate al gxia uzo, bonvolu sendi mesagxon al ... Bonvolu ne pludoni la adresaron al homoj kiuj ne cxeestis la IS-on en Würzburg (tiuj tamen versxajne jam ricevis gxin, se ili aperas kun retadreso en la adresaro). Cetere, vi povas ankaux peti gxin denove de ... Ankaux estas malpermesite uzi la adresaron por sendi amasajn leterojn (cxu retposxte, cxu papere). Tio inkluzivas varbadon por Esperanto-renkontigxoj (kiel lastjare okazis)! (Ni ne elpensis tion por gxeni vin, sed pro la germanaj datumprotektaj legxoj. Bonvolu sekvi do tiujn kondicxojn.) Trovitajxoj ------------- Ni post la fino de la IS trairis la cxambrojn kaj la memzorgantejon kaj kolektis multajn ajxojn, kiujn iuj forgesis. Bedauxrinde mankis spaco en la auxto, per kiu ni reveturigis la aferojn el la oficejo kaj de la libroservo (vi acxetis maltro), do ni kelkajn vestajxojn (kiuj sxajnis malaltvaloraj) simple forjxetis. Iuj aliaj ajxoj tamen alvenis en la oficejo (ekzemple elektra kablo de klapkomputilo) - se vi ion perdis, sendu retmesagxon al ... Fotoj de IS ------------- Elekton de 199 el la multegaj fotoj, kiujn vi lasis en la IS-foto-komputilo, vi trovas nun cxe http://picasaweb.google.com/InternaciaSeminario/IS20078 La fotoj ankaux havas (foje amuzajn) komentojn elpensitajn de nia IS-estro. Ni baldaux trovos iun manieron enretigi cxiujn fotojn - vi trovos la ligon en nia IS-retpagxo, same kiel anoncon en nia partoprenanta dissendolisto: http://groups.yahoo.com/group/is-en-germanio/ Rolf ankaux kunmetis plurajn el la video-klipoj, kiujn vi lasis en la Fotokomputilo, al unu filmo, nun trovebla je Youtube: http://www.youtube.com/watch?v=3gEj8V4dDOo Sekva IS ---------- La sekva, 52a, IS okazos de la 27a de decembro 2008 gxis la 3a de januaro 2009, en la Germana urbeto Biedenkopf, en okcidenta Hesio (en meza Germanio, norde de Frankfurt cxe la Majno). Ni dankas al tiuj, kiuj jam surloke aligxis. La retpagxo por reta aligxo laux aktuala plano pretos post kelkaj semajnoj. Ankaux pri tio vi trovos anoncon en la IS-dissendolisto supre menciita. Etaj anoncoj -------------- ---- Por cxiuj cxeestintoj kaj interesatoj de la prelego pri Neuxrodiverseco kaj Esperanto venu al http://groups.google.com/group/alie , aligxu kaj kunumu! ---- Se iu havas fotojn de la koncerto de mi, mi gxojus se vi emus sendi al mi por eventuala uzo en mia miaspac'-pagxo Martin Wiese ---- Apartan dankon al cxiuj IAGU membroj :-) ! Daure memoru nian IAGU-himnon: mmmmmmmmmm ---- En la nomo de la organiza teamo (KKRen) Pauxlo Ebermann (teknika respondeculo pri IS-administrado kaj auxtoro de tiu cxi teksto) DATOFINO; //' $dosierojn = array($GLOBALS['prafix'] . 'dosieroj_generitaj/adresaro.pdf'); // jen la necesaj dosieroj echo "Al: {$to_address}"; sendu_dosier_mesagxon("Adresaro kaj pliaj informoj pri pasinta IS", $teksto, $to_name, $to_address, $dosierojn, $bcc); erareldono(" Messag^o sendita! "); }
/** * Transformas tekston el nia esperanta c^-kodigo al * la defaŭlta kodigo. * * @param eostring $io transforminda teksto * @global string _SESSION['enkodo'] kodigo uzenda * @global string GLOBALS['enkodo'] kodigo uzenda, se $_SESSION["enkodo"] ne ekzistas. (Se ankaŭ tiu ne ekzistas, uzu "unikodo". * @return string la transformita teksto. * @uses eotransformado */ function eotransform($io) { $enkodo = $_SESSION['enkodo'] or $enkodo = $GLOBALS['enkodo'] or $enkodo = "unikodo"; return eotransformado($io, $enkodo); }
require_once $prafix . '/iloj/retmesagxiloj.php'; require_once $prafix . '/tradukendaj_iloj/iloj_konfirmilo.php'; require_once $prafix . '/iloj/diversaj_retmesagxoj.php'; sendu_invitilomesagxon($partoprenanto, $partopreno, $renkontigxo, "alig^ilo"); sendu_informmesagxon_pri_programero($partoprenanto, $partopreno, $renkontigxo, "alig^ilo"); sendu_sekurkopion_de_aligxinto($partoprenanto, $partopreno, $renkontigxo, "Alig^ilo"); ?> <tr> <td colspan='4'> <h1> <?php echo CH('gratulojn'); ?> </h1> <?php if ($_POST['retposxto']) { echo "<p>" . CH('konfirmilo-sendita', "<em>" . $_POST['retposxto'] . "</em>") . "</p>\n"; } else { echo "<p>" . CH('konfirmilo-por-konservado') . "</p>\n"; } // sendu (kopion) ecx, se li ne donis retadreson. $konfirmilo_teksto = kreu_kaj_sendu_unuan_konfirmilon($partoprenanto, $partopreno, $renkontigxo); echo "<pre>" . eotransformado($konfirmilo_teksto, 'utf-8') . "</pre>\n"; ?> </td> </tr> </table> </form> </body> </html>
function kodigu($teksto) { return eotransformado($this->lauxlingve($teksto), $this->kodigo); }
function eotransform($io) { if ($_SESSION["enkodo"] == "") { $enkodo = $GLOBALS["enkodo"]; if ($enkodo == "") { $enkodo = "unikodo"; } } else { $enkodo = $_SESSION["enkodo"]; } return eotransformado($io, $enkodo); }
case 'elektu': // "select ID,nomo,subjekto,korpo from retposxto where ID=$elektata"); $result = sql_faru(datumbazdemando(array("subjekto", "korpo"), "retposxto", "ID = '{$_POST['sxablonoID']}'")); $row = mysql_fetch_array($result, MYSQL_ASSOC); $alkiu = $_SESSION["partoprenanto"]->tuta_nomo(); $teksto = transformu_tekston($row['korpo'], array('anto' => $_SESSION['partoprenanto']->datoj, 'eno' => $_SESSION['partopreno']->datoj, 'igxo' => $_SESSION['renkontigxo']->datoj, 'ktp' => array('entajpantonomo' => $_SESSION["kkren"]["entajpantonomo"]))); echo '<form name="notoj" method="post" action="sendumesagxon.php">'; eoecho("<p>Kiun mesag^on vi volas sendi al {$alkiu}?</p>"); if ($_SESSION['partoprenanto']->datoj['retposxta_varbado'] == 'u') { $kodigo = "utf-8"; } else { $kodigo = "x-metodo"; } $teksto = eotransformado($teksto, $kodigo); $temo = eotransformado($row['subjekto'], $kodigo); $alkiu = eotransformado($alkiu, $kodigo); // TODO: eble aldonu pliajn retadresojn cxi tie. $sendantolisto = array($_SESSION['renkontigxo']->datoj['mallongigo'] . " - Administranto"); $adresolisto = array($_SESSION['renkontigxo']->datoj['adminretadreso']); if ($miaPPID = $_SESSION['kkren']['partoprenanto_id'] and $miaPP = new Partoprenanto($miaPPID)) { if (trim($miaPP->tuta_nomo())) { $sendantolisto[] = $miaPP->tuta_nomo(); } if ($miaPP->datoj['retposxto']) { $adresolisto[] = $miaPP->datoj['retposxto']; } } $linio = eltrovu_laux_id(array("retposxtadreso", "sendanto_nomo"), "entajpantoj", $_SESSION['kkren']['entajpanto']); if ($linio['retposxtadreso']) { $adresolisto[] = $linio['retposxtadreso']; }
/** * metas tekston, kun komenca kaj finaj linioj pri la * auxtomateco de la teksto kaj kie plendi. * * La kodigo de la teksto estu UTF-8 (aux io kompatibla). * * @param string $teksto la enhavo de la mesagxo. * @param string $eokodigo * Metodo por transformi nian c^-surogatojn, kiel * en {@link eotransformado()}: * "" (la defauxlto): -la enhavo ne estos sxangxita * "x-metodo" * "utf-8" * ( "unikodo" - uzu HTML-kodigon - ne sencas.) * @param string $sendanto kiu/kio kauxzis la sendadon de la * mesagxo, ekzemple "aligxilo" aux * iu salutnomo de uzanto. * @param Renkontigxo $renkontigxo uzata por la mencio de administranta * adreso - se mankas, uzas * {@link $_SESSION['renkontigxo']} * anstatauxe. * @uses teksto_estu() * @uses latin1a_teksto_estu() * @uses eotransformado() */ function auxtomata_teksto_estu($teksto, $eokodigo = "", $sendanto = "nekonato", $renkontigxo = "") { if (!$renkontigxo) { $renkontigxo = $_SESSION['renkontigxo']; } $fina_teksto = "### au^tomata mesag^o de la " . programo_nomo . " ###\n" . "### Sendita fare de " . $sendanto . " ###\n" . "\n" . $teksto . "\n\n### En kazo de teknika problemo bonvolu informi " . teknika_administranto_retadreso . ". ###" . "\n### (En kazo de enhava problemo, informu " . $renkontigxo->datoj['adminretadreso'] . ".) ###"; if ($eokodigo != "utf-8" and !estas_ekster_latin1($fina_teksto)) { $fina_teksto = mb_convert_encoding(eotransformado($fina_teksto, $eokodigo), "ISO-8859-1", "UTF-8"); $this->latin1a_teksto_estu($fina_teksto); } else { $this->teksto_estu(eotransformado($fina_teksto, $eokodigo)); } }
/** * metas tekston, kun komenca kaj finaj linioj pri la * auxtomateco de la teksto kaj kie plendi. * * La kodigo de la teksto estu UTF-8 (aux io kompatibla). * * $teksto - la enhavo de la mesagxo. * $eokodigo - Metodo por transformi nian c^-surogatojn. * "" (la defauxlto) -la enhavo ne estos sxangxita * "x-metodo" * "utf-8" * ( "unikodo" - uzu HTML-kodigon - ne sencas.) */ function auxtomata_teksto_estu($teksto, $eokodigo = "", $sendanto = "nekonato", $renkontigxo = "") { if (!$renkontigxo) { $renkontigxo = $_SESSION['renkontigxo']; } $this->teksto_estu(eotransformado("### au^tomata mesag^o de la " . programo_nomo . " ###\n" . "### Sendita fare de " . $sendanto . " ###\n" . "\n" . $teksto . "\n\n### En kazo de teknika problemo bonvolu informi " . teknika_administranto_retadreso . ". ###" . "\n### (En kazo de enhava problemo, informu " . $renkontigxo->datoj['adminretadreso'] . ".) ###", $eokodigo)); }