1
0
Fork 0
SemmelstatzR/includes/functions.semr.php

507 Zeilen
16 KiB
PHP

<?php
/**
* File: functions.semr.php
*
* @package SemmelstatzR
* @version $Rev$
* @since 1.0.0
* @author SEM-Team
* @copyright (c)2011 SEM-Team
* @link http://sourceforge.net/projects/semmelstatz/
* @license http://www.gnu.org/licenses/gpl-3.0.html
*
* 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 3 of the License, or
* (at your option) any later version.
*
* 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, see <http://www.gnu.org/licenses/>.
*
* $Id$
*
*/
/**
* based upon semmelstatz
* Copyright (c) 2005-2009 Andreas 'Redunzl' Mueller (redunzl@gmx.de)
*
* @license http://www.gnu.org/licenses/gpl-2.0.html
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License (version 2) as
* published by the Free Software Foundation.
*
* 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.,
* 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
*/
### Encodierung der IP-Adresse durch simple arithmetische Operation
function sem_encodeIP($ip) {
$ip_parts = split("[.]", $ip);
$new_ip = ($ip_parts[0]+700) . "." . ($ip_parts[1]*2) . "." . ($ip_parts[2]+600) . "." . ($ip_parts[3]*3);
return $new_ip;
}
### Decodierung der IP-Adresse durch simple arithmetische Operation
function sem_decodeIP($ip) {
$ip_parts = split("[.]", $ip);
$new_ip = ($ip_parts[0]-700) . "." . ($ip_parts[1] / 2) . "." . ($ip_parts[2]-600) . "." . ($ip_parts[3]/3);
return $new_ip;
}
### Ist IP-Adresse codiert?
function sem_checkIfIPisEncoded($ip) {
$ip_parts = split("[.]", $ip);
if($ip_parts[0]>700) {
return true;
}
else {
return false;
}
}
### Auslesen der h<>chsten Post-ID
function sem_getMaxPostID() {
global $wpdb;
$maxpostid = $wpdb->get_var("SELECT MAX(ID) FROM ".$wpdb->posts." LIMIT 0,1");
return $maxpostid; //Ganzzahl
}
### Auslesen des User- bzw. Kommentarautornamen
function sem_getUsername() {
global $user_ID, $user_login, $isAdmin;
get_currentuserinfo();
if($user_ID > 0) {
$useronline = $user_login;
if(current_user_can('manage_options')) {
$isAdmin = 1;
}
else {
$isAdmin = 0;
}
}
elseif(isset($_COOKIE["comment_author_".COOKIEHASH])) {
$useronline = trim($_COOKIE["comment_author_".COOKIEHASH]);
$isAdmin = -1;
}
else {
$useronline = "Gast";
$isAdmin = -1;
}
return $useronline;
}
/**
* Check if agent is a bot
*
* @deprecated use Agents-object in the future
*
* @param string $user_agent
* @return boolean
*/
function sem_AreYouBot($user_agent) {
require_once 'class.agents.php';
$oCheckAgent = new Agents($user_agent);
return $oCheckAgent->isBot();
}
/**
* Referer nach Suchmaschinen-Queries und interner Suche prüfen und Suchstring extrahieren
*
* @param string $referer
* @return string name of searchengine and keywords
*/
function sem_getKeyword($referer) {
if(empty($referer)) return false;
$homehost = '%'.(substr($_SERVER['SERVER_NAME'],0,4) == 'www.')?
substr($_SERVER['SERVER_NAME'],4) . '%':
$_SERVER['SERVER_NAME'] . '%';
$keyword = parse_url($referer);
if(!isset($keyword['host']) || !isset($keyword['query'])) return false;
if (preg_match("/google\./i", $keyword["host"])) {
if (preg_match("/imgurl/i", $keyword["query"])) {
parse_str($keyword["query"],$q);
$keyword = substr($q["prev"],10);
}
else if (preg_match("/translate\./i", $keyword["host"])) {
parse_str($keyword["query"],$q);
$keyword = $q["q"];
}
else {
parse_str($keyword["query"],$q);
$keyword = $q["q"];
}
if($keyword == "") return; return "Google: ".$keyword;
}
elseif (preg_match("/search\.live\./i", $keyword["host"])) {
parse_str($keyword["query"],$q);
$keyword = $q["q"];
if($keyword == "") return; return "LiveSearch: ".$keyword;
}
elseif (preg_match("/bing\./i", $keyword["host"])) {
parse_str($keyword["query"],$q);
$keyword = $q["q"];
if($keyword == "") return; return "Bing: ".$keyword;
}
elseif (preg_match("/yahoo\./i", $keyword["host"])) {
if (preg_match("/images/i", $keyword["query"])) {
parse_str($keyword["query"],$q);
$keyword = $q["p"];
}
else {
parse_str($keyword["query"],$q);
$keyword = $q["p"];
}
if($keyword == "") return; return "Yahoo: ".$keyword;
}
elseif (preg_match("/aol\./i", $keyword["host"])) {
parse_str($keyword["query"],$q);
$keyword = $q["q"];
if($keyword == "") return; return "AOL: ".$keyword;
}
elseif (preg_match("/aolsvc\./i", $keyword["host"])) {
parse_str($keyword["query"],$q);
$keyword = $q["q"];
if($keyword == "") return; return "AOL: ".$keyword;
}
elseif (preg_match("/search\.msn\./i", $keyword["host"])) {
parse_str($keyword["query"],$q);
$keyword = $q["q"];
if($keyword == "") return; return "MSN: ".$keyword;
}
elseif (preg_match("/gmx\./i", $keyword["host"])) {
parse_str($keyword["query"],$q);
$keyword = $q["su"];
if($keyword == "") return; return "GMX: ".$keyword;
}
elseif (preg_match("/\.bild\.t\-/i", $keyword["host"])) {
parse_str($keyword["query"],$q);
$keyword = $q["query"];
if($keyword == "") return; return "BILD: ".$keyword;
}
elseif (preg_match("/t\-online\./i", $keyword["host"])) {
parse_str($keyword["query"],$q);
$keyword = $q["q"];
if($keyword == "") return; return "T-Online: ".$keyword;
}
elseif (preg_match("/suche\.web\./i", $keyword["host"])) {
parse_str($keyword["query"],$q);
$keyword = $q["su"];
if($keyword == "") return; return "WEB.de: ".$keyword;
}
elseif (preg_match("/suche\.lycos\./i", $keyword["host"])) {
parse_str($keyword["query"],$q);
$keyword = $q["query"];
if($keyword == "") return; return "Lycos: ".$keyword;
}
elseif (preg_match("/altavista\./i", $keyword["host"])) {
parse_str($keyword["query"],$q);
$keyword = $q["q"];
if($keyword == "") return; return "Altavista: ".$keyword;
}
elseif (preg_match("/alltheweb\./i", $keyword["host"])) {
parse_str($keyword["query"],$q);
$keyword = $q["q"];
if($keyword == "") return; return "alltheweb: ".$keyword;
}
elseif (preg_match("/technorati\.com\/search\//", $referer)) {
$q = preg_split("/technorati\.com\/search\//", $referer,-1,PREG_SPLIT_NO_EMPTY);
$keyword = $q[1];
if($keyword == "") return; return "Technorati: ".$keyword;
}
elseif (preg_match("/".$homehost."/i", $keyword["host"])) {
parse_str($keyword["query"],$q);
$keyword = $q["s"];
if($keyword == "") return; return semr_i18n("Internal search: ").$keyword;
}
else {
return;
}
}
### Anzahl der Datens<6E>tze in der statz-Tabelle
function sem_showNumStatzEntries() {
global $wpdb;
$numstatzentries = $wpdb->get_var("SELECT COUNT(id) FROM ".$wpdb->statz);
return $numstatzentries; // Zahl
}
### Aufgezeichnete Tage in der statz-Tabelle
function sem_countDaysInStatzTable() {
global $wpdb;
$firstdate = $wpdb->get_var("SELECT MIN(time) FROM ".$wpdb->statz." LIMIT 0,1");
if(!$firstdate) {
return 1;
}
else {
$firstdate = strtotime($firstdate); $now = time();
$days = (int) (($now - $firstdate) / (60*60*24)+1);
return $days; // KOMPLETTE! Tage
}
}
### Wenn Tage in statz-Tabelle kleiner als Tage in Daily-Statz, dann nimm Tage in Daily-Statz
function sem_compareLimitDays2DailyStatz () {
global $wpdb;
$sem_options = get_option('semmelstatzR_options'); ### optionsarray auslesen
if (sem_countDaysInStatzTable() << $sem_options["statz_days_limit"]) {
$sem_options["statz_days_limit"] = sem_countDaysInStatzTable();
update_option("semmelstatzR_options", $sem_options);
}
}
/**
* prints a copyright notiz
*/
function sem_showCopyright() {
print "<p class='copyright'>semmelstatzR ". SEMMELSTATZR_VERSION .
" happily coded by <a target='_blank' href='http://semmelstatz.sourceforge.net/'>SEM-Team<br />
<a target='_blank' style='border:none;' href='http://sourceforge.net/projects/semmelstatz/'>
<img src='".get_option('siteurl')."/wp-content/plugins/semmelstatzR/img/statzR.png' /></a></p>";
}
/**
* empty statz table
*
* @global type $wpdb
* @return bool
*/
function sem_truncateStatzTable() {
global $wpdb;
$wpdb->query('TRUNCATE TABLE '.$wpdb->statz);
sem_optStatzTable();
return ($wpdb->query("INSERT INTO `$wpdb->statz`(ip, time, referer, page, username) VALUES('127.0.0.1', NOW(),NULL,0,'statz-Tabelle geleert')"))?true:false;
}
/**
*
* @deprecated no need to hold unused functions in semR
* @todo remove in next major release
* @param int $days
* @return boolean
*/
function sem_delOldRecords($days) {
return true;
}
### simpleEncoding f<>r die GoogleChartAPI
function sem_encodeChartData($values) {
$maxValue = max($values);
$simpleEncoding = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789';
$chartData = "s:";
for ($i = 0; $i < count($values); $i++) {
$currentValue = $values[$i];
if ($currentValue > -1 && $maxValue <> 0) {
$chartData.=substr($simpleEncoding,61*($currentValue/$maxValue),1);
}
else {
$chartData.='_';
}
}
return $chartData;
}
### Datens<6E>tze <20>lter als statz_recdays_limit-Tage l<>schen
function sem_delOutOfLimit() {
global $wpdb;
$sem_options = get_option('semmelstatzR_options'); ### optionsarray auslesen
$today = time(); $days = $sem_options["statz_recdays_limit"];
$enddatum = $today - ($days * 86400);
$enddatum = date("Y-m-d", $enddatum) . " 23:59:59";
$wpdb->query("DELETE FROM ".$wpdb->statz." WHERE time <= '".$enddatum."'");
sem_optStatzTable();
}
### Wenn AUTOMATISCHES LIMIT aktiviert, dann LIMITIERE und erh<72>he NEXT_CRON
function sem_doCronStatzLimit() {
sem_delOutOfLimit();
$sem_options = get_option('semmelstatzR_options'); ### optionsarray auslesen
$statz_next_cron = $sem_options["statz_next_cron"] + 86400;
$sem_options["statz_next_cron"] = $statz_next_cron;
update_option("semmelstatzR_options", $sem_options);
}
### Konvertiert Strings von utf-8 in ISO-8859
function sem_encodeToIso($string) {
return mb_convert_encoding($string, "ISO-8859-1", mb_detect_encoding($string, "UTF-8, ISO-8859-1, ISO-8859-15", true));
}
### statz-Tabelle optimieren
function sem_optStatzTable() {
global $wpdb;
$wpdb->query("OPTIMIZE TABLE ".$wpdb->statz);
}
### Unter bestimmten Voraussetzungen den Vortag in die statzhist-Tabelle schreiben
/**
* @todo add action cache so we don't need to do it with every call
* @global type $wpdb
*/
function sem_writeYesterdayToHist() {
global $wpdb;
if(!$wpdb->get_var("SELECT date FROM ".$wpdb->statzhist." WHERE substring(date,1,10) = DATE_SUB(CURDATE(), INTERVAL 1 DAY)")) {
if($wpdb->get_var("SELECT COUNT(ip) FROM ".$wpdb->statz." WHERE substring(time,1,10) = DATE_SUB(CURDATE(), INTERVAL 1 DAY)")) {
$yesterdays = $wpdb->get_results("SELECT COUNT(ip) AS hits, COUNT(DISTINCT ip) AS visitors, COUNT(DISTINCT referer)
AS referers, substring(time,1,10) AS date FROM ".$wpdb->statz." WHERE substring(time,1,10) = DATE_SUB(CURDATE(),
INTERVAL 1 DAY) GROUP BY date");
foreach ($yesterdays as $yesterday) {
$date = $yesterday->date;
$visitors = $yesterday->visitors;
$hits = $yesterday->hits;
$referers = $yesterday->referers;
}
$sql = $wpdb->query("INSERT INTO ".$wpdb->statzhist." (date, referers, visitors, hits)
VALUES('$date', $referers, $visitors, $hits)");
}
else {
$date = $wpdb->get_var("SELECT DATE_SUB(CURDATE(), INTERVAL 1 DAY)");
$sql = $wpdb->query("INSERT INTO ".$wpdb->statzhist." (date, referers, visitors, hits) VALUES('$date', 0, 0, 0)");
}
}
}
/* Summen der vergangenen Tage in die statzhist schreiben */
function sem_writeOldDaysToHist() {
global $wpdb;
if(!$wpdb->get_var("SELECT date FROM ".$wpdb->statzhist." WHERE substring(date,1,10) <= DATE_SUB(CURDATE(), INTERVAL 1 DAY)")) {
$theolddays = $wpdb->get_results("SELECT COUNT(ip) AS hits, COUNT(DISTINCT ip) AS visitors,
COUNT(DISTINCT referer) AS referers, substring(time,1,10) AS date FROM ".$wpdb->statz." WHERE
substring(time,1,10) <= DATE_SUB(CURDATE(), INTERVAL 1 DAY) GROUP BY date ORDER BY time ASC");
foreach ($theolddays as $theoldday) {
$date = $theoldday->date;
$visitors = $theoldday->visitors; if(!$visitors) $visitors = 0;
$hits = $theoldday->hits; if(!$hits) $hits = 0;
$referers = $theoldday->referers; if(!$referers) $referers = 0;
$sql = $wpdb->query("INSERT INTO ".$wpdb->statzhist." (date, referers, visitors, hits)
VALUES('$date', $referers, $visitors, $hits)");
}
}
}
/**
* translate and return a string
*
* @uses wp-function __() and prefilled plugin gettextdomain
* @author Ortwin Pinke
* @since 1.0.0
*
* @param string $sValue string to translate
* @param string $sDomain gettextdomain
* @return string translated string
*/
function semr_i18n($sValue, $sDomain = "semmelstatzR") {
return __($sValue, $sDomain);
}
/**
* translate and echo a string
*
* @uses wp-function _e() and prefilled plugin gettextdomain
* @author Ortwin Pinke
* @since 1.0.0
*
* @param string $sValue
* @param string $sDomain
* @return void
*/
function semr_i18ne($sValue, $sDomain = "semmelstatzR") {
_e($sValue, $sDomain);
}
/**
* translate and return a plural or singular string based on an amount
*
* @uses wp-function _n() and prefilled plugin gettextdomain
* @author Ortwin Pinke
* @since 1.0.0
*
* @param string $sSingular
* @param string $sPlural
* @param type $iNumber
* @param string $sDomain
* @return string
*/
function semr_i18np($sSingular, $sPlural, $iNumber, $sDomain = "semmelstatzR") {
return _n($sSingular, $sPlural, $iNumber, $sDomain);
}
/**
*
* @author anyexample.com
* @license modified MIT see http://www.anyexample.com/license/
* @link http://www.anyexample.com/programming/php/php_convert_rgb_from_to_html_hex_color.xml
* @since 1.0.0
*
* @param string $color
* @return array
*/
function semr_hex2rgb($color) {
if ($color[0] == '#')
$color = substr($color, 1);
if (strlen($color) == 6)
list($r, $g, $b) = array($color[0].$color[1],
$color[2].$color[3],
$color[4].$color[5]);
elseif (strlen($color) == 3)
list($r, $g, $b) = array($color[0].$color[0], $color[1].$color[1], $color[2].$color[2]);
else
return false;
$r = hexdec($r); $g = hexdec($g); $b = hexdec($b);
return array($r, $g, $b);
}
/**
*
* @author anyexample.com
* @license modified MIT see http://www.anyexample.com/license/
* @link http://www.anyexample.com/programming/php/php_convert_rgb_from_to_html_hex_color.xml
* @since 1.0.0
*
* @param int $r
* @param int $g
* @param int $b
* @return string
*/
function semr_rgb2hex($r, $g=-1, $b=-1) {
if (is_array($r) && sizeof($r) == 3)
list($r, $g, $b) = $r;
$r = intval($r); $g = intval($g);
$b = intval($b);
$r = dechex($r<0?0:($r>255?255:$r));
$g = dechex($g<0?0:($g>255?255:$g));
$b = dechex($b<0?0:($b>255?255:$b));
$color = (strlen($r) < 2?'0':'').$r;
$color .= (strlen($g) < 2?'0':'').$g;
$color .= (strlen($b) < 2?'0':'').$b;
return '#'.$color;
}
############################################## Ende SEMMELSTATZ-interne Funktionen
?>