<?php
/**
* qt_lib_txt.php
* ------------
* version: 4.0 build:20100210
* This is a library of public functions
* ------------
* QTargs
* QTasTag
* QTdatestr
* QTbbc
* QTconv
* QTdatestr
* QTislogin
* QTispassword
* QTismail
* QTisbetween
* QTisvaliddate
* QTargimplode
* QTargexplode
* QTarradd
* QTexplode
* QTimplode
* QTunbbc
* QTcompact
* QThttpvar
*/
// This function allow cheching argument types: The value in $arrArgs must be of type specified in $arrTypes
// Application stops when the value is not of the specified type.
// Note 1: The type 'empty' means that the application stops if the value IS empty.
// Note 2: When $arrTypes is one type, this type is converted to a list of types
function QTargs($str='Error',$arrArgs,$arrTypes='str')
{
if ( !is_string($str) ) die('QTargs: Argument #1 must be a string');
if ( !is_array($arrArgs) ) die('QTargs: Argument #2 must be an array');
// last argument can be one string meaning: an array of n time this string is created
if ( is_string($arrTypes) ) { $s=$arrTypes; $arrTypes=array(); foreach($arrArgs as $a) $arrTypes[]=$s; }
if ( !is_array($arrTypes) ) die('QTargs: Argument #3 must be an array');
if ( count($arrTypes)!=count($arrArgs) ) die('QTargs: Argument #2 and #3 are not the same size');
// Process
for($i=0;$i<count($arrArgs);$i++) {
switch($arrTypes[$i]) {
case 'str': if ( !is_string($arrArgs[$i]) ) die($str.': Argument #'.$i.' must be a string'); break;
case 'int': if ( !is_integer($arrArgs[$i]) ) die($str.': Argument #'.$i.' must be an int'); break;
case 'arr': if ( !is_array($arrArgs[$i]) ) die($str.': Argument #'.$i.' must be an array'); break;
case 'flo': if ( !is_float($arrArgs[$i]) ) die($str.': Argument #'.$i.' must be a float'); break;
case 'boo': if ( !is_bool($arrArgs[$i]) ) die($str.': Argument #'.$i.' must be a boolean'); break;
case 'empty': if ( empty($arrArgs[$i]) ) die($str.': Argument #'.$i.' is empty'); break;
}}
}
// arrAttr can includes (S means selected & C current):
// format,name,endline,current,class,classS,classC,style,styleS,styleC
function QTasHidden($arr,$valSelected='',$arrAttr=array()) { return QTasTag($arr,$valSelected,$arrAttr,'hidden'); }
function QTasCheckbox($arr,$valSelected='',$arrAttr=array()) { return QTasTag($arr,$valSelected,$arrAttr,'checkbox'); }
function QTasSpan($arr,$valSelected='',$arrAttr=array()) { return QTasTag($arr,$valSelected,$arrAttr,'span'); }
function QTasTag($arr,$valSelected='',$arrAttr=array(),$strTag='option')
{
QTargs( 'HtmlTags',array($arr,$arrAttr,$strTag),array('arr','arr','str') ); // valSelected can be str or int
$strReturn = '';
foreach($arr as $strKey=>$strValue)
{
// format the value
if ( is_array($strValue) ) $strValue = reset($strValue);
if ( isset($arrAttr['format']) ) $strValue = sprintf($arrAttr['format'],$strValue);
$strName='';
if ( isset($arrAttr['name']) ) $strName=$arrAttr['name'];
$strClass='';
if ( isset($arrAttr['class']) ) $strClass=$arrAttr['class'];
if ( isset($arrAttr['classS']) ) { if ( strlen($valSelected)>0 && $valSelected==$strKey ) $strClass=$arrAttr['classS']; }
if ( isset($arrAttr['current']) && isset($arrAttr['classC']) ) { if ( $arrAttr['current']==$strKey ) $strClass=$arrAttr['classC']; }
$strStyle='';
if ( isset($arrAttr['style']) ) $strStyle=$arrAttr['style'];
if ( isset($arrAttr['styleS']) ) { if ( strlen($valSelected)>0 && $valSelected==$strKey ) $strStyle=$arrAttr['styleS']; }
if ( isset($arrAttr['current']) && isset($arrAttr['styleC']) ) { if ( $arrAttr['current']==$strKey ) $strStyle=$arrAttr['styleC']; }
switch($strTag)
{
case 'option':
$strReturn .= '<option value="'.$strKey.'"'.(empty($strClass) ? '' : ' class="'.$strClass.'"').(empty($strStyle) ? '' : ' style="'.$strStyle.'"').(strlen($valSelected)>0 && $valSelected==$strKey ? ' selected="selected"' : '').'>'.$strValue.'</option>';
break;
case 'checkbox':
$strReturn .= '<input type="checkbox" value="'.$strKey.'"'.(empty($strClass) ? '' : ' class="'.$strClass.'"').(empty($strStyle) ? '' : ' style="'.$strStyle.'"').(empty($strName) ? '' : ' name="'.$strName.'"').' />'.$strValue;
break;
case 'hidden':
$strReturn .= '<input type="hidden" name="'.$strKey.'" value="'.$strValue.'" />';
break;
case 'span':
$strReturn .= '<span'.(empty($strClass) ? '' : ' class="'.$strClass.'"').'>'.$strValue.'</span>'.(isset($arrAttr['endline']) ? $arrAttr['endline'] : '' );
break;
default:
die('HtmlTags: Invalid argument #2');
}
}
return $strReturn;
}
/**
* QTdatestr
*
* Convert a date [string] to a formatted date [string] and translate it.
*
* @$strDate The date string, can be 'YYYYMMDD[HH][MM][SS]' or 'now'. It can include [.][/][-][ ]
* @$strOutDate The format for the date (or '$' to use the system format)
* @$strOutTime The format for the time (or '$' to use the system format). If not empty, it is added to the date format (or to the short date)
* @$bShort Use short date 'Today','Yesterday' when possible.
*
* When $strDate is '0' or empty, this function returns '' (an empty string).
* Other $strDate patterns will issue a fatal error.
* The translation uses $L['dateSQL'], if existing, and the default php words if not.
* Also accept $strOutDate='RFC-3339' (this will ignore other parametres)
*/
function QTdatestr($strDate='now',$strOutDate='$',$strOutTime='$',$bFriendlyDate=false,$bDropOldTime=false,$bTitle=false)
{
QTargs( 'QTdatestr',array($strDate,$strOutDate,$strOutTime,$bFriendlyDate,$bDropOldTime,$bTitle),array('str','str','str','boo','boo','boo') );
if ( $strOutDate=='$' )
{
$strOutDate='Ymd'; // date format cannot be empty
if ( isset($_SESSION[QT]['formatdate']) ) {
if ( !empty($_SESSION[QT]['formatdate']) ) {
$strOutDate=$_SESSION[QT]['formatdate'];
}}
}
if ( $strOutTime=='$' )
{
$strOutTime=''; // time format can be empty
if ( isset($_SESSION[QT]['formattime']) ) {
if ( !empty($_SESSION[QT]['formattime']) ) {
$strOutTime=$_SESSION[QT]['formattime'];
}}
}
// Clean $strDate
if ( empty($strDate) ) return '';
if ( $strDate=='now' )
{
$strDate = date('YmdHi');
}
else
{
if ( strpos($strDate,' ') ) $strDate = str_replace(' ','',$strDate);
if ( strpos($strDate,'-') ) $strDate = str_replace('-','',$strDate);
if ( strpos($strDate,'.') ) $strDate = str_replace('.','',$strDate);
if ( strpos($strDate,'/') ) $strDate = str_replace('/','',$strDate);
if ( strpos($strDate,':') ) $strDate = str_replace(':','',$strDate);
}
// Read $strDate
$intDate = FALSE;
$bRecent = FALSE;
switch(strlen($strDate) )
{
case 8: $intDate = mktime(0,0,0,substr($strDate,4,2),substr($strDate,6,2),substr($strDate,0,4)); break;
case 10: $intDate = mktime(substr($strDate,-2,2),0,0,substr($strDate,4,2),substr($strDate,6,2),substr($strDate,0,4)); break;
case 12: $intDate = mktime(substr($strDate,-4,2),substr($strDate,-2,2),0,substr($strDate,4,2),substr($strDate,6,2),substr($strDate,0,4)); break;
case 14: $intDate = mktime(substr($strDate,-6,2),substr($strDate,-4,2),substr($strDate,-2,2),substr($strDate,4,2),substr($strDate,6,2),substr($strDate,0,4)); break;
}
if ( $intDate===FALSE ) return "Cannot make date from [$strDate]";
if ( date('Y-m-d')==date('Y-m-d',$intDate) || date('Y-m-d')==date('Y-m-d',$intDate+86400) ) $bRecent=true;
// Exceptions
if ( $strOutDate=='RFC-3339' )
{
$strDate = date('Y-m-d\TH:i:s',$intDate);
$strGMT = date('O',$intDate);
$strGMT = substr($strGMT,0,3).':'.substr($strGMT,-2,2);
return $strDate.$strGMT;
}
// Output format
$strDate = date($strOutDate.(empty($strOutTime) ? '' : ' '.$strOutTime),$intDate);
$strDateFull = date('j F Y'.(empty($strOutTime) ? '' : ', '.$strOutTime),$intDate);
// Short date
if ( $bRecent )
{
if ( $bFriendlyDate )
{
if ( date('Y-m-d')==date('Y-m-d',$intDate) ) $strDate = 'Today'.(empty($strOutTime) ? '' : ' '.date($strOutTime,$intDate));
if ( date('Y-m-d')==date('Y-m-d',$intDate+86400) ) $strDate = 'Yesterday'.(empty($strOutTime) ? '' : ' '.date($strOutTime,$intDate));
}
}
else
{
if ( $bDropOldTime )
{
$strDate = date($strOutDate,$intDate);
}
}
// Translating
global $L;
if ( isset($L['dateSQL']) ) {
if ( is_array($L['dateSQL']) ) {
$strDate = str_replace(array_keys($L['dateSQL']),array_values($L['dateSQL']),$strDate);
$strDateFull = str_replace(array_keys($L['dateSQL']),array_values($L['dateSQL']),$strDateFull);
}}
// Exit
if ( $bTitle ) return '<span title="'.$strDateFull.'">'.$strDate.'</span>';
return $strDate;
}
/* ============
* QTbbc
* ------------
* Convert bbc to html
* ------------
* $str : [mandatory] a string than can contains bbc tags
* $nl : convert \r\n, \r or \n to $nl. Use FALSE to not convert.
* $beforediv : (optional) tag to use before a bloc ([quote] or [code])
* $afterdiv : (optional) tag to use after a bloc ([quote] or [code])
* ------------
* Examples
* QTbbc( '[b]Text[/b]') --> <b>Text</b>
* QTbbc( '[i]<b>Text<b>[/i]') --> <i><b>Text</b></i>
* ============ */
function QTbbc($str,$nl='<br />',$beforediv='',$afterdiv='')
{
// check
if ( !is_string($str) ) die('QTbbc: arg #1 must be a string');
if ( !is_string($nl) ) die('QTbbc: arg #3 must be a string');
// process
$arrSearch = array (
'/</',
'/>/',
'/\[b\](.*?)\[\/b\]/',
'/\[i\](.*?)\[\/i\]/',
'/\[u\](.*?)\[\/u\]/',
'/\[\*\]/',
'/\[img\](.*?)\[\/img\]/',
'/\[url\](.*?)\[\/url\]/',
'/\[url\=(.*?)\](.*?)\[\/url\]/',
'/\[mail\](.*?)\[\/mail\]/',
'/\[mail\=(.*?)\](.*?)\[\/mail\]/',
'/\[color\=(.*?)\](.*?)\[\/color\]/',
'/\[size=(.*?)\](.*?)\[\/size\]/',
'/\[quote\]/',
'/\[quote\=(.*?)\]/',
'/\[\/quote\]/',
'/\[code\]/',
'/\[\/code\]/');
$arrReplace = array (
'<',
'>',
'<b>$1</b>',
'<i>$1</i>',
'<span class="u">$1</span>',
'•',
'<div class="imgmsg"><img class="imgmsg" src="$1" alt="[image]" title="" /></div>',
'<a class="msgbody" href="http://$1" target="_blank">$1</a>',
'<a class="msgbody" href="http://$2" target="_blank">$1</a>',
'<a class="msgbody" href="mailto:$1">$1</a>',
'<a class="msgbody" href="mailto:$2">$1</a>',
'<font color="$1">$2</font>',
'<span style="font-size:$1pt">$2</span>',
$beforediv.'<div class="quotetitle">Quotation:</div><div class="quote">',
'<div class="quotetitle">Quotation by $1:</div><div class="quote">',
'</div>'.$afterdiv,
$beforediv.'<div class="codetitle">Code:</div><div class="code">',
'</div>'.$afterdiv);
$str = preg_replace( $arrSearch, $arrReplace, $str );
$str = str_replace( array('http://http','http://ftp:','http://mailto:','mailto:mailto:'), array('http','ftp:','mailto:','mailto'), $str ); // special check for the href error
if ( is_string($nl) ) $str = str_replace( array("\r\n","\r","\n"), $nl, $str );
return $str;
}
// --------
function QTencode($str='',$arrSymbols='Q A L R &')
{
// This will encode (or decode) special characters: quote, apostrophe, open, close, amp
// $arrSymbols is the list of symbols to encode (noted Q A L R or &). Use - to decode
// Note: $arrSymbols can be a string with space separated values
if ( empty($str) ) return $str;
if ( is_string($arrSymbols) ) $arrSymbols = explode(' ',$arrSymbols);
if ( empty($arrSymbols) ) return $str;
if ( !is_array($arrSymbols) ) return $str;
foreach($arrSymbols as $strSymbol) {
switch($strSymbol) {
case 'A': $str = str_replace("'",''',$str); break;
case '-A': $str = str_replace(array(''',''','''),"'",$str); break;
case 'Q': $str = str_replace('"','"',$str); break;
case '-Q': $str = str_replace(array('"','"','"'),'"',$str); break;
case 'L': $str = str_replace('<','<',$str); break;
case '-L': $str = str_replace(array('<','<','<'),'<',$str); break;
case 'R': $str = str_replace('>','>',$str); break;
case '-R': $str = str_replace(array('>','>','>'),'>',$str); break;
case '&': $str = str_replace('&','&',$str); break;
case '-&': $str = str_replace(array('&','&','&'),'&',$str); break;
}}
return $str;
}
// --------
function QTconv($str,$to='1',$bConvAmp=false,$bDroptags=true)
{
if ( !is_string($str) ) die('QTconv: arg #1 must be a string');
if ( empty($str) ) return $str;
if ( !is_string($to) ) die('QTconv: arg #2 must be a string');
if ( !is_bool($bConvAmp) ) die('QTconv: arg #3 must be a boolean');
if ( !is_bool($bDroptags) ) die('QTconv: arg #4 must be a boolean');
// optional drop tags and &
if ( $bDroptags ) $str = strip_tags($str);
if ( $to=='3' && $bConvAmp ) $to='4';
// U special for username and password
// I special for input form: convert & alone to &
// 1 converts " // -1 converts "
// 2 converts " ' // -2 converts " '
// 3 converts " ' < > // -3 converts " ' < >
// 4 converts " ' < > & // -4 converts " ' < > &
// 5 converts to htmlentities but restore the & > &
// 6 converts to htmlentities
// K special for keycode
// F special for filename
// T convert to time HHMMSS (from HHMM,HH:MM[:SS],...) add 00 if no second
switch ($to)
{
case 'U':
return substr(htmlspecialchars(trim($str),ENT_QUOTES),0,24);
break;
case 'I':
if ( strstr($str,'&') )
{
$str = str_replace('&','&',$str);
$str = str_replace('&quot;','"',$str);
$str = str_replace('&#039;',''',$str);
}
break;
case '1':
$str = str_replace('"','"',$str);
break;
case '2':
$str = str_replace('"','"',$str);
$str = str_replace("'",''',$str);
break;
case '3':
$str = str_replace('"','"',$str);
$str = str_replace("'",''',$str);
$str = str_replace('<','<',$str);
$str = str_replace('>','>',$str);
break;
case '4':
$str = htmlspecialchars($str,ENT_QUOTES);
break;
case '5':
$str = htmlentities($str,ENT_QUOTES);
if ( strstr($str,'&') ) $str = str_replace('&','&', $str);
break;
case '6':
$str = htmlentities($str,ENT_QUOTES);
break;
case '-1':
$str = str_replace('"','"',$str);
break;
case '-2':
$str = str_replace('"','"',$str);
$str = str_replace(''',"'",$str);
break;
case '-3':
$str = str_replace('"','"',$str);
$str = str_replace(''',"'",$str);
$str = str_replace('<','<',$str);
$str = str_replace('>','>',$str);
break;
case '-4':
$str = str_replace('"','"', $str);
$str = str_replace(''',"'", $str);
if ( strstr($str,'&') )
{
$str = str_replace('&','&', $str);
$str = str_replace(''',"'", $str);
$str = str_replace('<','<', $str);
$str = str_replace('>','>', $str);
}
break;
case 'K':
$str=strtr($str,'éèêëÉÈÊËáàâäÁÀÂÄÅåíìîïÍÌÎÏóòôöÓÒÔÖõÕúùûüÚÙÛÜ','eeeeeeeeaaaaaaaaaaiiiiiiiioooooooooouuuuuuuu');
$str=strtolower($str);
$str=preg_replace('/[^a-z0-9_\-\.]/', '_', $str);
break;
case 'F':
$str=strtr($str,'éèêëÉÈÊËáàâäÁÀÂÄÅåíìîïÍÌÎÏóòôöÓÒÔÖõÕúùûüÚÙÛÜ','eeeeeeeeaaaaaaaaaaiiiiiiiioooooooooouuuuuuuu');
$str=strtolower($str);
$str=preg_replace('/[^a-z0-9_\-]/', '_', $str); // replace symbol by '_' (but keep the '.' and '-')
break;
case 'T':
$str = strtr(trim($str),':,.;-HhMmSsUu',' ');
$arr = explode(' ',$str); for ($i=0;$i<3;$i++) { if ( !isset($arr[$i]) ) $arr[$i]='00'; }
if ( !QTisbetween($arr[0],0,24) ) $arr[0]='00';
if ( !QTisbetween($arr[1],0,59) ) $arr[1]='00';
if ( !QTisbetween($arr[2],0,59) ) $arr[2]='00';
$str = $arr[0].$arr[1].$arr[2];
break;
}
if ( strlen($str)>4000 ) $str = substr($str,0,4000);
return trim($str);
}
// ------------
// QTispassword / islogin / ismail /isbetween / isvaliddate
// ------------
// These functions shows an error message when the principal argument(s) is not of the correct type.
// About login/password:
// Return FALSE if the text is not trimmed
// Return FALSE when text includes unacceptable characters
// a login can contain the ' caracter while a password cannot.
// both login and password cannot contain " < > \ /
// for caracters after z, only a few accents are supported .
// About validdate:
// This function will check date like YYYYMMDD (as string or as number). Options allow also to rejet past/futur year.
// ------------
function QTislogin($str,$intMin=4,$intMax=24)
{
if ( !is_string($str) ) die('QTislogin: arg #1 must be a string');
if ( !is_integer($intMin) ) die('QTislogin: arg #2 must be an int');
if ( !is_integer($intMax) ) die('QTislogin: arg #3 must be an int');
if ( $str!=trim($str) ) return false;
if ( strstr($str,'\\') ) return false; //' check this
if ( strstr($str,'<') ) return false;
if ( strstr($str,'>') ) return false;
if ( strstr($str,'<') ) return false;
if ( strstr($str,'>') ) return false;
if ( !preg_match("/^[#-z éèçôîêñߧ\!]+$/",$str) ) return false;
if ( $str!=strip_tags($str) ) return false;
if ( strlen($str)>$intMax ) return false;
if ( strlen($str)<$intMin ) return false;
return true;
}
function QTispassword($str,$intMin=4,$intMax=24)
{
if ( !is_string($str) ) die('QTispassword: arg #1 must be a string');
if ( !is_integer($intMin) ) die('QTispassword: arg #2 must be an int');
if ( !is_integer($intMax) ) die('QTispassword: arg #3 must be an int');
// password cannot contain apostrophe while login can
if ( strstr($str,"'") ) return false;
// uses QTislogin
if ( !QTislogin($str,$intMin,$intMax) ) return false;
return true;
}
function QTismail($str)
{
if ( !is_string($str) ) die('QTismail: arg #1 must be a string');
if ( $str!=trim($str) ) return false;
if ( $str!=strip_tags($str) ) return false;
if ( !preg_match("/^[A-Z0-9._%-]+@[A-Z0-9][A-Z0-9.-]{0,61}[A-Z0-9]\.[A-Z]{2,6}$/i",$str) ) return false;
return true;
}
function QTisbetween($intValue,$intMin=0,$intMax=99999)
{
if ( $intValue==='') return false;
if ( !is_numeric($intValue) ) return false;
if ( !is_numeric($intMin) ) die('QTisbetween: arg #2 must be a numeric (or a number as string)');
if ( !is_numeric($intMax) ) die('QTisbetween: arg #3 must be a numeric (or a number as string)');
if ( $intValue<$intMin ) return false;
if ( $intValue>$intMax ) return false;
return true;
}
function QTisvaliddate($d,$bPast=true,$bFutur=false) // allow past year, disallow futur year
{
if ( is_string($d) ) { if ( substr($d,0,6)=='Cannot' ) return false; }
if ( !is_numeric($d) ) die('QTisvaliddate: arg #1 must be a number like YYYYMMDD (as number or as string)');
if ( !is_bool($bPast) ) die('QTisvaliddate: arg #2 must be a bolean');
if ( !is_bool($bFutur) ) die('QTisvaliddate: arg #3 must be a bolean');
$str = strval($d);
if ( strlen($str)!=8 ) die('QTisvaliddate: arg #1 must be a number like YYYYMMDD (as number or as string)');
$intY = intval(substr($str,0,4));
$intM = intval(substr($str,4,2));
$intD = intval(substr($str,-2,2));
if ( $intY<1900 ) return false;
if ( $intM<1 || $intM>12 ) return false;
if ( $intD<1 || $intD>31 ) return false;
if ( !$bPast ) { if ( $intY<date('Y') ) return false; }
if ( !$bFutur ) { if ( $intY>date('Y') ) return false; }
if ( !checkdate($intM,$intD,$intY) ) return false;
return true;
}
function QTisvalidtime($d)
{
if ( is_string($d) ) { if ( substr($d,0,6)=='Cannot' ) return false; }
if ( !is_numeric($d) ) die('QTisvaliddate: arg #1 must be a time like HHMM or HHMMSS (as number or as string)');
$d = strval($d);
if ( strlen($d)!=4 && strlen($d)!=6 ) die('QTisvaliddate: arg #1 must be a time like HHMM or HHMMSS (as number or as string)');
if ( !QTisbetween(substr($d,0,2),0,23) ) return false;
if ( !QTisbetween(substr($d,2,2),0,59) ) return false;
if ( strlen($d)==6 ) { if ( !QTisbetween(substr($d,4,2),0,59) ) return false; }
return true;
}
// --------
function QTargexplode($str='')
{
if ( empty($str) )
{
$arr = parse_url($_SERVER['REQUEST_URI']);
if ( !isset($arr['query']) ) return array();
$str = $arr['query'];
if ( empty($str) ) return array();
}
$str = str_replace('&','&',$str);
return QTexplode($str,'&');
}
// --------
function QTargimplode($arr,$strSep='&') { return QTimplode($arr,$strSep); }
// --------
function QTarradd($arr,$strKey,$strValue=null)
{
// Add (or remove) a key+value to the array.
// When $strValue is null, the key is not set (or removed if existing)
if ( !is_array($arr) ) die('QTarradd: arg #1 must be an array');
if ( !is_string($strKey) ) die('QTarradd: arg #2 must be a string');
if ( isset($arr[$strKey]) ) unset($arr[$strKey]);
if ( is_null($strValue) ) return $arr;
$arr[$strKey] = $strValue;
return $arr;
}
// --------
function QTarrget($arr,$key='title')
{
// Converts an array of arrays into a simple array where the values are the [$key]element of each array (indexes are preserved).
// When the [$key]element doesn't existing, the result will include a NULL.
// If on element of $arr is not an array, it REMAINS in the result. $key can be integer or string.
if ( !is_array($arr) ) die('QTarrget: arg #1 must be an array');
foreach($arr as $k=>$a) {
if ( is_array($a) ) {
if ( isset($a[$key]) ) { $arr[$k]=$a[$key]; } else { $arr[$k]=null; }
}}
return $arr;
}
// --------
function QTexplode($str='',$strSep=';')
{
if ( empty($str) ) return array();
if ( !is_string($str) ) die('QTexplode: arg #1 must be a string');
if ( !is_string($strSep) ) die('QTexplode: arg #2 must be a string');
$arr = explode($strSep,$str);
$arrArgs = array();
foreach($arr as $str)
{
if ( strstr($str,'=') )
{
$arrPart = explode('=',$str);
$arrArgs[$arrPart[0]]=$arrPart[1];
}
}
return $arrArgs;
}
// --------
function QTimplode($arr,$strSep=';')
{
if ( !is_array($arr) ) die('QTimplode: arg #1 must be an array');
if ( !is_string($strSep) ) die('QTimplode: arg #2 must be a string');
// Build a string from the array. Returns '' when the array is empty.
if ( count($arr)==0 ) return '';
$str = '';
foreach($arr as $strKey=>$strValue) $str .= (empty($str) ? '' : $strSep).$strKey.'='.$strValue;
return $str;
}
// --------
function QTunbbc($str,$bDeep=true)
{
if ( !is_string($str) ) die('QTunbbc: arg #1 must be a string');
if ( empty($str) ) return $str;
return preg_replace( array('/\[b\](.*?)\[\/b\]/','/\[i\](.*?)\[\/i\]/', '/\[u\](.*?)\[\/u\]/', '/\[\*\]/', '/\[img\](.*?)\[\/img\]/', '/\[url\](.*?)\[\/url\]/', '/\[url\=(.*?)\](.*?)\[\/url\]/', '/\[mail\](.*?)\[\/mail\]/', '/\[mail\=(.*?)\](.*?)\[\/mail\]/', '/\[color\=(.*?)\](.*?)\[\/color\]/', '/\[size=(.*?)\](.*?)\[\/size\]/', '/\[quote\]/', '/\[quote\=(.*?)\]/', '/\[\/quote\]/', '/\[code\]/', '/\[\/code\]/') , array('$1','$1','$1','$1','$1','$1','$1','$1','$1','$1','$1',($bDeep ? '' : 'Quotation: '),($bDeep ? '' : 'Quotation by $1'),'',($bDeep ? '' : 'Code: '),'') , $str );
}
// --------
function QTcompact($str,$max=200,$nl="\r\n")
{
if ( !is_string($str) ) die('QTcompact: arg #1 must be a string');
if ( empty($str) ) return $str;
if ($max>0 && strlen($str)>$max ) $str=substr($str,0,$max).' ...';
$str = str_replace("\r\n\r\n\r\n",$nl,$str);
$str = str_replace("\r\n\r\n",$nl,$str);
if ( strpos($str,'[')!==FALSE )
{
$str = str_replace("[/quote]\r\n",'[/quote]',$str);
$str = str_replace("[/code]\r\n",'[/code]',$str);
}
return $str;
}
// --------
function QThttpvar($arrV,$arrT,$bStriptags=true,$bGet=true,$bPost=true)
{
// Assign values Http GET or POST to the variables. The values are assigned with the specific type.
// $arrV is the list of variables to create from the http get/post [can be a string of names separated by space]
// $arrT is the list of desired variable types: 'int','str','boo' or 'flo' [can be a string of names separated by space]
// $bStiptags strip the tags when the type string is requested (to avoid injection)
// $bGet accept/reject variables send by Http GET method
// $bPost accept/reject variables send by Http POST method
// Ex: QThttpvar('a b c','str boo int');
// Note #1: When a user try to inject new variables, they will not be created (only variables in the list are parsed).
// Note #2: It's recommended to initialise the variables before using this assigment function.
// Note #3: When values are not send by Http get/post, the initial variable remains unchanged (can be a new variable with NULL value if the variable was not initialised).
// Note #4: When you request the type 'boo' (boolean), the variable is set to TRUE when http get/post is '1', for all other values the variable is set to FALSE.
if ( is_string($arrV) ) $arrV=explode(' ',$arrV);
if ( is_string($arrT) ) $arrT=explode(' ',$arrT);
if ( !is_array($arrV) || !is_array($arrT)) die('QThttpvar: arrV and arrT must be arrays.');
if ( count($arrV)!=count($arrT) ) die('QThttpvar: arrV and arrT must be the same size.');
$i=0;
foreach($arrV as $strV)
{
$strT = $arrT[$i];
global $$strV;
if ( $bGet && isset($_GET[$strV]) )
{
$_GET[$strV]=trim($_GET[$strV]);
switch($strT)
{
case 'int': $$strV=intval($_GET[$strV]); break;
case 'str': $$strV=($bStriptags ? strip_tags($_GET[$strV]) : $_GET[$strV]); break;
case 'boo': $$strV=($_GET[$strV]==='1' ? true : false); break;
case 'flo': $$strV=floatval($_GET[$strV]); break;
default: die('QThttpvar: Invalid data type ['.$strT.']');
}
}
if ( $bPost && isset($_POST[$strV]) )
{
$_POST[$strV]=trim($_POST[$strV]);
switch($strT)
{
case 'int': $$strV=intval($_POST[$strV]); break;
case 'str': $$strV=($bStriptags ? strip_tags($_POST[$strV]) : $_POST[$strV]); break;
case 'boo': $$strV=($_POST[$strV]==='1' ? true : false); break;
case 'flo': $$strV=floatval($_POST[$strV]); break;
default: die('QThttpvar: Invalid data type ['.$strT.']');
}
}
$i++;
}
}
?>