|

|

|

|

|

|

|

|

|

|

|

|

|

<?php

/**
* Encode to ClanSphere encoding (UTF-8) if possible, using iconv() (or mb_detect_encoding()) when available
*
* @param string $input the string to be encoded
* @param string $charsetFrom the current character set of the string
* @param string $charsetTo optional: the character set to convert to, if not set encode to the ClanSphere encoding.
*
* @return string the (possibly) converted string
*
* @uses iconv() if possible
*/
function cs_encode($input, $charsetFrom = 'ISO-8859-15', $charsetTo = null)
{
global $cs_main;

if (is_null($charsetTo))
{
$charsetTo = strtoupper($cs_main['charset']);
}

// no need to convert if the charsets are the same
if (strtoupper($charsetTo) == strtoupper($charsetFrom))
{
return $input;
}

if (function_exists('iconv'))
{
/* use transliteral */
$return = @iconv(strtoupper($charsetFrom), strtoupper($charsetTo).'//TRANSLIT', $input);
if ($return !== false)
return $return;
}
else
{
/* Uses utf8_encode/utf8_decode and mb_detect_encoding/mb_convert_encoding.
* To be extended in the future...
*/
if (strtoupper($charsetTo) == 'UTF-8')
{
switch (strtoupper($charsetFrom))
{
case 'ISO-8859-1':
// case 'ISO-8859-15':
return utf8_encode($input);
break;
default:
if (function_exists('mb_detect_encoding'))
{
$encoding = mb_detect_encoding($input);
if (is_string($encoding))
return mb_convert_encoding($input, 'UTF-8', $encoding);
// else, do nothing
}
break;
}
}
if (strtoupper($charsetFrom) == 'UTF-8')
{
switch (strtoupper($charsetTo))
{
case 'ISO-8859-1':
// case 'ISO-8859-15':
return utf8_decode($input);
break;
default:
break;
}
}
}
// if we don't know what to do, just return it
return $input;
} // function cs_encode

/*
* Description : A function with a very simple but powerful xor method to encrypt
* and/or decrypt a string with an unknown key. Implicitly the key is
* defined by the string itself in a character by character way.
* There are 4 items to compose the unknown key for the character
* in the algorithm
* 1.- The ascii code of every character of the string itself
* 2.- The position in the string of the character to encrypt
* 3.- The length of the string that include the character
* 4.- Any special formula added by the programmer to the algorithm
* to calculate the key to use
*/
function cs_encrypt_decrypt($string)
{
//Function : encrypt/decrypt a string message v.1.0 without a known key
//Author : Aitor Solozabal Merino (spain)
//Email : aitor-3@euskalnet.net
//Date : 01-04-2005
$strlen = strlen($string);
$strencrypted = '';
for ($pos = 0; $pos < $strlen ; $pos++)
{
// long code of the function to explain the algoritm
// this function can be tailored by the programmer modifyng the formula
// to calculate the key to use for every character in the string.
$usekey = (($strlen+$pos)+1); // (+5 or *3 or ^2)
// after that we need a module division because can´t be greater than 255
$usekey = (255+$usekey) % 255;
$encryptbyte = substr($string, $pos, 1);
$asciibyte = ord($encryptbyte);
$xorbyte = $asciibyte ^ $usekey; // xor operation
$encrypted = chr($xorbyte);
$strencrypted .= $encrypted;

//short code of the function once explained
// $str_encrypted_message .= chr((ord(substr($str_message, $position, 1))) ^ ((255+(($len_str_message+$position)+1)) % 255));
}
return $strencrypted;
} // function cs_encrypt_decrypt

/**
* Show byte size in readable format
*/
function cs_format_bytes($bytes, $decimals = 2)
{
if ($bytes < 1024)
{
return sprintf('%d Bytes', $bytes);
}
$bytes /= 1024.0;
if ($bytes < 1024)
{
return sprintf('%.'.$decimals.'f KiB', $bytes);
}
$bytes /= 1024.0;
if ($bytes < 1024)
{
return sprintf('%.'.$decimals.'f MiB', $bytes);
}
$bytes /= 1024.0;
if ($bytes < 1024)
{
return sprintf('%.'.$decimals.'f GiB', $bytes);
}
$bytes /= 1024.0;
return sprintf('%.'.$decimals.'f TiB', $bytes);
} // function cs_format_bytes

/**
* Add 1 (or create a new record) to the view count for a mod and id
*/
function cs_views_add($mod, $fid)
{
settype($fid, 'integer');

if ($fid <= 0) return;

$where = 'views_mod = \''.cs_sql_escape($mod).'\' AND views_fid = '.$fid;
$count = cs_sql_count(__FILE__, 'views', $where);
if ($count == 0)
{
cs_sql_insert(__FILE__, 'views', array('views_mod', 'views_fid', 'views_count'), array($mod, $fid, 1));
}
else
{
cs_sql_query(__FILE__, 'UPDATE {pre}_views SET views_count = views_count + 1 WHERE views_mod = \''.cs_sql_escape($mod).'\' AND views_fid = '.$fid);
}
} // function cs_views_add

/**
* Get the view count for a mod and id
*/
function cs_views_get($mod, $fid)
{
settype($fid, 'integer');

if ($fid <= 0) return 0;

$where = 'views_mod = \''.cs_sql_escape($mod).'\' AND views_fid = '.$fid;

$count = cs_sql_select(__FILE__, 'views', 'views_count', $where);
if ($count === false || !is_array($count))
return 0;
return intval($count['views_count']);
} // function cs_views_get

if (!defined('LOCK_PERIOD'))
{
define('LOCK_PERIOD', 3600);
}

/**
* Lock if we can
*/
function cs_locks_lock($mod, $fid, $users_id)
{
settype($fid, 'integer');

if ($fid <= 0) return false;

$lock = cs_locks_islocked($mod, $fid);
if (is_null($lock) || $lock['users_id'] == $users_id)
{
if (is_null($lock))
{
cs_sql_insert(__FILE__, 'locks', array('locks_mod', 'locks_fid', 'locks_time', 'users_id'), array($mod, $fid, cs_time(), $users_id));
}
else
{
/* add users_id for possible webmasters access level overrides */
cs_sql_update(__FILE__, 'locks', array('locks_time', 'users_id'), array(cs_time(), $users_id), $lock['locks_id']);
}
return true;
}
return false;
} // function cs_locks_lock

/**
* Unlock if we can
*/
function cs_locks_unlock($mod, $fid)
{
settype($fid, 'integer');

if ($fid <= 0) return false;

$lock = cs_locks_islocked($mod, $fid);
if (!is_null($lock))
{
cs_sql_delete(__FILE__, 'locks', $lock['locks_id']);
return true;
}
return false;
} // function cs_locks_unlock

/**
* Is locked?
*
* @return array if null then not locked, else array('locks_id', 'locks_time', 'users_id') is given
*/
function cs_locks_islocked($mod, $fid)
{
settype($fid, 'integer');

if ($fid <= 0) return null;

$where = 'locks_mod = \''.cs_sql_escape($mod).'\' AND locks_fid = '.$fid;
$lock = cs_sql_select(__FILE__, 'locks', 'locks_id, locks_time, users_id', $where);
if ($lock === false || !is_array($lock))
return null;

return $lock;
} // function cs_locks_islocked

/**
* Check if a subtemplate exists for the mod and action.
* If we use cs_subtemplate(), it raises a cs_error(). We want to prevent that from happening
*
* @param string $source
* @param string $mod
* @param string $action
*
* @return boolean true if the subtemplate exists (cs_subtemplate() may be called), false otherwise
*/
function cs_subtemplate_exists($mod, $action)
{
global $cs_main;

$cs_main['def_theme'] = empty($cs_main['def_theme']) ? 'base' : $cs_main['def_theme'];

$target = 'themes/' . $cs_main['def_theme'] . '/' . $mod . '/' . $action . '.tpl';
if ($cs_main['def_theme'] != 'base' and !file_exists($target))
{
$target = 'themes/base/' . $mod . '/' . $action . '.tpl';
}
if (!file_exists($target))
{
return false;
}
return true;
} // function cs_subtemplate_exists

/**
* Check if the user is a member, checks if the user is not deleted.
*
* @param int $users_id
*
* @return boolean returns true if the users is a member, false otherwise
*/
function cs_is_member($users_id)
{
settype($users_id, 'integer');

if ($users_id <= 0)
return false;

$where = 'm.users_id = '.$users_id.' AND us.users_delete = 0';
$count = cs_sql_count(__FILE__, 'members m LEFT JOIN {pre}_users us ON m.users_id = us.users_id', $where);

if ($count > 0)
return true;

return false;
} // function cs_is_member

/**
* Cut text (usefull for navlists), multibyte safe if supported in PHP
*
* @param string $text the text to be cut
* @param int $maxlength the maximum length to accept
* @param string $subst an additional string to be added after the cut
* @param int $subtract substract this number of extra characters (for correction of $subst)
*
* @return the cut text string
*/
function cs_textcut($text, $maxlength, $subst = '...', $subtract = 3)
{
/* prevent some stupid stuff */
if ($maxlength < 1)
return $text;
if ($maxlength < $subtract)
return $text;
/* check for multi-byte support */
if (function_exists('mb_strlen'))
{
global $cs_main;
/* prevent any &xxx; being stripped in half */
$realtext = html_entity_decode($text, ENT_QUOTES, $cs_main['charset']);
if (mb_strlen($realtext, $cs_main['charset']) > $maxlength)
{
$text = mb_substr($realtext, 0, $maxlength - $subtract, $cs_main['charset']).$subst;
}
}
else
{
if (strlen($text) > $maxlength)
{
$text = substr($text, 0, $maxlength - $subtract).$subst;
}
}
return $text;
} // function cs_textcut

|

|

|

|

Clan-Page -> www.kultis-ohne-gnade.de

|

--- CLANSPHERE ---
Professional clan care starts here

|

|