TYPO3 Core

/***************************************************************

* Copyright notice

*

* All rights reserved

*

* This script is part of the TYPO3 project. The TYPO3 project is

* @return mixed POST var named $var and if not set, the GET var of the same name.

* @see GPvar()

*/

if(empty($var)) return;

$value = isset($_POST[$var]) ? $_POST[$var] : $_GET[$var];

if (isset($value)) {

* @return mixed If $var is set it returns the value of $_GET[$var]. If $var is NULL (default), returns $_GET itself. In any case *slashes are stipped from the output!*

* @see _POST(), _GP(), _GETset()

*/

$value = ($var === NULL) ? $_GET : (empty($var) ? NULL : $_GET[$var]);

if (isset($value)) { // Removes slashes since TYPO3 has added them regardless of magic_quotes setting.

if (is_array($value)) { t3lib_div::stripSlashesOnArray($value); } else { $value = stripslashes($value); }

* @return mixed If $var is set it returns the value of $_POST[$var]. If $var is NULL (default), returns $_POST itself. In any case *slashes are stipped from the output!*

* @see _GET(), _GP()

*/

$value = ($var === NULL) ? $_POST : (empty($var) ? NULL : $_POST[$var]);

if (isset($value)) { // Removes slashes since TYPO3 has added them regardless of magic_quotes setting.

if (is_array($value)) { t3lib_div::stripSlashesOnArray($value); } else { $value = stripslashes($value); }

* @param string Alternative key; If set, this will not set the WHOLE GET array, but only the key in it specified by this value!

* @return void

*/

// ADDS slashes since TYPO3 standard currently is that slashes MUST be applied (regardless of magic_quotes setting).

if (strcmp($key,'')) {

if (is_array($inputGet)) { t3lib_div::addSlashesOnArray($inputGet); } else { $inputGet = addslashes($inputGet); }

* @deprecated Use t3lib_div::_GP instead (ALWAYS delivers a value with un-escaped values!)

* @see _GP()

*/

if(empty($var)) return;

$value = isset($_POST[$var]) ? $_POST[$var] : $_GET[$var];

if (isset($value) && is_string($value)) { $value = stripslashes($value); } // Originally check '&& get_magic_quotes_gpc() ' but the values of $_GET are always slashed regardless of get_magic_quotes_gpc() because HTTP_POST/GET_VARS are run through addSlashesOnArray in the very beginning of index_ts.php eg.

* @ignore

* @deprecated

*/

$postA = is_array($_POST[$var]) ? $_POST[$var] : array();

$getA = is_array($_GET[$var]) ? $_GET[$var] : array();

$mergedA = t3lib_div::array_merge_recursive_overrule($getA,$postA);

* @return string Returns "GD" if GD was used, otherwise "IM" if ImageMagick was used. If nothing done at all, it returns empty string.

* @internal

*/

$gfxConf = $GLOBALS['TYPO3_CONF_VARS']['GFX'];

$returnCode='';

if ($gfxConf['gif_compress'] && strtolower(substr($theFile,-4,4))=='.gif') { // GIF...

* @return string new filename

* @internal

*/

if ($GLOBALS['TYPO3_CONF_VARS']['FE']['png_to_gif']

&& $GLOBALS['TYPO3_CONF_VARS']['GFX']['im']

&& $GLOBALS['TYPO3_CONF_VARS']['GFX']['im_path_lzw']

* @return string If the new image file exists, it's filepath is returned

* @internal

*/

if ($GLOBALS['TYPO3_CONF_VARS']['GFX']['im'] && @is_file($theFile)) {

$ext = strtolower(substr($theFile,-4,4));

if (

* @deprecated Works ONLY for single-byte charsets! USE t3lib_div::fixed_lgd_cs() instead

* @see fixed_lgd_pre()

*/

$chars = abs($origChars);

if ($chars >= 4) {

if(strlen($string)>$chars) {

* @deprecated Use either fixed_lgd() or fixed_lgd_cs() (with negative input value for $chars)

* @see fixed_lgd()

*/

return strrev(t3lib_div::fixed_lgd(strrev($string),$chars));

}

* @return string New string

* @see fixed_lgd()

*/

if (is_object($GLOBALS['LANG'])) {

return $GLOBALS['LANG']->csConvObj->crop($GLOBALS['LANG']->charSet,$string,$chars,'...');

} else {

* @deprecated Use PHP function wordwrap()

* @return string

*/

$lines = explode(chr(10),$str);

$outArr=array();

while(list(,$lStr)=each($lines)) {

* @return string

* @see breakTextForEmail()

*/

$lines=array();

$l=$charWidth;

$p=0;

* @param string $list is a comma-list of IP-addresses to match with. *-wildcard allowed instead of number, plus leaving out parts in the IP number is accepted as wildcard (eg. 192.168.*.* equals 192.168). If list is "*" no check is done and the function returns TRUE immediately.

* @return boolean True if an IP-mask from $list matches $baseIP

*/

if ($list==='*') return TRUE;

if (strstr($baseIP, ':') && t3lib_div::validIPv6($baseIP)) {

return t3lib_div::cmpIPv6($baseIP, $list);

* @param string $list is a comma-list of IP-addresses to match with. *-wildcard allowed instead of number, plus leaving out parts in the IP number is accepted as wildcard (eg. 192.168.*.* equals 192.168)

* @return boolean True if an IP-mask from $list matches $baseIP

*/

$IPpartsReq = explode('.',$baseIP);

if (count($IPpartsReq)==4) {

$values = t3lib_div::trimExplode(',',$list,1);

* @param string $list is a comma-list of IPv6 prefixes, could also contain IPv4 addresses

* @return boolean True if an baseIP matches any prefix

*/

$success = false; // Policy default: Deny connection

$baseIP = t3lib_div::normalizeIPv6($baseIP);

* @param [type] $hex: ...

* @return [type] ...

*/

$bin = '';

$hex = str_replace(':', '', $hex); // Replace colon to nothing

for ($i=0; $i<strlen($hex); $i=$i+2) {

* @param string Given IPv6 address

* @return string Normalized address

*/

$normalizedAddress = '';

$stageOneAddress = '';

* @param string IP address to be tested

* @return boolean True if $ip is of IPv6 format.

*/

$uppercaseIP = strtoupper($ip);

$regex = '/^(';

* @param string A comma-list of domain names to match with. *-wildcard allowed but cannot be part of a string, so it must match the full host name (eg. myhost.*.com => correct, myhost.*domain.com => wrong)

* @return boolean True if a domain name mask from $list matches $baseIP

*/

if (count(explode('.',$baseIP))==4) {

$resolvedHostName = explode('.', gethostbyaddr($baseIP));

$values = t3lib_div::trimExplode(',',$list,1);

* @param string item to check for

* @return boolean true if $item is in $list

*/

return strstr(','.$list.',', ','.$item.',') ? true : false;

}

* @param string comma-separated list of items (string)

* @return string new comma-separated list of items

*/

$items = explode(',',$list);

while(list($k,$v)=each($items)) {

if ($v==$element) {unset($items[$k]);}

* @return string new comma-separated list of items

* @author Martin Kutschker <martin.kutschker@activesolution.at>

*/

$items = explode(',',$list);

$list = array();

while(list(,$item)=each($items)) {

* @param integer Default value if input is false.

* @return integer The input value forced into the boundaries of $min and $max

*/

// Returns $theInt as an integer in the integerspace from $min to $max

$theInt = intval($theInt);

if ($zeroValue && !$theInt) {$theInt=$zeroValue;} // If the input value is zero after being converted to integer, zeroValue may set another default value for it.

* @param integer Integer string to process

* @return integer

*/

$theInt = intval($theInt);

if ($theInt<0){$theInt=0;}

return $theInt;

* @param string Version number on format x.x.x

* @return integer Integer version of version number (where each part can count to 999)

*/

$verParts = explode('.',$verNumberStr);

return intval((int)$verParts[0].str_pad((int)$verParts[1],3,'0',STR_PAD_LEFT).str_pad((int)$verParts[2],3,'0',STR_PAD_LEFT));

}

* @return boolean Returns true if this setup is compatible with the provided version number

* @todo Still needs a function to convert versions to branches

*/

global $TYPO3_CONF_VARS;

$currVersionStr = $TYPO3_CONF_VARS['SYS']['compat_version'] ? $TYPO3_CONF_VARS['SYS']['compat_version'] : TYPO3_branch;

* @param string String to md5-hash

* @return integer Returns 28bit integer-hash

*/

return hexdec(substr(md5($str),0,7));

}

* @param integer The string-length of the output

* @return string Substring of the resulting md5-hash, being $len chars long (from beginning)

*/

return substr(md5($input),0,$len);

}

* @param mixed $secondParameter: Dummy field, which if set will show a warning!

* @return string Returns the list without any duplicates of values, space around values are trimmed

*/

if (is_array($in_list)) die('t3lib_div::uniqueList() does NOT support array arguments anymore! Only string comma lists!');

if (isset($secondParameter)) die('t3lib_div::uniqueList() does NOT support more than a single argument value anymore. You have specified more than one.');

* @param string Filename/filepath to be analysed

* @return array Contains keys [path], [file], [filebody], [fileext], [realFileext]

*/

$reg = array();

if ( ereg('(.*/)(.*)$',$fileref,$reg) ) {

$info['path'] = $reg[1];

* @param string Directory name / path

* @return string Processed input value. See function description.

*/

$p=t3lib_div::revExplode('/',$path,2);

return count($p)==2?$p[0]:'';

}

* @return string A hexadecimal color code, #xxxxxx, modified according to input vars

* @see modifyHTMLColorAll()

*/

// This takes a hex-color (# included!) and adds $R, $G and $B to the HTML-color (format: #xxxxxx) and returns the new color

$nR = t3lib_div::intInRange(hexdec(substr($color,1,2))+$R,0,255);

$nG = t3lib_div::intInRange(hexdec(substr($color,3,2))+$G,0,255);

* @return string A hexadecimal color code, #xxxxxx, modified according to input vars

* @see modifyHTMLColor()

*/

return t3lib_div::modifyHTMLColor($color,$all,$all,$all);

}

* @param string String from which the comma in the end (if any) will be removed.

* @return string

*/

return ereg_replace(',$','',$string);

}

* @deprecated Use t3lib_cs::conv_case() instead or for HTML output, wrap your content in <span class="uppercase">...</span>)

* @ignore

*/

$value = strtoupper($string);

return strtr($value, '???????????????', '???????????????');

}

* @deprecated Works only for western europe single-byte charsets! Use t3lib_cs::specCharsToASCII() instead!

* @return string

*/

$pat = array ( '/?/', '/?/', '/?/', '/?/', '/?/', '/?/', '/?/', '/?/', '/?/', '/?/', '/?/', '/?/', '/?/' );

$repl = array ( 'ae', 'Ae', 'oe', 'Oe', 'ue', 'Ue', 'ss', 'aa', 'AA', 'oe', 'OE', 'ae', 'AE' );

return preg_replace($pat,$repl,$str);

* @param mixed Any input variable to test.

* @return boolean Returns true if string is an integer

*/

return !strcmp($var,intval($var));

}

* @param string Reference string which must be found as the "first part" of the full string

* @return boolean True if $partStr was found to be equal to the first part of $str

*/

// Returns true, if the first part of a $str equals $partStr and $partStr is not ''

$psLen = strlen($partStr);

if ($psLen) {

* @param string Labels for bytes, kilo, mega and giga separated by vertical bar (|) and possibly encapsulated in "". Eg: " | K| M| G" (which is the default value)

* @return string Formatted representation of the byte number, for output.

*/

// Set labels:

if (strlen($labels) == 0) {

* @param string Microtime

* @return integer Microtime input string converted to an integer (milliseconds)

*/

$parts = explode(' ',$microtime);

return round(($parts[0]+$parts[1])*1000);

}

* @return array Array with operators and operands separated.

* @see tslib_cObj::calc(), tslib_gifBuilder::calcOffset()

*/

$res = Array();

$sign='+';

while($string) {

* @return integer Calculated value. Or error string.

* @see calcParenthesis()

*/

$string=ereg_replace('[[:space:]]*','',$string); // removing all whitespace

$string='+'.$string; // Ensuring an operator for the first entrance

$qm='\*\/\+-^%';

* @return integer Calculated value. Or error string.

* @see calcPriority(), tslib_cObj::stdWrap()

*/

$securC=100;

do {

$valueLenO=strcspn($string,'(');

* @param string Value where &gt;, &lt;, &quot; and &amp; should be converted to regular chars.

* @return string Converted result.

*/

$value = str_replace('&gt;','>',$value);

$value = str_replace('&lt;','<',$value);

$value = str_replace('&quot;','"',$value);

* @param string String which contains eg. "&amp;amp;" which should stay "&amp;". Or "&amp;#1234;" to "&#1234;". Or "&amp;#x1b;" to "&#x1b;"

* @return string Converted result.

*/

return ereg_replace('&amp;([#[:alnum:]]*;)','&\1',$str);

}

* @param string The character to escape, default is ' (single-quote)

* @return string Processed input string

*/

if ($extended) {$string = str_replace ("\\", "\\\\", $string);}

return str_replace ($char, "\\".$char, $string);

}

* @param string String to raw-url-encode with spaces preserved

* @return string Rawurlencoded result of input string, but with all %20 (space chars) converted to real spaces.

*/

return str_replace('%20',' ',rawurlencode($str));

}

* @param string Input string

* @return string Output string

*/

return str_replace('%2F','/',rawurlencode($str));

}

* @param string Input string to evaluate

* @return boolean Returns true if the $email address (input string) is valid; Has a "@", domain name with at least one period and only allowed a-z characters.

*/

$email = trim ($email);

if (strstr($email,' ')) return FALSE;

return ereg('^[A-Za-z0-9\._-]+[@][A-Za-z0-9\._-]+[\.].[A-Za-z0-9]+$',$email) ? TRUE : FALSE;

* @param string Input string to be formatted.

* @return string Formatted for <textarea>-tags

*/

return chr(10).htmlspecialchars($content);

}

* @return boolean true if $item is in the one-dimensional array $in_array

* @internal

*/

}

}

* @param string The string to explode

* @return array Exploded values, all converted to integers

*/

$temp = explode($delim,$string);

while(list($key,$val)=each($temp)) {

$temp[$key]=intval($val);

* @param integer Number of array entries

* @return array Exploded values

*/

$temp = explode($delim,strrev($string),$count);

while(list($key,$val)=each($temp)) {

$temp[$key]=strrev($val);

}

reset($temp);

return $temp;

}

* @param boolean If set, all empty values (='') will NOT be set in output

* @return array Exploded values

*/

$array = explode($delim, $string);

// for two perfomance reasons the loop is duplicated

// a) avoid check for $onlyNonEmptyValues in foreach loop

* @ignore

* @deprecated Use the PHP function array_unique instead

*/

return array_unique($valueArray);

}

* @param string Value to search for and if found remove array entry where found.

* @return array Output array with entries removed if search string is found

*/

}

}

}

* @return string Imploded result, fx. &param[key][key2]=value2&param[key][key3]=value3

* @see explodeUrl2Array()

*/

}

}

}

* @return array Array of values. All values AND keys are rawurldecoded() as they properly should be. But this means that any implosion of the array again must rawurlencode it!

* @see implodeArrayForUrl()

*/

$output = array();

if ($multidim) {

parse_str($string,$output);

* @param boolean If set, then t3lib_div::_GP() is used to fetch the value if not found (isset) in the $getArray

* @return array Output array with selected variables.

*/

$keys = t3lib_div::trimExplode(',',$varList,1);

foreach($keys as $v) {

if (isset($getArray[$v])) {

} elseif ($GPvarAlt) {

}

}

return $outArr;

* @param array Multidimensional input array, (REFERENCE!)

* @return array

*/

}

}

}

/**

* @param array Multidimensional input array, (REFERENCE!)

* @return array

*/

}

}

}

/**

* @param string "add" or "strip", depending on usage you wish.

* @return array

*/

if ($cmd=='strip') t3lib_div::stripSlashesOnArray($arr);

if ($cmd=='add') t3lib_div::addSlashesOnArray($arr);

return $arr;

* @param boolean If set, values from $arr1 will overrule if they are empty or zero. Default: true

* @return array Resulting array where $arr1 values has overruled $arr0 values

*/

reset($arr1);

while(list($key,$val) = each($arr1)) {

if(is_array($arr0[$key])) {

* @param array Second array

* @return array Merged result.

*/

return $arr2+$arr1;

}

* @param string Quote-character to wrap around the values.

* @return string A single line of CSV

*/

reset($row);

$out=array();

foreach ($row as $value) {

* @param array $jsonArray: The array to be transformed to JSON

* @return string JSON string

*/

if (!$GLOBALS['JSON']) {

require_once(PATH_typo3.'contrib/json/json.php');

$GLOBALS['JSON'] = t3lib_div::makeInstance('Services_JSON');

* @param array $ts: TypoScript configuration array

* @return array TypoScript configuration array without dots at the end of all keys

*/

$out = array();

if (is_array($ts)) {

foreach ($ts as $key => $value) {

* @param string HTML-tag string (or attributes only)

* @return array Array with the attribute values.

*/

$components = t3lib_div::split_tag_attributes($tag);

$name = ''; // attribute name is stored here

$valuemode = '';

* @return array Array with the attribute values.

* @internal

*/

$tag_tmp = trim(eregi_replace ('^<[^[:space:]]*','',trim($tag)));

// Removes any > in the end of the string

$tag_tmp = trim(eregi_replace ('>$','',$tag_tmp));

* @param boolean If true, don't check if values are blank. Default is to omit attributes with blank values.

* @return string Imploded attributes, eg. 'bgcolor="red" border="0"'

*/

foreach($arr as $p => $v) {

}

}

}

/**

* @deprecated Name was changed into implodeAttributes

* @see implodeAttributes()

*/

return t3lib_div::implodeAttributes($arr,$xhtmlSafe,$dontOmitBlankAttribs);

}

* @author Ingmar Schlecht <ingmars@web.de>

* @author Ren? Fritz <r.fritz@colorcube.de>

*/

if(trim($string)) {

// <script wrapped in nl?

$cr = $linebreak? "\n" : '';

* @return mixed The array with the parsed structure unless the XML parser returns with an error in which case the error message string is returned.

* @author bisqwit at iki dot fi dot not dot for dot ads dot invalid / http://dk.php.net/xml_parse_into_struct + kasperYYYY@typo3.com

*/

$parser = xml_parser_create();

$vals = array();

$index = array();

* @return string An XML string made from the input content in the array.

* @see xml2array(),array2xml()

*/

// Figure out charset if not given explicitly:

if (!$charset) {

* @return string An XML string made from the input content in the array.

* @see xml2array()

*/

// The list of byte values which will trigger binary-safe storage. If any value has one of these char values in it, it will be encoded in base64

$binaryChars = chr(0).chr(1).chr(2).chr(3).chr(4).chr(5).chr(6).chr(7).chr(8).

chr(11).chr(12).chr(14).chr(15).chr(16).chr(17).chr(18).chr(19).

$output='';

// Traverse the input array

}

}

}

}

}

}

if (!$level) {

$output =

'<'.$docTag.'>'.$nl.

* @return mixed If the parsing had errors, a string with the error message is returned. Otherwise an array with the content.

* @see array2xml()

*/

global $TYPO3_CONF_VARS;

// Create parser:

// Init vars:

$stack = array(array());

$stacktop = 0;

$tagName = '';

$documentTag = '';

* @param array A array of XML parts, see xml2tree

* @return string Re-compiled XML data.

*/

$XMLcontent='';

foreach($vals as $val) {

* @param string XML data

* @return string Encoding scheme (lowercase), if found.

*/

$xmlHeader = substr(trim($xmlData),0,200);

$reg=array();

if (eregi('^<\?xml([^>]*)\?\>',$xmlHeader,$reg)) {

* @param string $error Error message (if any)

* @return string Minified script or source string if error happened

*/

require_once(PATH_typo3 . 'contrib/jsmin/jsmin.php');

try {

$error = '';

* @param array HTTP headers to be used in the request

* @return string The content from the resource given as input.

*/

$content = false;

// (Proxy support implemented by Arco <arco@appeltaart.mine.nu>)

* @param string Content to write

* @return boolean True if the file was successfully opened and written to.

*/

if (!@is_file($file)) $changePermissions = true;

if ($fd = fopen($file,'wb')) {

* @param string Filepath of newly created file

* @return void

*/

if (@is_file($file) && TYPO3_OS!='WIN') {

@chmod($file, octdec($GLOBALS['TYPO3_CONF_VARS']['BE']['fileCreateMask'])); // "@" is there because file is not necessarily OWNED by the user

if($GLOBALS['TYPO3_CONF_VARS']['BE']['createGroup']) { // skip this if createGroup is empty

* @param string Content string to write

* @return string Returns false on success, otherwise an error string telling about the problem.

*/

// Parse filepath into directory and basename:

$fI = pathinfo($filepath);

* @param string Absolute path to folder, see PHP mkdir() function. Removes trailing slash internally.

* @return boolean TRUE if @mkdir went well!

*/

$theNewFolder = preg_replace('|/$|','',$theNewFolder);

if (mkdir($theNewFolder, octdec($GLOBALS['TYPO3_CONF_VARS']['BE']['folderCreateMask']))){

chmod($theNewFolder, octdec($GLOBALS['TYPO3_CONF_VARS']['BE']['folderCreateMask'])); //added this line, because the mode at 'mkdir' has a strange behaviour sometimes

* @param string Deep directory to create, eg. "xx/yy/" which creates "/root/typo3site/xx/yy/" if $destination is "/root/typo3site/"

* @return string If error, returns error string.

*/

$allParts = t3lib_div::trimExplode('/',$deepDir,1);

$root = '';

foreach($allParts as $part) {

* @param boolean Allow deletion of non-empty directories

* @return boolean true if @rmdir went well!

*/

$OK = false;

$path = preg_replace('|/$|','',$path); // Remove trailing slash

* @param string Path to list directories from

* @return array Returns an array with the directory entries as values. If no path, the return value is nothing.

*/

if ($path) {

$d = @dir($path);

if (is_object($d)) {

* @param string A comma seperated list of filenames to exclude, no wildcards

* @return array Array of the files found

*/

// Initialize variabels:

$filearray = array();

* @param string $excludePattern: regex pattern of files/directories to exclude

* @return array An array with the found files/directories.

*/

if ($regDirs) $fileArr[] = $path;

$fileArr = array_merge($fileArr, t3lib_div::getFilesInDir($path,$extList,1,1,$excludePattern));

* @param string $prefixToRemove: The prefix path to remove (if found as first part of string!)

* @return array The input $fileArr processed.

*/

foreach($fileArr as $k => $absFileRef) {

if(t3lib_div::isFirstPartOfStr($absFileRef,$prefixToRemove)) {

$fileArr[$k] = substr($absFileRef,strlen($prefixToRemove));

* @param string File path to process

* @return string

*/

return str_replace('//','/', str_replace('\\','/', $theFile));

}

* @param string File path in which "/../" is resolved

* @return string

*/

$parts = explode('/',$pathStr);

$output=array();

$c = 0;

* @param string URL / path to prepend full URL addressing to.

* @return string

*/

$uI = parse_url($path);

if (substr($path,0,1)=='/') { // relative to HOST

$path = t3lib_div::getIndpEnv('TYPO3_REQUEST_HOST').$path;

* @return string The string with ASCII values in separated by a space char.

* @internal

*/

if(strlen($string) < $characters) $characters = strlen($string);

for ($i=0; $i<$characters; $i++) {

$valuestring.=' '.ord(substr($string,$i,1));

* Returns false if $array_in is not an array

* Usage: 31

*

* @return string HTML output

*/

if (is_array($array_in)) {

$result='

<table border="1" cellpadding="1" cellspacing="0" bgcolor="white">';

* Prints an array

* Usage: 6

*

* @return void

* @internal

* @see view_array()

*/

echo t3lib_div::view_array($array_in);

}

* @param mixed If the parameter is a string it will be used as header. Otherwise number of break tags to apply after (positive integer) or before (negative integer) the output.

* @return void

*/

// buffer the output of debug if no buffering started before

if (ob_get_level()==0) {

ob_start();

*

* @return string

*/

$trail = debug_backtrace();

$trail = array_reverse($trail);

array_pop($trail);

/**

* Displays an array as rows in a table. Useful to debug output like an array of database records.

*

* @param string Table header

* @param boolean If TRUE, will return content instead of echo'ing out.

* @return void Outputs to browser.

*/

if (is_array($rows)) {

reset($rows);

$firstEl = current($rows);

</table>';

if ($returnHTML) return $table; else echo $table;

} else debug('Empty array of rows',$header);

}

*

* @return string

*/

$p=parse_url(t3lib_div::getIndpEnv('TYPO3_REQUEST_SCRIPT')); // Url of this script

$dir=t3lib_div::dirname($p['path']).'/'; // Strip file

$url = str_replace('//','/',$p['host'].($p['port']?':'.$p['port']:'').$dir);

* @param array Array of GET parameters to include

* @return string

*/

$parts = t3lib_div::getIndpEnv('SCRIPT_NAME');

$params = t3lib_div::_GET();

* @param array Array of key/value pairs for get parameters to add/overrule with. Can be multidimensional.

* @return string Output URL with added getParams.

*/

$parts = parse_url($url);

$getP = array();

if ($parts['query']) {

* @param string Name of the "environment variable"/"server variable" you wish to use. Valid values are SCRIPT_NAME, SCRIPT_FILENAME, REQUEST_URI, PATH_INFO, REMOTE_ADDR, REMOTE_HOST, HTTP_REFERER, HTTP_HOST, HTTP_USER_AGENT, HTTP_ACCEPT_LANGUAGE, QUERY_STRING, TYPO3_DOCUMENT_ROOT, TYPO3_HOST_ONLY, TYPO3_HOST_ONLY, TYPO3_REQUEST_HOST, TYPO3_REQUEST_URL, TYPO3_REQUEST_SCRIPT, TYPO3_REQUEST_DIR, TYPO3_SITE_URL, _ARRAY

* @return string Value based on the input key, independent of server/os environment.

*/

/*

Conventions:

output from parse_url():

*

* @return integer

*/

$p=explode(' ',microtime());

return round(($p[0]+$p[1])*1000);

}

* @param string Alternative User Agent string (if empty, t3lib_div::getIndpEnv('HTTP_USER_AGENT') is used)

* @return array Parsed information about the HTTP_USER_AGENT in categories BROWSER, VERSION, SYSTEM and FORMSTYLE

*/

if (!$useragent) $useragent=t3lib_div::getIndpEnv('HTTP_USER_AGENT');

$bInfo=array();

* @param boolean Use request host (when not in CLI mode).

* @return string The fully-qualified host name.

*/

$host = '';

if ($requestHost && (!defined('TYPO3_cliMode') || !TYPO3_cliMode)) {

$host = t3lib_div::getIndpEnv('HTTP_HOST');

* @param boolean If $relToTYPO3_mainDir is set, then relative paths are relative to PATH_typo3 constant - otherwise (default) they are relative to PATH_site

* @return string Returns the absolute filename of $filename IF valid, otherwise blank string.

*/

if (!strcmp($filename,'')) return '';

if ($relToTYPO3_mainDir) {

* @return boolean True, if no '//', '\', '/../' is in the $theFile and $theFile doesn't begin with '../'

* @todo Possible improvement: Should it rawurldecode the string first to check if any of these characters is encoded ?

*/

if (!strstr($theFile,'//') && !strstr($theFile,'\\') && !preg_match('#(?:^\.\.|/\.\./)#',$theFile)) return true;

}

* @param string Filepath to evaluate

* @return boolean

*/

return TYPO3_OS=='WIN' ? substr($path,1,2)==':/' : substr($path,0,1)=='/';

}

* @param string Filepath to evaluate

* @return boolean

*/

if (t3lib_div::isAbsPath($path) &&

t3lib_div::validPathStr($path) &&

( t3lib_div::isFirstPartOfStr($path,PATH_site)

* @param string Filepath to evaluate

* @return boolean

*/

if (strcmp($filename,'') && strcmp($GLOBALS['TYPO3_CONF_VARS']['BE']['fileDenyPattern'],'')) {

$result = eregi($GLOBALS['TYPO3_CONF_VARS']['BE']['fileDenyPattern'],$filename);

if ($result) return false; // so if a matching filename is found, return false;

* @coauthor Dennis Petersen <fessor@software.dk>

* @see upload_to_tempfile()

*/

if (is_uploaded_file($source)) {

$uploaded = TRUE;

// Return the value of move_uploaded_file, and if false the temporary $source is still around so the user can use unlink to delete it:

* @return string If a new file was successfully created, return its filename, otherwise blank string.

* @see unlink_tempfile(), upload_copy_move()

*/

if (is_uploaded_file($uploadedFileName)) {

$tempFile = t3lib_div::tempnam('upload_temp_');

move_uploaded_file($uploadedFileName, $tempFile);

* @return boolean Returns true if the file was unlink()'ed

* @see upload_to_tempfile(), tempnam()

*/

if ($uploadedTempFileName && t3lib_div::validPathStr($uploadedTempFileName) && t3lib_div::isFirstPartOfStr($uploadedTempFileName,PATH_site.'typo3temp/') && @is_file($uploadedTempFileName)) {

if (unlink($uploadedTempFileName)) return TRUE;

}

* @return string result from PHP function tempnam() with PATH_site.'typo3temp/' set for temp path.

* @see unlink_tempfile(), upload_to_tempfile()

*/

return tempnam(PATH_site.'typo3temp/',$filePrefix);

}

* @return string MD5 hash of 8 chars.

* @internal

*/

if (is_array($uid_or_record)) {

$recCopy_temp=array();

* @return array Array with key/value pairs of query-parameters WITHOUT a certain list of variable names (like id, type, no_cache etc.) and WITH a variable, encryptionKey, specific for this server/installation

* @see tslib_fe::makeCacheHash(), tslib_cObj::typoLink()

*/

$params = explode('&',substr($addQueryParams,1)); // Splitting parameters up

// Make array:

* @param integer Value from "l18n_cfg" field of a page record

* @return boolean True if the page should be hidden

*/

if ($GLOBALS['TYPO3_CONF_VARS']['FE']['hidePagesIfNotTranslatedByDefault']) {

return $l18n_cfg_fieldValue&2 ? FALSE : TRUE;

} else {

* @param string Language key

* @return array Value of $LOCAL_LANG found in the included file. If that array is found it's returned. Otherwise an empty array

*/

$file = t3lib_div::getFileAbsFileName($fileRef);

if ($file) {

* @param string TYPO3 language key, eg. "dk" or "de" or "default"

* @return array LOCAL_LANG array in return.

*/

if (is_object($GLOBALS['LANG'])) {

$csConvObj = &$GLOBALS['LANG']->csConvObj;

* @param string Language key

* @return string Returns the filename reference for the language unless error occured (or local mode is used) in which case it will be NULL

*/

// Analyse file reference:

$location = 'typo3conf/l10n/'.$language.'/'; // Default location of translations

if (t3lib_div::isFirstPartOfStr($fileRef,PATH_typo3.'sysext/')) { // Is system:

* @param string Table name for which to load the full TCA array part into the global $TCA

* @return void

*/

global $TCA;

if (isset($TCA[$table])) {

* @param string The sheet to return, preferably.

* @return array An array with two num. keys: key0: The data structure is returned in this key (array) UNLESS an error happend in which case an error string is returned (string). key1: The used sheet key value!

*/

if (!is_array ($dataStructArray)) return 'Data structure must be an array';

if (is_array($dataStructArray['sheets'])) {

* @param array Input data structure, possibly with a sheet-definition and references to external data source files.

* @return array Output data structure with all sheets resolved as arrays.

*/

if (is_array($dataStructArray['sheets'])) {

$out=array('sheets'=>array());

foreach($dataStructArray['sheets'] as $sheetId => $sDat) {

* @return mixed Content from method/function call or false if the class/method/function was not found

* @see getUserObj()

*/

global $TYPO3_CONF_VARS;

$content = false;

* @return object The instance of the class asked for. Instance is created with t3lib_div::makeInstance

* @see callUserFunction()

*/

global $TYPO3_CONF_VARS;

// Check persistent object and if found, call directly and exit.

if (is_object($GLOBALS['T3_VAR']['getUserObj'][$classRef])) {

* @param string Class name to instantiate

* @return object A reference to the object

*/

// Load class file if not found:

if (!class_exists($className)) {

* @param string Base Class name to evaluate