c0d8ea01b9
the real file - check usage info instead. Use more robust checks for valid lines. Suppress stderr from unzip. Workaround for jar files - fix mode for files ending with slash.
136 строки
3.1 KiB
Bash
136 строки
3.1 KiB
Bash
#! /bin/sh
|
|
#
|
|
# Written by Jakub Jelinek 1995
|
|
# Updated by Christian Gennerat 1999
|
|
#
|
|
# (C) 1995,1999 The Free Software Foundation.
|
|
#
|
|
#
|
|
|
|
DZIP=/usr/bin
|
|
XZIP="$DZIP/zip -g"
|
|
XDZIP="$DZIP/zip -d"
|
|
XUNZIP="$DZIP/unzip"
|
|
XZIPINFO="$DZIP/unzip -Z"
|
|
|
|
mczipfs_list ()
|
|
{
|
|
# Try zipinfo if available, fallback to unzip.
|
|
if $XZIPINFO 2>&1 | grep ZipInfo >/dev/null; then
|
|
$XZIPINFO -l "$1" 2>/dev/null | \
|
|
@AWK@ -v uid=${UID-0} -v zipfile="$1" -v xunzip=$XUNZIP '
|
|
# Zipinfo prints errors on stdout. Check mode and time to skip them.
|
|
/^[^a-z\-]/ { next }
|
|
($9 ~ /:/) {
|
|
split($0,a,":")
|
|
nam = substr(a[2],4)
|
|
if ($1 ~ /^l/ ) {
|
|
arrow=" -> "
|
|
linkname=""
|
|
cmd=xunzip " -p " zipfile " " nam
|
|
cmd | getline linkname
|
|
} else {
|
|
arrow=""
|
|
linkname=""
|
|
}
|
|
|
|
# If mode is not UNIX-compatible, take first 4 characters.
|
|
if (length($1) != 10)
|
|
mode=substr($1, 1, 4) "------"
|
|
else
|
|
mode=$1
|
|
|
|
# Workaround for jar files - files ending with / are directories.
|
|
if ($0 ~ /\/$/)
|
|
sub(/^./, "d", mode)
|
|
|
|
if (nam ~ /^\^/)
|
|
nam=substr(nam, 2)
|
|
split($8, a, "-")
|
|
if (a[3] < 50)
|
|
a[3] = 2000 + a[3]
|
|
else
|
|
a[3] = 1900 + a[3]
|
|
printf "%s 1 %-8d %-8d %8d %3s %2d %4d %s %s%s%s\n", mode, uid, 0, $4, a[2], a[1], a[3], $9, nam, arrow, linkname
|
|
next
|
|
}' 2>/dev/null
|
|
else
|
|
$XUNZIP -v "$1" 2>/dev/null | @AWK@ -v uid=${UID-0} '
|
|
# Not sure about portability of unzip -qq.
|
|
# Check ratio to eliminate all but valid entries.
|
|
($4 ~ /%$/) {
|
|
if ($8 ~ /^\^/)
|
|
$8=substr($8, 2)
|
|
## Y2K patch. if Year>=2000, unzip returns Year>=100
|
|
split($5, a, "-")
|
|
if (a[3] > 99)
|
|
a[3] = substr(a[3],2)
|
|
if ($8 ~ /\/$/)
|
|
printf "drwxr-xr-x 1 %-8d %-8d %8d %s-%s-%s %s %s\n", uid, 0, $1, a[1],a[2],a[3], $6, $8
|
|
else
|
|
printf "-rw-r--r-- 1 %-8d %-8d %8d %s-%s-%s %s %s\n", uid, 0, $1, a[1],a[2],a[3], $6, $8
|
|
}' 2>/dev/null
|
|
fi
|
|
}
|
|
|
|
mczipfs_mkdir ()
|
|
{
|
|
# preserve pwd. It is clean, but is it necessary?
|
|
pwd=`pwd`
|
|
# Create a directory and create in it a tmp directory with the good name
|
|
dir=tmpdir.${RANDOM}
|
|
mkdir $dir
|
|
cd $dir
|
|
mkdir -p "$2"
|
|
$XZIP "$1" "$2" &>/dev/null
|
|
cd $pwd
|
|
rm -rf $dir
|
|
}
|
|
|
|
mczipfs_copyin ()
|
|
{
|
|
# preserve pwd. It is clean, but is it necessary?
|
|
pwd=`pwd`
|
|
# Create a directory and copy in it the tmp file with the good name
|
|
mkdir $3.dir
|
|
cd $3.dir
|
|
di="${2%/*}"
|
|
# if file is to be written upper in the archive tree, make fake dir
|
|
if test "$di" != "${2##*/}" ; then
|
|
mkdir -p "$di"
|
|
fi
|
|
# (cp -p) to preserve date, but $2 is dated now!
|
|
cp -p $3 "$3.dir/$2"
|
|
$XZIP "$1" "$2" >/dev/null
|
|
cd $pwd
|
|
rm -rf $3.dir
|
|
}
|
|
|
|
mczipfs_copyout ()
|
|
{
|
|
$XUNZIP -p "$1" "$2" > "$3" 2>/dev/null
|
|
}
|
|
|
|
mczipfs_rm ()
|
|
{
|
|
$XDZIP "$1" "$2" &>/dev/null
|
|
}
|
|
|
|
mczipfs_rmdir ()
|
|
{
|
|
$XDZIP "$1" "$2"/ &>/dev/null
|
|
}
|
|
|
|
umask 077
|
|
|
|
#echo "`date +%T` ${0##*/} $1 $2 to=$3 tmp=$4" >>~/tmp/${0##*/}.log
|
|
case "$1" in
|
|
list) mczipfs_list "$2"; exit 0;;
|
|
rm) mczipfs_rm "$2" "$3" ; exit 0;;
|
|
rmdir) mczipfs_rmdir "$2" "$3" ; exit 0;;
|
|
mkdir) mczipfs_mkdir "$2" "$3" ; exit 0;;
|
|
copyin) mczipfs_copyin "$2" "$3" "$4" ; exit 0;;
|
|
copyout) mczipfs_copyout "$2" "$3" "$4" ; exit 0;;
|
|
esac
|
|
exit 1
|