/**
* $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));
}
