/**
* kreas tekston por la unua konfirmilo,
* sendas gxin al la partoprenanto (se tiu
* donis retmesagxon kaj eblaj kopioj-ricevantoj)
* kaj redonas la tekston (en la originala
* c^-kodigo, ne en la kodigo uzata dum la sendado
* ("utf-8" aux x-metodo).
*/
function kreu_kaj_sendu_unuan_konfirmilon($partoprenanto, $partopreno, $renkontigxo, $sendanto = "Alig^ilo")
{
$teksto = kreu_unuan_konfirmilan_tekston($partoprenanto, $partopreno, $renkontigxo, "ne kodigu");
$mesagxo = kreu_auxtomatan_mesagxon();
// heuxristiko: Se la homoj volas retposxtan varbadon
// en UTF-8-formato, ili versxajne ankaux volas la
// konfirmilon en UTF-8.
$kodigo = $partoprenanto->datoj['retposxta_varbado'] == 'u' ? "utf-8" : "x-metodo";
$mesagxo->temo_estu("Unua konfirmilo por la " . $renkontigxo->datoj['nomo']);
if ($partoprenanto->datoj['retposxto']) {
$mesagxo->ricevanto_estu($partoprenanto->datoj['retposxto'], $partoprenanto->tuta_nomo());
$mesagxo->kopion_al(constant('unua_konfirmilo_kopioj_al'));
} else {
$mesagxo->ricevanto_estu(constant('unua_konfirmilo_kopioj_al'), "Aligxilo-Kopioj-ricevanto");
}
$mesagxo->auxtomata_teksto_estu($teksto, $kodigo, $sendanto, $renkontigxo);
$mesagxo->eksendu();
return $teksto;
}
if (nova_kunlogxado) {
$ri = $_SESSION['partoprenanto']->personapronomo;
$Ri = ucfirst($ri);
eoecho("Kunlog^deziroj de kaj pri {$ri}:");
// !!!!!!!!!!!!!!!!
require_once $prafix . "/iloj/iloj_kunlogxadoj.php";
montru_kunlogxdezirojn_ambauxdirekte($_SESSION['partopreno'], "↑");
// provizore nur por teknikumistoj, por elprovi:
rajtligu("kunlogxado.php?ago=sercxu", "serc^u kunlog^dezirojn", "", "teknikumi");
}
}
echo "</TD></TR></TABLE>\n";
if ('konfirmi' == $_REQUEST['faru']) {
echo "<hr/><h3>La unua konfirmilo</h3>";
require_once $prafix . '/tradukendaj_iloj/iloj_konfirmilo.php';
echo "<pre>" . kreu_unuan_konfirmilan_tekston($_SESSION['partoprenanto'], $_SESSION['partopreno'], $partopreno_renkontigxo, 'utf-8') . "</pre>\n<p>";
if (rajtas("retumi")) {
ligu_butone("partrezultoj.php?partoprenidento=" . $partopreno->datoj['ID'], "sendi la unuan konfirmilon", array('faru' => 'sendu_unuan_konfirmilon'));
} else {
eoecho("Vi ne havas la rajton por elsendi" . " la mesag^on.");
}
echo "</p>\n";
}
if ('informmesagxo' == $_REQUEST['faru']) {
eoecho("<hr /><h3>La informmesag^o</h3>");
require_once $prafix . '/tradukendaj_iloj/iloj_konfirmilo.php';
echo "<pre>";
echo kreu_informmesagxan_tekston($_SESSION['partoprenanto'], $_SESSION['partopreno'], $partopreno_renkontigxo, 'x-metodo');
echo "</pre><p>";
if (rajtas("retumi")) {
ligu_butone("partrezultoj.php?partoprenidento=" . $partopreno->datoj['ID'], "sendi la informmesag^on", array('faru' => 'sendu_informmesagxon'));
montru_kunlogxdezirojn_ambauxdirekte($_SESSION['partopreno'], "↑");
// provizore nur por teknikumistoj, por elprovi:
rajtligu("kunlogxado.php?ago=sercxu", "serc^u kunlog^dezirojn", "", "teknikumi");
}
}
}
echo "</TD></TR></TABLE>\n";
if ($faru == 'konfirmi') {
echo nl2br(faru_1akonfirmilon($_SESSION["partoprenanto"], $_SESSION["partopreno"], $partopreno_renkontigxo));
echo "<BR><BR>";
if ($_SESSION["partoprenanto"]->datoj[retposxto] and rajtas(retumi)) {
ligu("partrezultoj.php?faru=sendukonfirmo", "--> sendi 1an konfirmilon");
}
echo "<hr/><p>La nova unua konfirmilo:</p>";
require_once $prafix . '/iloj/iloj_konfirmilo.php';
echo "<pre>" . kreu_unuan_konfirmilan_tekston($partoprenanto, $partopreno, $renkontigxo, 'utf-8') . "</pre>";
ligu("partrezultoj.php?faru=sendu_unuan_konfirmilon", "sendi la novan unuan konfirmilon");
}
if ($faru == 'sendu_unuan_konfirmilon') {
require_once $prafix . '/iloj/retmesagxiloj.php';
require_once $prafix . '/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 informilon:</p><pre>";
echo eotransformado($teksto, 'utf-8');
echo "</p>";
}
//if ($faru == "junaMaljuna")
//{
// kontrolu_rajton("retumi");
//
