TYPO3 Core

* Copyright notice

*

* (c) 1999-2010 Kasper Sk?rh?j (kasperYYYY@typo3.com)

* All rights reserved

*

* This script is part of the TYPO3 project. The TYPO3 project 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.

*

* The GNU General Public License can be found at

* http://www.gnu.org/copyleft/gpl.html.

* A copy is found in the textfile GPL.txt and important notices to the license

* from the author is found in LICENSE.txt distributed with these scripts.

*

*

* This script 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.

*

* This copyright notice MUST APPEAR in all copies of the script!

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

* 123: function getSubpart($content, $marker)

* 156: function substituteSubpart($content,$marker,$subpartContent,$recursive=1,$keepMarker=0)

* SECTION: Parsing HTML code

* 247: function splitIntoBlock($tag,$content,$eliminateExtraEndTags=0)

* 308: function splitIntoBlockRecursiveProc($tag,$content,&$procObj,$callBackContent,$callBackTags,$level=0)

* 344: function splitTags($tag,$content)

* 378: function getAllParts($parts,$tag_parts=1,$include_tag=1)

* 396: function removeFirstAndLastTag($str)

* 412: function getFirstTag($str)

* 426: function getFirstTagName($str,$preserveCase=FALSE)

* 445: function get_tag_attributes($tag,$deHSC=0)

* 486: function split_tag_attributes($tag)

* 524: function checkTagTypeCounts($content,$blockTags='a,b,blockquote,body,div,em,font,form,h1,h2,h3,h4,h5,h6,i,li,map,ol,option,p,pre,select,span,strong,table,td,textarea,tr,u,ul', $soloTags='br,hr,img,input,area')

* SECTION: Clean HTML code

* 617: function HTMLcleaner($content, $tags=array(),$keepAll=0,$hSC=0,$addConfig=array())

* 814: function bidir_htmlspecialchars($value,$dir)

* 837: function prefixResourcePath($main_prefix,$content,$alternatives=array(),$suffix='')

* 919: function prefixRelPath($prefix,$srcVal,$suffix='')

* 937: function cleanFontTags($value,$keepFace=0,$keepSize=0,$keepColor=0)

* 967: function mapTags($value,$tags=array(),$ltChar='<',$ltChar2='<')

* 982: function unprotectTags($content,$tagList='')

* 1015: function stripTagsExcept($value,$tagList)

* 1038: function caseShift($str,$flag,$cacheKey='')

* 1065: function compileTagAttribs($tagAttrib,$meta=array(), $xhtmlClean=0)

* 1093: function get_tag_attributes_classic($tag,$deHSC=0)

* 1106: function indentLines($content, $number=1, $indentChar=TAB)

* 1123: function HTMLparserConfig($TSconfig,$keepTags=array())

* 1247: function XHTML_clean($content)

* 1269: function processTag($value,$conf,$endTag,$protected=0)

* 1315: function processContent($value,$dir,$conf)

class t3lib_parsehtml {

if ($start === false) {

$stop = strpos($content, $marker, $start);

if ($stop===false) {

$content = substr($content, $start, $stop-$start);

if ($start === false) {

$stop = strpos($content, $marker, $startAM);

if ($stop===false) {

$stopAM = $stop + strlen($marker);

$before = substr($content, 0, $start);

$after = substr($content, $stopAM);

$between = substr($content, $startAM, $stop-$startAM);

$before .= $marker.$matches[1];

$between = $matches[2];

$after = $matches[3] . $marker . $after;

$before .= $marker;

$between = $matches[1];

$after = $matches[2] . $marker . $after;

$before .= $marker . $matches[1];

$between = $matches[2];

$after = $marker . $after;

} else {

$after = $marker . $after;

} elseif (preg_match('/^(.*)(\<\!\-\-[^\>]*)$/s', $between, $matches)===1) {

} elseif (preg_match('/^([^\<]*\-\-\>)(.*)$/s', $between, $matches)===1) {

} else {

function splitIntoBlock($tag,$content,$eliminateExtraEndTags=0) {

$tags=array_unique(t3lib_div::trimExplode(',',$tag,1));

$regexStr = '/\<\/?('.implode('|', $tags).')(\s*\>|\s[^\>]*\>)/si';

$newParts=array();

$pointer=strlen($parts[0]);

$buffer=$parts[0];

$nested=0;

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

$isEndTag= substr($content,$pointer,2)=='</' ? 1 : 0;

$tagLen = strcspn(substr($content,$pointer),'>')+1;

if (!$isEndTag) { // We meet a start-tag:

if (!$nested) { // Ground level:

$newParts[]=$buffer; // previous buffer stored

$buffer='';

$nested++; // We are inside now!

$mbuffer=substr($content,$pointer,strlen($v)+$tagLen); // New buffer set and pointer increased

$pointer+=strlen($mbuffer);

$buffer.=$mbuffer;

} else { // If we meet an endtag:

$nested--; // decrease nested-level

$eliminated=0;

if ($eliminateExtraEndTags && $nested<0) {

$nested=0;

$eliminated=1;

$buffer.=substr($content,$pointer,$tagLen); // In any case, add the endtag to current buffer and increase pointer

$pointer+=$tagLen;

if (!$nested && !$eliminated) { // if we're back on ground level, (and not by eliminating tags...

$newParts[]=$buffer;

$buffer='';

$mbuffer=substr($content,$pointer,strlen($v)); // New buffer set and pointer increased

$pointer+=strlen($mbuffer);

$buffer.=$mbuffer;

$newParts[]=$buffer;

function splitIntoBlockRecursiveProc($tag,$content,&$procObj,$callBackContent,$callBackTags,$level=0) {

$parts = $this->splitIntoBlock($tag,$content,TRUE);

foreach($parts as $k => $v) {

if ($k%2) {

$tagsArray['tag_end'] = '</'.$firstTagName.'>';

$tagsArray['content'] = $this->splitIntoBlockRecursiveProc($tag,$this->removeFirstAndLastTag($v),$procObj,$callBackContent,$callBackTags,$level+$tagsArray['add_level']);

if ($callBackTags) $tagsArray = $procObj->$callBackTags($tagsArray,$level);

$tagsArray['tag_start'].

$tagsArray['content'].

$tagsArray['tag_end'];

if ($callBackContent) $parts[$k] = $procObj->$callBackContent($parts[$k],$level);

}

}

return implode('',$parts);

function splitTags($tag,$content) {

$tags = t3lib_div::trimExplode(',',$tag,1);

$regexStr = '/\<('.implode('|', $tags).')(\s[^>]*)?\/?>/si';

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

$tagLen = strcspn(substr($content,$pointer),'>')+1;

$tag = substr($content,$pointer,$tagLen); // New buffer set and pointer increased

$pointer+= strlen($tag);

$pointer+= strlen($v);

function getAllParts($parts,$tag_parts=1,$include_tag=1) {

$newParts=array();

foreach ($parts as $k => $v) {

if (($k+($tag_parts?0:1))%2) {

if (!$include_tag) $v=$this->removeFirstAndLastTag($v);

$newParts[]=$v;

function removeFirstAndLastTag($str) {

$start = strpos($str,'>');

$end = strrpos($str,'<');

return substr($str, $start+1, $end-$start-1);

function getFirstTag($str) {

$endLen = strpos($str,'>')+1;

return substr($str,0,$endLen);

function getFirstTagName($str,$preserveCase=FALSE) {

if (preg_match('/^\s*\<([^\s\>]+)(\s|\>)/', $str, $matches)===1) {

if (!$preserveCase) {

function get_tag_attributes($tag,$deHSC=0) {

list($components,$metaC) = $this->split_tag_attributes($tag);

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

$valuemode = false;

if (is_array($components)) {

foreach ($components as $key => $val) {

if ($val != '=') { // Only if $name is set (if there is an attribute, that waits for a value), that valuemode is enabled. This ensures that the attribute is assigned it's value

if ($valuemode) {

if ($name) {

$attributes[$name] = $deHSC?t3lib_div::htmlspecialchars_decode($val):$val;

$attributesMeta[$name]['dashType']=$metaC[$key];

if ($namekey = preg_replace('/[^[:alnum:]_\:\-]/','',$val)) {

$attributesMeta[$name]=array();

$attributesMeta[$name]['origTag']=$namekey;

$valuemode = false;

$valuemode = true;

return array($attributes,$attributesMeta);

function split_tag_attributes($tag) {

if (preg_match('/(\<[^\s]+\s+)?(.*?)\s*(\>)?$/s', $tag, $matches)!==1) {

if (preg_match_all('/("[^"]*"|\'[^\']*\'|[^\s"\'\=]+|\=)/s', $tag_tmp, $matches)>0) {

foreach ($matches[1] as $part) {

if ($firstChar=='"' || $firstChar=="'") {

} else {

return array($value,$metaValue);

function checkTagTypeCounts($content,$blockTags='a,b,blockquote,body,div,em,font,form,h1,h2,h3,h4,h5,h6,i,li,map,ol,option,p,pre,select,span,strong,table,td,textarea,tr,u,ul', $soloTags='br,hr,img,input,area') {

$analyzedOutput=array();

$analyzedOutput['counts']=array(); // Counts appearances of start-tags

$analyzedOutput['errors']=array(); // Lists ERRORS

$analyzedOutput['warnings']=array(); // Lists warnings.

$analyzedOutput['blocks']=array(); // Lists stats for block-tags

$analyzedOutput['solo']=array(); // Lists stats for solo-tags

$blockTags = explode(',',$blockTags);

foreach($blockTags as $tagName) {

$countBegin = count(preg_split('/\<'.$tagName.'(\s|\>)/s',$content))-1;

$countEnd = count(preg_split('/\<\/'.$tagName.'(\s|\>)/s',$content))-1;

$analyzedOutput['blocks'][$tagName]=array($countBegin,$countEnd,$countBegin-$countEnd);

if ($countBegin) $analyzedOutput['counts'][$tagName]=$countBegin;

if ($countBegin-$countEnd) {

if ($countBegin-$countEnd > 0) {

$analyzedOutput['errors'][$tagName]='There were more start-tags ('.$countBegin.') than end-tags ('.$countEnd.') for the element "'.$tagName.'". There should be an equal amount!';

$analyzedOutput['warnings'][$tagName]='There were more end-tags ('.$countEnd.') than start-tags ('.$countBegin.') for the element "'.$tagName.'". There should be an equal amount! However the problem is not fatal.';

$soloTags = explode(',',$soloTags);

foreach($soloTags as $tagName) {

$countBegin = count(preg_split('/\<'.$tagName.'(\s|\>)/s',$content))-1;

$countEnd = count(preg_split('/\<\/'.$tagName.'(\s|\>)/s',$content))-1;

$analyzedOutput['solo'][$tagName]=array($countBegin,$countEnd);

if ($countBegin) $analyzedOutput['counts'][$tagName]=$countBegin;

if ($countEnd) {

$analyzedOutput['warnings'][$tagName]='There were end-tags found ('.$countEnd.') for the element "'.$tagName.'". This was not expected (although XHTML technically allows it).';

* $tags[$tagname] = Array(

* 'overrideAttribs' => '' If set, this string is preset as the attributes of the tag

* 'allowedAttribs' => '0' (zero) = no attributes allowed, '[commalist of attributes]' = only allowed attributes. If blank, all attributes are allowed.

* 'fixAttrib' => Array(

* '[attribute name]' => Array (

* 'set' => Force the attribute value to this value.

* 'unset' => Boolean: If set, the attribute is unset.

* 'default' => If no attribute exists by this name, this value is set as default value (if this value is not blank)

* 'always' => Boolean. If set, the attribute is always processed. Normally an attribute is processed only if it exists

* 'trim,intval,lower,upper' => All booleans. If any of these keys are set, the value is passed through the respective PHP-functions.

* 'range' => Array ('[low limit]','[high limit, optional]') Setting integer range.

* 'list' => Array ('[value1/default]','[value2]','[value3]') Attribute must be in this list. If not, the value is set to the first element.

* 'removeIfFalse' => Boolean/'blank'. If set, then the attribute is removed if it is 'false'. If this value is set to 'blank' then the value must be a blank string (that means a 'zero' value will not be removed)

* 'removeIfEquals' => [value] If the attribute value matches the value set here, then it is removed.

* 'casesensitiveComp' => 1 If set, then the removeIfEquals and list comparisons will be case sensitive. Otherwise not.

* )

* ),

* 'protect' => '', Boolean. If set, the tag <> is converted to &lt; and &gt;

* 'remap' => '', String. If set, the tagname is remapped to this tagname

* 'rmTagIfNoAttrib' => '', Boolean. If set, then the tag is removed if no attributes happend to be there.

* 'nesting' => '', Boolean/'global'. If set true, then this tag must have starting and ending tags in the correct order. Any tags not in this order will be discarded. Thus '</B><B><I></B></I></B>' will be converted to '<B><I></B></I>'. Is the value 'global' then true nesting in relation to other tags marked for 'global' nesting control is preserved. This means that if <B> and <I> are set for global nesting then this string '</B><B><I></B></I></B>' is converted to '<B></B>'

* )

function HTMLcleaner($content, $tags=array(),$keepAll=0,$hSC=0,$addConfig=array()) {

$tokArr = explode('<',$content);

$newContent[] = $this->processContent(current($tokArr),$hSC,$addConfig);

$inComment = false; $skipTag = false;

while(list(,$tok)=each($tokArr)) {

if (($eocPos = strpos($tok, '-->')) === false) {

// End of comment is not found in the token. Go futher until end of comment is found in other tokens.

// Comment ends in the middle of the token: add comment and proceed with rest of the token

$inComment = false; $skipTag = true;

if (($eocPos = strpos($tok, '-->')) === false) {

// Comment started in this token but it does end in the same token. Set a flag to skip till the end of comment

$inComment = true;

// Start and end of comment are both in the current token. Add comment and proceed with rest of the token

$skipTag = true;

$firstChar = substr($tok,0,1);

if (!$skipTag && preg_match('/[[:alnum:]\/]/',$firstChar)==1) { // It is a tag... (first char is a-z0-9 or /) (fixed 19/01 2004). This also avoids triggering on <?xml..> and <!DOCTYPE..>

$tagEnd = strpos($tok,'>');

if ($tagEnd) { // If there is and end-bracket... tagEnd can't be 0 as the first character can't be a >

$endTag = $firstChar=='/' ? 1 : 0;

$tagContent = substr($tok,$endTag,$tagEnd-$endTag);

$tagParts = preg_split('/\s+/s',$tagContent,2);

if (isset($tags[$tagName])) {

if (is_array($tags[$tagName])) { // If there is processing to do for the tag:

if (!$endTag) { // If NOT an endtag, do attribute processing (added dec. 2003)

if (strcmp($tags[$tagName]['overrideAttribs'],'')) {

$tagParts[1]=$tags[$tagName]['overrideAttribs'];

if (strcmp($tags[$tagName]['allowedAttribs'],'')) {

if (!strcmp($tags[$tagName]['allowedAttribs'],'0')) { // No attribs allowed

$tagParts[1]='';

$tagParts[1]='';

if (!($tList = $tags[$tagName]['_allowedAttribs'])) {

$tList = $tags[$tagName]['_allowedAttribs'] = t3lib_div::trimExplode(',',strtolower($tags[$tagName]['allowedAttribs']),1);

foreach ($tList as $allowTag) {

if (isset($tagAttrib[0][$allowTag])) $newTagAttrib[$allowTag]=$tagAttrib[0][$allowTag];

}

$tagParts[1]=$this->compileTagAttribs($newTagAttrib,$tagAttrib[1]);

if (is_array($tags[$tagName]['fixAttrib'])) {

$tagParts[1]='';

if (strlen($params['set'])) $tagAttrib[0][$attr] = $params['set'];

if (strlen($params['unset'])) unset($tagAttrib[0][$attr]);

if (strcmp($params['default'],'') && !isset($tagAttrib[0][$attr])) $tagAttrib[0][$attr]=$params['default'];

if ($params['always'] || isset($tagAttrib[0][$attr])) {

if ($params['trim']) {$tagAttrib[0][$attr]=trim($tagAttrib[0][$attr]);}

if ($params['intval']) {$tagAttrib[0][$attr]=intval($tagAttrib[0][$attr]);}

if ($params['lower']) {$tagAttrib[0][$attr]=strtolower($tagAttrib[0][$attr]);}

if ($params['upper']) {$tagAttrib[0][$attr]=strtoupper($tagAttrib[0][$attr]);}

if ($params['range']) {

if (isset($params['range'][1])) {

$tagAttrib[0][$attr]=t3lib_div::intInRange($tagAttrib[0][$attr],intval($params['range'][0]),intval($params['range'][1]));

$tagAttrib[0][$attr]=t3lib_div::intInRange($tagAttrib[0][$attr],intval($params['range'][0]));

if (!in_array($this->caseShift($tagAttrib[0][$attr],$params['casesensitiveComp']),$this->caseShift($params['list'],$params['casesensitiveComp'],$tagName))) {

$tagAttrib[0][$attr]=$params['list'][0];

if (($params['removeIfFalse'] && $params['removeIfFalse']!='blank' && !$tagAttrib[0][$attr]) || ($params['removeIfFalse']=='blank' && !strcmp($tagAttrib[0][$attr],''))) {

if (strcmp($params['removeIfEquals'],'') && !strcmp($this->caseShift($tagAttrib[0][$attr],$params['casesensitiveComp']),$this->caseShift($params['removeIfEquals'],$params['casesensitiveComp']))) {

if ($params['prefixLocalAnchors']) {

if (substr($tagAttrib[0][$attr],0,1)=='#') {

$tagAttrib[0][$attr] = $prefix.$tagAttrib[0][$attr];

if ($params['prefixLocalAnchors']==2 && t3lib_div::isFirstPartOfStr($prefix,t3lib_div::getIndpEnv('TYPO3_SITE_URL'))) {

$tagAttrib[0][$attr] = substr($tagAttrib[0][$attr],strlen(t3lib_div::getIndpEnv('TYPO3_SITE_URL')));

if ($params['prefixRelPathWith']) {

if (!$urlParts['scheme'] && substr($urlParts['path'],0,1)!='/') { // If it is NOT an absolute URL (by http: or starting "/")

$tagAttrib[0][$attr] = $params['prefixRelPathWith'].$tagAttrib[0][$attr];

if ($params['userFunc']) {

$tagAttrib[0][$attr] = t3lib_div::callUserFunction($params['userFunc'],$tagAttrib[0][$attr],$this);

$tagParts[1]=$this->compileTagAttribs($tagAttrib[0],$tagAttrib[1]);

} else { // If endTag, remove any possible attributes:

$tagParts[1]='';

if ($tags[$tagName]['protect']) {

$lt = '&lt;'; $gt = '&gt;';

$lt = '<'; $gt = '>';

if ($tags[$tagName]['remap']) $tagParts[0] = $tags[$tagName]['remap'];

if ($endTag || trim($tagParts[1]) || !$tags[$tagName]['rmTagIfNoAttrib']) {

if ($tags[$tagName]['nesting']) {

if (!is_array($tagRegister[$tagName])) $tagRegister[$tagName]=array();

if ($endTag) {

/* if ($tags[$tagName]['nesting']=='global') {

$lastEl = end($tagStack);

$correctTag = !strcmp($tagName,$lastEl);

} else $correctTag=1;

*/

$correctTag=1;

if ($tags[$tagName]['nesting']=='global') {

if (strcmp($tagName,$lastEl)) {

if (in_array($tagName,$tagStack)) {

while(count($tagStack) && strcmp($tagName,$lastEl)) {

$correctTag=0; // In this case the

if (!count($tagRegister[$tagName]) || !$correctTag) {

$setTag=0;

if ($tags[$tagName]['nesting']=='global') {array_pop($tagStack);}

}

array_push($tagRegister[$tagName],$c);

if ($tags[$tagName]['nesting']=='global') {array_push($tagStack,$tagName);}

}

}

if ($setTag) {

$newContent[$c++]=$this->processTag($lt.($endTag?'/':'').trim($tagParts[0].' '.$tagParts[1]).$gt,$addConfig,$endTag,$lt=='&lt;');

$newContent[$c++]=$this->processTag('<'.($endTag?'/':'').$tagContent.'>',$addConfig,$endTag);

} elseif ($keepAll) { // This is if the tag was not defined in the array for processing:

if (!strcmp($keepAll,'protect')) {

$lt = '&lt;'; $gt = '&gt;';

$lt = '<'; $gt = '>';

$newContent[$c++]=$this->processTag($lt.($endTag?'/':'').$tagContent.$gt,$addConfig,$endTag,$lt=='&lt;');

$newContent[$c++]=$this->processContent(substr($tok,$tagEnd+1),$hSC,$addConfig);

$newContent[$c++]=$this->processContent('<'.$tok,$hSC,$addConfig); // There were not end-bracket, so no tag...

$newContent[$c++]=$this->processContent(($skipTag ? '' : '<') . $tok, $hSC, $addConfig); // It was not a tag anyways

$skipTag = false;

foreach ($tagRegister as $tag => $positions) {

foreach ($positions as $pKey) {

return implode('',$newContent);

function bidir_htmlspecialchars($value,$dir) {

if ($dir==1) {

} elseif ($dir==2) {

} elseif ($dir==-1) {

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

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

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

$value = str_replace('&amp;','&',$value);

function prefixResourcePath($main_prefix,$content,$alternatives=array(),$suffix='') {

$parts = $this->splitTags('embed,td,table,body,img,input,form,link,script,a,param',$content);

foreach ($parts as $k => $v) {

if ($k%2) {

$tagEnd = substr($v,-2)=='/>' ? ' />' : '>'; // Detect tag-ending so that it is re-applied correctly.

$firstTagName = $this->getFirstTagName($v); // The 'name' of the first tag

$somethingDone=0;

switch(strtolower($firstTagName)) {

if ($src) {

$params[0]['background'] = $this->prefixRelPath($prefix,$params[0]['background'],$suffix);

$somethingDone=1;

if ($src) {

$params[0]['src'] = $this->prefixRelPath($prefix,$params[0]['src'],$suffix);

$somethingDone=1;

if ($src) {

$params[0]['href'] = $this->prefixRelPath($prefix,$params[0]['href'],$suffix);

$somethingDone=1;

if ($src) {

$params[0]['action'] = $this->prefixRelPath($prefix,$params[0]['action'],$suffix);

$somethingDone=1;

if ($somethingDone) {

$tagParts = preg_split('/\s+/s',$v,2);

$tagParts[1]=$this->compileTagAttribs($params[0],$params[1]);

$parts[$k] = '<'.trim(strtolower($firstTagName).' '.$tagParts[1]).$tagEnd;

$content = implode('',$parts);

if (strlen($prefix)) {

$parts = $this->splitIntoBlock('style',$content);

foreach($parts as $k => $v) {

if ($k%2) {

$parts[$k] = preg_replace('/(url[[:space:]]*\([[:space:]]*["\']?)([^"\')]*)(["\']?[[:space:]]*\))/i','\1'.$prefix.'\2'.$suffix.'\3',$parts[$k]);

$content = implode('',$parts);

function cleanFontTags($value,$keepFace=0,$keepSize=0,$keepColor=0) {

$fontSplit = $this->splitIntoBlock('font',$value); // ,1 ?? - could probably be more stable if splitTags() was used since this depends on end-tags being properly set!

foreach ($fontSplit as $k => $v) {

if ($k%2) { // font:

$attribArray=$this->get_tag_attributes_classic($this->getFirstTag($v));

$newAttribs=array();

if ($keepFace && $attribArray['face']) $newAttribs[]='face="'.$attribArray['face'].'"';

if ($keepSize && $attribArray['size']) $newAttribs[]='size="'.$attribArray['size'].'"';

if ($keepColor && $attribArray['color']) $newAttribs[]='color="'.$attribArray['color'].'"';

$innerContent = $this->cleanFontTags($this->removeFirstAndLastTag($v),$keepFace,$keepSize,$keepColor);

if (count($newAttribs)) {

$fontSplit[$k]='<font '.implode(' ',$newAttribs).'>'.$innerContent.'</font>';

$fontSplit[$k]=$innerContent;

return implode('',$fontSplit);

function mapTags($value,$tags=array(),$ltChar='<',$ltChar2='<') {

foreach($tags as $from => $to) {

$value = preg_replace('/'.preg_quote($ltChar).'(\/)?'.$from.'\s([^\>])*(\/)?\>/', $ltChar2.'$1'.$to.' $2$3>', $value);

function unprotectTags($content,$tagList='') {

$tagsArray = t3lib_div::trimExplode(',',$tagList,1);

$contentParts = explode('&lt;',$content);

next($contentParts); // bypass the first

while(list($k,$tok)=each($contentParts)) {

$firstChar = substr($tok,0,1);

if (strcmp(trim($firstChar),'')) {

$subparts = explode('&gt;',$tok,2);

if (strlen($tok)!=$tagEnd) {

$endTag = $firstChar=='/' ? 1 : 0;

$tagContent = substr($tok,$endTag,$tagEnd-$endTag);

$tagParts = preg_split('/\s+/s',$tagContent,2);

if (!strcmp($tagList,'') || in_array($tagName,$tagsArray)) {

$contentParts[$k] = '<'.$subparts[0].'>'.$subparts[1];

} else $contentParts[$k] = '&lt;'.$tok;

} else $contentParts[$k] = '&lt;'.$tok;

} else $contentParts[$k] = '&lt;'.$tok;

}

return implode('',$contentParts);

function stripTagsExcept($value,$tagList) {

$tags=t3lib_div::trimExplode(',',$tagList,1);

$forthArr=array();

$backArr=array();

foreach ($tags as $theTag) {

$forthArr[$theTag]=md5($theTag);

$backArr[md5($theTag)]=$theTag;

$value = $this->mapTags($value,$forthArr,'<','_');

$value=strip_tags($value);

$value = $this->mapTags($value,$backArr,'_','<');

function caseShift($str,$flag,$cacheKey='') {

$cacheKey .= $flag?1:0;

if (is_array($str)) {

if (!$cacheKey || !isset($this->caseShift_cache[$cacheKey])) {

foreach ($str as $k => $v) {

if (!$flag) {

if ($cacheKey) $this->caseShift_cache[$cacheKey]=$str;

} elseif (!$flag) { $str = strtoupper($str); }

function compileTagAttribs($tagAttrib,$meta=array(), $xhtmlClean=0) {

$accu=array();

foreach ($tagAttrib as $k =>$v) {

if ($xhtmlClean) {

$attr=strtolower($k);

if (strcmp($v,'') || isset($meta[$k]['dashType'])) {

$attr.='="'.htmlspecialchars($v).'"';

$attr=$meta[$k]['origTag']?$meta[$k]['origTag']:$k;

if (strcmp($v,'') || isset($meta[$k]['dashType'])) {

$dash=$meta[$k]['dashType']?$meta[$k]['dashType']:(t3lib_div::testInt($v)?'':'"');

$attr.='='.$dash.$v.$dash;

$accu[]=$attr;

return implode(' ',$accu);

function get_tag_attributes_classic($tag,$deHSC=0) {

$attr=$this->get_tag_attributes($tag,$deHSC);

return is_array($attr[0])?$attr[0]:array();

function indentLines($content, $number=1, $indentChar=TAB) {

$preTab = str_pad('', $number*strlen($indentChar), $indentChar);

$lines = explode(LF,str_replace(CR,'',$content));

foreach ($lines as $k => $v) {

$lines[$k] = $preTab.$v;

function HTMLparserConfig($TSconfig,$keepTags=array()) {

$alTags = array_flip(t3lib_div::trimExplode(',',strtolower($TSconfig['allowTags']),1));

$keepTags = array_merge($alTags,$keepTags);

if (is_array($TSconfig['tags.'])) {