rev |
line source |
pascal@688
|
1 #!/bin/sh
|
pascal@4909
|
2 #
|
pascal@4909
|
3 # slitaz-wrap.sh - slitaz core wrapper for xarchive frontend
|
pascal@4909
|
4 # Copyright (C) 2005 Lee Bigelow <ligelowbee@yahoo.com>
|
pascal@4909
|
5 # Copyright (C) 2010 Pascal Bellard <pascal.bellard@slitaz.org>
|
pascal@4909
|
6 #
|
pascal@688
|
7 # This program is free software; you can redistribute it and/or modify
|
pascal@688
|
8 # it under the terms of the GNU General Public License as published by
|
pascal@688
|
9 # the Free Software Foundation; either version 2 of the License, or
|
pascal@688
|
10 # (at your option) any later version.
|
pascal@4909
|
11 #
|
pascal@688
|
12 # This program is distributed in the hope that it will be useful,
|
pascal@688
|
13 # but WITHOUT ANY WARRANTY; without even the implied warranty of
|
pascal@688
|
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
pascal@688
|
15 # GNU General Public License for more details.
|
pascal@4909
|
16 #
|
pascal@688
|
17 # You should have received a copy of the GNU General Public License
|
pascal@688
|
18 # along with this program; if not, write to the Free Software
|
pascal@688
|
19 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
pascal@688
|
20
|
pascal@4909
|
21 UNSUPPORTED=65
|
pascal@688
|
22
|
pascal@4909
|
23 GZIP_EXTS="tar.gz tgz cpio.gz"
|
pascal@688
|
24 LZMA_EXTS="tar.lz tar.lzma tlz"
|
pascal@688
|
25 BZIP2_EXTS="tar.bz tbz tar.bz2 tbz2"
|
pascal@4909
|
26 COMPRESS_EXTS="tar.z tar.Z"
|
pascal@4909
|
27 TAR_EXTS="tar tar.gz tgz $LZMA_EXTS $BZIP2_EXTS $COMPRESS_EXTS"
|
pascal@4355
|
28 XZ_EXTS="tar.xz txz"
|
pascal@4955
|
29 LRZIP_EXTS="tar.lrz tlrz"
|
pascal@2080
|
30 IPK_EXTS="ipk"
|
pascal@4909
|
31 CPIO_EXTS="cpio cpio.gz"
|
pascal@4355
|
32 CPIOXZ_EXTS="cpio.xz"
|
pascal@4955
|
33 CPIOLRZIP_EXTS="cpio.lrz"
|
pascal@688
|
34 ZIP_EXTS="zip cbz jar"
|
pascal@688
|
35 RPM_EXTS="rpm"
|
pascal@4909
|
36 DEB_EXTS="deb udeb"
|
pascal@3530
|
37 TAZPKG_EXTS="tazpkg spkg"
|
pascal@942
|
38 ISO_EXTS="iso"
|
pascal@4909
|
39 SQUASHFS_EXTS="sfs sqfs squashfs"
|
pascal@4909
|
40 CROMFS_EXTS="cfs cromfs"
|
pascal@17256
|
41 FAT_EXTS="dos fat vfat"
|
pascal@17256
|
42 EXT2_EXTS="ext2 ext3 ext4"
|
pascal@17256
|
43 FS_EXTS="$EXT2_EXTS $FAT_EXTS xfs fd fs loop"
|
pascal@943
|
44 CLOOP_EXTS="cloop"
|
pascal@2877
|
45 RAR_EXTS="rar cbr"
|
pascal@2877
|
46 LHA_EXTS="lha lzh lzs"
|
pascal@3194
|
47 LZO_EXTS="lzo"
|
pascal@4909
|
48 ARJ_EXTS="arj pak arc j uc2 zoo"
|
pascal@17256
|
49 _7Z_EXTS="7z bcj bcj2 wim $BZIP2_EXTS $ZIP_EXTS $XZ_EXTS"
|
pascal@17256
|
50 _7Z_EXTS_X="chm cramfs dmg hfs mbr msi nsis ntfs udf vhd xar arj cab lzh rar \
|
pascal@17256
|
51 udf cpio $ISO_EXTS $FAT_EXTS $SQUASHFS_EXTS"
|
pascal@688
|
52
|
pascal@4909
|
53 while read var progs; do
|
pascal@4909
|
54 eval $var=""
|
pascal@4909
|
55 for i in $progs; do
|
pascal@4909
|
56 [ "$(which $i)" ] || continue
|
pascal@4909
|
57 eval $var="$i"
|
pascal@4909
|
58 break
|
pascal@4909
|
59 done
|
pascal@4909
|
60 done <<EOT
|
pascal@4909
|
61 AWK_PROG mawk gawk awk
|
pascal@4909
|
62 XTERM_PROG xterm rxvt xvt wterm aterm Eterm false
|
pascal@4909
|
63 EOT
|
pascal@688
|
64
|
pascal@4909
|
65 # the shifting will leave the files passed as all the remaining args "$@"
|
pascal@688
|
66 opt="$1"
|
pascal@4909
|
67 archive="$2"
|
pascal@5209
|
68 lc="$(echo $2|tr [:upper:] [:lower:])"
|
pascal@4909
|
69 shift 2
|
pascal@688
|
70
|
pascal@5209
|
71 in_exts()
|
pascal@5209
|
72 {
|
pascal@5209
|
73 for i in $@; do
|
pascal@5209
|
74 [ $(expr "$lc" : ".*\."$i"$") -gt 0 ] && break
|
pascal@5209
|
75 done
|
pascal@5209
|
76 }
|
pascal@5209
|
77
|
pascal@2877
|
78 tazpkg2cpio()
|
pascal@2877
|
79 {
|
pascal@4909
|
80 tmp="$(mktemp -d -t tmpcpio.XXXXXX)"
|
pascal@4909
|
81 case "$(cd $tmp; cpio -iv < "$1")" in
|
pascal@5167
|
82 *lzma*) unlzma -c $tmp/fs.cpio.lzma;;
|
pascal@5167
|
83 *gz*) zcat $tmp/fs.cpio.gz
|
pascal@4909
|
84 esac
|
pascal@4909
|
85 rm -rf $tmp
|
pascal@2877
|
86 }
|
pascal@2877
|
87
|
pascal@2080
|
88 decompress_ipk()
|
pascal@2080
|
89 {
|
pascal@4909
|
90 tar xOzf "$1" ./data.tar.gz | gzip -dc
|
pascal@2080
|
91 }
|
pascal@2080
|
92
|
pascal@4909
|
93 # variables for our compression functions.
|
pascal@688
|
94 DECOMPRESS="cat"
|
pascal@688
|
95 COMPRESS="cat"
|
pascal@4909
|
96 while read d c exts; do
|
pascal@5209
|
97 in_exts $exts || continue
|
pascal@5209
|
98 [ "$d" == "${d% *}" -o "$(which ${d% *})" ] || exit $UNSUPPORTED
|
pascal@5209
|
99 DECOMPRESS="$d"
|
pascal@5209
|
100 COMPRESS="$c"
|
pascal@5209
|
101 [ "$(which ${c% *})" ] || COMPRESS="false"
|
pascal@5209
|
102 break
|
pascal@4909
|
103 done <<EOT
|
pascal@4909
|
104 unlzma\ -c lzma\ e\ -si\ -so $LZMA_EXTS
|
pascal@4909
|
105 bunzip2\ -c bzip2\ -c $BZIP2_EXTS
|
pascal@4909
|
106 gzip\ -dc gzip\ -c $GZIP_EXTS
|
pascal@4909
|
107 xz\ -dc xz\ -c $XZ_EXTS $CPIOXZ_EXTS
|
pascal@4954
|
108 lrzip\ -d lrzip $LRZIP_EXTS $CPIOLRZIP_EXTS
|
pascal@4909
|
109 uncompress\ -dc compress\ -c $COMPRESS_EXTS
|
pascal@4909
|
110 rpm2cpio false $RPM_EXTS
|
pascal@4909
|
111 tazpkg2cpio false $TAZPKG_EXTS
|
pascal@4909
|
112 decompress_ipk false $IPK_EXTS
|
pascal@4909
|
113 EOT
|
pascal@688
|
114
|
pascal@688
|
115 decompress_func()
|
pascal@688
|
116 {
|
pascal@4909
|
117 [ "$DECOMPRESS" = "cat" ] && return
|
pascal@4909
|
118 tmp="$(mktemp -t tartmp.XXXXXX)"
|
pascal@4909
|
119 [ -f "$archive" ] && $DECOMPRESS "$archive" > "$tmp"
|
pascal@4909
|
120 # store old name for compress_func
|
pascal@4909
|
121 oldarch="$archive"
|
pascal@4909
|
122 # change working file
|
pascal@4909
|
123 archive="$tmp"
|
pascal@688
|
124 }
|
pascal@688
|
125
|
pascal@688
|
126 compress_func()
|
pascal@688
|
127 {
|
pascal@4909
|
128 status=$?
|
pascal@4909
|
129 if [ "$COMPRESS" != "cat" -a -n "$oldarch" ]; then
|
pascal@4909
|
130 [ -f "$oldarch" ] && rm "$oldarch"
|
pascal@4909
|
131 $COMPRESS < "$archive" > "$oldarch" && rm "$archive"
|
pascal@4909
|
132 fi
|
pascal@4909
|
133 exit $status
|
pascal@688
|
134 }
|
pascal@688
|
135
|
pascal@2877
|
136 addcpio()
|
pascal@2877
|
137 {
|
pascal@4909
|
138 find $@ | cpio -o -H newc
|
pascal@2877
|
139 }
|
pascal@2877
|
140
|
pascal@4909
|
141 a_file()
|
pascal@2877
|
142 {
|
pascal@4909
|
143 ( cd $2 ; tar -cf - $1 ) | tar -xf -
|
pascal@2877
|
144 }
|
pascal@2877
|
145
|
pascal@4909
|
146 r_file()
|
pascal@941
|
147 {
|
pascal@4909
|
148 rm -rf ./$1
|
pascal@941
|
149 }
|
pascal@941
|
150
|
pascal@4909
|
151 dpkg_c()
|
pascal@941
|
152 {
|
pascal@4909
|
153 dpkg-deb -c "$archive"
|
pascal@941
|
154 }
|
pascal@941
|
155
|
pascal@942
|
156 loop_fs()
|
pascal@942
|
157 {
|
pascal@4909
|
158 [ "$1" = "-n" ] && retrun
|
pascal@4909
|
159 cmd=$1
|
pascal@4909
|
160 shift
|
pascal@4909
|
161 tmp="$(mktemp -d -t fstmp.XXXXXX)"
|
pascal@4914
|
162 while read command umnt exts; do
|
pascal@5209
|
163 in_exts $exts || continue
|
pascal@5209
|
164 $command "$archive" $tmp
|
pascal@5209
|
165 break
|
pascal@4909
|
166 done <<EOT
|
pascal@4909
|
167 cromfs-driver fusermount\ -u $CROMFS_EXTS
|
pascal@4909
|
168 mount\ -o\ loop=/dev/cloop,ro umount\ -d $CLOOP_EXTS
|
pascal@4909
|
169 mount\ -o\ loop,rw umount\ -d $FS_EXTS
|
pascal@4909
|
170 mount\ -o\ loop,ro umount\ -d $ISO_EXTS $SQUASHFS_EXTS
|
pascal@4909
|
171 EOT
|
pascal@4909
|
172 rmdir $tmp 2> /dev/null && return
|
pascal@4909
|
173 case "$cmd" in
|
pascal@4909
|
174 -o) find $tmp | while read f; do
|
pascal@4909
|
175 [ "$f" = "$tmp" ] && continue
|
pascal@4909
|
176 link="-"
|
pascal@4909
|
177 [ -L "$f" ] && link=$(readlink "$f")
|
pascal@4909
|
178 date=$(stat -c "%y" $f | $AWK_PROG \
|
pascal@4909
|
179 '{ printf "%s;%s\n",$1,substr($2,0,8)}')
|
pascal@4909
|
180 echo "${f#$tmp/};$(stat -c "%s;%A;%U;%G" $f);$date;$link"
|
pascal@4909
|
181 done;;
|
pascal@4909
|
182 -e) ( cd $tmp ; tar cf - "$@" ) | tar xf - ;;
|
pascal@4909
|
183 -a) tar cf - "$@" | ( cd $tmp ; tar xf - );;
|
pascal@4909
|
184 -r) ( cd $tmp ; rm -rf "$@" )
|
pascal@4909
|
185 esac
|
pascal@4909
|
186 $umnt $tmp
|
pascal@4909
|
187 rmdir $tmp
|
pascal@4909
|
188 exit
|
pascal@942
|
189 }
|
pascal@942
|
190
|
pascal@4909
|
191 update()
|
pascal@4909
|
192 {
|
pascal@4909
|
193 loop_fs "$@"
|
pascal@4909
|
194 [ "$COMPRESS" = "false" ] && return
|
pascal@4909
|
195 action=$1
|
pascal@4909
|
196 shift
|
pascal@4909
|
197 tardir="$(dirname "$archive")"
|
pascal@5209
|
198 if [ "$(readlink /bin/tar)" != "busybox" ] && [ "$action" != "-n" ] &&
|
pascal@5209
|
199 in_exts $TAR_EXTS $XZ_EXTS $LRZIP_EXTS ; then
|
pascal@5209
|
200 decompress_func
|
pascal@5209
|
201 case "$action" in
|
pascal@5209
|
202 -r) tar --delete -f "$archive" "$@";;
|
pascal@5209
|
203 -a) cd "$tardir"
|
pascal@5209
|
204 while [ -n "$1" ]; do
|
pascal@5209
|
205 tar -rf "$archive" "${1#$tardir/}"
|
pascal@5209
|
206 done
|
pascal@4909
|
207 esac
|
pascal@5209
|
208 compress_func
|
pascal@4909
|
209 fi
|
pascal@4909
|
210 while read add extract exts; do
|
pascal@5209
|
211 in_exts $exts || continue
|
pascal@5209
|
212 if [ "$action" = "-n" ]; then
|
pascal@5209
|
213 decompress_func
|
pascal@5209
|
214 cd "$tardir"
|
pascal@5209
|
215 $add "${1#$tardir/}" > "$archive"
|
pascal@5209
|
216 compress_func
|
pascal@5209
|
217 fi
|
pascal@5209
|
218 tmp="$(mktemp -d -t tartmp.XXXXXX)"
|
pascal@5209
|
219 cd $tmp
|
pascal@5209
|
220 $DECOMPRESS "$archive" | $extract
|
pascal@5209
|
221 status=$?
|
pascal@5209
|
222 if [ $status -eq 0 -a -n "$1" ]; then
|
pascal@5209
|
223 while [ "$1" ]; do
|
pascal@5209
|
224 ${action#-}_file "${1#$tardir/}" $here
|
pascal@5209
|
225 shift
|
pascal@5209
|
226 done
|
pascal@5209
|
227 $add $(ls -a | grep -v ^\.$ | grep -v ^\.\.$) | \
|
pascal@5209
|
228 $COMPRESS > "$archive"
|
pascal@4909
|
229 status=$?
|
pascal@5209
|
230 fi
|
pascal@5209
|
231 cd - >/dev/null
|
pascal@5209
|
232 rm -rf $tmp
|
pascal@5209
|
233 exit $status
|
pascal@4909
|
234 done <<EOT
|
pascal@4954
|
235 tar\ -cf\ - tar\ -xf\ - $TAR_EXTS $XZ_EXTS $LRZIP_EXTS
|
pascal@4954
|
236 addcpio cpio\ -id\ >\ /dev/null $CPIO_EXTS $CPIOXZ_EXTS $CPIOLRZIP_EXTS
|
pascal@4909
|
237 EOT
|
pascal@4909
|
238 }
|
pascal@4909
|
239
|
pascal@5167
|
240 AWK_MISC='
|
pascal@4909
|
241 BEGIN {
|
pascal@4909
|
242 attr="-"
|
pascal@4909
|
243 link="-"
|
pascal@4909
|
244 uid=uuid
|
pascal@4909
|
245 gid=uuid
|
pascal@4909
|
246 }
|
pascal@4909
|
247 function getlink(arg)
|
pascal@4909
|
248 {
|
pascal@4909
|
249 split(arg, x, " -> ")
|
pascal@4909
|
250 name=x[1]
|
pascal@4909
|
251 link=x[2]
|
pascal@4909
|
252 if (!link) link="-"
|
pascal@4909
|
253 }
|
pascal@688
|
254
|
pascal@4909
|
255 function getname(arg)
|
pascal@4909
|
256 {
|
pascal@4909
|
257 # works with filenames that start with a space (evil!)
|
pascal@4909
|
258 split($0,x, arg)
|
pascal@4909
|
259 getlink(x[2])
|
pascal@4909
|
260 }
|
pascal@4909
|
261
|
pascal@4909
|
262 function getid(arg)
|
pascal@4909
|
263 {
|
pascal@4909
|
264 if (uuid != "") return
|
pascal@4909
|
265 split(arg,x,"/")
|
pascal@4909
|
266 uid=x[1]
|
pascal@4909
|
267 gid=x[2]
|
pascal@4909
|
268 }
|
pascal@4909
|
269
|
pascal@4909
|
270 function getattr(arg)
|
pascal@4909
|
271 {
|
pascal@4909
|
272 attr=arg
|
pascal@4909
|
273 if (index(attr, "D") != 0) attr="drwxr-xr-x"
|
pascal@4909
|
274 else if (index(attr, ".") != 0 || attr !~ /^[rwx-]/) attr="-rw-r--r--"
|
pascal@4909
|
275 }
|
pascal@4909
|
276
|
pascal@4909
|
277 function display()
|
pascal@4909
|
278 {
|
pascal@4909
|
279 if (name != "") printf "%s;%s;%s;%s;%s;%s;%s;%s\n",name,size,attr,uid,gid,date,time,link
|
pascal@4909
|
280 }
|
pascal@4909
|
281
|
pascal@4909
|
282 function show(arg)
|
pascal@4909
|
283 {
|
pascal@4909
|
284 getid($2)
|
pascal@4909
|
285 getname(arg)
|
pascal@4909
|
286 if (uid != "blocks") display()
|
pascal@4909
|
287 }'
|
pascal@5167
|
288
|
pascal@5167
|
289 awk0()
|
pascal@5167
|
290 {
|
pascal@5167
|
291 $AWK_PROG "$AWK_MISC $1"
|
pascal@5167
|
292 }
|
pascal@5167
|
293
|
pascal@5167
|
294 awku()
|
pascal@5167
|
295 {
|
pascal@5167
|
296 $AWK_PROG -v uuid=$(id -u -n) "$AWK_MISC $1"
|
pascal@5167
|
297 }
|
pascal@5167
|
298
|
pascal@5167
|
299 # main: option switches
|
pascal@5167
|
300 case "$opt" in
|
pascal@5167
|
301 -i) # info: output supported extentions for progs that exist
|
pascal@5167
|
302 while read exe exts; do
|
pascal@5167
|
303 [ "$(which $exe)" -o -f /lib/modules/$(uname -r)/kernel/$exe.ko ] &&
|
pascal@5167
|
304 echo -n "$exts " | sed 's/ /;/g'
|
pascal@5167
|
305 done <<EOT
|
pascal@5167
|
306 tar $TAR_EXTS $IPK_EXTS
|
pascal@5167
|
307 cpio $CPIO_EXTS $TAZPKG_EXTS
|
pascal@5167
|
308 unzip $ZIP_EXTS
|
pascal@5167
|
309 dpkg-deb $DEB_EXTS
|
pascal@5167
|
310 rpm2cpio $RPM_EXTS
|
pascal@5167
|
311 mount $ISO_EXTS $FS_EXTS
|
pascal@5167
|
312 xz $XZ_EXTS $CPIOXZ_EXTS
|
pascal@5167
|
313 lrzip $LRZIP_EXTS $CPIOLRZIP_EXTS
|
pascal@5167
|
314 rar $RAR_EXTS
|
pascal@5167
|
315 unace ace
|
pascal@5167
|
316 arj $ARJ_EXTS
|
pascal@17256
|
317 7zr $_7Z_EXTS $_7Z_EXTS_X
|
pascal@5167
|
318 lha $LHA_EXTS
|
pascal@5167
|
319 lzop $LZO_EXTS
|
pascal@5167
|
320 cabextract cab
|
pascal@5167
|
321 cromfs-driver $CROMFS_EXTS
|
pascal@5167
|
322 fs/squashfs/squashfs $SQUASHFS_EXTS
|
pascal@5167
|
323 drivers/block/cloop $CLOOP_EXTS
|
pascal@5167
|
324 EOT
|
pascal@5167
|
325 echo ""
|
pascal@5167
|
326 exit
|
pascal@5167
|
327 ;;
|
pascal@5167
|
328 -o) # open: mangle output for xarchive
|
pascal@4909
|
329 while read filter exts; do
|
pascal@688
|
330 # lrwxrwxrwx USR/GRP 0 2005-05-12 00:32:03 file -> /path/to/link
|
pascal@5209
|
331 in_exts $exts && $DECOMPRESS "$archive" | $filter | awk0 '
|
pascal@4909
|
332 {
|
pascal@4909
|
333 attr=$1
|
pascal@4909
|
334 size=$3
|
pascal@4909
|
335 date=$4
|
pascal@4909
|
336 time=$5
|
pascal@4909
|
337 show($5 " ")
|
pascal@4909
|
338 }'
|
pascal@4909
|
339 done <<EOT
|
pascal@4954
|
340 cpio\ -tv $CPIO_EXTS $CPIOXZ_EXTS $CPIOLRZIP_EXTS $RPM_EXTS $TAZPKG_EXTS
|
pascal@4954
|
341 tar\ -tvf\ - $TAR_EXTS $XZ_EXTS $LRZIP_EXTS $IPK_EXTS
|
pascal@4909
|
342 dpkg_c $DEB_EXTS
|
pascal@2877
|
343 EOT
|
pascal@4909
|
344 loop_fs $opt
|
pascal@5209
|
345 if in_exts $ZIP_EXTS; then
|
pascal@2877
|
346 if [ "$(which zipinfo)" ]; then
|
pascal@4909
|
347 # -rw-r--r-- 2.3 unx 11512 tx defN YYYYMMDD.HHMMSS file
|
pascal@5167
|
348 zipinfo -T -s-h-t "$archive" | awku '
|
pascal@4909
|
349 {
|
pascal@4909
|
350 attr=$1
|
pascal@4909
|
351 size=$4
|
pascal@4909
|
352 date=substr($7,1,4) "-" substr($7,5,2) "-" substr($7,7,2)
|
pascal@4909
|
353 time=substr($7,10,2) ":" substr($7,12,2) ":" substr($7,14,2)
|
pascal@4909
|
354 show($7 " ")
|
pascal@4909
|
355 }'
|
pascal@688
|
356 else
|
pascal@4909
|
357 # 6622 2005-04-22 12:29:14 file
|
pascal@5167
|
358 unzip -l "$archive" | awku '
|
pascal@4909
|
359 /-[0-9]+-/ {
|
pascal@4909
|
360 size=$1
|
pascal@4909
|
361 date=$2
|
pascal@4909
|
362 time=$3
|
pascal@4909
|
363 show($3 " ")
|
pascal@4909
|
364 }'
|
pascal@688
|
365 fi
|
pascal@5209
|
366 fi
|
pascal@4909
|
367 # -----------+---------------------+-------
|
pascal@4909
|
368 # 6622 | 22.04.2005 12:29:14 | file
|
pascal@5209
|
369 in_exts cab && cabextract -q -l "$archive" | awku '
|
pascal@4909
|
370 /[0-9]+ |/ {
|
pascal@4909
|
371 size=$1
|
pascal@4909
|
372 date=$3
|
pascal@4909
|
373 time=$4
|
pascal@4909
|
374 show($4 " | ")
|
pascal@4909
|
375 }'
|
pascal@2877
|
376 #-------------------------------------
|
pascal@2877
|
377 # bookmarks/mozilla_bookmarks.html
|
pascal@2877
|
378 # 11512 5231 45% 28-02-05 16:19 -rw-r--r-- F3F3477F m3b 2.9
|
pascal@2877
|
379 # (or 11512 5231 45% 28-02-05 16:19 .D.... 00000000 m3b 2.9)
|
pascal@5209
|
380 in_exts $RAR_EXTS && rar v -c- "$archive" | awku '
|
pascal@4909
|
381 /-[0-9]+-/ {
|
pascal@4909
|
382 getattr($6)
|
pascal@4909
|
383 size=$1
|
pascal@4909
|
384 date=$4
|
pascal@4909
|
385 time=$5
|
pascal@4909
|
386 display()
|
pascal@4909
|
387 }
|
pascal@4909
|
388 {
|
pascal@4909
|
389 name=substr($0,2)
|
pascal@4909
|
390 }'
|
pascal@4909
|
391 # Date ³Time ³Packed ³Size ³Ratio³File
|
pascal@4909
|
392 # 17.09.02³00:32³ 394116³ 414817³ 95%³ OggDS0993.exe
|
pascal@5209
|
393 in_exts ace && unace v -c- "$archive" | awku '
|
pascal@4909
|
394 /^[0-9][0-9]\./ {
|
pascal@4909
|
395 # strip the funky little 3 off the end of size
|
pascal@4909
|
396 size=substr($3,1,(length($3)-1))
|
pascal@4909
|
397 date=substr($1,1,8)
|
pascal@4909
|
398 time=substr($1,10,5)
|
pascal@4909
|
399 show($4 " ")
|
pascal@4909
|
400 }'
|
pascal@4909
|
401 # ------------------- ----- ------------ ------------ ------------
|
pascal@4909
|
402 # 1992-04-12 11:39:46 ....A 356 ANKETA.FRG
|
pascal@5209
|
403 in_exts 7z bcj bcj2 && 7zr l "$archive" | awku '
|
pascal@4909
|
404 /^[0-9]+-/ {
|
pascal@4909
|
405 date=$1
|
pascal@4909
|
406 time=$2
|
pascal@4909
|
407 getattr($3)
|
pascal@4909
|
408 size=$4
|
pascal@4909
|
409 $0=substr($0, 54)
|
pascal@4909
|
410 name=$1
|
pascal@4909
|
411 if (NF > 1) name=$0
|
pascal@4909
|
412 gsub(/\\/, "/", name)
|
pascal@4909
|
413 display()
|
pascal@4909
|
414 }'
|
pascal@4909
|
415 # 001) ANKETA.FRG
|
pascal@4909
|
416 # 3 MS-DOS 356 121 0.340 92-04-12 11:39:46 1
|
pascal@5209
|
417 in_exts $ARJ_EXTS && arj v "$archive" | awku '
|
pascal@4909
|
418 BEGIN { name="" }
|
pascal@4909
|
419 /^[0-9]+\) / {
|
pascal@4909
|
420 display()
|
pascal@4909
|
421 getname($1 " ")
|
pascal@4909
|
422 }
|
pascal@4909
|
423 /^[\t ]+[0-9]+/ {
|
pascal@4909
|
424 size=$3
|
pascal@4909
|
425 date=$6
|
pascal@4909
|
426 time=$7
|
pascal@4909
|
427 getattr($8)
|
pascal@4909
|
428 }
|
pascal@4909
|
429 /^[\t ]+Owner: UID [0-9]+\, GID [0-9]+/ { uid=$3; gid=$5 }
|
pascal@4909
|
430 /^[\t ]+SymLink -> / { link=$3; attr="l"substr(attr, 2) }
|
pascal@4909
|
431 /^---/ { display() }
|
pascal@4909
|
432 '
|
pascal@4909
|
433 # Desktop/up -> ..
|
pascal@4909
|
434 # lrwxrwxrwx 0/0 0 0 ****** -lhd- 0000 2009-05-03 16:59:03 [2]
|
pascal@5209
|
435 in_exts $LHA_EXTS && lha v -q -v "$archive" | awk0 '
|
pascal@4909
|
436 {
|
pascal@4909
|
437 if ($4 == "") { getlink($0); next }
|
pascal@4909
|
438 attr=$1
|
pascal@4909
|
439 getid($2)
|
pascal@4909
|
440 size=$4
|
pascal@4909
|
441 date=$8
|
pascal@4909
|
442 time=$9
|
pascal@4909
|
443 display()
|
pascal@4909
|
444 }'
|
pascal@3194
|
445 # ------ ------ ------ ----- ---- ---- ----
|
pascal@3194
|
446 # LZO1X-1 10057 5675 56.4% 2005-07-25 16:26 path/file
|
pascal@5209
|
447 in_exts $LZO_EXTS && lzop -Plv "$archive" | awku '
|
pascal@4909
|
448 /-[0-9]+-/ {
|
pascal@4909
|
449 size=$2
|
pascal@4909
|
450 date=$5
|
pascal@4909
|
451 time=$6
|
pascal@4909
|
452 show($6 " ")
|
pascal@4909
|
453 }'
|
pascal@4909
|
454 exit 0
|
pascal@4909
|
455 ;;
|
pascal@4909
|
456 -a|-n) # add to archive / new: create new archive
|
pascal@4909
|
457 update $opt "$@"
|
pascal@2877
|
458 while read exe args exts; do
|
pascal@5209
|
459 in_exts $exts && [ "$(which $exe)" ] || continue
|
pascal@4909
|
460 [ "$opt$exe" = "-nzip" ] && args="-r"
|
pascal@5209
|
461 # only add the file's basename, not the full path
|
pascal@5209
|
462 while [ "$1" ]; do
|
pascal@5209
|
463 cd "$(dirname "$1")"
|
pascal@5209
|
464 $exe $args "$archive" "$(basename "$1")"
|
pascal@5209
|
465 status=$?
|
pascal@5209
|
466 shift
|
pascal@5209
|
467 done
|
pascal@5209
|
468 exit $status
|
pascal@2877
|
469 done <<EOT
|
pascal@2877
|
470 zip -g\ -r $ZIP_EXTS
|
pascal@2877
|
471 rar a $RAR_EXTS
|
pascal@4909
|
472 arj a $ARJ_EXTS
|
pascal@4909
|
473 7zr a\ -ms=off $_7Z_EXTS
|
pascal@2877
|
474 lha a $LHA_EXTS
|
pascal@2877
|
475 EOT
|
pascal@4909
|
476 ;;
|
pascal@4909
|
477 -r) # remove from archive passed files
|
pascal@4909
|
478 update $opt "$@"
|
pascal@2877
|
479 while read exe args exts; do
|
pascal@5209
|
480 in_exts $exts && [ "$(which $exe)" ] || continue
|
pascal@5209
|
481 $exe $args "$archive" "$@" | grep -q E_NOTIMPL && {
|
pascal@5209
|
482 echo -e "7z cannot delete files from solid archive." >&2
|
pascal@5209
|
483 exit $UNSUPPORTED
|
pascal@5209
|
484 }
|
pascal@5209
|
485 exit 0
|
pascal@2877
|
486 done <<EOT
|
pascal@2877
|
487 zip -d $ZIP_EXTS
|
pascal@2877
|
488 rar d $RAR_EXTS
|
pascal@4909
|
489 arj d $ARJ_EXTS
|
pascal@2877
|
490 lha d $LHA_EXTS
|
pascal@4909
|
491 7zr d $_7Z_EXTS
|
pascal@2877
|
492 EOT
|
pascal@4909
|
493 ;;
|
pascal@4909
|
494 -e) # extract from archive passed files
|
pascal@4909
|
495 while read arch exts; do
|
pascal@5209
|
496 in_exts $exts || continue
|
pascal@5209
|
497 $DECOMPRESS "$archive" | $arch "$@"
|
pascal@5209
|
498 exit $?
|
pascal@2877
|
499 done <<EOT
|
pascal@4954
|
500 tar\ -xf\ - $TAR_EXTS $IPK_EXTS $XZ_EXTS $LRZIP_EXTS
|
pascal@4954
|
501 cpio\ -idm $CPIO_EXTS $CPIOXZ_EXTS $CPIOLRZIP_EXTS $RPM_EXTS $TAZPKG_EXTS
|
pascal@2877
|
502 EOT
|
pascal@4909
|
503 while read exe x p exts; do
|
pascal@5209
|
504 in_exts $exts && [ "$(which $exe)" ] || continue
|
pascal@5209
|
505 [ "$x" != "N/A" ] && $exe $x "$archive" "$@"
|
pascal@5209
|
506 status=$?
|
pascal@5209
|
507 if [ "$p" != "N/A" -a $status -ne 0 ]; then
|
pascal@5209
|
508 echo Password protected, opening an x-term...
|
pascal@5209
|
509 $XTERM_PROG -e $exe $p "$archive" "$@"
|
pascal@5209
|
510 exit $?
|
pascal@5209
|
511 fi
|
pascal@5209
|
512 exit $status
|
pascal@2877
|
513 done <<EOT
|
pascal@4909
|
514 unzip -n N/A $ZIP_EXTS
|
pascal@4909
|
515 dpkg-deb -X N/A $DEB_EXTS
|
pascal@4909
|
516 lha x N/A $LHA_EXTS
|
pascal@4909
|
517 lzop -x N/A $LZO_EXTS
|
pascal@4909
|
518 rar x\ -o-\ -p- x\ -o- $RAR_EXTS
|
pascal@4909
|
519 arj x\ -y x\ -y\ -g? $ARJ_EXTS
|
pascal@17256
|
520 7zr x\ -y\ -p- x\ -y $_7Z_EXTS $_7Z_EXTS_X
|
pascal@4909
|
521 unace N/A x\ -o\ -y ace
|
pascal@4909
|
522 cabextract -q N/A cab
|
pascal@2877
|
523 EOT
|
pascal@4909
|
524 loop_fs $opt "$@"
|
pascal@4909
|
525 ;;
|
pascal@4909
|
526 *) cat <<EOT
|
pascal@4909
|
527 error, option $opt not supported
|
pascal@4909
|
528 use one of these:
|
pascal@4909
|
529 -i #info
|
pascal@4909
|
530 -o archive #open
|
pascal@4909
|
531 -a archive files #add
|
pascal@4909
|
532 -n archive file #new
|
pascal@4909
|
533 -r archive files #remove
|
pascal@4909
|
534 -e archive files #extract
|
pascal@2877
|
535 EOT
|
pascal@688
|
536 esac
|
pascal@4909
|
537 exit $UNSUPPORTED
|