|
' . phrase('permission_for', $file) . '
[ ' . word('back') . ' ]
';
//html_footer();
}
break;
default:
$html .= listing_page();
}
$HTMLStylesFmt['webadmin'] = "
div#webadmin { font: small sans-serif; text-align: center }
div#webadmin img { width: 17px; height: 13px }
div#webadmin a, a:visited { text-decoration: none; color: navy }
div#webadmin hr { border-style: none; height: 1px; background-color: silver; color: silver }
div#webadmin #main { margin-top: 6pt; margin-left: auto; margin-right: auto; border-spacing: 1px }
div#webadmin #main th { background: #eee; padding: 3pt 3pt 0pt 3pt }
div#webadmin .listing th, .listing td { padding: 1px 3pt 0 3pt }
div#webadmin .listing th { border: 1px solid silver }
div#webadmin .listing td { border: 1px solid #ddd; background: white }
div#webadmin .listing .checkbox { text-align: center }
div#webadmin .listing .filename { text-align: left }
div#webadmin .listing .size { text-align: right }
div#webadmin .listing th.permission { text-align: left }
div#webadmin .listing td.permission { font-family: monospace }
div#webadmin .listing .owner { text-align: left }
div#webadmin .listing .group { text-align: left }
div#webadmin .listing .functions { text-align: left }
div#webadmin .listing_footer td { background: #eee; border: 1px solid silver }
div#webadmin #directory, #upload, #create, .listing_footer td, #error td, #notice td { text-align: left; padding: 3pt }
div#webadmin #directory { background: #eee; border: 1px solid silver }
div#webadmin #upload { padding-top: 1em }
div#webadmin #create { padding-bottom: 1em }
div#webadmin .small, .small option { font-size: x-small }
div#webadmin textarea { border: none; background: white }
div#webadmin table.dialog { margin-left: auto; margin-right: auto }
div#webadmin td.dialog { background: #eee; padding: 1ex; border: 1px solid silver; text-align: center }
div#webadmin #permission { margin-left: auto; margin-right: auto }
div#webadmin #permission td { padding-left: 3pt; padding-right: 3pt; text-align: center }
div#webadmin td.permission_action { text-align: right }
div#webadmin #symlink { background: #eee; border: 1px solid silver }
div#webadmin div#webadmin #symlink td { text-align: left; padding: 3pt }
div#webadmin #red_button { width: 120px; color: #400 }
div#webadmin #green_button { width: 120px; color: #040 }
div#webadmin #error td { background: maroon; color: white; border: 1px solid silver }
div#webadmin #notice td { background: green; color: white; border: 1px solid silver }
div#webadmin #notice pre, #error pre { background: silver; color: black; padding: 1ex; margin-left: 1ex; margin-right: 1ex }
div#webadmin code { font-size: 12pt }
div#webadmin td { white-space: nowrap }
";
global $PageStartFmt, $PageEndFmt;
PrintFmt($pagename,$PageStartFmt);
echo ''.$html.' ';
PrintFmt($pagename,$PageEndFmt);
}
/* ------------------------------------------------------------------------- */
function getlist ($directory) {
global $delim, $win;
if ($d = @opendir($directory)) {
while (($filename = @readdir($d)) !== false) {
$path = $directory . $filename;
if ($stat = @lstat($path)) {
$file = array(
'filename' => $filename,
'path' => $path,
'is_file' => @is_file($path),
'is_dir' => @is_dir($path),
'is_link' => @is_link($path),
'is_readable' => @is_readable($path),
'is_writable' => @is_writable($path),
'size' => $stat['size'],
'permission' => $stat['mode'],
'owner' => $stat['uid'],
'group' => $stat['gid'],
'mtime' => @filemtime($path),
'atime' => @fileatime($path),
'ctime' => @filectime($path)
);
if ($file['is_dir']) {
$file['is_executable'] = @file_exists($path . $delim . '.');
} else {
if (!$win) {
$file['is_executable'] = @is_executable($path);
} else {
$file['is_executable'] = true;
}
}
if ($file['is_link']) $file['target'] = @readlink($path);
if (function_exists('posix_getpwuid')) $file['owner_name'] = @reset(posix_getpwuid($file['owner']));
if (function_exists('posix_getgrgid')) $file['group_name'] = @reset(posix_getgrgid($file['group']));
$files[] = $file;
}
}
return $files;
} else {
return false;
}
}
function sortlist ($list, $key, $reverse) {
$dirs = array();
$files = array();
for ($i = 0; $i < sizeof($list); $i++) {
if ($list[$i]['is_dir']) $dirs[] = $list[$i];
else $files[] = $list[$i];
}
quicksort($dirs, 0, sizeof($dirs) - 1, $key);
if ($reverse) $dirs = array_reverse($dirs);
quicksort($files, 0, sizeof($files) - 1, $key);
if ($reverse) $files = array_reverse($files);
return array_merge($dirs, $files);
}
function quicksort (&$array, $first, $last, $key) {
if ($first < $last) {
$cmp = $array[floor(($first + $last) / 2)][$key];
$l = $first;
$r = $last;
while ($l <= $r) {
while ($array[$l][$key] < $cmp) $l++;
while ($array[$r][$key] > $cmp) $r--;
if ($l <= $r) {
$tmp = $array[$l];
$array[$l] = $array[$r];
$array[$r] = $tmp;
$l++;
$r--;
}
}
quicksort($array, $first, $r, $key);
quicksort($array, $l, $last, $key);
}
}
function permission_octal2string ($mode) {
if (($mode & 0xC000) === 0xC000) {
$type = 's';
} elseif (($mode & 0xA000) === 0xA000) {
$type = 'l';
} elseif (($mode & 0x8000) === 0x8000) {
$type = '-';
} elseif (($mode & 0x6000) === 0x6000) {
$type = 'b';
} elseif (($mode & 0x4000) === 0x4000) {
$type = 'd';
} elseif (($mode & 0x2000) === 0x2000) {
$type = 'c';
} elseif (($mode & 0x1000) === 0x1000) {
$type = 'p';
} else {
$type = '?';
}
$owner = ($mode & 00400) ? 'r' : '-';
$owner .= ($mode & 00200) ? 'w' : '-';
if ($mode & 0x800) {
$owner .= ($mode & 00100) ? 's' : 'S';
} else {
$owner .= ($mode & 00100) ? 'x' : '-';
}
$group = ($mode & 00040) ? 'r' : '-';
$group .= ($mode & 00020) ? 'w' : '-';
if ($mode & 0x400) {
$group .= ($mode & 00010) ? 's' : 'S';
} else {
$group .= ($mode & 00010) ? 'x' : '-';
}
$other = ($mode & 00004) ? 'r' : '-';
$other .= ($mode & 00002) ? 'w' : '-';
if ($mode & 0x200) {
$other .= ($mode & 00001) ? 't' : 'T';
} else {
$other .= ($mode & 00001) ? 'x' : '-';
}
return $type . $owner . $group . $other;
}
function is_script ($filename) {
return ereg('\.php$|\.php3$|\.php4$|\.php5$', $filename);
}
function getmimetype ($filename) {
static $mimes = array(
'\.jpg$|\.jpeg$' => 'image/jpeg',
'\.gif$' => 'image/gif',
'\.png$' => 'image/png',
'\.html$|\.html$' => 'text/html',
'\.txt$|\.asc$' => 'text/plain',
'\.xml$|\.xsl$' => 'application/xml',
'\.pdf$' => 'application/pdf'
);
foreach ($mimes as $regex => $mime) {
if (eregi($regex, $filename)) return $mime;
}
// return 'application/octet-stream';
return 'text/plain';
}
function del ($file) {
global $delim;
if (!file_exists($file)) return false;
if (@is_dir($file) && !@is_link($file)) {
$success = false;
if (@rmdir($file)) {
$success = true;
} elseif ($dir = @opendir($file)) {
$success = true;
while (($f = readdir($dir)) !== false) {
if ($f != '.' && $f != '..' && !del($file . $delim . $f)) {
$success = false;
}
}
closedir($dir);
if ($success) $success = @rmdir($file);
}
return $success;
}
return @unlink($file);
}
function addslash ($directory) {
global $delim;
if (substr($directory, -1, 1) != $delim) {
return $directory . $delim;
} else {
return $directory;
}
}
function relative2absolute ($string, $directory) {
if (path_is_relative($string)) {
return simplify_path(addslash($directory) . $string);
} else {
return simplify_path($string);
}
}
function path_is_relative ($path) {
global $win;
if ($win) {
return (substr($path, 1, 1) != ':');
} else {
return (substr($path, 0, 1) != '/');
}
}
function absolute2relative ($directory, $target) {
global $delim;
$path = '';
while ($directory != $target) {
if ($directory == substr($target, 0, strlen($directory))) {
$path .= substr($target, strlen($directory));
break;
} else {
$path .= '..' . $delim;
$directory = substr($directory, 0, strrpos(substr($directory, 0, -1), $delim) + 1);
}
}
if ($path == '') $path = '.';
return $path;
}
function simplify_path ($path) {
global $delim;
if (@file_exists($path) && function_exists('realpath') && @realpath($path) != '') {
$path = realpath($path);
if (@is_dir($path)) {
return addslash($path);
} else {
return $path;
}
}
$pattern = $delim . '.' . $delim;
if (@is_dir($path)) {
$path = addslash($path);
}
while (strpos($path, $pattern) !== false) {
$path = str_replace($pattern, $delim, $path);
}
$e = addslashes($delim);
$regex = $e . '((\.[^\.' . $e . '][^' . $e . ']*)|(\.\.[^' . $e . ']+)|([^\.][^' . $e . ']*))' . $e . '\.\.' . $e;
while (ereg($regex, $path)) {
$path = ereg_replace($regex, $delim, $path);
}
return $path;
}
function human_filesize ($filesize) {
$suffices = 'kMGTPE';
$n = 0;
while ($filesize >= 1000) {
$filesize /= 1024;
$n++;
}
$filesize = round($filesize, 3 - strpos($filesize, '.'));
if (strpos($filesize, '.') !== false) {
while (in_array(substr($filesize, -1, 1), array('0', '.'))) {
$filesize = substr($filesize, 0, strlen($filesize) - 1);
}
}
$suffix = (($n == 0) ? '' : substr($suffices, $n - 1, 1));
return $filesize . " {$suffix}B";
}
function strip (&$str) {
$str = stripslashes($str);
}
/* ------------------------------------------------------------------------- */
function listing_page ($message = null) {
global $self, $directory, $sort, $reverse;
//html_header();
$list = getlist($directory);
if (array_key_exists('sort', $_GET)) $sort = $_GET['sort']; else $sort = 'filename';
if (array_key_exists('reverse', $_GET) && $_GET['reverse'] == 'true') $reverse = true; else $reverse = false;
$list = sortlist($list, $sort, $reverse);
$html .= 'webadmin
';
//html_footer();
Return $html;
}
function listing ($list) {
global $directory, $homedir, $sort, $reverse, $win, $cols, $date_format, $self;
$html = ' |