|
Server : LiteSpeed System : Linux srv104790275 5.15.0-161-generic #171-Ubuntu SMP Sat Oct 11 08:17:01 UTC 2025 x86_64 User : dewac4139 ( 1077) PHP Version : 8.0.30 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals,pcntl_unshare, Directory : /proc/thread-self/root/lib/mc/extfs.d/ |
Upload File : |
#! /bin/sh
CAB=cabextract
mccabfs_list ()
{
$CAB -l "$1" | awk -v uid=`id -un` -v gid=`id -gn` '
BEGIN { flag=0 }
/^-------/ { flag++; if (flag > 1) exit 0; next }
{
if (flag == 0) next
if (length($6) == 0) next
pr="-rw-r--r--"
split($3, a, ".")
split($4, b, ":")
printf "%s 1 %s %s %d %02d/%02d/%02d %02d:%02d %s\n", pr, uid, gid, $1, a[2], a[1], a[3], b[1], b[2], $6
}'
}
mccabfs_copyout ()
{
$CAB -F "$2" -p "$1" > "$3"
}
LC_ALL=C
export LC_ALL
umask 077
cmd="$1"
case "$cmd" in
# Workaround for a bug in mc - directories must precede files to
# avoid duplicate entries, so we sort output by filenames
list) mccabfs_list "$2" ;;
copyout) mccabfs_copyout "$2" "$3" "$4" ;;
*) exit 1 ;;
esac
exit 0