Source of file kses.php
Size: 53,897 Bytes - Last Modified: 2017-07-17T16:46:02+00:00
/home/travis/build/Limych/GeniBase/src/gb/kses.php
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818181918201821182218231824182518261827182818291830183118321833183418351836183718381839184018411842184318441845184618471848184918501851185218531854185518561857185818591860186118621863186418651866186718681869187018711872187318741875187618771878187918801881188218831884188518861887188818891890189118921893189418951896189718981899190019011902190319041905190619071908190919101911191219131914191519161917191819191920192119221923192419251926192719281929193019311932193319341935193619371938193919401941194219431944194519461947194819491950 | <?php /** * kses 0.2.2 - HTML/XHTML filter that only allows some elements and attributes * Copyright (C) 2002, 2003, 2005 Ulf Harnhammar * * This program is free software and open source 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. * * 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 St, Fifth Floor, Boston, MA 02110-1301, USA * http://www.gnu.org/licenses/gpl.html * * [kses strips evil scripts!] * * Added gb_ prefix to avoid conflicts with existing kses users * * @version 0.2.2 * @copyright (C) 2002, 2003, 2005 * @author Ulf Harnhammar <http://advogato.org/person/metaur/> * * @package External * @subpackage KSES * */ // Direct execution forbidden for this script if (! defined('GB_VERSION') || count(get_included_files()) == 1) die('<b>ERROR:</b> Direct execution forbidden!'); /** * You can override this in a plugin. * * The gb_kses_allowed_html filter is more powerful and supplies context. * CUSTOM_TAGS is not recommended and should be considered deprecated. * * @see gb_kses_allowed_html() * * @since 2.0.0 */ if (! defined('CUSTOM_TAGS')) define('CUSTOM_TAGS', false); // Ensure that these variables are added to the global namespace // (e.g. if using namespaces / autoload in the current PHP environment). global $allowedposttags, $allowedtags, $allowedentitynames; if (! CUSTOM_TAGS) { /** * Kses global for default allowable HTML tags. * * Can be override by using CUSTOM_TAGS constant. * * @global array $allowedposttags * @since 2.0.0 */ $allowedposttags = array( 'address' => array(), 'a' => array( 'href' => true, 'rel' => true, 'rev' => true, 'name' => true, 'target' => true ), 'abbr' => array(), 'acronym' => array(), 'area' => array( 'alt' => true, 'coords' => true, 'href' => true, 'nohref' => true, 'shape' => true, 'target' => true ), 'article' => array( 'align' => true, 'dir' => true, 'lang' => true, 'xml:lang' => true ), 'aside' => array( 'align' => true, 'dir' => true, 'lang' => true, 'xml:lang' => true ), 'audio' => array( 'autoplay' => true, 'controls' => true, 'loop' => true, 'muted' => true, 'preload' => true, 'src' => true ), 'b' => array(), 'big' => array(), 'blockquote' => array( 'cite' => true, 'lang' => true, 'xml:lang' => true ), 'br' => array(), 'button' => array( 'disabled' => true, 'name' => true, 'type' => true, 'value' => true ), 'caption' => array( 'align' => true ), 'cite' => array( 'dir' => true, 'lang' => true ), 'code' => array(), 'col' => array( 'align' => true, 'char' => true, 'charoff' => true, 'span' => true, 'dir' => true, 'valign' => true, 'width' => true ), 'colgroup' => array( 'align' => true, 'char' => true, 'charoff' => true, 'span' => true, 'valign' => true, 'width' => true ), 'del' => array( 'datetime' => true ), 'dd' => array(), 'dfn' => array(), 'details' => array( 'align' => true, 'dir' => true, 'lang' => true, 'open' => true, 'xml:lang' => true ), 'div' => array( 'align' => true, 'dir' => true, 'lang' => true, 'xml:lang' => true ), 'dl' => array(), 'dt' => array(), 'em' => array(), 'fieldset' => array(), 'figure' => array( 'align' => true, 'dir' => true, 'lang' => true, 'xml:lang' => true ), 'figcaption' => array( 'align' => true, 'dir' => true, 'lang' => true, 'xml:lang' => true ), 'font' => array( 'color' => true, 'face' => true, 'size' => true ), 'footer' => array( 'align' => true, 'dir' => true, 'lang' => true, 'xml:lang' => true ), 'form' => array( 'action' => true, 'accept' => true, 'accept-charset' => true, 'enctype' => true, 'method' => true, 'name' => true, 'target' => true ), 'h1' => array( 'align' => true ), 'h2' => array( 'align' => true ), 'h3' => array( 'align' => true ), 'h4' => array( 'align' => true ), 'h5' => array( 'align' => true ), 'h6' => array( 'align' => true ), 'header' => array( 'align' => true, 'dir' => true, 'lang' => true, 'xml:lang' => true ), 'hgroup' => array( 'align' => true, 'dir' => true, 'lang' => true, 'xml:lang' => true ), 'hr' => array( 'align' => true, 'noshade' => true, 'size' => true, 'width' => true ), 'i' => array(), 'img' => array( 'alt' => true, 'align' => true, 'border' => true, 'height' => true, 'hspace' => true, 'longdesc' => true, 'vspace' => true, 'src' => true, 'usemap' => true, 'width' => true ), 'ins' => array( 'datetime' => true, 'cite' => true ), 'kbd' => array(), 'label' => array( 'for' => true ), 'legend' => array( 'align' => true ), 'li' => array( 'align' => true, 'value' => true ), 'map' => array( 'name' => true ), 'mark' => array(), 'menu' => array( 'type' => true ), 'nav' => array( 'align' => true, 'dir' => true, 'lang' => true, 'xml:lang' => true ), 'p' => array( 'align' => true, 'dir' => true, 'lang' => true, 'xml:lang' => true ), 'pre' => array( 'width' => true ), 'q' => array( 'cite' => true ), 's' => array(), 'samp' => array(), 'span' => array( 'dir' => true, 'align' => true, 'lang' => true, 'xml:lang' => true ), 'section' => array( 'align' => true, 'dir' => true, 'lang' => true, 'xml:lang' => true ), 'small' => array(), 'strike' => array(), 'strong' => array(), 'sub' => array(), 'summary' => array( 'align' => true, 'dir' => true, 'lang' => true, 'xml:lang' => true ), 'sup' => array(), 'table' => array( 'align' => true, 'bgcolor' => true, 'border' => true, 'cellpadding' => true, 'cellspacing' => true, 'dir' => true, 'rules' => true, 'summary' => true, 'width' => true ), 'tbody' => array( 'align' => true, 'char' => true, 'charoff' => true, 'valign' => true ), 'td' => array( 'abbr' => true, 'align' => true, 'axis' => true, 'bgcolor' => true, 'char' => true, 'charoff' => true, 'colspan' => true, 'dir' => true, 'headers' => true, 'height' => true, 'nowrap' => true, 'rowspan' => true, 'scope' => true, 'valign' => true, 'width' => true ), 'textarea' => array( 'cols' => true, 'rows' => true, 'disabled' => true, 'name' => true, 'readonly' => true ), 'tfoot' => array( 'align' => true, 'char' => true, 'charoff' => true, 'valign' => true ), 'th' => array( 'abbr' => true, 'align' => true, 'axis' => true, 'bgcolor' => true, 'char' => true, 'charoff' => true, 'colspan' => true, 'headers' => true, 'height' => true, 'nowrap' => true, 'rowspan' => true, 'scope' => true, 'valign' => true, 'width' => true ), 'thead' => array( 'align' => true, 'char' => true, 'charoff' => true, 'valign' => true ), 'title' => array(), 'tr' => array( 'align' => true, 'bgcolor' => true, 'char' => true, 'charoff' => true, 'valign' => true ), 'track' => array( 'default' => true, 'kind' => true, 'label' => true, 'src' => true, 'srclang' => true ), 'tt' => array(), 'u' => array(), 'ul' => array( 'type' => true ), 'ol' => array( 'start' => true, 'type' => true ), 'var' => array(), 'video' => array( 'autoplay' => true, 'controls' => true, 'height' => true, 'loop' => true, 'muted' => true, 'poster' => true, 'preload' => true, 'src' => true, 'width' => true ) ); /** * Kses allowed HTML elements. * * @global array $allowedtags * @since 2.0.0 */ $allowedtags = array( 'a' => array( 'href' => true, 'title' => true ), 'abbr' => array( 'title' => true ), 'acronym' => array( 'title' => true ), 'b' => array(), 'blockquote' => array( 'cite' => true ), 'cite' => array(), 'code' => array(), 'del' => array( 'datetime' => true ), 'em' => array(), 'i' => array(), 'q' => array( 'cite' => true ), 'strike' => array(), 'strong' => array() ); $allowedentitynames = array( 'nbsp', 'iexcl', 'cent', 'pound', 'curren', 'yen', 'brvbar', 'sect', 'uml', 'copy', 'ordf', 'laquo', 'not', 'shy', 'reg', 'macr', 'deg', 'plusmn', 'acute', 'micro', 'para', 'middot', 'cedil', 'ordm', 'raquo', 'iquest', 'Agrave', 'Aacute', 'Acirc', 'Atilde', 'Auml', 'Aring', 'AElig', 'Ccedil', 'Egrave', 'Eacute', 'Ecirc', 'Euml', 'Igrave', 'Iacute', 'Icirc', 'Iuml', 'ETH', 'Ntilde', 'Ograve', 'Oacute', 'Ocirc', 'Otilde', 'Ouml', 'times', 'Oslash', 'Ugrave', 'Uacute', 'Ucirc', 'Uuml', 'Yacute', 'THORN', 'szlig', 'agrave', 'aacute', 'acirc', 'atilde', 'auml', 'aring', 'aelig', 'ccedil', 'egrave', 'eacute', 'ecirc', 'euml', 'igrave', 'iacute', 'icirc', 'iuml', 'eth', 'ntilde', 'ograve', 'oacute', 'ocirc', 'otilde', 'ouml', 'divide', 'oslash', 'ugrave', 'uacute', 'ucirc', 'uuml', 'yacute', 'thorn', 'yuml', 'quot', 'amp', 'lt', 'gt', 'apos', 'OElig', 'oelig', 'Scaron', 'scaron', 'Yuml', 'circ', 'tilde', 'ensp', 'emsp', 'thinsp', 'zwnj', 'zwj', 'lrm', 'rlm', 'ndash', 'mdash', 'lsquo', 'rsquo', 'sbquo', 'ldquo', 'rdquo', 'bdquo', 'dagger', 'Dagger', 'permil', 'lsaquo', 'rsaquo', 'euro', 'fnof', 'Alpha', 'Beta', 'Gamma', 'Delta', 'Epsilon', 'Zeta', 'Eta', 'Theta', 'Iota', 'Kappa', 'Lambda', 'Mu', 'Nu', 'Xi', 'Omicron', 'Pi', 'Rho', 'Sigma', 'Tau', 'Upsilon', 'Phi', 'Chi', 'Psi', 'Omega', 'alpha', 'beta', 'gamma', 'delta', 'epsilon', 'zeta', 'eta', 'theta', 'iota', 'kappa', 'lambda', 'mu', 'nu', 'xi', 'omicron', 'pi', 'rho', 'sigmaf', 'sigma', 'tau', 'upsilon', 'phi', 'chi', 'psi', 'omega', 'thetasym', 'upsih', 'piv', 'bull', 'hellip', 'prime', 'Prime', 'oline', 'frasl', 'weierp', 'image', 'real', 'trade', 'alefsym', 'larr', 'uarr', 'rarr', 'darr', 'harr', 'crarr', 'lArr', 'uArr', 'rArr', 'dArr', 'hArr', 'forall', 'part', 'exist', 'empty', 'nabla', 'isin', 'notin', 'ni', 'prod', 'sum', 'minus', 'lowast', 'radic', 'prop', 'infin', 'ang', 'and', 'or', 'cap', 'cup', 'int', 'sim', 'cong', 'asymp', 'ne', 'equiv', 'le', 'ge', 'sub', 'sup', 'nsub', 'sube', 'supe', 'oplus', 'otimes', 'perp', 'sdot', 'lceil', 'rceil', 'lfloor', 'rfloor', 'lang', 'rang', 'loz', 'spades', 'clubs', 'hearts', 'diams', 'sup1', 'sup2', 'sup3', 'frac14', 'frac12', 'frac34', 'there4' ); $allowedposttags = array_map('_gb_add_global_attributes', $allowedposttags); } else { $allowedtags = gb_kses_array_lc($allowedtags); $allowedposttags = gb_kses_array_lc($allowedposttags); } /** * Filters content and keeps only allowable HTML elements. * * This function makes sure that only the allowed HTML element names, attribute * names and attribute values plus only sane HTML entities will occur in * $string. You have to remove any slashes from PHP's magic quotes before you * call this function. * * The default allowed protocols are 'http', 'https', 'ftp', 'mailto', 'news', * 'irc', 'gopher', 'nntp', 'feed', 'telnet, 'mms', 'rtsp' and 'svn'. This * covers all common link protocols, except for 'javascript' which should not * be allowed for untrusted users. * * @since 2.0.0 * * @param string $string * Content to filter through kses * @param array $allowed_html * List of allowed HTML elements * @param array $allowed_protocols * Optional. Allowed protocol in links. * @return string Filtered content with only allowed HTML elements */ function gb_kses($string, $allowed_html, $allowed_protocols = array()) { if (empty($allowed_protocols)) $allowed_protocols = gb_allowed_protocols(); $string = gb_kses_no_null($string); $string = gb_kses_js_entities($string); $string = gb_kses_normalize_entities($string); $string = gb_kses_hook($string, $allowed_html, $allowed_protocols); // WP changed the order of these funcs and added args to gb_kses_hook return gb_kses_split($string, $allowed_html, $allowed_protocols); } /** * Return a list of allowed tags and attributes for a given context. * * @since 2.0.0 * * @param string $context * The context for which to retrieve tags. Allowed values are * post | strip | data | entities or the name of a field filter such as pre_user_description. * @return array List of allowed tags and their allowed attributes. */ function gb_kses_allowed_html($context = '') { global $allowedposttags, $allowedtags, $allowedentitynames; if (is_array($context)) { /** * Filter HTML elements allowed for a given context. * * @since 2.1.0 * * @param string $tags * Allowed tags, attributes, and/or entities. * @param string $context * Context to judge allowed tags by. Allowed values are 'post', * 'data', 'strip', 'entities', 'explicit', or the name of a filter. */ return GB_Hooks::apply_filters('gb_kses_allowed_html', $context, 'explicit'); } switch ($context) { case 'post': /** * This filter is documented in gb/kses.php */ return GB_Hooks::apply_filters('gb_kses_allowed_html', $allowedposttags, $context); case 'user_description': case 'pre_user_description': $tags = $allowedtags; $tags['a']['rel'] = true; /** * This filter is documented in gb/kses.php */ return GB_Hooks::apply_filters('gb_kses_allowed_html', $tags, $context); case 'strip': /** * This filter is documented in gb/kses.php */ return GB_Hooks::apply_filters('gb_kses_allowed_html', array(), $context); case 'entities': /** * This filter is documented in gb/kses.php */ return GB_Hooks::apply_filters('gb_kses_allowed_html', $allowedentitynames, $context); case 'data': default: /** * This filter is documented in gb/kses.php */ return GB_Hooks::apply_filters('gb_kses_allowed_html', $allowedtags, $context); } } /** * You add any kses hooks here. * * There is currently only one kses WordPress hook and it is called here. All * parameters are passed to the hooks and expected to receive a string. * * @since 2.0.0 * * @param string $string * Content to filter through kses * @param array $allowed_html * List of allowed HTML elements * @param array $allowed_protocols * Allowed protocol in links * @return string Filtered content through 'pre_kses' hook */ function gb_kses_hook($string, $allowed_html, $allowed_protocols) { /** * Filter content to be run through kses. * * @since 2.1.0 * * @param string $string * Content to run through kses. * @param array $allowed_html * Allowed HTML elements. * @param array $allowed_protocols * Allowed protocol in links. */ $string = GB_Hooks::apply_filters('pre_kses', $string, $allowed_html, $allowed_protocols); return $string; } /** * This function returns kses' version number. * * @since 2.0.0 * * @return string KSES Version Number */ function gb_kses_version() { return '0.2.2'; } /** * Searches for HTML tags, no matter how malformed. * * It also matches stray ">" characters. * * @since 2.0.0 * * @param string $string * Content to filter * @param array $allowed_html * Allowed HTML elements * @param array $allowed_protocols * Allowed protocols to keep * @return string Content with fixed HTML tags */ function gb_kses_split($string, $allowed_html, $allowed_protocols) { global $pass_allowed_html, $pass_allowed_protocols; $pass_allowed_html = $allowed_html; $pass_allowed_protocols = $allowed_protocols; return preg_replace_callback('%(<!--.*?(-->|$))|(<[^>]*(>|$)|>)%', '_gb_kses_split_callback', $string); } /** * Callback for gb_kses_split. * * @since 2.0.0 * @access private */ function _gb_kses_split_callback($match) { global $pass_allowed_html, $pass_allowed_protocols; return gb_kses_split2($match[0], $pass_allowed_html, $pass_allowed_protocols); } /** * Callback for gb_kses_split for fixing malformed HTML tags. * * This function does a lot of work. It rejects some very malformed things like * <:::>. It returns an empty string, if the element isn't allowed (look ma, no * strip_tags()!). Otherwise it splits the tag into an element and an attribute * list. * * After the tag is split into an element and an attribute list, it is run * through another filter which will remove illegal attributes and once that is * completed, will be returned. * * @access private * @since 2.0.0 * * @param string $string * Content to filter * @param array $allowed_html * Allowed HTML elements * @param array $allowed_protocols * Allowed protocols to keep * @return string Fixed HTML element */ function gb_kses_split2($string, $allowed_html, $allowed_protocols) { $string = gb_kses_stripslashes($string); if (substr($string, 0, 1) != '<') return '>'; // It matched a ">" character if ('<!--' == substr($string, 0, 4)) { $string = str_replace(array( '<!--', '-->' ), '', $string); while ($string != ($newstring = gb_kses($string, $allowed_html, $allowed_protocols))) $string = $newstring; if ($string == '') return ''; // prevent multiple dashes in comments $string = preg_replace('/--+/', '-', $string); // prevent three dashes closing a comment $string = preg_replace('/-$/', '', $string); return "<!--{$string}-->"; } // Allow HTML comments if (! preg_match('%^<\s*(/\s*)?([a-zA-Z0-9]+)([^>]*)>?$%', $string, $matches)) return ''; // It's seriously malformed $slash = trim($matches[1]); $elem = $matches[2]; $attrlist = $matches[3]; if (! is_array($allowed_html)) $allowed_html = gb_kses_allowed_html($allowed_html); if (! isset($allowed_html[strtolower($elem)])) return ''; // They are using a not allowed HTML element if ($slash != '') return "</$elem>"; // No attributes are allowed for closing elements return gb_kses_attr($elem, $attrlist, $allowed_html, $allowed_protocols); } /** * Removes all attributes, if none are allowed for this element. * * If some are allowed it calls gb_kses_hair() to split them further, and then * it builds up new HTML code from the data that kses_hair() returns. It also * removes "<" and ">" characters, if there are any left. One more thing it does * is to check if the tag has a closing XHTML slash, and if it does, it puts one * in the returned code as well. * * @since 2.0.0 * * @param string $element * HTML element/tag * @param string $attr * HTML attributes from HTML element to closing HTML element tag * @param array $allowed_html * Allowed HTML elements * @param array $allowed_protocols * Allowed protocols to keep * @return string Sanitized HTML element */ function gb_kses_attr($element, $attr, $allowed_html, $allowed_protocols) { // Is there a closing XHTML slash at the end of the attributes? if (! is_array($allowed_html)) $allowed_html = gb_kses_allowed_html($allowed_html); $xhtml_slash = ''; if (preg_match('%\s*/\s*$%', $attr)) $xhtml_slash = ' /'; // Are any attributes allowed at all for this element? if (! isset($allowed_html[strtolower($element)]) || count($allowed_html[strtolower($element)]) == 0) return "<$element$xhtml_slash>"; // Split it $attrarr = gb_kses_hair($attr, $allowed_protocols); // Go through $attrarr, and save the allowed attributes for this element // in $attr2 $attr2 = ''; $allowed_attr = $allowed_html[strtolower($element)]; foreach ($attrarr as $arreach) { if (! isset($allowed_attr[strtolower($arreach['name'])])) continue; // the attribute is not allowed $current = $allowed_attr[strtolower($arreach['name'])]; if ($current == '') continue; // the attribute is not allowed if (strtolower($arreach['name']) == 'style') { $orig_value = $arreach['value']; $value = safecss_filter_attr($orig_value); if (empty($value)) continue; $arreach['value'] = $value; $arreach['whole'] = str_replace($orig_value, $value, $arreach['whole']); } if (! is_array($current)) { $attr2 .= ' ' . $arreach['whole']; // there are no checks } else { // there are some checks $ok = true; foreach ($current as $currkey => $currval) { if (! gb_kses_check_attr_val($arreach['value'], $arreach['vless'], $currkey, $currval)) { $ok = false; break; } } if ($ok) $attr2 .= ' ' . $arreach['whole']; // it passed them } // if !is_array($current) } // foreach // Remove any "<" or ">" characters $attr2 = preg_replace('/[<>]/', '', $attr2); return "<$element$attr2$xhtml_slash>"; } /** * Builds an attribute list from string containing attributes. * * This function does a lot of work. It parses an attribute list into an array * with attribute data, and tries to do the right thing even if it gets weird * input. It will add quotes around attribute values that don't have any quotes * or apostrophes around them, to make it easier to produce HTML code that will * conform to W3C's HTML specification. It will also remove bad URL protocols * from attribute values. It also reduces duplicate attributes by using the * attribute defined first (foo='bar' foo='baz' will result in foo='bar'). * * @since 2.0.0 * * @param string $attr * Attribute list from HTML element to closing HTML element tag * @param array $allowed_protocols * Allowed protocols to keep * @return array List of attributes after parsing */ function gb_kses_hair($attr, $allowed_protocols) { $attrarr = array(); $mode = 0; $attrname = ''; $uris = array( 'xmlns', 'profile', 'href', 'src', 'cite', 'classid', 'codebase', 'data', 'usemap', 'longdesc', 'action' ); // Loop through the whole attribute list while (strlen($attr) != 0) { $working = 0; // Was the last operation successful? switch ($mode) { case 0: // attribute name, href for instance if (preg_match('/^([-a-zA-Z:]+)/', $attr, $match)) { $attrname = $match[1]; $working = $mode = 1; $attr = preg_replace('/^[-a-zA-Z:]+/', '', $attr); } break; case 1: // equals sign or valueless ("selected") if (preg_match('/^\s*=\s*/', $attr)) // equals sign { $working = 1; $mode = 2; $attr = preg_replace('/^\s*=\s*/', '', $attr); break; } if (preg_match('/^\s+/', $attr)) // valueless { $working = 1; $mode = 0; if (false === array_key_exists($attrname, $attrarr)) { $attrarr[$attrname] = array( 'name' => $attrname, 'value' => '', 'whole' => $attrname, 'vless' => 'y' ); } $attr = preg_replace('/^\s+/', '', $attr); } break; case 2: // attribute value, a URL after href= for instance if (preg_match('%^"([^"]*)"(\s+|/?$)%', $attr, $match)) // "value" { $thisval = $match[1]; if (in_array(strtolower($attrname), $uris)) $thisval = gb_kses_bad_protocol($thisval, $allowed_protocols); if (false === array_key_exists($attrname, $attrarr)) { $attrarr[$attrname] = array( 'name' => $attrname, 'value' => $thisval, 'whole' => "$attrname=\"$thisval\"", 'vless' => 'n' ); } $working = 1; $mode = 0; $attr = preg_replace('/^"[^"]*"(\s+|$)/', '', $attr); break; } if (preg_match("%^'([^']*)'(\s+|/?$)%", $attr, $match)) // 'value' { $thisval = $match[1]; if (in_array(strtolower($attrname), $uris)) $thisval = gb_kses_bad_protocol($thisval, $allowed_protocols); if (false === array_key_exists($attrname, $attrarr)) { $attrarr[$attrname] = array( 'name' => $attrname, 'value' => $thisval, 'whole' => "$attrname='$thisval'", 'vless' => 'n' ); } $working = 1; $mode = 0; $attr = preg_replace("/^'[^']*'(\s+|$)/", '', $attr); break; } if (preg_match("%^([^\s\"']+)(\s+|/?$)%", $attr, $match)) // value { $thisval = $match[1]; if (in_array(strtolower($attrname), $uris)) $thisval = gb_kses_bad_protocol($thisval, $allowed_protocols); if (false === array_key_exists($attrname, $attrarr)) { $attrarr[$attrname] = array( 'name' => $attrname, 'value' => $thisval, 'whole' => "$attrname=\"$thisval\"", 'vless' => 'n' ); } // We add quotes to conform to W3C's HTML spec. $working = 1; $mode = 0; $attr = preg_replace("%^[^\s\"']+(\s+|$)%", '', $attr); } break; } // switch if ($working == 0) // not well formed, remove and try again { $attr = gb_kses_html_error($attr); $mode = 0; } } // while if ($mode == 1 && false === array_key_exists($attrname, $attrarr)) // special case, for when the attribute list ends with a valueless // attribute like "selected" $attrarr[$attrname] = array( 'name' => $attrname, 'value' => '', 'whole' => $attrname, 'vless' => 'y' ); return $attrarr; } /** * Performs different checks for attribute values. * * The currently implemented checks are "maxlen", "minlen", "maxval", "minval" * and "valueless". * * @since 2.0.0 * * @param string $value * Attribute value * @param string $vless * Whether the value is valueless. Use 'y' or 'n' * @param string $checkname * What $checkvalue is checking for. * @param mixed $checkvalue * What constraint the value should pass * @return bool Whether check passes */ function gb_kses_check_attr_val($value, $vless, $checkname, $checkvalue) { $ok = true; switch (strtolower($checkname)) { case 'maxlen': // The maxlen check makes sure that the attribute value has a length not // greater than the given value. This can be used to avoid Buffer Overflows // in WWW clients and various Internet servers. if (strlen($value) > $checkvalue) $ok = false; break; case 'minlen': // The minlen check makes sure that the attribute value has a length not // smaller than the given value. if (strlen($value) < $checkvalue) $ok = false; break; case 'maxval': // The maxval check does two things: it checks that the attribute value is // an integer from 0 and up, without an excessive amount of zeroes or // whitespace (to avoid Buffer Overflows). It also checks that the attribute // value is not greater than the given value. // This check can be used to avoid Denial of Service attacks. if (! preg_match('/^\s{0,6}[0-9]{1,6}\s{0,6}$/', $value)) $ok = false; if ($value > $checkvalue) $ok = false; break; case 'minval': // The minval check makes sure that the attribute value is a positive integer, // and that it is not smaller than the given value. if (! preg_match('/^\s{0,6}[0-9]{1,6}\s{0,6}$/', $value)) $ok = false; if ($value < $checkvalue) $ok = false; break; case 'valueless': // The valueless check makes sure if the attribute has a value // (like <a href="blah">) or not (<option selected>). If the given value // is a "y" or a "Y", the attribute must not have a value. // If the given value is an "n" or an "N", the attribute must have one. if (strtolower($checkvalue) != $vless) $ok = false; break; } // switch return $ok; } /** * Sanitize string from bad protocols. * * This function removes all non-allowed protocols from the beginning of * $string. It ignores whitespace and the case of the letters, and it does * understand HTML entities. It does its work in a while loop, so it won't be * fooled by a string like "javascript:javascript:alert(57)". * * @since 2.0.0 * * @param string $string * Content to filter bad protocols from * @param array $allowed_protocols * Allowed protocols to keep * @return string Filtered content */ function gb_kses_bad_protocol($string, $allowed_protocols) { $string = gb_kses_no_null($string); $iterations = 0; do { $original_string = $string; $string = gb_kses_bad_protocol_once($string, $allowed_protocols); } while ($original_string != $string && ++ $iterations < 6); if ($original_string != $string) return ''; return $string; } /** * Removes any invalid control characters in $string. * * Also removes any instance of the '\0' string. * * @since 2.0.0 * * @param string $string * @return string */ function gb_kses_no_null($string) { $string = preg_replace('/[\x00-\x08\x0B\x0C\x0E-\x1F]/', '', $string); $string = preg_replace('/(\\\\0)+/', '', $string); return $string; } /** * Strips slashes from in front of quotes. * * This function changes the character sequence \" to just ". It leaves all * other slashes alone. It's really weird, but the quoting from * preg_replace(//e) seems to require this. * * @since 2.0.0 * * @param string $string * String to strip slashes * @return string Fixed string with quoted slashes */ function gb_kses_stripslashes($string) { return preg_replace('%\\\\"%', '"', $string); } /** * Goes through an array and changes the keys to all lower case. * * @since 2.0.0 * * @param array $inarray * Unfiltered array * @return array Fixed array with all lowercase keys */ function gb_kses_array_lc($inarray) { $outarray = array(); foreach ((array) $inarray as $inkey => $inval) { $outkey = strtolower($inkey); $outarray[$outkey] = array(); foreach ((array) $inval as $inkey2 => $inval2) { $outkey2 = strtolower($inkey2); $outarray[$outkey][$outkey2] = $inval2; } // foreach $inval } // foreach $inarray return $outarray; } /** * Removes the HTML JavaScript entities found in early versions of Netscape 4. * * @since 2.0.0 * * @param string $string * @return string */ function gb_kses_js_entities($string) { return preg_replace('%&\s*\{[^}]*(\}\s*;?|$)%', '', $string); } /** * Handles parsing errors in gb_kses_hair(). * * The general plan is to remove everything to and including some whitespace, * but it deals with quotes and apostrophes as well. * * @since 2.0.0 * * @param string $string * @return string */ function gb_kses_html_error($string) { return preg_replace('/^("[^"]*("|$)|\'[^\']*(\'|$)|\S)*\s*/', '', $string); } /** * Sanitizes content from bad protocols and other characters. * * This function searches for URL protocols at the beginning of $string, while * handling whitespace and HTML entities. * * @since 2.0.0 * * @param string $string * Content to check for bad protocols * @param string $allowed_protocols * Allowed protocols * @return string Sanitized content */ function gb_kses_bad_protocol_once($string, $allowed_protocols, $count = 1) { $string2 = preg_split('/:|�*58;|�*3a;/i', $string, 2); if (isset($string2[1]) && ! preg_match('%/\?%', $string2[0])) { $string = trim($string2[1]); $protocol = gb_kses_bad_protocol_once2($string2[0], $allowed_protocols); if ('feed:' == $protocol) { if ($count > 2) return ''; $string = gb_kses_bad_protocol_once($string, $allowed_protocols, ++ $count); if (empty($string)) return $string; } $string = $protocol . $string; } return $string; } /** * Callback for gb_kses_bad_protocol_once() regular expression. * * This function processes URL protocols, checks to see if they're in the * whitelist or not, and returns different data depending on the answer. * * @access private * @since 2.0.0 * * @param string $string * URI scheme to check against the whitelist * @param string $allowed_protocols * Allowed protocols * @return string Sanitized content */ function gb_kses_bad_protocol_once2($string, $allowed_protocols) { $string2 = gb_kses_decode_entities($string); $string2 = preg_replace('/\s/', '', $string2); $string2 = gb_kses_no_null($string2); $string2 = strtolower($string2); $allowed = false; foreach ((array) $allowed_protocols as $one_protocol) if (strtolower($one_protocol) == $string2) { $allowed = true; break; } if ($allowed) return "$string2:"; else return ''; } /** * Converts and fixes HTML entities. * * This function normalizes HTML entities. It will convert `AT&T` to the correct * `AT&T`, `:` to `:`, `&#XYZZY;` to `&#XYZZY;` and so on. * * @since 2.0.0 * * @param string $string * Content to normalize entities * @return string Content with normalized entities */ function gb_kses_normalize_entities($string) { // Disarm all entities by converting & to & $string = str_replace('&', '&', $string); // Change back the allowed entities in our entity whitelist $string = preg_replace_callback('/&([A-Za-z]{2,8}[0-9]{0,2});/', 'gb_kses_named_entities', $string); $string = preg_replace_callback('/&#(0*[0-9]{1,7});/', 'gb_kses_normalize_entities2', $string); $string = preg_replace_callback('/&#[Xx](0*[0-9A-Fa-f]{1,6});/', 'gb_kses_normalize_entities3', $string); return $string; } /** * Callback for gb_kses_normalize_entities() regular expression. * * This function only accepts valid named entity references, which are finite, * case-sensitive, and highly scrutinized by HTML and XML validators. * * @since 2.0.0 * * @param array $matches * preg_replace_callback() matches array * @return string Correctly encoded entity */ function gb_kses_named_entities($matches) { global $allowedentitynames; if (empty($matches[1])) return ''; $i = $matches[1]; return ((! in_array($i, $allowedentitynames)) ? "&$i;" : "&$i;"); } /** * Callback for gb_kses_normalize_entities() regular expression. * * This function helps {@see gb_kses_normalize_entities()} to only accept 16-bit * values and nothing more for `&#number;` entities. * * @access private * @since 2.0.0 * * @param array $matches * preg_replace_callback() matches array * @return string Correctly encoded entity */ function gb_kses_normalize_entities2($matches) { if (empty($matches[1])) return ''; $i = $matches[1]; if (valid_unicode($i)) { $i = str_pad(ltrim($i, '0'), 3, '0', STR_PAD_LEFT); $i = "&#$i;"; } else { $i = "&#$i;"; } return $i; } /** * Callback for gb_kses_normalize_entities() for regular expression. * * This function helps gb_kses_normalize_entities() to only accept valid Unicode * numeric entities in hex form. * * @access private * * @param array $matches * preg_replace_callback() matches array * @return string Correctly encoded entity */ function gb_kses_normalize_entities3($matches) { if (empty($matches[1])) return ''; $hexchars = $matches[1]; return ((! valid_unicode(hexdec($hexchars))) ? "&#x$hexchars;" : '&#x' . ltrim($hexchars, '0') . ';'); } /** * Helper function to determine if a Unicode value is valid. * * @param int $i * Unicode value * @return bool True if the value was a valid Unicode number */ function valid_unicode($i) { return ($i == 0x9 || $i == 0xa || $i == 0xd || ($i >= 0x20 && $i <= 0xd7ff) || ($i >= 0xe000 && $i <= 0xfffd) || ($i >= 0x10000 && $i <= 0x10ffff)); } /** * Convert all entities to their character counterparts. * * This function decodes numeric HTML entities (`A` and `A`). * It doesn't do anything with other entities like ä, but we don't * need them in the URL protocol whitelisting system anyway. * * @since 2.0.0 * * @param string $string * Content to change entities * @return string Content after decoded entities */ function gb_kses_decode_entities($string) { $string = preg_replace_callback('/&#([0-9]+);/', '_gb_kses_decode_entities_chr', $string); $string = preg_replace_callback('/&#[Xx]([0-9A-Fa-f]+);/', '_gb_kses_decode_entities_chr_hexdec', $string); return $string; } /** * Regex callback for gb_kses_decode_entities() * * @param array $match * preg match * @return string */ function _gb_kses_decode_entities_chr($match) { return chr($match[1]); } /** * Regex callback for gb_kses_decode_entities() * * @param array $match * preg match * @return string */ function _gb_kses_decode_entities_chr_hexdec($match) { return chr(hexdec($match[1])); } /** * Sanitize content with allowed HTML Kses rules. * * @since 2.0.0 * * @param string $data * Content to filter, expected to be escaped with slashes * @return string Filtered content */ function gb_filter_kses($data) { return addslashes(gb_kses(stripslashes($data), GB_Hooks::current_filter())); } /** * Sanitize content with allowed HTML Kses rules. * * @since 2.0.0 * * @param string $data * Content to filter, expected to not be escaped * @return string Filtered content */ function gb_kses_data($data) { return gb_kses($data, GB_Hooks::current_filter()); } /** * Sanitize content for allowed HTML tags for post content. * * Post content refers to the page contents of the 'post' type and not $_POST * data from forms. * * @since 2.0.0 * * @param string $data * Post content to filter, expected to be escaped with slashes * @return string Filtered post content with allowed HTML tags and attributes intact. */ function gb_filter_post_kses($data) { return addslashes(gb_kses(stripslashes($data), 'post')); } /** * Sanitize content for allowed HTML tags for post content. * * Post content refers to the page contents of the 'post' type and not $_POST * data from forms. * * @since 2.0.0 * * @param string $data * Post content to filter * @return string Filtered post content with allowed HTML tags and attributes intact. */ function gb_kses_post($data) { return gb_kses($data, 'post'); } /** * Strips all of the HTML in the content. * * @since 2.0.0 * * @param string $data * Content to strip all HTML from * @return string Filtered content without any HTML */ function gb_filter_nohtml_kses($data) { return addslashes(gb_kses(stripslashes($data), 'strip')); } /** * Adds all Kses input form content filters. * * All hooks have default priority. The gb_filter_kses() function is added to * the 'pre_comment_content' and 'title_save_pre' hooks. * * The gb_filter_post_kses() function is added to the 'content_save_pre', * 'excerpt_save_pre', and 'content_filtered_save_pre' hooks. * * @since 2.0.0 */ function kses_init_filters() { // TODO: actions // Normal filtering /* * GB_Hooks::add_filter('title_save_pre', 'gb_filter_kses'); * * // Comment filtering * if( current_user_can( 'unfiltered_html' ) ) * GB_Hooks::add_filter( 'pre_comment_content', 'gb_filter_post_kses' ); * else * GB_Hooks::add_filter( 'pre_comment_content', 'gb_filter_kses' ); * * // Post filtering * GB_Hooks::add_filter('content_save_pre', 'gb_filter_post_kses'); * GB_Hooks::add_filter('excerpt_save_pre', 'gb_filter_post_kses'); * GB_Hooks::add_filter('content_filtered_save_pre', 'gb_filter_post_kses');/* */ } /** * Removes all Kses input form content filters. * * A quick procedural method to removing all of the filters that kses uses for * content in WordPress Loop. * * Does not remove the kses_init() function from 'init' hook (priority is * default). Also does not remove kses_init() function from 'set_current_user' * hook (priority is also default). * * @since 2.0.0 */ function kses_remove_filters() { // TODO: actions // Normal filtering /* * GB_Hooks::remove_filter('title_save_pre', 'gb_filter_kses'); * * // Comment filtering * GB_Hooks::remove_filter( 'pre_comment_content', 'gb_filter_post_kses' ); * GB_Hooks::remove_filter( 'pre_comment_content', 'gb_filter_kses' ); * * // Post filtering * GB_Hooks::remove_filter('content_save_pre', 'gb_filter_post_kses'); * GB_Hooks::remove_filter('excerpt_save_pre', 'gb_filter_post_kses'); * GB_Hooks::remove_filter('content_filtered_save_pre', 'gb_filter_post_kses');/* */ } /** * Sets up most of the Kses filters for input form content. * * If you remove the kses_init() function from 'init' hook and * 'set_current_user' (priority is default), then none of the Kses filter hooks * will be added. * * First removes all of the Kses filters in case the current user does not need * to have Kses filter the content. If the user does not have unfiltered_html * capability, then Kses filters are added. * * @since 2.0.0 */ function kses_init() { kses_remove_filters(); // TODO: current_user_can() // if( current_user_can('unfiltered_html') == false) kses_init_filters(); } if (class_exists('GB_Hooks')) { GB_Hooks::add_action('init', 'kses_init'); GB_Hooks::add_action('set_current_user', 'kses_init'); } /** * Inline CSS filter * * @since 2.0.0 */ function safecss_filter_attr($css, $deprecated = '') { if (! empty($deprecated)) _deprecated_argument(__FUNCTION__, '2.8.1'); // Never implemented $css = gb_kses_no_null($css); $css = str_replace(array( "\n", "\r", "\t" ), '', $css); if (preg_match('%[\\\\(&=}]|/\*%', $css)) // remove any inline css containing \ ( & } = or comments return ''; $css_array = explode(';', trim($css)); /** * Filter list of allowed CSS attributes. * * @since 2.0.0 * * @param array $attr * List of allowed CSS attributes. */ $allowed_attr = GB_Hooks::apply_filters('safe_style_css', array( 'text-align', 'margin', 'color', 'float', 'border', 'background', 'background-color', 'border-bottom', 'border-bottom-color', 'border-bottom-style', 'border-bottom-width', 'border-collapse', 'border-color', 'border-left', 'border-left-color', 'border-left-style', 'border-left-width', 'border-right', 'border-right-color', 'border-right-style', 'border-right-width', 'border-spacing', 'border-style', 'border-top', 'border-top-color', 'border-top-style', 'border-top-width', 'border-width', 'caption-side', 'clear', 'cursor', 'direction', 'font', 'font-family', 'font-size', 'font-style', 'font-variant', 'font-weight', 'height', 'letter-spacing', 'line-height', 'margin-bottom', 'margin-left', 'margin-right', 'margin-top', 'overflow', 'padding', 'padding-bottom', 'padding-left', 'padding-right', 'padding-top', 'text-decoration', 'text-indent', 'vertical-align', 'width' )); if (empty($allowed_attr)) return $css; $css = ''; foreach ($css_array as $css_item) { if ($css_item == '') continue; $css_item = trim($css_item); $found = false; if (strpos($css_item, ':') === false) { $found = true; } else { $parts = explode(':', $css_item); if (in_array(trim($parts[0]), $allowed_attr)) $found = true; } if ($found) { if ($css != '') $css .= ';'; $css .= $css_item; } } return $css; } /** * Helper function to add global attributes to a tag in the allowed html list. * * @since 2.0.0 * @access private * * @param array $value * An array of attributes. * @return array The array of attributes with global attributes added. */ function _gb_add_global_attributes($value) { $global_attributes = array( 'class' => true, 'id' => true, 'style' => true, 'title' => true, 'role' => true ); if (true === $value) $value = array(); if (is_array($value)) return array_merge($value, $global_attributes); return $value; } |