config["title_index"]; //kontrola zda stranka je nakesovana $tpl = new templatecached('index_tpl.php'); if ($tpl->cached) { //naplneni stranky z cache $page_vars["BODY"] = $tpl->cachecontents; } else { //naplneni reklmanich bloku $block = new adlinkblock(); //naplneni sablony z databaze $block->load("adblock_catalog", 'code'); if ($block->adbid > 0) $index_vars["TITLE_H3"] .= $block->adbtitle; //Adult Paysite Directories $index_vars["ADBLOCK_MIDLE"] .= $block->getadvertblock("adblock_midle"); //Friendly Great Sites $index_vars["ADBLOCK_MIDLEBOTTOM"] .= $block->getadvertblock("adblock_midlebottom"); $index_vars["ADBLOCK_MIDLEBOTTOMSUB"] .= $block->getadvertblock("adblock_midlebottomsub", 0, "", " | "); if (SERVER_CODE == SERVER_CODE_ASM || SERVER_CODE == SERVER_CODE_APSM) { //naplneni zalozek katalogu na uvodni strance $lst = new tablelist("catalog"); $lst->setfields("catid, catcode, catname, catnames"); $lst->addcond("catmasid=0"); $lst->addcond("catid!=".SERVER_ROOTADMINCATID); $lst->addcond("catdisable=0"); $lst->addorderby("catorder"); $lst->uselimit = false; //$lst->limit = 10; $lst->load(); while ($row = $lst->rs->fetch_object()) { $catname = ($row->catnames != "" ? $row->catnames : $row->catname); $maintabs .= '
  • '.$catname.'
  • '; $tabs .= '

    '.a_hrefmr("catalog", $row->catid, $row->catname, $row->catcode).' - '; $tabs .= getcatlevitemlist($row->catid, "", ' | ', false, false, true, "case when catnames is not null AND catnames != '' then catnames else catname end")."

    "; } $index_vars["CATALOG_MAIN_TABS"] = $maintabs; $index_vars["CATALOG_TABS"] = $tabs; $index_vars["CATALOG_TITLEBLOCK"] = $block->getadvertblock("adblock_catalog"); } if (SERVER_CODE === SERVER_CODE_ASM) { $adb = new adlinkblock(); $adb->load('adblock_midlepic2', 'code'); $lsti = new tablelist("adlinkblockitem"); $lsti->setfields(DB_PREFIX."adlinkitem.*, abiid, abititle, abitext, abiurl, abiurlreal, abiname, abiposition"); $lsti->addjoin("adlinkitem", "abiadiid=adiid", "LEFT"); $lsti->addcond("abiadbid=".$adb->valueget("adbid")); $lsti->addcond("coalesce(abidayid, 0)=0 OR abidayid=DAYOFWEEK(Now())"); $lsti->addcond("(DATE(NOW()) BETWEEN abidatefrom AND abidateto) OR (abidatefrom IS NULL && abidateto IS NULL)"); $lsti->addcond("abidisable=0"); //razeni podle typu zobrazeni 0-dle pozice, 1-nahodne if ($adb->valueget("adblsttype") == 0) { $lsti->addorderby("coalesce(abidayid,0) DESC, abiposition"); } else { $lsti->addorderby("coalesce(abidayid,0) DESC, RAND()"); } $lsti->uselimit = true; $lsti->limit = $adb->valueget("adbcnt"); $lsti->load(); $tpl = new template(); $pos = 0; $tpl_adbvars = array(); while ($rowi = $lsti->rs->fetch_object()) { $pos++; if ($rowi->adiid > 0 && trim($rowi->abitext) == "") { $rowi->aditext = substr($rowi->aditext, 0, 150); $tpl_adbvars["ADI".$pos."TEXT"] = getitemlist($rowi, 0, 0, 'adblock_midlepic2_item'); } else { $tpl_adbvars["ADI".$pos."TEXT"] = $rowi->abitext; } } $tpl_adbvars["ADBTITLE"]=$adb->valueget("adbtitle"); $tpl_adbvars["ADBNAME"]=$adb->valueget("adbname"); $tpl_adbvars["ADBTEXT"]=$adb->valueget("adbtext"); $tpl = new template(); $tpl->set_vars($tpl_adbvars, true); $ret = $tpl->fetch('adblock_midlepic2_tpl.php'); $ret = str_replace("
  • ", "", $ret); $index_vars["ADBLOCK_MIDLEPIC2"] .= $ret; } if (SERVER_CODE === SERVER_CODE_PPWS) { //text nahore $index_vars["ADBLOCK_TOPTEXT"] = $block->getadvertblock("adblock_toptext"); $block->load("adblock_catalog", 'code'); $index_vars["TITLE_H3"] = $block->adbtitle; //vyberu kategorii TIP pro kazdy den jinou //radim podle catid, ID ukladam do nastaveni $lst = new tablelist("config"); $lst->setfields("cfgid, date(cfgdateu), cfgvalue, if(date(cfgdateu)=CURDATE(), 1, 0) AS isset"); $lst->addcond("cfgcode='last_cattypid'"); $lst->uselimit = true; $lst->limit = 1; $lst->load(); $row = $lst->rs->fetch_object(); $catid = $row->cfgvalue; if ($row->isset == 0 || $catid == 0) { //zjistim nasledujici catid $lst = new tablelist("catalog"); $lst->setfields("catid"); if ($catid > 0) $lst->addcond("catid>$catid"); $lst->addcond("catdisable=0"); $lst->addcond("catpathids not like '".SERVER_ROOTADMINCATID.",%' AND catid != ".SERVER_ROOTADMINCATID); $lst->addcond("EXISTS (SELECT 1 FROM ".$DB["prefix"]."adlinkitem WHERE catid=adicatid AND adiadvant=2)"); //jen kategorie kde je nejaky TIP $lst->addorderby("catid"); $lst->uselimit = true; $lst->limit = 1; $lst->load(); $newcatid = 0; while ($row = $lst->rs->fetch_object()) { $newcatid = $row->catid; } if ($newcatid == 0) { //uz neni zadne dalsi ID vetsi nez to co bylo vcera, vezmu prvni catid $lst = new tablelist("catalog"); $lst->setfields("catid"); $lst->addcond("catdisable=0"); $lst->addcond("catpathids not like '".SERVER_ROOTADMINCATID.",%' AND catid != ".SERVER_ROOTADMINCATID); $lst->addcond("EXISTS (SELECT 1 FROM ".$DB["prefix"]."adlinkitem WHERE catid=adicatid AND adiadvant=2)"); //jen kategorie kde je nejaky TIP $lst->addorderby("catid"); $lst->uselimit = true; $lst->limit = 1; $lst->load(); $row = $lst->rs->fetch_object(); $newcatid = $row->catid; } //nastavim $cfg = new config(); $cfg->load('last_cattypid', 'code'); if ($cfg->cfgid > 0 && $newcatid > 0) { $cfg->editmode = EM_EDIT; $cfg->cfgvalue = $newcatid; $cfg->save(); $catid = $newcatid; } } if ($catid > 0) { //naplnim seznam odkazu v kategorii dne - jen TIP $lst = new tablelist("adlinkitem"); $lst->setfields("*"); $lst->addcond("adicatid=$catid"); $lst->addcond("adiadvant=2"); $lst->addcond("adidisable=0"); $lst->addorderby("adiposition, adiratingval DESC"); $lst->uselimit = true; $lst->limit = 3; $lst->load(); $items = ""; $rowid = 0; $cat = new catalog(); $cat->load($catid); while ($row = $lst->rs->fetch_object()) { $rowid++; $items .= getitemlist($row, $rowid, $cat); } $addblock_vars["ADBLOCK_MIDLEPIC2_ITEMS"] .= $items; $index_vars["ADBLOCK_MIDLEPIC2"] .= $block->getadvertblock("adblock_midlepic2", 0, '', '', $addblock_vars); } } if (SERVER_CODE == SERVER_CODE_APSM) { //Randomly selected two of the new pay porn sites in paysite directory $lst = new tablelist("adlinkitem"); $lst->setfields("adiid, adispoid, adiurlkey, adiname, adiurl, adiurlreal, aditext, adiemail, adiadvant, adifotoday, adivideoday, adigalcsv, adiratingval, adidatec"); $lst->addjoin("catalog", "catid=adicatid"); $lst->addcond("(DATE(NOW()) BETWEEN adidatefrom AND adidateto)"); $lst->addcond("adifromtopay=1"); $lst->addcond("adidisable=0"); $lst->addcond("catdisable=0"); $lst->addcond("adiadbid=0"); $lst->addcond("adiemail='' OR adiemail is null"); $lst->addcond("catpathids not like '".SERVER_ROOTADMINCATID.",%' AND adicatid != ".SERVER_ROOTADMINCATID); $lst->uselimit = true; $lst->addorderby("RAND()"); $lst->limit = 2; $lst->load(); $items = ""; while ($row = $lst->rs->fetch_object()) { $items .= '

    adiurlkey).'">
    adiurlkey).'">'.$row->adiname.'

    '; } $addblock_vars["RANDOMTIP_ITEMS"] = $items; $index_vars["ADBLOCK_NEWLINK_RANDOMTIP"] .= $block->getadvertblock("adblock_newlink_randomtip", 0, '
  • ', '
  • ', $addblock_vars); //10 of the most visited adult paysites $lst = new tablelist("adlinkitem"); $lst->setfields("adiid, adicatid, adispoid, adiurlkey, adiname, adiurl, adiurlreal, aditext, adiemail, adiadvant, adifotoday, adivideoday, adigalcsv, adiratingval, adidatec, adicounter, catname, catcode"); $lst->addjoin("catalog", "catid=adicatid"); $lst->addcond("(DATE(NOW()) BETWEEN adidatefrom AND adidateto AND adifromtopay=0) OR adifromtopay=1 OR (adidatefrom IS NULL && adidateto IS NULL)"); $lst->addcond("adidisable=0"); $lst->addcond("adiadbid=0"); $lst->addcond("cattypid=1"); $lst->addcond("catdisable=0"); $lst->addcond("catpathids not like '".SERVER_ROOTADMINCATID.",%' AND adicatid != ".SERVER_ROOTADMINCATID); $lst->addorderby("adicounter DESC"); $lst->uselimit = true; $lst->limit = 10; $lst->load(); $cnt = 0; $item = array(); while ($row = $lst->rs->fetch_object()) { $cnt++; $item[$cnt] = ' '.$cnt.'. adiurlkey).'">'.$row->adiname.' '.$row->adicounter.''; } if ($cnt > 0) { $addblock_vars["ADBLOCK_TOPX_ITEMS"] .= ' '.$item[1].' '.$item[6].' '.$item[2].' '.$item[7].' '.$item[3].' '.$item[8].' '.$item[4].' '.$item[9].' '.$item[5].' '.$item[10].'
    '; } $index_vars["ADBLOCK_TOPX"] .= $block->getadvertblock("adblock_topx", 0, '', '', $addblock_vars); //text nad katalogem $index_vars["ADBLOCK_TOPTEXT"] = $block->getadvertblock("adblock_toptext"); } if (SERVER_CODE == SERVER_CODE_BASS) { $index_vars["ADBLOCK_TOPTEXT"] = $block->getadvertblock("adblock_toptext"); //$index_vars["ADBLOCK_MIDLEPIC2"] .= $block->getadvertblock("adblock_midlepic1"); //3 Of The New Best Adult Sex Sites $lst = new tablelist("adlinkitem"); $lst->setfields("adiid, adiurlkey, adiname, adiurl, adiurlreal, aditext"); $lst->addjoin("catalog", "catid=adicatid"); $lst->addcond("DATE(NOW()) BETWEEN adidatefrom AND adidateto"); $lst->addcond("adifromtopay=1"); $lst->addcond("adidisable=0"); $lst->addcond("adiadbid=0"); $lst->addcond("cattypid=1"); $lst->addcond("catdisable=0"); if (defined("CUSTOMFILTER_ADLINKITEM")) $lst->addcond(CUSTOMFILTER_ADLINKITEM); $lst->addcond("catpathids not like '".SERVER_ROOTADMINCATID.",%' AND adicatid != ".SERVER_ROOTADMINCATID); $lst->addorderby("RAND()"); $lst->uselimit = true; $lst->limit = SERVER_INDEX_BASS_NBAS; $lst->load(); $addblock_vars = array(); while ($row = $lst->rs->fetch_object()) { $addblock_vars["ADBLOCK_RANDOMX_ITEMS"] .= '

    adiid.'_list.jpg" width="200" height="150" alt="'.$row->adiname.'" />
    '.$row->adiname.'

    '; } $addblock_vars["LINKADD"] = ' rel="nofollow" '; $index_vars["ADBLOCK_RANDOMTIP"] .= $block->getadvertblock("adblock_newlink_randomtip", 10, '', '', $addblock_vars); $addblock_vars = array(); //Best of the Best Paysites Ranking by Category //top 5 site cat id $arr[1] = gettop5clicklist(51); $arr[2] = gettop5clicklist(119); $arr[3] = gettop5clicklist(139); for($i=1;$i<=3;$i++){ $col = $arr[$i]; for($j=1;$j<=5;$j++){ $addblock_vars["ADBLOCK_R".$j."_C".$i] = $col[$j]; } } $addblock_vars["LINKADD"] = ' rel="nofollow" '; $index_vars["ADBLOCK_TOPX"] .= $block->getadvertblock("adblock_topx", 11, '', '', $addblock_vars); } if (SERVER_CODE == SERVER_CODE_PSC) { $index_vars["ADBLOCK_TOPTEXT"] = $block->getadvertblock("adblock_toptext"); //$index_vars["ADBLOCK_MIDLEPIC2"] .= $block->getadvertblock("adblock_midlepic1"); //3 Of The New Best Adult Sex Sites $lst = new tablelist("adlinkitem"); $lst->setfields("adiid, adiurlkey, adiname, adiurl, adiurlreal, aditext"); $lst->addjoin("catalog", "catid=adicatid"); $lst->addcond("adidatefrom IS NOT NULL"); $lst->addcond("(adidatefrom + INTERVAL 1 YEAR) < Now()"); $lst->addcond("adifromtopay=1"); $lst->addcond("adidisable=0"); $lst->addcond("adiadbid=0"); //$lst->addcond("cattypid=1"); $lst->addcond("catdisable=0"); if (defined("CUSTOMFILTER_ADLINKITEM")) $lst->addcond(CUSTOMFILTER_ADLINKITEM); $lst->addcond("catpathids not like '".SERVER_ROOTADMINCATID.",%' AND adicatid != ".SERVER_ROOTADMINCATID); $lst->addorderby("RAND()"); $lst->uselimit = true; $lst->limit = 6; $lst->load(); $addblock_vars = array(); $mcnt=0; while ($row = $lst->rs->fetch_object()) { $mcnt++; $imgname = SERVER_CATIMG_ROOT.'/'.SERVER_CATIMG_PREFIX."_".$row->adiid.'_list.jpg'; if (file_exists($imgname)) { $imgurl = SERVER_CATIMG_URL.'/'.SERVER_CATIMG_PREFIX."_".$row->adiid.'_list.jpg'; } else { $imgurl = SERVER_CATIMG_URL.'/none.gif'; } $addblock_vars["ADBLOCK_RANDOMX_ITEMS"] .= '

    adiurlkey).'">'.$row->adiname.'

    '.($mcnt % 2 == 0 ? '
     
    ' : ""); } $addblock_vars["LINKADD"] = ' rel="nofollow" '; $index_vars["ADBLOCK_RANDOMTIP"] .= $block->getadvertblock("adblock_newlink_randomtip", 10, '', '', $addblock_vars); $addblock_vars = array(); //Best of the Best Paysites Ranking by Category //top 5 site cat id $arr[1] = gettop5clicklist(51, 6, true); $arr[2] = gettop5clicklist(119, 6, true); $arr[3] = gettop5clicklist(139, 6, true); for($i=1;$i<=3;$i++){ $col = $arr[$i]; for($j=1;$j<=6;$j++){ $addblock_vars["ADBLOCK_R".$j."_C".$i] = $col[$j]; } } //$addblock_vars["LINKADD"] = ' rel="nofollow" '; $index_vars["ADBLOCK_TOPX"] .= $block->getadvertblock("adblock_topx", 11, '', '', $addblock_vars); $index_vars["ADBLOCK_CATALOG"] = $block->getadvertblock("adblock_catalog"); } if (SERVER_CODE == SERVER_CODE_PSL) { $index_vars["ADBLOCK_TOPTEXT"] = $block->getadvertblock("adblock_toptext"); } if (SERVER_CODE == SERVER_CODE_MPPS) { $myorderby = "CASE WHEN catnames IS NOT NULL AND catnames != '' THEN catnames ELSE catname END"; $index_vars["CATLIST"] = getcatlevitemlist(450,'
  • ', '
  • ', true, false, true, $myorderby, false); $adb = new adlinkblock(); $adb->load('adblock_midlepic2', 'code'); if ($adb->adbid > 0) { //Paysite of the Day $lsti = new tablelist("adlinkblockitem"); $lsti->setfields("abiadiid"); $lsti->addcond("abiadbid=".$adb->adbid); $lsti->addcond("coalesce(abidayid, 0)=0 OR abidayid=DAYOFWEEK(Now())"); $lsti->addcond("(DATE(NOW()) BETWEEN abidatefrom AND abidateto) OR (abidatefrom IS NULL && abidateto IS NULL)"); $lsti->addcond("abiadiid>0"); $lsti->addcond("abidisable=0"); //razeni podle typu zobrazeni 0-dle pozice, 1-nahodne if ($adb->valueget("adblsttype") == 0) { $lsti->addorderby("coalesce(abidayid,0) DESC, abiposition"); } else { $lsti->addorderby("coalesce(abidayid,0) DESC, RAND()"); } $lsti->uselimit = true; $lsti->limit = 1; $abiadiid = $lsti->execval(); $adi = new adlinkitem(); $adi->load($abiadiid); if ($adi->adiid > 0) { $index_vars["PAYSITE_OF_THE_DAY"] = '

    '.$adb->adbtitle.'

    adiurlkey).'">'.$adi->adiname.'
    adiurlkey).'">'.$adi->adiname.'

    '.substr($adi->aditext, 0, 90).(strlen($adi->aditext) > 90 ? ' ...' : '').'

    '; } } $index_vars["ADBLOCK_CATALOG"] = $block->getadvertblock("adblock_catalog"); //spocitam pocet odkazu v sekci uncategorized $lst = new tablelist("adlinkitem"); $lst->setfields("COUNT(*)"); $lst->addjoin("catalog", "catid=adicatid"); $lst->addcond("catpathids LIKE '51,450,%'"); $lst->addcond("catdisable=0"); $lst->addcond("(DATE(NOW()) BETWEEN adidatefrom AND adidateto AND adifromtopay=0) OR adifromtopay=1 OR (adidatefrom IS NULL AND adidateto IS NULL)"); $lst->addcond("adidisable=0"); $lst->addcond("adiadbid=0"); if (defined("CUSTOMFILTER_ADLINKITEM")) $lst->addcond(CUSTOMFILTER_ADLINKITEM); $index_vars["UNCATEGORIZEDCNT"] = $lst->execval(); } //reklama obrazkova $index_vars["ADBLOCK_MIDLEPIC1"] .= $block->getadvertblock("adblock_midlepic1"); //naplneni body stránky $index_vars["PAGE_H2"] = $page->config["server_h2"]; $tpl->set_vars($index_vars, true); $page_vars["BODY"] = $tpl->fetch('index_tpl.php') ; $page_vars["ADBLOCK_MIDLEBOTTOM"] = $index_vars["ADBLOCK_MIDLEBOTTOM"]; $page_vars["IS_INDEX"] = 1; } // konec naplneni z databaze echo $page->getpage($page_vars); ?>