UlozPro("title","".$GLOBALS['wwwname']." - ".RS_CT_NADPIS.""); // overeni existence potrebnych promennych if (!isset($GLOBALS['akce'])): $GLOBALS['akce']='logmenu'; endif; // test na automaticke prihlaseni if ($GLOBALS['akce']=='logmenu'): if ($prmyctenar->ctenarstav==1): $GLOBALS['akce']='autologin'; endif; endif; // inic. pomocne textove promenne $GLOBALS['cte_modul_text']=''; function KorekceHTML($txt = '') { // tento radek umoznuje spravne zobrazit v editacnim poli vsechny zvlastni znaky zapsane jako &X; return str_replace ('&','&',$txt); } function OptJazykSlovniky($hledam = '') { $vysl=''; $adr = dir("lang"); while($prehled_jazyku=$adr->read()): if (substr($prehled_jazyku,0,3)=='sl_'): $jazyk_zkratka=substr($prehled_jazyku,3,2); $vysl.=""; endif; endwhile; $adr->close(); return $vysl; } // -------------- Captcha - funkce načetní a ověření otázky ---------------- function NactiKontrolniRetezec() { $vysl['captcha_id']=''; $vysl['captcha_otazka']=''; // dotaz na vypis vsech dostupnych kontrolnich otazek // tento zpusob ziskani kontrolni otazky nepocitani s prilis velkym mnoztvim otazek v databazi; v pripade vetsiho mnozstvi by se musel upravit dotazovaci mechanizmus $dotaz="select * from ".$GLOBALS["rspredpona"]."captcha_test_otazky where zobrazit=1 order by idc"; $dotazpol=phprs_sql_query($dotaz,$GLOBALS["dbspojeni"]); $pocetpol=phprs_sql_num_rows($dotazpol); if ($pocetpol>0): $akt_vybrana_otazka=rand(0,($pocetpol-1)); if (phprs_sql_data_seek($dotazpol,$akt_vybrana_otazka)): // nacteni kontrolni otazky $pole_data=phprs_sql_fetch_assoc($dotazpol); // zaplneni vysledkoveho pole $vysl['captcha_id']=$pole_data['identifikator']; $vysl['captcha_otazka']=$pole_data['otazka']; endif; endif; return $vysl; } function OverKontrolniRetezec($captcha_id = '', $captcha_odpoved = '') { // bezpecnostni korekce $captcha_id=phprs_sql_escape_string($captcha_id); $captcha_odpoved=phprs_sql_escape_string($captcha_odpoved); // uprava odpovedi $captcha_odpoved=strtolower(trim($captcha_odpoved)); // kontrolni dotaz $dotaz="select idc from ".$GLOBALS["rspredpona"]."captcha_test_otazky where identifikator='".$captcha_id."' and odpoved='".$captcha_odpoved."' and zobrazit=1"; $dotazpol=phprs_sql_query($dotaz,$GLOBALS["dbspojeni"]); if ($dotazpol!=0&&phprs_sql_num_rows($dotazpol)==1): return 1; // OK; kontrolni retezec plati else: return 0; // chyba endif; } // ------------------- konec Captcha funkcí ------------------- // zakladni login menu function ZobrazLogin() { echo "
\n"; } // registrace noveho ctenare function NovyCt() { // inic. cisteho ctenarskeho profilu $GLOBALS["prmyctenar"]->GenerujCistyCtenar(); // inic. formluare $GLOBALS["typakce"]='insert'; // definice modu $GLOBALS["typtlacitka"]=RS_CT_TL_ZAREG; // text tlacitko: Zaregistrovat // volani formulare $GLOBALS['akce']='formular'; // zmena akce } // uprava nastaveni ctenare function EditujCt() { // bezpecnostni kontrola - provadi se az ve funkci NactiCtenare(...) if ($GLOBALS["prmyctenar"]->NactiCtenare($GLOBALS["rjmeno"],$GLOBALS["rheslo"])==1): // test na autenticitu uzivatele // inic. formulare $GLOBALS["typakce"]='save'; // definice modu $GLOBALS["typtlacitka"]=RS_CT_TL_ULOZ; // text tlatictko: Uložit změny // volani formulare $GLOBALS['akce']='formular'; // zmena akce else: // CHYBA: Spatne uzivatelke jmeno nebo heslo! - Nove prihlaseni $GLOBALS['cte_modul_text'].="".RS_CT_ERR_1." - ".RS_CT_NOVY_LOGIN."
\n"; $GLOBALS['akce']='showtxt'; // zmena akce endif; } // uprava nastaveni ctenare - automaticky rezim prihlaseni skrze session function EditujAutoCt() { if ($GLOBALS["prmyctenar"]->ctenarstav==1): // inic. formulare $GLOBALS["typakce"]='save'; // // definice modu $GLOBALS["typtlacitka"]=RS_CT_TL_ULOZ; // text tlatictko: Uložit změny // volani formulare $GLOBALS['akce']='formular'; // zmena akce else: // CHYBA: System nemuze identifikovat ctenare! - Nove prihlaseni $GLOBALS['cte_modul_text'].="".RS_CT_ERR_2." - ".RS_CT_NOVY_LOGIN."
\n"; $GLOBALS['akce']='showtxt'; // zmena akce endif; } function FormCtenari() { // test na existenci promennych if (!isset($GLOBALS["typakce"])): $GLOBALS["typakce"]=''; endif; if (!isset($GLOBALS["typtlacitka"])): $GLOBALS["typtlacitka"]=''; endif; echo "\n"; //avatar upload if ($GLOBALS["typakce"]=='save'): echo "".RS_CT_ERR_3."
\n"; $GLOBALS['akce']='formular'; // zmena akce $chyba=1; // chyba endif; // overeni jedinecnosti zvoleneho username $dotazjmeno=phprs_sql_query("select idc from ".$GLOBALS["rspredpona"]."ctenari where prezdivka='".$GLOBALS["rjmeno"]."'",$GLOBALS["dbspojeni"]); $pocetjmeno=phprs_sql_num_rows($dotazjmeno); if ($pocetjmeno>0): // CHYBA: Vami vybrana prezdivka X je jiz obsazena! Zvolte si jinou. $GLOBALS['cte_modul_text'].="".RS_CT_ERR_4_A." \"".$GLOBALS["rjmeno"]."\" ".RS_CT_ERR_4_B."
\n"; $GLOBALS['akce']='formular'; // zmena akce $chyba=1; // chyba endif; // overeni min. a max. povolene delky username if (strlen($GLOBALS["rjmeno"])<3||strlen($GLOBALS["rjmeno"])>12): // CHYBA: Delka vaseho jmena (prezdivky) porusuje pravidla. - Minimalni povolena delka je 3 znaky; maximalni hodnota je 12 znaku. $GLOBALS['cte_modul_text'].="".RS_CT_ERR_13."
\n"; $GLOBALS['akce']='formular'; // zmena akce $chyba=1; // chyba endif; // test na shodu HESLA s jeho kontrolnim zadanim if ($GLOBALS["rheslo"]!=$GLOBALS["rheslo2"]): // CHYBA: Zadana hesla nejsou shodna! $GLOBALS['cte_modul_text'].="".RS_CT_ERR_12."
\n"; $GLOBALS['akce']='formular'; // zmena akce $chyba=1; // chyba endif; // test na vysledek kontrolni otazky (captcha kontrola) if ($vysl_captcha_test==1): if ($chyba==0): // test na bezchybny stav // nastavení hodnoty levelu na 0, dokud není registrace potvrzena $nast_level=0; // vlozeni noveho ctenare do databaze $dnesnidatum=date("Y-m-d H:i:s"); $GLOBALS["rheslo"]=md5($GLOBALS["rheslo"]); // heslo je sifrovane @$dotazctenar=phprs_sql_query("insert into ".$GLOBALS["rspredpona"]."ctenari values (null,'".$GLOBALS["rjmeno"]."','".$GLOBALS["rheslo"]."','".$GLOBALS["rcelejmeno"]."','".$GLOBALS["rmail"]."','".$dnesnidatum."','0','".$GLOBALS["rinfo"]."','".$GLOBALS["robsahmenu"]."','".$GLOBALS["rzobrazmenu"]."','".$GLOBALS["rjazyk"]."','".$dnesnidatum."','".$nast_level."')",$GLOBALS["dbspojeni"]); if ($dotazctenar==0): // chyba pri vkladani noveho ctenare // CHYBA: V průběhu zakládání vašeho profilu došlo k neočekávané chybě. Zopakujte akci. $GLOBALS['cte_modul_text'].="".RS_CT_ERR_5."
\n"; $GLOBALS['akce']='showtxt'; // zmena akce else: // zaregistrování čtenáře a oznámení o zaslání mailu s ověřovacím kódem. $dotazid=phprs_sql_query("select idc from ".$GLOBALS["rspredpona"]."ctenari where prezdivka='".$GLOBALS["rjmeno"]."' and password='".$GLOBALS["rheslo"]."'",$GLOBALS["dbspojeni"]); list($idc)=phprs_sql_fetch_row($dotazid); $predmet="Potvrdenie registracie uzívatela na www.zeleznicne.info"; $hlavicka='From: redakcia@zeleznicne.info' . "\n"; $hlavicka.='MIME-Version: 1.0' . "\n"; $hlavicka.='Content-Type: text/plain; charset=iso-8859-2' . "\n"; $zprava="Dostal si tento mail, pretoze si sa zaregistroval ako uzivatel na webe Zeleznicne.info.\n\nPre uspesne dokoncenie registracie klikni na nasledujuci odkaz: \n\nwww.zeleznicne.info/readers.php?kod=".$GLOBALS["rheslo"]."&idc=".$idc."&akce=aktive \n\nPokial si sa na webe Zeleznicne.info neregistroval, ignoruj prosim tento mail. \n\nS pozdravom \n\n redakcia magazinu o zelezniciach na Slovensku Zeleznicne.info."; $Email=$GLOBALS["rmail"]; $odeslano=mail("$Email","$predmet","$zprava","$hlavicka"); // zpráva o zaslání emailu uživateli pro ověření if($odeslano): $GLOBALS['cte_modul_text'].="".RS_CT_REG_MAIL."
\n"; $GLOBALS['akce']='showtxt'; // zmena akce else: $GLOBALS['cte_modul_text'].="Nepodarilo sa odoslať kontrolný e-mail!
\n"; $GLOBALS['akce']='showtxt'; // zmena akce endif; endif; else: // z duvodu chyb pri registraci noveho ctenare nelze tuto akci provest; je nastaveno presmerovani na editacni formular, aby bylo mozne chyby opravit // je nutne provest inic. formluare $GLOBALS["typakce"]='insert'; // definice modu $GLOBALS["typtlacitka"]=RS_CT_TL_ZAREG; // text tlacitko: Zaregistrovat // inic. cisteho ctenarskeho profilu $GLOBALS["prmyctenar"]->GenerujCistyCtenar(); // prednastaveni polozek do formulare $GLOBALS["prmyctenar"]->Nastav('username',$GLOBALS["rjmeno"]); $GLOBALS["prmyctenar"]->Nastav('jmeno',$GLOBALS["rcelejmeno"]); $GLOBALS["prmyctenar"]->Nastav('email',$GLOBALS["rmail"]); // $GLOBALS["prmyctenar"]->Nastav('jazyk',$GLOBALS["rjazyk"]); $GLOBALS["prmyctenar"]->Nastav('info',$GLOBALS["rinfo"]); // $GLOBALS["prmyctenar"]->Nastav('databox',$GLOBALS["robsahmenu"]); // $GLOBALS["prmyctenar"]->Nastav('zobrazitdata',$GLOBALS["rzobrazmenu"]); endif; else: // chyba - neuspesny kontrolni test (captcha kontrola) $GLOBALS['cte_modul_text'].="".RS_KO_ERR6."
\n"; $GLOBALS['akce']='showtxt'; // zmena akce endif; } // Přijetí potvrzení zaslaného mailem, ověření čtenáře, dokončení registrace function OverCt() { if((!empty($_GET['kod']))AND(!empty($_GET['idc']))): require("config.php"); // vyhledání idc a načtení kontrolního kódu hesla z databáze @$kontrola=phprs_sql_query("select idc, password, prezdivka from ".$GLOBALS["rspredpona"]."ctenari where idc='".$_GET["idc"]."' and password='".$_GET["kod"]."'",$GLOBALS["dbspojeni"]); list($idc, $kod, $prezdivka)=phprs_sql_fetch_row($kontrola); // ziskani defaultni nastaveni levelu $dotaz="select hodnota from ".$GLOBALS["rspredpona"]."config where promenna='default_reg_level'"; $dotazconfig=phprs_sql_query($dotaz,$GLOBALS["dbspojeni"]); if ($dotazconfig!=0&&phprs_sql_num_rows($dotazconfig)>0): list($nast_level)=phprs_sql_fetch_row($dotazconfig); else: $nast_level=0; endif; if($idc==$_GET['idc']&&$kod==$_GET['kod']): // po ověření mailu a kódu nastav level_ctenare na defaultni hodnotu @$vysledek=phprs_sql_query("update ".$GLOBALS["rspredpona"]."ctenari set level_ctenare='".$nast_level."' where idc='".$idc."' and password='".$kod."'",$GLOBALS["dbspojeni"]); if(!$vysledek): // chyba databáze $GLOBALS['cte_modul_text'].="".RS_CT_ERR_6."
\n"; $GLOBALS['akce']='showtxt'; // zmena akce else: // vygenerovani identifikacni session ctenare $akt_id_ctenare=$idc; $akt_sess_ctenare=md5(time().$GLOBALS["rjmeno"].$GLOBALS["rheslo"].$GLOBALS["rcelejmeno"].$GLOBALS["rmail"]); // vygenerovani ctenarske session + cookies if ($GLOBALS['prmyctenar']->GenerujSession($akt_id_ctenare,$akt_sess_ctenare)==0): // chyba pri generovani session // CHYBA: Neočekávaná chyba! $GLOBALS['cte_modul_text'].="".RS_CT_ERR_6."
\n"; $GLOBALS['akce']='showtxt'; // zmena akce endif; $GLOBALS['cte_modul_text'].="".RS_CT_REG_VSE_OK."
\n"; $GLOBALS['cte_modul_text'].="".RS_CT_HL_STR." - ".RS_CT_OSOBNI_UCET."
\n"; $GLOBALS['akce']='showtxt'; // zmena akce endif; elseif($kod!=$_GET['kod']): // zadaný kód neodpovídá - chyba!!! $GLOBALS['cte_modul_text'].="".RS_CT_ERR_REG_MAIL."
\n"; $GLOBALS['akce']='showtxt'; // zmena akce endif; endif; } // ulozeni nove konfigurace ctenare function UlozCt() { // bezpecnostni kontrola $GLOBALS["rjmeno"]=phprs_sql_escape_string(htmlspecialchars($GLOBALS["rjmeno"],ENT_QUOTES)); $GLOBALS["roldpass"]=phprs_sql_escape_string($GLOBALS["roldpass"]); $GLOBALS["ridc"]=phprs_sql_escape_string($GLOBALS["ridc"]); $GLOBALS["rheslo"]=phprs_sql_escape_string($GLOBALS["rheslo"]); $GLOBALS["rheslo2"]=phprs_sql_escape_string($GLOBALS["rheslo2"]); $GLOBALS["rcelejmeno"]=phprs_sql_escape_string(htmlspecialchars($GLOBALS["rcelejmeno"],ENT_QUOTES )); $GLOBALS["rmail"]=phprs_sql_escape_string(htmlspecialchars($GLOBALS["rmail"],ENT_QUOTES)); $GLOBALS["rjazyk"]=phprs_sql_escape_string($GLOBALS["rjazyk"]); $GLOBALS["rinfo"]=phprs_sql_escape_string($GLOBALS["rinfo"]); $GLOBALS["robsahmenu"]=phprs_sql_escape_string($GLOBALS["robsahmenu"]); $GLOBALS["rzobrazmenu"]=phprs_sql_escape_string($GLOBALS["rzobrazmenu"]); // inic. chyba $chyba=0; // test na pritomnost vsech povinnych poli if ($GLOBALS["rjmeno"]==''): // CHYBA: Některé z povinných polí je prádné! $GLOBALS['cte_modul_text'].="".RS_CT_ERR_3."
\n"; $GLOBALS['akce']='showtxt'; // zmena akce $chyba=1; // chyba endif; // overeni jedinecnosti zvoleneho username - z kontroly je odstranet samotny prihlaseny ctenar $dotazjmeno=phprs_sql_query("select idc from ".$GLOBALS["rspredpona"]."ctenari where prezdivka='".$GLOBALS["rjmeno"]."' and idc!='".$GLOBALS["ridc"]."'",$GLOBALS["dbspojeni"]); $pocetjmeno=phprs_sql_num_rows($dotazjmeno); if ($pocetjmeno>0): // CHYBA: Vámi vybraná přezdívka X je již obsazená! Zvolte si jinou. $GLOBALS['cte_modul_text'].="".RS_CT_ERR_4_A." \"".$GLOBALS["rjmeno"]."\" ".RS_CT_ERR_4_B."
\n"; $GLOBALS['akce']='showtxt'; // zmena akce $chyba=1; // chyba endif; // test na shodu HESLA s jeho kontrolnim zadanim if ($GLOBALS["rheslo"]!=$GLOBALS["rheslo2"]): // CHYBA: Zadaná hesla nejsou shodná! $GLOBALS['cte_modul_text'].="".RS_CT_ERR_12."
\n"; $GLOBALS['akce']='showtxt'; // zmena akce $chyba=1; // chyba endif; if ($chyba==0): // test na bezchybny stav // overeni existence upravovaneho ctenarskeho profilu $dotazjmeno=phprs_sql_query("select idc from ".$GLOBALS["rspredpona"]."ctenari where idc='".$GLOBALS["ridc"]."' and password='".$GLOBALS["roldpass"]."'",$GLOBALS["dbspojeni"]); if ($dotazjmeno!=0&&phprs_sql_num_rows($dotazjmeno)==1): // kontrola existence, vse OK // uprava existujiciho ctenare $dnesnidatum=date("Y-m-d H:i:s"); // priprava hesla if ($GLOBALS["rheslo"]==''): $GLOBALS["rheslo"]=$GLOBALS["roldpass"]; // heslo je sifrovane; pouzito puvodni else: $GLOBALS["rheslo"]=md5($GLOBALS["rheslo"]); // heslo je sifrovane endif; // kvuli zakazu zmeny prezdivky odstranena cast SQL prikazu: prezdivka='".$GLOBALS["rjmeno"]."' @$dotazctenar=phprs_sql_query("update ".$GLOBALS["rspredpona"]."ctenari set password='".$GLOBALS["rheslo"]."',jmeno='".$GLOBALS["rcelejmeno"]."',email='".$GLOBALS["rmail"]."',info='".$GLOBALS["rinfo"]."',data='".$GLOBALS["robsahmenu"]."',visible='".$GLOBALS["rzobrazmenu"]."',jazyk='".$GLOBALS["rjazyk"]."',posledni_login='".$dnesnidatum."' where idc='".$GLOBALS["ridc"]."' and password='".$GLOBALS["roldpass"]."'",$GLOBALS["dbspojeni"]); if ($dotazctenar==0): // chyba pri aktualizacei ctenare // CHYBA: V průběhu úpravy vašeho profilu došlo k neočekávané chybě. Zopakujte akci. $GLOBALS['cte_modul_text'].="".RS_CT_ERR_7."
\n"; $GLOBALS['akce']='showtxt'; // zmena akce else: // ziskani ID ctenare a vygenerovani identifikacni session $akt_id_ctenare=$GLOBALS["ridc"]; $akt_sess_ctenare=md5(time().$GLOBALS["rjmeno"].$GLOBALS["rheslo"].$GLOBALS["rcelejmeno"].$GLOBALS["rmail"]); // vygenerovani ctenarske session + cookies if ($GLOBALS['prmyctenar']->GenerujSession($akt_id_ctenare,$akt_sess_ctenare)==0): // chyba pri generovani session // CHYBA: Neočekávaná chyba! $GLOBALS['cte_modul_text'].="".RS_CT_ERR_6."
\n"; $GLOBALS['akce']='showtxt'; // zmena akce endif; // finalni hlaseni - Vaše osobní nastavení bylo aktualizováno. $GLOBALS['cte_modul_text'].="".RS_CT_EDIT_VSE_OK."
\n"; $GLOBALS['akce']='showtxt'; // zmena akce endif; else: // chyba test na existenci ctenarskeho profilu // CHYBA: Neočekávaná chyba! $GLOBALS['cte_modul_text'].="".RS_CT_ERR_6."
\n"; $GLOBALS['akce']='showtxt'; // zmena akce endif; endif; // navrat $GLOBALS['cte_modul_text'].="\n\n"; $GLOBALS['akce']='showtxt'; // zmena akce } function JenLogin() { // bezpecnostni kontrola $GLOBALS["rjmeno"]=phprs_sql_escape_string($GLOBALS["rjmeno"]); $GLOBALS["rheslo"]=md5(phprs_sql_escape_string($GLOBALS["rheslo"])); // heslo je sifrovane if (!isset($GLOBALS["nacti"])): $GLOBALS["nacti"]='index.php'; endif; // pro pripad doplneni domeny lze pouzit promenne $GLOBALS["baseadr"] // overeni existence ctenarskeho profilu $dotazjmeno=phprs_sql_query("select idc,jmeno,email from ".$GLOBALS["rspredpona"]."ctenari where prezdivka='".$GLOBALS["rjmeno"]."' and password='".$GLOBALS["rheslo"]."'",$GLOBALS["dbspojeni"]); $pocetjmeno=phprs_sql_num_rows($dotazjmeno); if ($pocetjmeno==1): // kontrola existence, vse OK // nacteni dat do pole $pole_akt_data=phprs_sql_fetch_assoc($dotazjmeno); // priprava ctenare na prihlaseni - generovani session $GLOBALS["rcelejmeno"]=$pole_akt_data["jmeno"]; $GLOBALS["rmail"]=$pole_akt_data["email"]; $akt_id_ctenare=$pole_akt_data["idc"]; $akt_sess_ctenare=md5(time().$GLOBALS["rjmeno"].$GLOBALS["rheslo"].$GLOBALS["rcelejmeno"].$GLOBALS["rmail"]); // vygenerovani ctenarske session + cookies if ($GLOBALS['prmyctenar']->GenerujSession($akt_id_ctenare,$akt_sess_ctenare)==0): // chyba pri generovani session // CHYBA: Neočekávaná chyba! $GLOBALS['cte_modul_text'].="".RS_CT_ERR_6."
\n"; $GLOBALS['akce']='showtxt'; // zmena akce else: // presmerovani na novou stranku header("Location: ".$GLOBALS["nacti"]); exit(); endif; else: // chyba ctenar nenalezen // CHYBA: Špatné uživatelké jméno nebo heslo! $GLOBALS['cte_modul_text'].="".RS_CT_ERR_1."
\n"; $GLOBALS['akce']='showtxt'; // zmena akce endif; } function OdhlasCt() { $nick=$GLOBALS["prmyctenar"]->Ukaz("username"); mysql_query("DELETE FROM ".$GLOBALS["rspredpona"]."ctenari_online WHERE nick='$nick'",$GLOBALS["dbspojeni"]); if (!isset($GLOBALS["nacti"])): $GLOBALS["nacti"]='index.php'; endif; // pro pripad doplneni domeny lze pouzit promenne $GLOBALS["baseadr"] // zruseni ctenarske session / odhlaseni ctenare $GLOBALS["prmyctenar"]->ZrusitSession(); // presmerovani na novou stranku header("Location: ".$GLOBALS["nacti"]); exit(); } function VymazatCt() { echo " \n"; } function AcVymazatCt() { // bezpecnostni kontrola $GLOBALS["rjmeno"]=phprs_sql_escape_string($GLOBALS["rjmeno"]); $GLOBALS["rheslo"]=md5(phprs_sql_escape_string($GLOBALS["rheslo"])); // heslo je sifrovane $dotazcte=phprs_sql_query("select idc,prezdivka from ".$GLOBALS["rspredpona"]."ctenari where prezdivka='".$GLOBALS["rjmeno"]."' and password='".$GLOBALS["rheslo"]."'",$GLOBALS["dbspojeni"]); $pocetcte=phprs_sql_num_rows($dotazcte); if ($pocetcte==0): // CHYBA: Špatné uživatelké jméno nebo heslo! - Nové přihlášení echo "".RS_CT_ERR_1." - ".RS_CT_NOVY_LOGIN."
\n"; else: $ctenardata=phprs_sql_fetch_assoc($dotazcte); // nacteni dat @$error=phprs_sql_query("delete from ".$GLOBALS["rspredpona"]."ctenari where idc='".$ctenardata["idc"]."' and prezdivka='".$ctenardata["prezdivka"]."'",$GLOBALS["dbspojeni"]); if (!$error): // chyba pri ruseni registrace ctenare // CHYBA: V průběhu odstraňování registrace došlo k neočekávané chybě! echo "".RS_CT_ERR_8."
\n"; else: // vse ok - Vaše registrace byla úspěšně zrušena! echo "".RS_CT_DEL_VSE_OK."
\n"; endif; // navrat echo "".RS_CT_HL_STR." - ".RS_CT_OSOBNI_UCET."
\n"; endif; } function NoveHesloCt() { echo " \n"; } function AcNoveHesloCt() { // bezpecnostni kontrola $GLOBALS["rjmeno"]=phprs_sql_escape_string($GLOBALS["rjmeno"]); $GLOBALS["rmail"]=phprs_sql_escape_string($GLOBALS["rmail"]); $dotazcte=phprs_sql_query("select idc,prezdivka,email from ".$GLOBALS["rspredpona"]."ctenari where prezdivka='".$GLOBALS["rjmeno"]."' and email='".$GLOBALS["rmail"]."'",$GLOBALS["dbspojeni"]); $pocetcte=phprs_sql_num_rows($dotazcte); if ($pocetcte==0): // CHYBA: Špatné uživatelké jméno nebo e-mailová adresa! - Nové přihlášení echo "".RS_CT_ERR_9." - ".RS_CT_NOVY_LOGIN."
\n"; else: // inic. generovani noveho hesla $pocitadlo=0; $nove_heslo=''; $delka_hesla=6; $str_znaku="ABCDEFGHIJKLMNOPQRSTUVWXYZ" ."abcdefghijklmnopqrstuvwxyz" ."0123456789"; $poc_str_znaku=strlen($str_znaku)-1; // odecita se navic 1, protoze s retezcem se dale pocita od 0 // vygenerovani noveho hesla while($pocitadlo++ < $delka_hesla): $nove_heslo.=substr($str_znaku,mt_rand(0,$poc_str_znaku),1); endwhile; // nastaveni noveho hesla @$error=phprs_sql_query("update ".$GLOBALS["rspredpona"]."ctenari set password='".md5($nove_heslo)."' where prezdivka='".$GLOBALS["rjmeno"]."' and email='".$GLOBALS["rmail"]."'",$GLOBALS["dbspojeni"]); if (!$error): // CHYBA: V průběhu ukládání nového hesla došlo k neočekávané chybě! echo "".RS_CT_ERR_10."
\n"; else: // vse OK - Nastavení nového hesla bylo úspěšně provedeno! echo "".RS_CT_NOVE_HESLO_VSE_OK."
\n"; endif; // odeslani info e-mailu include_once('admin/astdlib_mail.php'); // vlozeni tridy CPosta() $postovni_sluzby = new CPosta(); $postovni_sluzby->Nastav('adresat',$GLOBALS["rmail"]); $postovni_sluzby->Nastav('predmet',RS_CT_GNH_PREDMET); $postovni_sluzby->Nastav('obsah',RS_CT_GNH_OBS_1." \"".$GLOBALS["rjmeno"]."\" ".RS_CT_GNH_OBS_2.": ".$nove_heslo."\n"); if ($postovni_sluzby->Odesilac()==1): // vse OK - Na vaši e-mailovou adresu byl úspěšně odeslán informační e-mail! echo "".RS_CT_SEND_MAIL_VSE_OK."
\n"; else: // CHYBA: V průběhu odesílání informačního e-mailu došlo k neočekávané chybě! echo "".RS_CT_ERR_11."
\n"; endif; // navrat echo "".RS_CT_HL_STR." - ".RS_CT_OSOBNI_UCET."
\n"; endif; } // rozhodnuti o obsahu stranky switch ($GLOBALS['akce']): case "new": NovyCt(); break; case "login": EditujCt(); break; case "autologin": EditujAutoCt(); break; case "insert": PridejCt(); break; case "aktive": OverCt(); break; case "save": UlozCt(); break; case "quicklog": JenLogin(); break; case "logout": OdhlasCt(); break; endswitch; $GLOBALS["vzhledwebu"]->Generuj(); ObrTabulka(); // Vlozeni layout prvku echo "".RS_CT_NADPIS."
\n"; // nadpis // rozhodnuti o obsahu stranky switch($GLOBALS['akce']): case "logmenu": ZobrazLogin(); break; case "del": VymazatCt(); break; case "delreader": AcVymazatCt(); break; case "newpw": NoveHesloCt(); break; case "newpwsend": AcNoveHesloCt(); break; case "formular": FormCtenari(); break; // pouze interni volani case "showtxt": echo $GLOBALS['cte_modul_text']; break; // pouze interni volani case "upload": AvUpload(); break; endswitch; // Dokonceni tvorby stranky KonecObrTabulka(); // Vlozeni layout prvku $vzhledwebu->Generuj(); ?>