source: viewing 'source.php'

<?php
error_reporting(E_ALL);
if (isset($_GET['thing']) === false)
{
$thing = 'source.php';
}
else
{
$thing = basename($_GET['thing']);
}
if ($thing !== 'source.php')
{
$thing = 'source/' . $thing;
}
if (file_exists($thing) === false || substr($thing, -4) != '.php')
{
Header('Content-type: text/plain');
printf("I'm not that dumb. Mm'k?");
exit();
}
// kuja's php highlighter. :>
// modified to my wishes, of course.
// Fix certain tokens between PHP4 and PHP5.
if (defined('T_ML_COMMENT') === false)
{
// Define T_ML_COMMENT for PHP5.
define('T_ML_COMMENT', T_COMMENT);
}
else
{
// Define T_DOC_COMMENT for PHP4.
define('T_DOC_COMMENT', T_ML_COMMENT);
}
/**
* Generate valid-HTML PHP syntax highlighting.
*
* @author Matthew Harris <shugotenshi@gmail.com>
*/
function highlight($file)
{
static $functions = false;
if ($functions === false)
{
$functions = get_defined_functions();
$functions = $functions['internal'];
}
// Get file as string.
$str = trim(file_get_contents($file));
// Get all tokens from string.
$tokens = token_get_all($str);
// Output beginning of ordered list.
$code = '<ol id="highlight">' . "\n" . '<li class="odd">';
$iterator = 1;
foreach ($tokens as $key => $token)
{
// Get token and value.
if (is_array($token))
{
$value = $token[1];
$token = $token[0];
}
else
{
$value = $token;
}
// Convert any HTML values in $value to entities.
$base = $value;
$value = htmlentities($value);
// Convert each tab to spaces, and each space to HTML non-breaking spaces.
$value = str_replace(array("\t", ' '), array('    ', ' '), $value);
/*
do
{
$position = strpos($value, "\t", 0);
if ($position === false)
{
break;
}
$prefix = substr($value, 0, $position);
$suffix = substr($value, $position + 1);
$value = $prefix . str_repeat(' ', 4 - (strlen($prefix) % 4)). $suffix;
}
while (true);
$value = str_replace(' ', ' ', $value);
*/
// Check each token.
switch ($token)
{
case '@':
{
$code .= '' . $value . '';
break;
}
case '!':
{
$code .= '' . $value . '';
break;
}
case '=':
{
$code .= '' . $value . '';
break;
}
case '{':
{
$code .= '' . $value . '';
break;
}
case '}':
{
$code .= '' . $value . '';
break;
}
case '(':
{
$code .= '' . $value . '';
break;
}
case ')':
{
$code .= '' . $value . '';
break;
}
case '[':
{
$code .= '' . $value . '';
break;
}
case ']':
{
$code .= '' . $value . '';
break;
}
case ';':
{
$code .= '' . $value . '';
break;
}
case ',':
{
$code .= '' . $value . '';
break;
}
case ':':
{
$code .= '' . $value . '';
break;
}
case '.':
{
$code .= '' . $value . '';
break;
}
case '<':
{
$code .= '' . $value . '';
break;
}
case '>':
{
$code .= '' . $value . '';
break;
}
case '+':
{
$code .= '' . $value . '';
break;
}
case '-':
{
$code .= '' . $value . '';
break;
}
case '*':
{
$code .= '' . $value . '';
break;
}
case '/':
{
$code .= '' . $value . '';
break;
}
case '%':
{
$code .= '' . $value . '';
break;
}
case '&':
{
$code .= '' . $value . '';
break;
}
case '|':
{
$code .= '' . $value . '';
break;
}
case '^':
{
$code .= '' . $value . '';
break;
}
case '~':
{
$code .= '' . $value . '';
break;
}
default:
{
// Check for new lines, to create list items from.
if ($value == "\n")
{
$code .= ' </li>' . "\n" . '<li class="' . (++$iterator % 2 ? "odd" : "even") . '">';
}
else
{
// Explode code by newlines.
$lines = explode("\n", $value);
foreach ($lines as $key => $line)
{
// Make sure it's not an empty line.
if (trim($line) != '')
{
switch ($token)
{
// This list isn't complete.
case T_EXIT:
case T_SWITCH:
case T_BREAK:
case T_ECHO:
case T_ARRAY:
case T_ISSET:
case T_FOREACH:
case T_REQUIRE_ONCE:
case T_UNSET:
case T_RETURN:
case T_STRING:
{
if ($token !== T_STRING || in_array(strtolower($value), $functions) === true)
{
$code .= '<a class="' . (is_int($token) ? token_name($token) : 'unknown') . '" href="http://www.php.net/manual-lookup.php?lang=en&pattern=' . strtolower($value) . '">' . $line . '</a>';
break;
}
}
default:
{
$code .= '' . $line . '';
break;
}
}
}
// Separate new lines as list items.
if (count($lines) > 1 && isset($lines[$key + 1]))
{
$code .= ' </li>' . "\n" . '<li class="' . (++$iterator % 2 ? "odd" : "even") . '">';
}
}
}
break;
}
}
}
// End ordered list.
$code .= ' </li>' . "\n" . '</ol>' . "\n";
// Return highlighted code.
return $code;
}
?>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html401/loose.dtd">
<html>
<head>
<title>source: viewing '<?php echo htmlentities(basename($thing)); ?>'</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta http-equiv="Pragma" content="no-cache">
<style type="text/css">
@import url('http://rick.gibbed.us/styles/highlight.css');
body
{
margin: 0em;
padding: 0em;
font-size: 0.8em;
font-family: Tahoma, Verdana, Arial, sans-serif;
}
#highlight
{
width: auto;
margin-left: 4em;
}
#highlight li
{
font-family: "Courier New", Courier, monospace;
white-space: nowrap;
}
#highlight li.odd
{
background-color: #ffffff;
}
#highlight li.even
{
background-color: #f9f9f9;
}
</style>
</head>
<body>
<?php echo highlight($thing); ?>
</body>
</html>