<?php

function testResult($result, $reference, $yes = "yes", $no = "no")
{
	$str = "<div style=\"display: inline; color: ";
	if($result == $reference) $str .= "#090";
	else $str .= "#900; font-weight: bold";
	$str .= ";\">";
	if($result) $str .= $yes;
	else $str .= $no;
	$str .= "</div>";
	return $str;
}

function testFile($file, $readable, $writeable, $executable)
{
	echo "<tr>";
	echo "<td>" . $file . "</td>";
	echo "<td>" . testResult(file_exists($file), true) . "</td>";
	echo "<td>" . testResult(is_file($file), true, "file", "not file") . "</td>";
	echo "<td>" . testResult(is_readable($file), $readable) . "</td>";
	echo "<td>" . testResult(is_writeable($file), $writeable) . "</td>";
	echo "<td>" . testResult(is_executable($file), $executable) . "</td>";
	echo "</tr>\n";
}

function testLink($link, $readable, $writeable, $executable)
{
	echo "<tr>";
	echo "<td>" . $link . "</td>";
	echo "<td>" . testResult(file_exists($link), true) . "</td>";
	echo "<td>" . testResult(is_link($link), true, "link", "not link") . "</td>";
	echo "<td>" . testResult(is_readable($link), $readable) . "</td>";
	echo "<td>" . testResult(is_writeable($link), $writeable) . "</td>";
	echo "<td>" . testResult(is_executable($link), $executable) . "</td>";
	echo "</tr>\n";
}

function testDir($dir, $readable, $writeable, $executable)
{
	echo "<tr>";
	echo "<td>" . $dir . "</td>";
	echo "<td>" . testResult(file_exists($dir), true) . "</td>";
	echo "<td>" . testResult(is_dir($dir), true, "dir", "not dir") . "</td>";
	echo "<td>" . testResult(is_readable($dir), $readable) . "</td>";
	echo "<td>" . testResult(is_writeable($dir), $writeable) . "</td>";
	echo "<td>" . testResult(is_executable($dir), $executable) . "</td>";
	echo "</tr>\n";
}

?>
<table border="1px">
<tr><td width="30%">Name</td><td width="10%">Exists</td><td width="10%">Type</td><td width="10%">Readable</td><td width="10%">Writeable</td><td width="10%">Executable</td></tr>
<?php

//testLink("../forum", true, false, false);
testDir($UTIL_DIR, true, false, true);
testDir($DATA_DIR, true, true, true);
testFile($DATA_DIR . "/forum.log", true, true, false);

testFile("NOfile", true, true, true);
testFile("/etc/passwd", true, true, true);
?>
</table>