1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
#! /bin/sh
# Written by Ilia Maslakov <il.smind@gmail.com>
#
# (C) 2020 The Free Software Foundation.
# Define awk
AWK=@AWK@
# Define which archiver you are using with appropriate options
UNAR_LIST="lsar "
UNAR_GET="unar "
# The 'list' command executive
mc_unar_fs_list()
{
# List the contents of the archive and sort it out
$UNAR_LIST -l "$1" | $AWK -v uid=`id -nu` -v gid=`id -ng` '
BEGIN { flag = 0 }
/^\(Flags/ {next}
/^\(Mode/ {next}
{
flag++;
if (flag < 4)
next
pr="-r--r--r--"
if (index($2, "D") != 0)
pr="dr-xr-xr-x"
split($6, a, "-")
split($7, b, ":")
printf "%s 1 %s %s %d %02d/%02d/%02d %02d:%02d %s\n", pr, uid, gid, $3, a[3], a[2], a[1], b[1], b[2], $8
}'
}
# The 'copyout' command executive to copy displayed files to a destination
mc_unar_fs_copyout ()
{
TMPDIR=`mktemp -d "${MC_TMPDIR:-/tmp}/mctmpdir-uha.XXXXXX"` || exit 1
$UNAR_GET "$1" "$2" -o "$TMPDIR" >/dev/null
we=`basename "$1" | sed -E 's|^(.*?)\.\w+$|\1|'`
cat "$TMPDIR/$we/$2" > "$3"
cd /
rm -rf "$TMPDIR"
}
# The main routine
umask 077
cmd="$1"
shift
case "$cmd" in
list) mc_unar_fs_list "$@" ;;
copyout) mc_unar_fs_copyout "$@" ;;
*) exit 1 ;;
esac
exit 0
|
