function NovyPridejKom()
{
// uprava vstupu
$GLOBALS["cisloclanku"]=KorekceVstupu($GLOBALS["cisloclanku"]);
$GLOBALS["cislokom"]=KorekceVstupu($GLOBALS["cislokom"]);
$GLOBALS["kobsah"]=KorekceVstupu($GLOBALS["kobsah"]);
$GLOBALS["kobsah"]=PrelozKomZnacky($GLOBALS["kobsah"]); // prelozeni kom. znacek
$GLOBALS["kobsah"]=KorekceVelikosti($GLOBALS["kobsah"]); // omezeni velikosti
$GLOBALS["kobsah"]=nl2br($GLOBALS["kobsah"]);
$GLOBALS["ktitulek"]=KorekceVstupu($GLOBALS["ktitulek"]);
$GLOBALS["ktitulek"]=KorekceVelikosti($GLOBALS["ktitulek"]); // omezeni velikosti
$GLOBALS["kod"]=KorekceVstupu($GLOBALS["kod"]);
$GLOBALS["kodmail"]=KorekceVstupu($GLOBALS["kodmail"]);
// bezpecnostni korekce
$GLOBALS["cisloclanku"]=phprs_sql_escape_string($GLOBALS["cisloclanku"]);
$GLOBALS["cislokom"]=phprs_sql_escape_string($GLOBALS["cislokom"]);
$GLOBALS["kobsah"]=phprs_sql_escape_string($GLOBALS["kobsah"]);
$GLOBALS["ktitulek"]=phprs_sql_escape_string($GLOBALS["ktitulek"]);
$GLOBALS["kod"]=phprs_sql_escape_string($GLOBALS["kod"]);
$GLOBALS["kodmail"]=phprs_sql_escape_string($GLOBALS["kodmail"]);
$ip_adresa=$_SERVER["REMOTE_ADDR"]; // ip adresa ctenare
$aktdatum=Date("Y-m-d H:i:s");
if ($GLOBALS["kobsah"]==''):
// chyba - prazdny komentar
echo "<p align=\"center\">".RS_KO_ERR2."</p>\n";
else:
// test na existenci reg. ctenare
if ($GLOBALS['prmyctenar']->ctenarstav==1):
$nast_registrovany=1;
$nast_reg_prezdivka=$GLOBALS['prmyctenar']->Ukaz('username');
$nast_reg_id=$GLOBALS['prmyctenar']->Ukaz('id');
// vyhodnoceni captcha testu - u reg. ctenare je automaticky "true"
$vysl_captcha_test=1;
else:
$nast_registrovany=0;
$nast_reg_prezdivka='';
$nast_reg_id=0;
// vyhodnoceni captcha testu - nutno provest test
if (isset($GLOBALS['captchaodpoved'])): $GLOBALS['captchaodpoved']=phprs_sql_escape_string($GLOBALS['captchaodpoved']); else: $GLOBALS['captchaodpoved']=''; endif;
if (isset($GLOBALS['captchaid'])): $GLOBALS['captchaid']=phprs_sql_escape_string($GLOBALS['captchaid']); else: $GLOBALS['captchaid']=''; endif;
// vyhodnoceni captcha testu - zalezi na nastaveni systemu
if (NactiConfigProm('captcha_komentare',0)==0):
$vysl_captcha_test=1; // captcha vypnuta
else:
$vysl_captcha_test=OverKontrolniRetezec($GLOBALS['captchaid'],$GLOBALS['captchaodpoved']); // captcha zapnuta - nutno provest vyhodnoceni
endif;
endif;
// test na vysledek kontrolni otazky (captcha kontrola)
if ($vysl_captcha_test==1):
// sestaveni dotazu
$dotaz="insert into ".$GLOBALS["rspredpona"]."komentare values ";
$dotaz.="(null,'".$aktdatum."','".$GLOBALS["kobsah"]."','".$GLOBALS["cisloclanku"]."','".$GLOBALS["kod"]."','".$GLOBALS["kodmail"]."','".$ip_adresa."',";
$dotaz.="'".$GLOBALS["ktitulek"]."','".$GLOBALS["cislokom"]."','".$nast_registrovany."','".$nast_reg_prezdivka."','".$nast_reg_id."')";
// pridani komentare
@$error=phprs_sql_query($dotaz,$GLOBALS["dbspojeni"]);
if (!$error):
// chyba - neuspesny sql prikaz
echo "<p align=\"center\">".RS_KO_ERR1."</p>\n";
else:
// vse je OK; pripocitani 1 komentare k celkovemu poctu
@phprs_sql_query("update ".$GLOBALS["rspredpona"]."clanky set kom=(kom+1) where link='".$GLOBALS["cisloclanku"]."'",$GLOBALS["dbspojeni"]);
echo "<p align=\"center\">".RS_KO_VLOZEN_OK."</p>\n";
// nacitanie emailovej adresy autora clanku
include_once("trclanek.php");
$clanek = new CClanek();
$clanek->NactiClanek($GLOBALS["cisloclanku"]);
$email_autora = str_replace ("(at)","@", ($clanek->Ukaz("autor_jen_mail"))); // odstranenie antispamu
// test na validnu emailovu adresu autora
if (true == eregi("^[_a-zA-Z0-9\.\-]+@[_a-zA-Z0-9\.\-]+\.[a-zA-Z]{2,4}$", $email_autora)) {
// odoslanie infomailu
include_once('admin/astdlib_mail.php'); // vlozeni tridy CPosta()
$postovni_sluzby = new CPosta();
$postovni_sluzby->Nastav('adresat',$email_autora);
$postovni_sluzby->Nastav('predmet','Novy komentár k článku');
$postovni_sluzby->Nastav('obsah', strip_tags($GLOBALS["kobsah"])."\n".$GLOBALS['baseadr'].'comment.php?akce=view&cisloclanku='.(int)$GLOBALS["cisloclanku"]."\n");
$postovni_sluzby->Odesilac();
if ($postovni_sluzby == true) {
echo "<p align=\"center\">Upozornení autora článku o vložení nového komentáře bylo odesláno.</p>\n";
}
}
endif;
else:
// chyba - neuspesny kontrolni test (captcha kontrola)
echo "<p align=\"center\">".RS_KO_ERR6."</p>\n";
endif;
endif;
// paticka
echo "<p align=\"center\" class=\"kom-link\"><a href=\"comment.php?akce=view&cisloclanku=".$GLOBALS["cisloclanku"]."\">".RS_KO_ZOBRAZ_KOM."</a></p>\n";
echo "<p></p>\n";
}