public function pw_var_export($input, $t = null) { import("@.ORG.RBAC"); $output = ''; if (is_array($input)) { $output .= "array(\r\n"; foreach ($input as $key => $value) { $output .= $t . "\t" . RBAC::pw_var_export($key, $t . "\t") . ' => ' . RBAC::pw_var_export($value, $t . "\t"); $output .= ",\r\n"; } $output .= $t . ')'; } elseif (is_string($input)) { $output .= "'" . str_replace(array("\\", "'"), array("\\\\", "\\'"), $input) . "'"; } elseif (is_int($input) || is_double($input)) { $output .= "'" . (string) $input . "'"; } elseif (is_bool($input)) { $output .= $input ? 'true' : 'false'; } else { $output .= 'NULL'; } return $output; }