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