// // ------------------------------------------------------------------------ // // This program is free software; you can redistribute it and/or modify // // it under the terms of the GNU General Public License as published by // // the Free Software Foundation; either version 2 of the License, or // // (at your option) any later version. // // // // You may not change or alter any portion of this comment or credits // // of supporting developers from this source code or any supporting // // source code which is considered copyrighted (c) material of the // // original comment or credit authors. // // // // This program is distributed in the hope that it will be useful, // // but WITHOUT ANY WARRANTY; without even the implied warranty of // // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the // // GNU General Public License for more details. // // // // You should have received a copy of the GNU General Public License // // along with this program; if not, write to the Free Software // // Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA // // ------------------------------------------------------------------------ // // Author: Kazumi Ono (AKA onokazu) // // URL: http://www.myweb.ne.jp/, http://www.xoops.org/, http://jp.xoops.org/ // // Project: The XOOPS Project // // ------------------------------------------------------------------------- // if (!is_object($xoopsUser) || !is_object($xoopsModule) || !$xoopsUser->isAdmin($xoopsModule->mid()) ) { exit("Access Denied"); } else { /*********************************************************/ /* Banners Administration Functions */ /*********************************************************/ function BannersAdmin() { global $xoopsConfig, $xoopsModule; $xoopsDB =& Database::getInstance(); xoops_cp_header(); // Banners List echo ""; echo "

"; echo " "._AM_CURACTBNR." "; $result = $xoopsDB->query("SELECT bid, cid, imptotal, impmade, clicks, date FROM ".$xoopsDB->prefix("banner")." ORDER BY bid"); $myts =& MyTextSanitizer::getInstance(); while(list($bid, $cid, $imptotal, $impmade, $clicks, $date) = $xoopsDB->fetchRow($result)) { $result2 = $xoopsDB->query("SELECT cid, name FROM ".$xoopsDB->prefix("bannerclient")." WHERE cid=$cid"); list($cid, $name) = $xoopsDB->fetchRow($result2); $name = $myts->makeTboxData4Show($name); if ( $impmade == 0 ) { $percent = 0; } else { $percent = substr(100 * $clicks / $impmade, 0, 5); } if ( $imptotal == 0 ) { $left = ""._AM_UNLIMIT.""; } else { $left = $imptotal-$impmade; } echo ""; } echo " "._AM_BANNERID." "._AM_IMPRESION." "._AM_IMPLEFT." "._AM_CLICKS." "._AM_NCLICKS." "._AM_CLINAME." "._AM_FUNCTION." $bid $impmade $left $clicks $percent% $name "._AM_EDIT." | "._AM_DELETE." "; echo "

"; echo "
"; // Finished Banners List echo ""; echo "

"; echo " "._AM_FINISHBNR." "; $result = $xoopsDB->query("SELECT bid, cid, impressions, clicks, datestart, dateend FROM ".$xoopsDB->prefix("bannerfinish")." ORDER BY bid"); while(list($bid, $cid, $impressions, $clicks, $datestart, $dateend) = $xoopsDB->fetchRow($result)) { $result2 = $xoopsDB->query("SELECT cid, name FROM ".$xoopsDB->prefix("bannerclient")." WHERE cid=$cid"); list($cid, $name) = $xoopsDB->fetchRow($result2); $name = $myts->makeTboxData4Show($name); $percent = substr(100 * $clicks / $impressions, 0, 5); echo " "; } echo " "._AM_BANNERID." "._AM_IMPD." "._AM_CLICKS." "._AM_NCLICKS." "._AM_STARTDATE." "._AM_ENDDATE." "._AM_CLINAME." "._AM_FUNCTION." $bid $impressions $clicks $percent% ".formatTimestamp($datestart,"m")." ".formatTimestamp($dateend,"m")." $name "._AM_DELETE." "; echo "

"; echo "
"; // Clients List echo "

"; echo " "._AM_ADVCLI." "; $result = $xoopsDB->query("SELECT cid, name, contact, email FROM ".$xoopsDB->prefix("bannerclient")." ORDER BY cid"); while(list($cid, $name, $contact, $email) = $xoopsDB->fetchRow($result)) { $name = htmlspecialchars($name,ENT_QUOTES); $contact = htmlspecialchars($contact,ENT_QUOTES); $email = htmlspecialchars($email,ENT_QUOTES); $result2 = $xoopsDB->query("SELECT COUNT(*) FROM ".$xoopsDB->prefix("banner")." WHERE cid=$cid"); list($numrows) = $xoopsDB->fetchRow($result2); echo " "; } echo " "._AM_BANNERID." "._AM_CLINAME." "._AM_ACTIVEBNR." "._AM_CONTNAME." "._AM_CONTMAIL." "._AM_FUNCTION." $cid $name $numrows $contact $email "._AM_EDIT." | "._AM_DELETE." "; echo "

"; echo "
"; // Add Banner $result = $xoopsDB->query("SELECT COUNT(*) FROM ".$xoopsDB->prefix("bannerclient")); list($numrows) = $xoopsDB->fetchRow($result); if ( $numrows > 0 ) { echo"

"; echo" "._AM_ADDNWBNR." "._AM_CLINAMET." "; $result = $xoopsDB->query("SELECT cid, name FROM ".$xoopsDB->prefix("bannerclient")); while(list($cid, $name) = $xoopsDB->fetchRow($result)) { $name = $myts->makeTboxData4Show($name); echo "$name"; } echo " "._AM_IMPPURCHT." 0 = "._AM_UNLIMIT." "._AM_IMGURLT." "._AM_CLICKURLT." "._AM_USEHTML." "._AM_CODEHTML." ".$GLOBALS['xoopsSecurity']->getTokenHTML()." "; echo"

"; } // Add Client echo "
"; echo "

"; echo " "._AM_ADDNWCLI." "._AM_CLINAMET." "._AM_CONTNAMET." "._AM_CONTMAILT." "._AM_CLILOGINT." "._AM_CLIPASST." "._AM_EXTINFO." ".$GLOBALS['xoopsSecurity']->getTokenHTML()." "; echo "

"; xoops_cp_footer(); } function BannerDelete($bid) { global $xoopsConfig, $xoopsModule; $xoopsDB =& Database::getInstance(); $myts =& MyTextSanitizer::getInstance(); xoops_cp_header(); $result=$xoopsDB->query("SELECT cid, imptotal, impmade, clicks, imageurl, clickurl, htmlbanner, htmlcode FROM ".$xoopsDB->prefix("banner")." where bid=$bid"); list($cid, $imptotal, $impmade, $clicks, $imageurl, $clickurl, $htmlbanner, $htmlcode) = $xoopsDB->fetchRow($result); $imageurl = htmlspecialchars($imageurl, ENT_QUOTES); $clickurl = htmlspecialchars($clickurl, ENT_QUOTES); echo"

"; echo " "._AM_DELEBNR." "; if ($htmlbanner){ echo $myts->displayTarea($htmlcode,1); }else{ if(strtolower(substr($imageurl,strrpos($imageurl,".")))==".swf") { echo ""; } else { echo ""; } } echo "$clickurl "; $result2 = $xoopsDB->query("SELECT cid, name FROM ".$xoopsDB->prefix("bannerclient")." WHERE cid=$cid"); list($cid, $name) = $xoopsDB->fetchRow($result2); $name = $myts->makeTboxData4Show($name); $percent = substr(100 * $clicks / $impmade, 0, 5); if ( $imptotal == 0 ) { $left = 'unlimited'; } else { $left = $imptotal-$impmade; } echo " "._AM_BANNERID." "._AM_IMPRESION." "._AM_IMPLEFT." "._AM_CLICKS." "._AM_NCLICKS." "._AM_CLINAME." $bid $impmade $left $clicks $percent% $name "; xoops_confirm(array('fct' => 'banners', 'op' => 'BannerDelete2', 'bid' => $bid), 'admin.php', _AM_SUREDELE); echo"

"; xoops_cp_footer(); } function BannerEdit($bid) { global $xoopsConfig, $xoopsModule; $bid = intval($bid); xoops_cp_header(); $xoopsDB =& Database::getInstance(); $myts =& MyTextSanitizer::getInstance(); $result=$xoopsDB->query("SELECT cid, imptotal, impmade, clicks, imageurl, clickurl, htmlbanner, htmlcode FROM ".$xoopsDB->prefix("banner")." where bid=".$bid); list($cid, $imptotal, $impmade, $clicks, $imageurl, $clickurl, $htmlbanner, $htmlcode) = $xoopsDB->fetchRow($result); echo"

"; echo" "._AM_EDITBNR." "; if ($htmlbanner){ echo $myts->displayTarea($htmlcode, 1, 0, 0, 0, 0); }else{ if(strtolower(substr($imageurl,strrpos($imageurl,".")))==".swf") { echo ""; } else { echo ""; } } echo " "._AM_CLINAMET." \n"; $result = $xoopsDB->query("SELECT cid, name FROM ".$xoopsDB->prefix("bannerclient")." where cid=$cid"); list($cid, $name) = $xoopsDB->fetchRow($result); $name = $myts->makeTboxData4Show($name); echo "$name"; $result = $xoopsDB->query("SELECT cid, name FROM ".$xoopsDB->prefix("bannerclient")); while(list($ccid, $name) = $xoopsDB->fetchRow($result)) { $name = $myts->makeTboxData4Show($name); if ( $cid != $ccid ) { echo "$name"; } } echo " "; if ( $imptotal == 0 ) { $impressions = ""._AM_UNLIMIT.""; } else { $impressions = $imptotal; } echo " "._AM_ADDIMPT." "._AM_PURCHT."$impressions "._AM_MADET."$impmade "._AM_IMGURLT." "._AM_CLICKURLT." "._AM_USEHTML; if ($htmlbanner){ echo " "; }else{ echo " "; } echo " "._AM_CODEHTML." ".$myts->displayTarea($htmlcode, $htmlbanner, 0, 0, 0, 0)." ".$GLOBALS['xoopsSecurity']->getTokenHTML()." "; echo"

"; xoops_cp_footer(); } function BannerClientDelete($cid) { global $xoopsConfig, $xoopsModule; $xoopsDB =& Database::getInstance(); $myts =& MyTextSanitizer::getInstance(); xoops_cp_header(); $result = $xoopsDB->query("SELECT cid, name FROM ".$xoopsDB->prefix("bannerclient")." WHERE cid=$cid"); list($cid, $name) = $xoopsDB->fetchRow($result); $name = $myts->makeTboxData4Show($name); echo "

"; echo " "._AM_DELEADC." ".sprintf(_AM_SUREDELCLI,$name)." "; $result2 = $xoopsDB->query("SELECT imageurl, clickurl, htmlbanner, htmlcode FROM ".$xoopsDB->prefix("banner")." WHERE cid=$cid"); $numrows = $xoopsDB->getRowsNum($result2); if ( $numrows == 0 ) { echo ""._AM_NOBNRRUN." "; } else { echo ""._AM_WARNING." "._AM_ACTBNRRUN." "; } while(list($imageurl, $clickurl, $htmlbanner, $htmlcode) = $xoopsDB->fetchRow($result2)) { $imageurl = htmlspecialchars($imageurl, ENT_QUOTES); $clickurl = htmlspecialchars($clickurl, ENT_QUOTES); $bannerobject = ""; if ($htmlbanner){ $bannerobject = $myts->displayTarea($htmlcode,1); } else { $bannerobject = ' '; if(strtolower(substr($imageurl,strrpos($imageurl,".")))==".swf") { $bannerobject = $bannerobject .''; } else { $bannerobject = $bannerobject.''; } $bannerobject = $bannerobject.' '; } echo $bannerobject."".$clickurl." "; } xoops_confirm(array('fct' => 'banners', 'op' => 'BannerClientDelete2', 'cid' => $cid), 'admin.php', _AM_SUREDELBNR); echo "

"; xoops_cp_footer(); } function BannerClientEdit($cid) { global $xoopsConfig, $xoopsModule; $xoopsDB =& Database::getInstance(); $myts =& MyTextSanitizer::getInstance(); xoops_cp_header(); $result = $xoopsDB->query("SELECT name, contact, email, login, passwd, extrainfo FROM ".$xoopsDB->prefix("bannerclient")." WHERE cid=$cid"); list($name, $contact, $email, $login, $passwd, $extrainfo) = $xoopsDB->fetchRow($result); $name = $myts->makeTboxData4Edit($name); $contact = $myts->makeTboxData4Edit($contact); $email = $myts->makeTboxData4Edit($email); $login = $myts->makeTboxData4Edit($login); $passwd = $myts->makeTboxData4Edit($passwd); $extrainfo = $myts->makeTareaData4Edit($extrainfo); echo "

"; echo " "._AM_EDITADVCLI." "._AM_CLINAMET." "._AM_CONTNAMET." "._AM_CONTMAILT ." "._AM_CLILOGINT." "._AM_CLIPASST." "._AM_EXTINFO." $extrainfo ".$GLOBALS['xoopsSecurity']->getTokenHTML()." "; echo "

"; xoops_cp_footer(); } } ?>