| Server IP : 91.108.119.58 / Your IP : 216.73.216.238 Web Server : LiteSpeed System : Linux id-dci-web1986.main-hosting.eu 5.14.0-611.26.1.el9_7.x86_64 #1 SMP PREEMPT_DYNAMIC Thu Jan 29 05:24:47 EST 2026 x86_64 User : u686484674 ( 686484674) PHP Version : 8.0.30 Disable Function : system, exec, shell_exec, passthru, mysql_list_dbs, ini_alter, dl, symlink, link, chgrp, leak, popen, apache_child_terminate, virtual, mb_send_mail MySQL : OFF | cURL : ON | WGET : ON | Perl : OFF | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /proc/self/root/proc/self/root/proc/thread-self/root/usr/libexec/mc/extfs.d/ |
Upload File : |
#!/usr/bin/sh
# Based on previous version of lslR
# Modified by Tomas Novak <tnovak@ipex.cz> April 2000
# (to allow spaces in filenames)
#
# It's assumed that lslR was generated in C locale.
LC_ALL=C
export LC_ALL=C
AWK=gawk
mclslRfs_list () {
case "$1" in
*.lz) MYCAT="lzip -dc";;
*.lz4) MYCAT="lz4 -dc";;
*.lzma) MYCAT="lzma -dc";;
*.xz) MYCAT="xz -dc";;
*.zst) MYCAT="zstd -dc";;
*.bz2) MYCAT="bzip2 -dc";;
*.gz) MYCAT="gzip -dc";;
*.z) MYCAT="gzip -dc";;
*.Z) MYCAT="gzip -dc";;
*) MYCAT="cat";;
esac
MYCAT=${MC_TEST_EXTFS_LIST_CMD:-$MYCAT} # Let the test framework hook in.
$MYCAT "$1" | $AWK '
BEGIN {
dir="";
empty=1;
rx = "[^ ]+[ ]+";
# Pattern to match 7 first fields.
rx7 = "^" rx rx rx rx rx rx "[^ ]+[ ]";
# Pattern to match 8 first fields.
rx8 = "^" rx rx rx rx rx rx rx "[^ ]+[ ]";
}
/^total\ [0-9]*$/ { next }
/^$/ { empty=1; next }
empty==1 && /:$/ {
empty=0
if ($0 ~ /^\//) dir=substr($0, 2);
else dir=$0;
if (dir ~ /\/:$/) sub(/:$/, "", dir);
else sub(/:$/, "/", dir);
if (dir ~ /^[ ]/) dir="./"dir;
next;
}
( NF > 7 ) {
empty=0
# gensub() is not portable.
name=$0
i=index($6, "-")
if (i) {
sub(rx7, "", name)
NF = 7
$6=substr($6,i+1)"-"substr($6,1,i-1)
}
else {
sub(rx8, "", name)
NF = 8
}
printf "%s %s%s\n", $0, dir, name
}
{
empty=0
}'
}
case "$1" in
list) mclslRfs_list "$2"; exit 0;;
esac
exit 1