You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
131 lines
4.9 KiB
131 lines
4.9 KiB
2 years ago
|
<?php
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Performs safe variable parsing based on types which can be used by
|
||
|
|
* users. This may not be able to represent all possible data inputs,
|
||
|
|
* however.
|
||
|
|
*/
|
||
|
|
class HTMLPurifier_VarParser_Flexible extends HTMLPurifier_VarParser
|
||
|
|
{
|
||
|
|
/**
|
||
|
|
* @param mixed $var
|
||
|
|
* @param int $type
|
||
|
|
* @param bool $allow_null
|
||
|
|
* @return array|bool|float|int|mixed|null|string
|
||
|
|
* @throws HTMLPurifier_VarParserException
|
||
|
|
*/
|
||
|
|
protected function parseImplementation($var, $type, $allow_null)
|
||
|
|
{
|
||
|
|
if ($allow_null && $var === null) {
|
||
|
|
return null;
|
||
|
|
}
|
||
|
|
switch ($type) {
|
||
|
|
// Note: if code "breaks" from the switch, it triggers a generic
|
||
|
|
// exception to be thrown. Specific errors can be specifically
|
||
|
|
// done here.
|
||
|
|
case self::MIXED:
|
||
|
|
case self::ISTRING:
|
||
|
|
case self::STRING:
|
||
|
|
case self::TEXT:
|
||
|
|
case self::ITEXT:
|
||
|
|
return $var;
|
||
|
|
case self::INT:
|
||
|
|
if (is_string($var) && ctype_digit($var)) {
|
||
|
|
$var = (int)$var;
|
||
|
|
}
|
||
|
|
return $var;
|
||
|
|
case self::FLOAT:
|
||
|
|
if ((is_string($var) && is_numeric($var)) || is_int($var)) {
|
||
|
|
$var = (float)$var;
|
||
|
|
}
|
||
|
|
return $var;
|
||
|
|
case self::BOOL:
|
||
|
|
if (is_int($var) && ($var === 0 || $var === 1)) {
|
||
|
|
$var = (bool)$var;
|
||
|
|
} elseif (is_string($var)) {
|
||
|
|
if ($var == 'on' || $var == 'true' || $var == '1') {
|
||
|
|
$var = true;
|
||
|
|
} elseif ($var == 'off' || $var == 'false' || $var == '0') {
|
||
|
|
$var = false;
|
||
|
|
} else {
|
||
|
|
throw new HTMLPurifier_VarParserException("Unrecognized value '$var' for $type");
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return $var;
|
||
|
|
case self::ALIST:
|
||
|
|
case self::HASH:
|
||
|
|
case self::LOOKUP:
|
||
|
|
if (is_string($var)) {
|
||
|
|
// special case: technically, this is an array with
|
||
|
|
// a single empty string item, but having an empty
|
||
|
|
// array is more intuitive
|
||
|
|
if ($var == '') {
|
||
|
|
return array();
|
||
|
|
}
|
||
|
|
if (strpos($var, "\n") === false && strpos($var, "\r") === false) {
|
||
|
|
// simplistic string to array method that only works
|
||
|
|
// for simple lists of tag names or alphanumeric characters
|
||
|
|
$var = explode(',', $var);
|
||
|
|
} else {
|
||
|
|
$var = preg_split('/(,|[\n\r]+)/', $var);
|
||
|
|
}
|
||
|
|
// remove spaces
|
||
|
|
foreach ($var as $i => $j) {
|
||
|
|
$var[$i] = trim($j);
|
||
|
|
}
|
||
|
|
if ($type === self::HASH) {
|
||
|
|
// key:value,key2:value2
|
||
|
|
$nvar = array();
|
||
|
|
foreach ($var as $keypair) {
|
||
|
|
$c = explode(':', $keypair, 2);
|
||
|
|
if (!isset($c[1])) {
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
$nvar[trim($c[0])] = trim($c[1]);
|
||
|
|
}
|
||
|
|
$var = $nvar;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if (!is_array($var)) {
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
$keys = array_keys($var);
|
||
|
|
if ($keys === array_keys($keys)) {
|
||
|
|
if ($type == self::ALIST) {
|
||
|
|
return $var;
|
||
|
|
} elseif ($type == self::LOOKUP) {
|
||
|
|
$new = array();
|
||
|
|
foreach ($var as $key) {
|
||
|
|
$new[$key] = true;
|
||
|
|
}
|
||
|
|
return $new;
|
||
|
|
} else {
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if ($type === self::ALIST) {
|
||
|
|
trigger_error("Array list did not have consecutive integer indexes", E_USER_WARNING);
|
||
|
|
return array_values($var);
|
||
|
|
}
|
||
|
|
if ($type === self::LOOKUP) {
|
||
|
|
foreach ($var as $key => $value) {
|
||
|
|
if ($value !== true) {
|
||
|
|
trigger_error(
|
||
|
|
"Lookup array has non-true value at key '$key'; " .
|
||
|
|
"maybe your input array was not indexed numerically",
|
||
|
|
E_USER_WARNING
|
||
|
|
);
|
||
|
|
}
|
||
|
|
$var[$key] = true;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return $var;
|
||
|
|
default:
|
||
|
|
$this->errorInconsistent(__CLASS__, $type);
|
||
|
|
}
|
||
|
|
$this->errorGeneric($var, $type);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
// vim: et sw=4 sts=4
|