".RS_AKCE_ERR."
\n"; exit(); endif; // test na pritomnost promenne $cisloclanku if (!isset($GLOBALS["cisloclanku"])): echo "
".RS_VW_ERR1."
\n"; exit(); endif; function TestNaAdresu($mail = '') { // tato funkce testuje platnost zadaneho e-mailu if (ereg('^[_a-zA-Z0-9\.\-]+@[_a-zA-Z0-9\.\-]+\.[a-zA-Z]{2,4}$',$mail)): return 1; // spravna struktura else: return 0; // chybna struktura endif; } function NovyMail() { // bezpecnostni korekce $GLOBALS["cisloclanku"]=mysql_escape_string($GLOBALS["cisloclanku"]); // zjisteni titulku $dotazclanek=mysql_query("select titulek from ".$GLOBALS["rspredpona"]."clanky where link='".$GLOBALS["cisloclanku"]."'",$GLOBALS["dbspojeni"]); if (mysql_num_rows($dotazclanek)>0): $pole_clanek=mysql_fetch_assoc($dotazclanek); else: $pole_clanek['titulek']=''; endif; ?>

:

" />
:
:


".RS_CS_NADPIS."

\n"; echo "

\n"; if ($error==0): // priprava e-mailu $przprava=RS_CS_MAIL1." ".$GLOBALS["prtitulek"]."\n".$GLOBALS["baseadr"]."view.php?cisloclanku=".$GLOBALS["cisloclanku"]."\n\n".RS_CS_MAIL2."\n".$GLOBALS["przprava"]; $prtitulek=RS_CS_MAIL_PREDMET." ".$GLOBALS["wwwname"]; include_once('admin/astdlib_mail.php'); // nacteni postovni tridy $odeslani_posty = new CPosta(); $odeslani_posty->Nastav("predmet",$prtitulek); $odeslani_posty->Nastav("obsah",$przprava); $odeslani_posty->Nastav("adresat",$GLOBALS["prprijemce"]); $odeslani_posty->Nastav("odesilatel_mail",$GLOBALS["prodesilatel"]); $odeslani_posty->Nastav("odesilatel_txt",''); if ($odeslani_posty->Odesilac()==1): echo RS_CS_DOPIS_OK; // vse OK else: echo RS_CS_ERR1; // chyba endif; else: // chyba - spatne e-maly echo RS_CS_ERR2; endif; echo "

\n"; echo "

".RS_CS_ZOBRAZ_CLA."

\n"; echo "

\n"; } function Tisk() { include_once('trclanek.php'); // bezpecnostni korekce $GLOBALS['cisloclanku']=mysql_escape_string($GLOBALS['cisloclanku']); $GLOBALS['clanek'] = new CClanek(); $chyba_clanek=$GLOBALS['clanek']->NactiClanek($GLOBALS['cisloclanku']); // test na existenci clanku if ($chyba_clanek==1): // tvorba print stranky ?> <? echo $GLOBALS['wwwname']; ?> ".RS_IN_ERR1_1." ".$GLOBALS['cisloclanku']."! ".RS_IN_ERR1_2."

\n";; endif; ?>

".RS_VW_ERR2_1." ".$GLOBALS['cisloclanku']." ".RS_VW_ERR2_2."

\n"; endif; } // rozcestnik akci switch ($GLOBALS["akce"]): // *** tisk clanku case "tisk": Tisk(); break; // *** sestaveni informacniho mailu case "info": // Tvorba stranky $vzhledwebu->Generuj(); ObrTabulka(); // Vlozeni layout prvku // Informacni e-mail NovyMail(); // Dokonceni tvorby stranky KonecObrTabulka(); // Vlozeni layout prvku $vzhledwebu->Generuj(); break; // *** odeslani informacniho mailu case "sendinfo": // Tvorba stranky $vzhledwebu->Generuj(); ObrTabulka(); // Vlozeni layout prvku // Informacni e-mail OdeslaniMailu(); // Dokonceni tvorby stranky KonecObrTabulka(); // Vlozeni layout prvku $vzhledwebu->Generuj(); break; endswitch; ?>