Copy Code code as follows:
function Perms_str ($perms) {
if ($perms & 0xc000) = = 0xc000) {
Socket
$info = ' s ';
} elseif (($perms & 0xa000) = = 0xa000) {
Symbolic Link
$info = ' l ';
} elseif (($perms & 0x8000) = = 0x8000) {
Regular
$info = '-';
} elseif (($perms & 0x6000) = = 0x6000) {
Block Special
$info = ' B ';
} elseif (($perms & 0x4000) = = 0x4000) {
Directory
$info = ' d ';
} elseif (($perms & 0x2000) = = 0x2000) {
Character Special
$info = ' C ';
} elseif (($perms & 0x1000) = = 0x1000) {
FIFO Pipe
$info = ' P ';
} else {
Unknown
$info = ' u ';
}
Owner
$info. = ($perms & 0x0100)? ' R ': '-');
$info. = ($perms & 0x0080)? ' W ': '-');
$info. = ($perms & 0x0040)?
($perms & 0x0800)? ' s ': ' X '):
($perms & 0x0800)? ' S ': '-'));
Group
$info. = ($perms & 0x0020)? ' R ': '-');
$info. = ($perms & 0x0010)? ' W ': '-');
$info. = ($perms & 0x0008)?
($perms & 0x0400)? ' s ': ' X '):
($perms & 0x0400)? ' S ': '-'));
World
$info. = ($perms & 0x0004)? ' R ': '-');
$info. = ($perms & 0x0002)? ' W ': '-');
$info. = ($perms & 0x0001)?
($perms & 0x0200)? ' t ': ' X '):
($perms & 0x0200)? ' T ': '-');
return $info;
}