rev |
line source |
pascal@688
|
1 #!/bin/sh
|
pascal@688
|
2 # slitaz-wrap.sh - sh slitaz core wrapper for xarchive frontend
|
pascal@688
|
3 # Copyright (C) 2005 Lee Bigelow <ligelowbee@yahoo.com>
|
pascal@2877
|
4 # Copyright (C) 2009 Pascal Bellard <pascal.bellard@slitaz.org>
|
pascal@688
|
5 #
|
pascal@688
|
6 # This program is free software; you can redistribute it and/or modify
|
pascal@688
|
7 # it under the terms of the GNU General Public License as published by
|
pascal@688
|
8 # the Free Software Foundation; either version 2 of the License, or
|
pascal@688
|
9 # (at your option) any later version.
|
pascal@688
|
10 #
|
pascal@688
|
11 # This program is distributed in the hope that it will be useful,
|
pascal@688
|
12 # but WITHOUT ANY WARRANTY; without even the implied warranty of
|
pascal@688
|
13 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
pascal@688
|
14 # GNU General Public License for more details.
|
pascal@688
|
15 #
|
pascal@688
|
16 # You should have received a copy of the GNU General Public License
|
pascal@688
|
17 # along with this program; if not, write to the Free Software
|
pascal@688
|
18 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
pascal@688
|
19
|
pascal@688
|
20 # set up exit status variables
|
pascal@688
|
21 E_UNSUPPORTED=65
|
pascal@688
|
22
|
pascal@688
|
23 # Supported file extentions for tar
|
pascal@688
|
24 TAR_EXTS="tar"
|
pascal@688
|
25 GZIP_EXTS="tar.gz tgz"
|
pascal@688
|
26 LZMA_EXTS="tar.lz tar.lzma tlz"
|
pascal@688
|
27 BZIP2_EXTS="tar.bz tbz tar.bz2 tbz2"
|
pascal@688
|
28 COMPRESS_EXTS="tar.z tar.Z"
|
pascal@2080
|
29 IPK_EXTS="ipk"
|
pascal@688
|
30 CPIO_EXTS="cpio"
|
pascal@688
|
31 CPIOGZ_EXTS="cpio.gz"
|
pascal@688
|
32 ZIP_EXTS="zip cbz jar"
|
pascal@688
|
33 RPM_EXTS="rpm"
|
pascal@688
|
34 DEB_EXTS="deb"
|
pascal@3530
|
35 TAZPKG_EXTS="tazpkg spkg"
|
pascal@942
|
36 ISO_EXTS="iso"
|
pascal@942
|
37 SQUASHFS_EXTS="sqfs squashfs"
|
pascal@942
|
38 CROMFS_EXTS="cromfs"
|
pascal@943
|
39 FS_EXTS="ext2 ext3 dos fat vfat fd fs loop"
|
pascal@943
|
40 CLOOP_EXTS="cloop"
|
pascal@2877
|
41 RAR_EXTS="rar cbr"
|
pascal@2877
|
42 LHA_EXTS="lha lzh lzs"
|
pascal@3194
|
43 LZO_EXTS="lzo"
|
pascal@688
|
44
|
pascal@688
|
45 # Setup awk program
|
pascal@688
|
46 AWK_PROGS="mawk gawk awk"
|
pascal@688
|
47 AWK_PROG=""
|
pascal@688
|
48 for awkprog in $AWK_PROGS; do
|
pascal@688
|
49 if [ "$(which $awkprog)" ]; then
|
pascal@688
|
50 AWK_PROG="$awkprog"
|
pascal@688
|
51 break
|
pascal@688
|
52 fi
|
pascal@688
|
53 done
|
pascal@688
|
54
|
pascal@2877
|
55 # Setup xterm program to use
|
pascal@2877
|
56 XTERM_PROGS="xterm rxvt xvt wterm aterm Eterm"
|
pascal@2877
|
57 XTERM_PROG=""
|
pascal@2877
|
58 for xtermprog in $XTERM_PROGS; do
|
pascal@2877
|
59 if [ "$(which $xtermprog)" ]; then
|
pascal@2877
|
60 XTERM_PROG="$xtermprog"
|
pascal@2877
|
61 break
|
pascal@2877
|
62 fi
|
pascal@2877
|
63 done
|
pascal@2877
|
64
|
pascal@688
|
65 # setup variables opt and archive.
|
pascal@688
|
66 # the shifting will leave the files passed as
|
pascal@688
|
67 # all the remaining args "$@"
|
pascal@688
|
68 opt="$1"
|
pascal@688
|
69 test -z $1 || shift 1
|
pascal@688
|
70 archive="$1"
|
pascal@688
|
71 test -z $1 || shift 1
|
pascal@688
|
72
|
pascal@2877
|
73 tazpkg2cpio()
|
pascal@2877
|
74 {
|
pascal@2877
|
75 tmpcpio="$(mktemp -d -t tmpcpio.XXXXXX)"
|
pascal@2877
|
76 cd $tmpcpio
|
pascal@2877
|
77 cpio -i fs.cpio.gz > /dev/null < "$1"
|
pascal@2877
|
78 zcat fs.cpio.gz
|
pascal@2877
|
79 cd -
|
pascal@2877
|
80 rm -rf $tmpcpio
|
pascal@2877
|
81 }
|
pascal@2877
|
82
|
pascal@2080
|
83 decompress_ipk()
|
pascal@2080
|
84 {
|
pascal@2080
|
85 tar xOzf "$1" ./data.tar.gz | gzip -dc
|
pascal@2080
|
86 }
|
pascal@2080
|
87
|
pascal@688
|
88 # set up compression variables for our compression functions.
|
pascal@688
|
89 # translate archive name to lower case for pattern matching.
|
pascal@688
|
90 # use compressor -c option to output to stdout and direct it where we want
|
pascal@688
|
91 lc_archive="$(echo $archive|tr [:upper:] [:lower:])"
|
pascal@688
|
92 DECOMPRESS="cat"
|
pascal@688
|
93 COMPRESS="cat"
|
pascal@2080
|
94 for ext in $IPK_EXTS; do
|
pascal@2080
|
95 if [ $(expr "$lc_archive" : ".*\."$ext"$") -gt 0 ]; then
|
pascal@2080
|
96 DECOMPRESS="decompress_ipk"
|
pascal@2080
|
97 fi
|
pascal@2080
|
98 done
|
pascal@688
|
99 for ext in $GZIP_EXTS $CPIOGZ_EXTS; do
|
pascal@688
|
100 if [ $(expr "$lc_archive" : ".*\."$ext"$") -gt 0 ]; then
|
pascal@688
|
101 DECOMPRESS="gzip -dc"
|
pascal@688
|
102 COMPRESS="gzip -c"
|
pascal@688
|
103 fi
|
pascal@688
|
104 done
|
pascal@688
|
105 for ext in $BZIP2_EXTS; do
|
pascal@688
|
106 if [ $(expr "$lc_archive" : ".*\."$ext"$") -gt 0 ]; then
|
pascal@2124
|
107 DECOMPRESS="bunzip2 -c"
|
pascal@688
|
108 COMPRESS="bzip2 -c"
|
pascal@688
|
109 fi
|
pascal@688
|
110 done
|
pascal@688
|
111 for ext in $LZMA_EXTS; do
|
pascal@688
|
112 if [ $(expr "$lc_archive" : ".*\."$ext"$") -gt 0 ]; then
|
pascal@688
|
113 DECOMPRESS="unlzma -c"
|
pascal@941
|
114 COMPRESS="lzma e -si -so"
|
pascal@688
|
115 fi
|
pascal@688
|
116 done
|
pascal@688
|
117 for ext in $COMPRESS_EXTS; do
|
pascal@688
|
118 if [ $(expr "$lc_archive" : ".*\."$ext"$") -gt 0 ]; then
|
pascal@688
|
119 DECOMPRESS="uncompress -dc"
|
pascal@688
|
120 COMPRESS="compress -c"
|
pascal@688
|
121 fi
|
pascal@688
|
122 done
|
pascal@688
|
123
|
pascal@2877
|
124 do_decompress()
|
pascal@2877
|
125 {
|
pascal@2877
|
126 $DECOMPRESS "$1"
|
pascal@2877
|
127 }
|
pascal@2877
|
128
|
pascal@688
|
129 # Compression functions
|
pascal@688
|
130 decompress_func()
|
pascal@688
|
131 {
|
pascal@2877
|
132 if [ "$DECOMPRESS" != "cat" ]; then
|
pascal@688
|
133 tmpname="$(mktemp -t tartmp.XXXXXX)"
|
pascal@688
|
134 if [ -f "$archive" ]; then
|
pascal@688
|
135 $DECOMPRESS "$archive" > "$tmpname"
|
pascal@688
|
136 fi
|
pascal@688
|
137 # store old name for when we recompress
|
pascal@688
|
138 oldarch="$archive"
|
pascal@688
|
139 # change working file to decompressed tmp
|
pascal@688
|
140 archive="$tmpname"
|
pascal@688
|
141 fi
|
pascal@688
|
142 }
|
pascal@688
|
143
|
pascal@688
|
144 compress_func()
|
pascal@688
|
145 {
|
pascal@2877
|
146 if [ "$COMPRESS" != "cat" ] && [ "$oldarch" ]; then
|
pascal@688
|
147 [ -f "$oldarch" ] && rm "$oldarch"
|
pascal@941
|
148 if $COMPRESS < "$archive" > "$oldarch"; then
|
pascal@688
|
149 rm "$archive"
|
pascal@688
|
150 fi
|
pascal@688
|
151 fi
|
pascal@688
|
152 }
|
pascal@688
|
153
|
pascal@688
|
154 not_busybox()
|
pascal@688
|
155 {
|
pascal@688
|
156 case "$(readlink $(which $1))" in
|
pascal@688
|
157 *busybox*) return 1;;
|
pascal@688
|
158 esac
|
pascal@688
|
159 return 0
|
pascal@688
|
160 }
|
pascal@688
|
161
|
pascal@2877
|
162 addtar()
|
pascal@2877
|
163 {
|
pascal@2877
|
164 tar -cf - $@
|
pascal@2877
|
165 }
|
pascal@2877
|
166
|
pascal@2877
|
167 extracttar()
|
pascal@2877
|
168 {
|
pascal@2877
|
169 tar -xf -
|
pascal@2877
|
170 }
|
pascal@2877
|
171
|
pascal@2877
|
172 addcpio()
|
pascal@2877
|
173 {
|
pascal@2877
|
174 find $@ | cpio -o -H newc
|
pascal@2877
|
175 }
|
pascal@2877
|
176
|
pascal@2877
|
177 extractcpio()
|
pascal@2877
|
178 {
|
pascal@2877
|
179 cpio -id > /dev/null
|
pascal@2877
|
180 }
|
pascal@2877
|
181
|
pascal@941
|
182 add_file()
|
pascal@941
|
183 {
|
pascal@941
|
184 ( cd $2 ; tar -cf - $1 ) | tar -xf -
|
pascal@941
|
185 }
|
pascal@941
|
186
|
pascal@941
|
187 remove_file()
|
pascal@941
|
188 {
|
pascal@941
|
189 rm -rf ./$1
|
pascal@941
|
190 }
|
pascal@941
|
191
|
pascal@941
|
192 update_tar_cpio()
|
pascal@941
|
193 {
|
pascal@941
|
194 action=$1
|
pascal@941
|
195 shift
|
pascal@941
|
196 tardir="$(dirname "$archive")"
|
pascal@2877
|
197 if [ $(expr "$lc_archive" : ".*\."$BZIP2_EXTS"$") -gt 0 ]; then
|
pascal@2877
|
198 [ "$(which bzip2)" ] || return
|
pascal@2877
|
199 fi
|
pascal@2877
|
200 if not_busybox tar && [ "$action" != "new_archive" ]; then
|
pascal@2877
|
201 for ext in $TAR_EXTS $GZIP_EXTS $BZIP2_EXTS $COMPRESS_EXTS $LZMA_EXTS; do
|
pascal@2877
|
202 if [ $(expr "$lc_archive" : ".*\."$ext"$") -gt 0 ]; then
|
pascal@941
|
203 decompress_func
|
pascal@941
|
204 case "$action" in
|
pascal@941
|
205 remove_file)
|
pascal@941
|
206 tar --delete -f "$archive" "$@";;
|
pascal@941
|
207 add_file)
|
pascal@941
|
208 cd "$tardir"
|
pascal@2877
|
209 while [ -n "$1" ]; do
|
pascal@2877
|
210 tar -rf "$archive" "${1#$tardir/}"
|
pascal@2877
|
211 done;;
|
pascal@941
|
212 esac
|
pascal@941
|
213 status=$?
|
pascal@941
|
214 compress_func
|
pascal@941
|
215 exit $status
|
pascal@2877
|
216 fi
|
pascal@2877
|
217 done
|
pascal@2877
|
218 fi
|
pascal@2877
|
219 while read add extract exts; do
|
pascal@2877
|
220 for ext in $exts; do
|
pascal@2877
|
221 if [ $(expr "$lc_archive" : ".*\."$ext"$") -gt 0 ]; then
|
pascal@2877
|
222 if [ "$action" = "new_archive" ]; then
|
pascal@2877
|
223 decompress_func
|
pascal@2877
|
224 cd "$tardir"
|
pascal@2877
|
225 $add "${1#$tardir/}" > "$archive"
|
pascal@2877
|
226 status=$?
|
pascal@2877
|
227 compress_func
|
pascal@2877
|
228 exit $status
|
pascal@941
|
229 fi
|
pascal@941
|
230 tmptar="$(mktemp -d -t tartmp.XXXXXX)"
|
pascal@941
|
231 here="$(pwd)"
|
pascal@941
|
232 cd $tmptar
|
pascal@2877
|
233 $DECOMPRESS "$archive" | $extract
|
pascal@941
|
234 status=$?
|
pascal@941
|
235 if [ $status -eq 0 -a -n "$1" ]; then
|
pascal@2877
|
236 while [ "$1" ]; do
|
pascal@941
|
237 $action "${1#$tardir/}" $here
|
pascal@941
|
238 shift
|
pascal@2877
|
239 done
|
pascal@2877
|
240 $add $(ls -a | grep -v ^\.$ | grep -v ^\.\.$) | \
|
pascal@941
|
241 $COMPRESS > "$archive"
|
pascal@941
|
242 status=$?
|
pascal@941
|
243 fi
|
pascal@941
|
244 cd $here
|
pascal@941
|
245 rm -rf $tmptar
|
pascal@941
|
246 exit $status
|
pascal@941
|
247 fi
|
pascal@2877
|
248 done
|
pascal@2877
|
249 done <<EOT
|
pascal@2877
|
250 addtar extracttar $TAR_EXTS $GZIP_EXTS $BZIP2_EXTS $COMPRESS_EXTS $LZMA_EXTS
|
pascal@2877
|
251 addcpio extractcpio $CPIO_EXTS $CPIOGZ_EXTS
|
pascal@2877
|
252 EOT
|
pascal@941
|
253 }
|
pascal@941
|
254
|
pascal@942
|
255 loop_fs()
|
pascal@942
|
256 {
|
pascal@942
|
257 tmpfs="$(mktemp -d -t fstmp.XXXXXX)"
|
pascal@942
|
258 umnt="umount -d"
|
pascal@2877
|
259 ext=${lc_archive##*.}
|
pascal@2877
|
260 case " $CROMFS_EXTS " in
|
pascal@2877
|
261 *\ $ext\ *) umnt="fusermount -u"
|
pascal@2877
|
262 cromfs-driver "$archive" $tmpfs;;
|
pascal@2877
|
263 esac
|
pascal@943
|
264 case " $CLOOP_EXTS " in
|
pascal@2877
|
265 *\ $ext\ *) mount -o loop=/dev/cloop,ro "$archive" $tmpfs;;
|
pascal@943
|
266 esac
|
pascal@943
|
267 case " $FS_EXTS " in
|
pascal@2877
|
268 *\ $ext\ *) mount -o loop,rw "$archive" $tmpfs;;
|
pascal@943
|
269 esac
|
pascal@2877
|
270 case " $ISO_EXTS $SQUASHFS_EXTS " in
|
pascal@2877
|
271 *\ $ext\ *) mount -o loop,ro "$archive" $tmpfs;;
|
pascal@942
|
272 esac
|
pascal@2877
|
273 rmdir $tmpfs 2> /dev/null && exit $E_UNSUPPORTED
|
pascal@2877
|
274 cmd=$1
|
pascal@2877
|
275 shift
|
pascal@2877
|
276 case "$cmd" in
|
pascal@942
|
277 stat) find $tmpfs | while read f; do
|
pascal@942
|
278 [ "$f" = "$tmpfs" ] && continue
|
pascal@942
|
279 link="-"
|
pascal@942
|
280 [ -L "$f" ] && link=$(readlink "$f")
|
pascal@942
|
281 date=$(stat -c "%y" $f | awk \
|
pascal@942
|
282 '{ printf "%s;%s\n",$1,substr($2,0,8)}')
|
pascal@942
|
283 echo "${f#$tmpfs/};$(stat -c "%s;%A;%U;%G" $f);$date;$link"
|
pascal@942
|
284 done;;
|
pascal@2877
|
285 copy) if [ -z "$1" ]; then
|
pascal@942
|
286 ( cd $tmpfs ; tar cf - . ) | tar xf -
|
pascal@942
|
287 else
|
pascal@2877
|
288 while [ -n "$1" ]; do
|
pascal@2877
|
289 ( cd $tmpfs ; tar cf - "$1" ) | tar xf -
|
pascal@942
|
290 shift;
|
pascal@942
|
291 done
|
pascal@942
|
292 fi;;
|
pascal@943
|
293 add) tar cf - "$@" | ( cd $tmpfs ; tar xf - );;
|
pascal@2877
|
294 remove) while [ -n "$1" ]; do
|
pascal@2877
|
295 rm -rf $tmpfs/$1
|
pascal@943
|
296 done;;
|
pascal@942
|
297 esac
|
pascal@942
|
298 $umnt $tmpfs
|
pascal@942
|
299 rmdir $tmpfs
|
pascal@2877
|
300 exit 0
|
pascal@942
|
301 }
|
pascal@942
|
302
|
pascal@688
|
303 # the option switches
|
pascal@688
|
304 case "$opt" in
|
pascal@688
|
305 -i) # info: output supported extentions for progs that exist
|
pascal@688
|
306 for ext in $TAR_EXTS $GZIP_EXTS $BZIP2_EXTS $COMPRESS_EXTS $LZMA_EXTS \
|
pascal@688
|
307 $CPIO_EXTS $CPIOGZ_EXTS $ZIP_EXTS $DEB_EXTS $RPM_EXTS \
|
pascal@2080
|
308 $TAZPKG_EXTS $ISO_EXTS $FS_EXTS $IPK_EXTS; do
|
pascal@688
|
309 printf "%s;" $ext
|
pascal@688
|
310 if [ "$ext" = "zip" -a ! "$(which zip)" ]; then
|
pascal@688
|
311 echo warning: zip not found, extract only >/dev/stderr
|
pascal@688
|
312 fi
|
pascal@688
|
313 done
|
pascal@2877
|
314 while read mod exts; do
|
pascal@2877
|
315 [ -f /lib/modules/$(uname -r)/kernel/$mod ] || continue
|
pascal@2877
|
316 for ext in $exts; do
|
pascal@2877
|
317 printf "%s;" $ext
|
pascal@2877
|
318 done
|
pascal@2877
|
319 done <<EOT
|
pascal@2877
|
320 fs/squashfs/squashfs.ko $SQUASHFS_EXTS
|
pascal@2877
|
321 drivers/block/cloop.ko $CLOOP_EXTS
|
pascal@2877
|
322 EOT
|
pascal@2877
|
323 while read exe exts; do
|
pascal@2877
|
324 [ "$(which $exe)" ] || continue
|
pascal@2877
|
325 for ext in $exts; do
|
pascal@2877
|
326 printf "%s;" $ext
|
pascal@2877
|
327 done
|
pascal@2877
|
328 done <<EOT
|
pascal@2877
|
329 cromfs-driver $CROMFS_EXTS
|
pascal@2877
|
330 rar $RAR_EXTS
|
pascal@2877
|
331 unace ace
|
pascal@2877
|
332 arj arj
|
pascal@2877
|
333 7za 7z
|
pascal@2877
|
334 lha $LHA_EXTS
|
pascal@3194
|
335 lzop $LZO_EXTS
|
pascal@2877
|
336 EOT
|
pascal@688
|
337 printf "\n"
|
pascal@688
|
338 exit
|
pascal@688
|
339 ;;
|
pascal@688
|
340
|
pascal@688
|
341 -o) # open: mangle output of tar cmd for xarchive
|
pascal@2877
|
342 while read cmd filter exts; do
|
pascal@2877
|
343 for ext in $exts; do
|
pascal@688
|
344 # format of cpio output:
|
pascal@688
|
345 # lrwxrwxrwx USR/GRP 0 2005-05-12 00:32:03 file -> /path/to/link
|
pascal@688
|
346 # -rw-r--r-- USR/GRP 6622 2005-04-22 12:29:14 file
|
pascal@688
|
347 # 1 2 3 4 5 6
|
pascal@688
|
348 if [ $(expr "$lc_archive" : ".*\."$ext"$") -gt 0 ]; then
|
pascal@2877
|
349 $cmd "$archive" | $filter | $AWK_PROG '
|
pascal@688
|
350 {
|
pascal@688
|
351 attr=$1
|
pascal@688
|
352 split($2,ids,"/") #split up the 2nd field to get uid/gid
|
pascal@688
|
353 uid=ids[1]
|
pascal@688
|
354 gid=ids[2]
|
pascal@688
|
355 size=$3
|
pascal@688
|
356 date=$4
|
pascal@688
|
357 time=$5
|
pascal@688
|
358
|
pascal@688
|
359 #this method works with filenames that start with a space (evil!)
|
pascal@688
|
360 #split line a time and a space
|
pascal@688
|
361 split($0,linesplit, $5 " ")
|
pascal@688
|
362 #then split the second item (name&link) at the space arrow space
|
pascal@688
|
363 split(linesplit[2], nlsplit, " -> ")
|
pascal@688
|
364
|
pascal@688
|
365 name=nlsplit[1]
|
pascal@688
|
366 link=nlsplit[2]
|
pascal@688
|
367
|
pascal@688
|
368 if (! link) {link="-"} #if there was no link set it to a dash
|
pascal@688
|
369
|
pascal@688
|
370 if (name != "" && uid != "blocks") printf "%s;%s;%s;%s;%s;%s;%s;%s\n",name,size,attr,uid,gid,date,time,link
|
pascal@688
|
371 }'
|
pascal@2877
|
372 exit 0
|
pascal@688
|
373 fi
|
pascal@688
|
374 done
|
pascal@2877
|
375 done <<EOT
|
pascal@2877
|
376 do_decompress cpio\ -tv $CPIO_EXTS $CPIOGZ_EXTS
|
pascal@2877
|
377 do_decompress tar\ -tvf\ - $TAR_EXTS $GZIP_EXTS $BZIP2_EXTS $COMPRESS_EXTS $LZMA_EXTS $IPK_EXTS
|
pascal@2877
|
378 rpm2cpio cpio\ -tv $RPM_EXTS
|
pascal@2877
|
379 tazpkg2cpio cpio\ -tv $TAZPKG_EXTS
|
pascal@2877
|
380 EOT
|
pascal@688
|
381 for ext in $ZIP_EXTS; do
|
pascal@688
|
382 if [ $(expr "$lc_archive" : ".*\."$ext"$") -gt 0 ]; then
|
pascal@2877
|
383 if [ "$(which zipinfo)" ]; then
|
pascal@688
|
384 # format of zipinfo -T -s-h- output:
|
pascal@688
|
385 # -rw-r--r-- 2.3 unx 11512 tx defN YYYYMMDD.HHMMSS file
|
pascal@688
|
386 # 1 2 3 4 5 6 7 8
|
pascal@688
|
387 zipinfo -T -s-h-t "$archive" | $AWK_PROG -v uuid=$(id -u -n) '
|
pascal@688
|
388 {
|
pascal@688
|
389 attr=$1; size=$4
|
pascal@688
|
390
|
pascal@688
|
391 year=substr($7,1,4)
|
pascal@688
|
392 month=substr($7,5,2)
|
pascal@688
|
393 day=substr($7,7,2)
|
pascal@688
|
394 date=year "-" month "-" day
|
pascal@688
|
395
|
pascal@688
|
396 hours=substr($7,10,2)
|
pascal@688
|
397 mins=substr($7,12,2)
|
pascal@688
|
398 secs=substr($7,14,2)
|
pascal@688
|
399 time=hours ":" mins ":" secs
|
pascal@688
|
400
|
pascal@688
|
401 uid=uuid; gid=uuid; link="-"
|
pascal@688
|
402 #split line at the time and a space, second item is our name
|
pascal@688
|
403 split($0, linesplit, ($7 " "))
|
pascal@688
|
404 name=linesplit[2]
|
pascal@688
|
405 printf "%s;%s;%s;%s;%s;%s;%s;%s\n",name,size,attr,uid,gid,date,time,link
|
pascal@688
|
406 }'
|
pascal@2877
|
407 exit 0
|
pascal@688
|
408 else
|
pascal@688
|
409 # format of unzip -l output:
|
pascal@688
|
410 # 6622 2005-04-22 12:29:14 file
|
pascal@688
|
411 # 1 2 3 4
|
pascal@688
|
412 unzip -l "$archive" | $AWK_PROG -v uuid=$(id -u -n) '
|
pascal@688
|
413 BEGIN { n = 0}
|
pascal@688
|
414 {
|
pascal@688
|
415 n=n+1
|
pascal@688
|
416 attr=""
|
pascal@688
|
417 uid=uuid; gid=uuid
|
pascal@688
|
418 size=$1
|
pascal@688
|
419 date=$2
|
pascal@688
|
420 time=$3
|
pascal@688
|
421
|
pascal@688
|
422 #this method works with filenames that start with a space (evil!)
|
pascal@688
|
423 #split line a time and a space
|
pascal@688
|
424 split($0,linesplit, $3 " ")
|
pascal@688
|
425 #then split the second item (name&link) at the space arrow space
|
pascal@688
|
426 split(linesplit[2], nlsplit, " -> ")
|
pascal@688
|
427
|
pascal@688
|
428 name=nlsplit[1]
|
pascal@688
|
429 link=nlsplit[2]
|
pascal@688
|
430
|
pascal@688
|
431 if (! link) {link="-"} #if there was no link set it to a dash
|
pascal@688
|
432
|
pascal@688
|
433 if (name != "" && n > 3) printf "%s;%s;%s;%s;%s;%s;%s;%s\n",name,size,attr,uid,gid,date,time,link
|
pascal@688
|
434 }'
|
pascal@2877
|
435 exit 0
|
pascal@688
|
436 fi
|
pascal@688
|
437 fi
|
pascal@688
|
438 done
|
pascal@688
|
439
|
pascal@943
|
440 for ext in $ISO_EXTS $SQUASHFS_EXTS $CROMFS_EXTS $CLOOP_EXTS $FS_EXTS; do
|
pascal@942
|
441 if [ $(expr "$lc_archive" : ".*\."$ext"$") -gt 0 ]; then
|
pascal@2877
|
442 loop_fs stat
|
pascal@688
|
443 fi
|
pascal@688
|
444 done
|
pascal@2877
|
445 for ext in $RAR_EXTS; do
|
pascal@2877
|
446 if [ $(expr "$lc_archive" : ".*\."$ext"$") -gt 0 ]; then
|
pascal@2877
|
447 # format of rar output:
|
pascal@2877
|
448 #-------------------------------------
|
pascal@2877
|
449 # bookmarks/mozilla_bookmarks.html
|
pascal@2877
|
450 # 11512 5231 45% 28-02-05 16:19 -rw-r--r-- F3F3477F m3b 2.9
|
pascal@2877
|
451 # (or 11512 5231 45% 28-02-05 16:19 .D.... 00000000 m3b 2.9)
|
pascal@2877
|
452 # (or 11512 5231 45% 28-02-05 16:19 .....S F3F3477F m3b 2.9)
|
pascal@2877
|
453 # 1 2 3 4 5 6 7 8 9
|
pascal@2877
|
454 #-------------------------------------
|
pascal@2877
|
455
|
pascal@2877
|
456 rar v -c- "$archive" | $AWK_PROG -v uuid=$(id -u -n) '
|
pascal@2877
|
457 # The body of info we wish to process starts with a dashed line
|
pascal@2877
|
458 # so set a flag to signal when to start and stop processing.
|
pascal@2877
|
459 # The name is on one line with the info on the next so toggle
|
pascal@2877
|
460 # a line flag letting us know what kinda info to get.
|
pascal@2877
|
461 BEGIN { flag=0; line=0 }
|
pascal@2877
|
462 /^------/ { flag++; if (flag > 1) exit 0; next} #line starts with dashs
|
pascal@2877
|
463 {
|
pascal@2877
|
464 if (flag == 0) next #not in the body yet so grab the next line
|
pascal@2877
|
465 if (line == 0) #this line contains the name
|
pascal@2877
|
466 {
|
pascal@2877
|
467 name=substr($0,2) #strip the single space from start of name
|
pascal@2877
|
468 line++ #next line will contain the info so increase the flag
|
pascal@2877
|
469 next
|
pascal@2877
|
470 }
|
pascal@2877
|
471 else #we got here so this line contains the info
|
pascal@2877
|
472 {
|
pascal@2877
|
473 size=$1
|
pascal@2877
|
474 date=$4
|
pascal@2877
|
475 time=$5
|
pascal@2877
|
476
|
pascal@2877
|
477 #modify attributes to read more unix like if they are not
|
pascal@2877
|
478 if (index($6, "D") != 0) {attr="drwxr-xr-x"}
|
pascal@2877
|
479 else if (index($6, ".") != 0) {attr="-rw-r--r--"}
|
pascal@2877
|
480 else {attr=$6}
|
pascal@2877
|
481
|
pascal@2877
|
482 uid=uuid
|
pascal@2877
|
483 gid=uuid
|
pascal@2877
|
484 link="-"
|
pascal@2877
|
485
|
pascal@2877
|
486 printf "%s;%s;%s;%s;%s;%s;%s;%s\n",name,size,attr,uid,gid,date,time,link
|
pascal@2877
|
487 line=0 #next line will be a name so reset the flag
|
pascal@2877
|
488 }
|
pascal@2877
|
489 }'
|
pascal@2877
|
490 exit 0
|
pascal@2877
|
491 fi
|
pascal@2877
|
492 done
|
pascal@2877
|
493 for ext in ace; do
|
pascal@2877
|
494 if [ $(expr "$lc_archive" : ".*\."$ext"$") -gt 0 ]; then
|
pascal@2877
|
495 # format of ace output:
|
pascal@2877
|
496 # Date ³Time ³Packed ³Size ³Ratio³File
|
pascal@2877
|
497 # 17.09.02³00:32³ 394116³ 414817³ 95%³ OggDS0993.exe
|
pascal@2877
|
498 # 1 2 3 4 5
|
pascal@2877
|
499 unace v -c- "$archive" | $AWK_PROG -v uuid=$(id -u -n) '
|
pascal@2877
|
500 #only process lines starting with two numbers and a dot
|
pascal@2877
|
501 /^[0-9][0-9]\./ {
|
pascal@2877
|
502 date=substr($1,1,8)
|
pascal@2877
|
503 time=substr($1,10,5)
|
pascal@2877
|
504 #need to strip the funky little 3 off the end of size
|
pascal@2877
|
505 size=substr($3,1,(length($3)-1))
|
pascal@2877
|
506
|
pascal@2877
|
507 #split line at ratio and a space, second item is our name
|
pascal@2877
|
508 split($0, linesplit, ($4 " "))
|
pascal@2877
|
509 name=linesplit[2]
|
pascal@2877
|
510
|
pascal@2877
|
511 uid=uuid; gid=uuid; link="-"; attr="-"
|
pascal@2877
|
512 printf "%s;%s;%s;%s;%s;%s;%s;%s\n",name,size,attr,uid,gid,date,time,link
|
pascal@2877
|
513 }'
|
pascal@2877
|
514 exit 0
|
pascal@2877
|
515 fi
|
pascal@2877
|
516 done
|
pascal@2877
|
517 for ext in arj; do
|
pascal@2877
|
518 if [ $(expr "$lc_archive" : ".*\."$ext"$") -gt 0 ]; then
|
pascal@2877
|
519 # format of arj output:
|
pascal@2877
|
520 # 001) ANKETA.FRG
|
pascal@2877
|
521 # 3 MS-DOS 356 121 0.340 92-04-12 11:39:46 1
|
pascal@2877
|
522
|
pascal@2877
|
523 arj v "$archive" | $AWK_PROG -v uuid=$(id -u -n) '{
|
pascal@2877
|
524 if (($0 ~ /^[0-9]+\) .*/)||($0 ~ /^------------ ---------- ---------- -----/)){
|
pascal@2877
|
525 if (filestr ~ /^[0-9]+\) .*/) {
|
pascal@2877
|
526 printf "%s;%d;%s;%d;%d;%02d-%02d-%02d;%02d:%02d;%s\n", file, size, perm, uid, gid, date[1], date[3], date[2], time[1], time[2], symfile
|
pascal@2877
|
527 perm=""
|
pascal@2877
|
528 file=""
|
pascal@2877
|
529 symfile=""
|
pascal@2877
|
530 filestr=""
|
pascal@2877
|
531 }
|
pascal@2877
|
532 }
|
pascal@2877
|
533
|
pascal@2877
|
534 if ($0 ~ /^[0-9]+\) .*/) {
|
pascal@2877
|
535 filestr=$0
|
pascal@2877
|
536 sub(/^[0-9]*\) /, "")
|
pascal@2877
|
537 file=$0
|
pascal@2877
|
538 uid=uuid
|
pascal@2877
|
539 gid=0
|
pascal@2877
|
540 }
|
pascal@2877
|
541
|
pascal@2877
|
542 if ($0 ~ /^.* [0-9]+[\t ]+[0-9]+ [0-9]\.[0-9][0-9][0-9] [0-9][0-9]-[0-9][0-9]-[0-9][0-9] [0-9][0-9]:[0-9][0-9]:[0-9][0-9].*/) {
|
pascal@2877
|
543 size=$3
|
pascal@2877
|
544 split($6, date, "-")
|
pascal@2877
|
545 split($7, time, ":")
|
pascal@2877
|
546 if ($8 ~ /^[rwx-]/) {perm=$8;} else {perm="-rw-r--r--"}
|
pascal@2877
|
547 }
|
pascal@2877
|
548
|
pascal@2877
|
549 if ($0 ~ /^[\t ]+SymLink -> .*/) {
|
pascal@2877
|
550 symfile = $3
|
pascal@2877
|
551 perm="l"substr(perm, 2)
|
pascal@2877
|
552 } else {symfile="-"}
|
pascal@2877
|
553
|
pascal@2877
|
554 if ($0 ~ /^[\t ]+Owner: UID [0-9]+\, GID [0-9]+/) {
|
pascal@2877
|
555 uid=$3
|
pascal@2877
|
556 gid=$5
|
pascal@2877
|
557 owner=1
|
pascal@2877
|
558 }
|
pascal@2877
|
559 }'
|
pascal@2877
|
560 exit 0
|
pascal@2877
|
561 fi
|
pascal@2877
|
562 done
|
pascal@2877
|
563 for ext in 7z; do
|
pascal@2877
|
564 if [ $(expr "$lc_archive" : ".*\."$ext"$") -gt 0 ]; then
|
pascal@2877
|
565 # format of 7za output:
|
pascal@2877
|
566 # ------------------- ----- ------------ ------------ ------------
|
pascal@2877
|
567 # 1992-04-12 11:39:46 ....A 356 ANKETA.FRG
|
pascal@2877
|
568
|
pascal@2877
|
569 7za l "$archive" | $AWK_PROG -v uuid=$(id -u -n) '
|
pascal@2877
|
570 BEGIN { flag=0; }
|
pascal@2877
|
571 /^-------/ { flag++; if (flag > 1) exit 0; next }
|
pascal@2877
|
572 {
|
pascal@2877
|
573 if (flag == 0) next
|
pascal@2877
|
574
|
pascal@2877
|
575 year=substr($1, 1, 4)
|
pascal@2877
|
576 month=substr($1, 6, 2)
|
pascal@2877
|
577 day=substr($1, 9, 2)
|
pascal@2877
|
578 time=substr($2, 1, 5)
|
pascal@2877
|
579
|
pascal@2877
|
580 if (index($3, "D") != 0) {attr="drwxr-xr-x"}
|
pascal@2877
|
581 else if (index($3, ".") != 0) {attr="-rw-r--r--"}
|
pascal@2877
|
582
|
pascal@2877
|
583 size=$4
|
pascal@2877
|
584
|
pascal@2877
|
585 $0=substr($0, 54)
|
pascal@2877
|
586 if (NF > 1) {name=$0}
|
pascal@2877
|
587 else {name=$1}
|
pascal@2877
|
588 gsub(/\\/, "/", name)
|
pascal@2877
|
589
|
pascal@2877
|
590 printf "%s;%d;%s;%d;%d;%d-%02d-%02d;%s;-\n", name, size, attr, uid, 0, year, month, day, time
|
pascal@2877
|
591 }'
|
pascal@2877
|
592 exit 0
|
pascal@2877
|
593 fi
|
pascal@2877
|
594 done
|
pascal@2877
|
595 for ext in $LHA_EXTS; do
|
pascal@2877
|
596 if [ $(expr "$lc_archive" : ".*\."$ext"$") -gt 0 ]; then
|
pascal@2877
|
597 # format of lha output:
|
pascal@2877
|
598 # Desktop/up -> ..
|
pascal@2877
|
599 # lrwxrwxrwx 0/0 0 0 ****** -lhd- 0000 2009-05-03 16:59:03 [2]
|
pascal@2877
|
600
|
pascal@2877
|
601 lha v -q -v "$archive" | $AWK_PROG '
|
pascal@2877
|
602 {
|
pascal@2877
|
603 if ($4 == "") {
|
pascal@2877
|
604 split($0, nlsplit, " -> ")
|
pascal@2877
|
605 name=nlsplit[1]
|
pascal@2877
|
606 link=nlsplit[2]
|
pascal@2877
|
607 if (! link) {link="-"}
|
pascal@2877
|
608 next
|
pascal@2877
|
609 }
|
pascal@2877
|
610 attr=$1
|
pascal@2877
|
611 ids=$2
|
pascal@2877
|
612 split($2,ids,"/") #split up the 2nd field to get uid/gid
|
pascal@2877
|
613 uid=ids[1]
|
pascal@2877
|
614 gid=ids[2]
|
pascal@2877
|
615 size=$4
|
pascal@2877
|
616
|
pascal@2877
|
617 year=substr($8, 1, 4)
|
pascal@2877
|
618 month=substr($8, 6, 2)
|
pascal@2877
|
619 day=substr($8, 9, 2)
|
pascal@2877
|
620 time=substr($9, 1, 5)
|
pascal@2877
|
621
|
pascal@2877
|
622 printf "%s;%d;%s;%d;%d;%d-%02d-%02d;%s;-\n", name, size, attr, uid, gid, year, month, day, time
|
pascal@2877
|
623 }'
|
pascal@2877
|
624 exit 0
|
pascal@2877
|
625 fi
|
pascal@2877
|
626 done
|
pascal@3194
|
627 for ext in $LZO_EXTS; do
|
pascal@3194
|
628 if [ $(expr "$lc_archive" : ".*\."$ext"$") -gt 0 ]; then
|
pascal@3194
|
629 # format of lzo output:
|
pascal@3194
|
630 # Method Length Packed Ratio Date Time Name
|
pascal@3194
|
631 # ------ ------ ------ ----- ---- ---- ----
|
pascal@3194
|
632 # LZO1X-1 626 526 84.0% 2009-05-27 09:52 file
|
pascal@3194
|
633 # LZO1X-1 10057 5675 56.4% 2005-07-25 16:26 path/file
|
pascal@3194
|
634 # ------- ------- ----- ----
|
pascal@3194
|
635 # 1 2 3 4 5 6 7
|
pascal@3194
|
636 lzop -Plv "$archive" | $AWK_PROG -v uuid=$(id -u -n) '
|
pascal@3194
|
637 BEGIN { show = 0}
|
pascal@3194
|
638 {
|
pascal@3194
|
639 if ($5 == "----" || $4 == "----") {
|
pascal@3194
|
640 show = 1 - show
|
pascal@3194
|
641 next
|
pascal@3194
|
642 }
|
pascal@3194
|
643 attr="-rw-r--r--"
|
pascal@3194
|
644 uid=uuid; gid=uuid
|
pascal@3194
|
645 size=$2
|
pascal@3194
|
646 date=$5
|
pascal@3194
|
647 time=$6
|
pascal@3194
|
648
|
pascal@3194
|
649 #this method works with filenames that start with a space (evil!)
|
pascal@3194
|
650 #split line a time and a space
|
pascal@3194
|
651 split($0,linesplit, $6 " ")
|
pascal@3194
|
652
|
pascal@3194
|
653 name=linesplit[2]
|
pascal@3194
|
654 link="-" # links are not supported
|
pascal@3194
|
655
|
pascal@3194
|
656 if (show == 1) printf "%s;%s;%s;%s;%s;%s;%s;%s\n",name,size,attr,uid,gid,date,time,link
|
pascal@3194
|
657 }'
|
pascal@3194
|
658 exit 0
|
pascal@3194
|
659 fi
|
pascal@3194
|
660 done
|
pascal@688
|
661 exit $E_UNSUPPORTED
|
pascal@688
|
662 ;;
|
pascal@688
|
663
|
pascal@688
|
664 -a) # add to archive passed files
|
pascal@941
|
665 update_tar_cpio add_file "$@"
|
pascal@943
|
666 for ext in $FS_EXTS; do
|
pascal@943
|
667 if [ $(expr "$lc_archive" : ".*\."$ext"$") -gt 0 ]; then
|
pascal@2877
|
668 loop_fs add "$@"
|
pascal@943
|
669 fi
|
pascal@943
|
670 done
|
pascal@2877
|
671 while read exe args exts; do
|
pascal@2877
|
672 [ "$(which $exe)" ] || continue
|
pascal@2877
|
673 for ext in $exts; do
|
pascal@688
|
674 if [ $(expr "$lc_archive" : ".*\."$ext"$") -gt 0 ]; then
|
pascal@688
|
675 # we only want to add the file's basename, not
|
pascal@688
|
676 # the full path so...
|
pascal@688
|
677 while [ "$1" ]; do
|
pascal@688
|
678 cd "$(dirname "$1")"
|
pascal@2877
|
679 $exe $args "$archive" "$(basename "$1")"
|
pascal@688
|
680 wrapper_status=$?
|
pascal@688
|
681 shift 1
|
pascal@688
|
682 done
|
pascal@688
|
683 exit $wrapper_status
|
pascal@688
|
684 fi
|
pascal@2877
|
685 done
|
pascal@2877
|
686 done <<EOT
|
pascal@2877
|
687 zip -g\ -r $ZIP_EXTS
|
pascal@2877
|
688 rar a $RAR_EXTS
|
pascal@2877
|
689 arj a arj
|
pascal@2877
|
690 7za a\ -ms=off 7z
|
pascal@2877
|
691 lha a $LHA_EXTS
|
pascal@2877
|
692 EOT
|
pascal@688
|
693 exit $E_UNSUPPORTED
|
pascal@688
|
694 ;;
|
pascal@688
|
695
|
pascal@688
|
696 -n) # new: create new archive with passed files
|
pascal@941
|
697 update_tar_cpio new_archive "$@"
|
pascal@2877
|
698 while read exe args exts; do
|
pascal@2877
|
699 [ "$(which $exe)" ] || continue
|
pascal@2877
|
700 for ext in $exts; do
|
pascal@688
|
701 if [ $(expr "$lc_archive" : ".*\."$ext"$") -gt 0 ]; then
|
pascal@688
|
702 # create will only be passed the first file, the
|
pascal@688
|
703 # rest will be "added" to the new archive
|
pascal@688
|
704 cd "$(dirname "$1")"
|
pascal@2877
|
705 $exe $args "$archive" "$(basename "$1")"
|
pascal@688
|
706 fi
|
pascal@2877
|
707 done
|
pascal@2877
|
708 done <<EOT
|
pascal@2877
|
709 zip -r $ZIP_EXTS
|
pascal@2877
|
710 rar a $RAR_EXTS
|
pascal@2877
|
711 arj a arj
|
pascal@2877
|
712 7za a\ -ms=off 7z
|
pascal@2877
|
713 lha a $LHA_EXTS
|
pascal@2877
|
714 EOT
|
pascal@688
|
715 exit $E_UNSUPPORTED
|
pascal@688
|
716 ;;
|
pascal@688
|
717
|
pascal@688
|
718 -r) # remove: from archive passed files
|
pascal@941
|
719 update_tar_cpio remove_file "$@"
|
pascal@2877
|
720 while read exe args exts; do
|
pascal@2877
|
721 [ "$(which $exe)" ] || continue
|
pascal@2877
|
722 for ext in $exts; do
|
pascal@943
|
723 if [ $(expr "$lc_archive" : ".*\."$ext"$") -gt 0 ]; then
|
pascal@2877
|
724 $exe $args "$archive" "$@"
|
pascal@2877
|
725 exit $?
|
pascal@943
|
726 fi
|
pascal@2877
|
727 done
|
pascal@2877
|
728 done <<EOT
|
pascal@2877
|
729 loop_fs remove $FS_EXTS
|
pascal@2877
|
730 zip -d $ZIP_EXTS
|
pascal@2877
|
731 rar d $RAR_EXTS
|
pascal@2877
|
732 arj d arj
|
pascal@2877
|
733 lha d $LHA_EXTS
|
pascal@2877
|
734 EOT
|
pascal@2877
|
735 wrapper_status=0
|
pascal@2877
|
736 [ "$(which 7za)" ] && [ $(expr "$lc_archive" : ".*\.7z$") -gt 0 ] &&
|
pascal@2877
|
737 while [ "$1" ]; do
|
pascal@2877
|
738 7za l "$archive" 2>/dev/null | grep -q "[.][/]" >&/dev/null \
|
pascal@2877
|
739 && EXFNAME=*./"$1" || EXFNAME="$1"
|
pascal@2877
|
740 7za d "$archive" "$EXFNAME" 2>&1 \
|
pascal@2877
|
741 | grep -q E_NOTIMPL &> /dev/null && {
|
pascal@2877
|
742 echo -e "Function not implemented: 7z cannot delete files from solid archive." >&2
|
pascal@2877
|
743 wrapper_status=$E_UNSUPPORTED
|
pascal@2877
|
744 }
|
pascal@2877
|
745 shift 1;
|
pascal@688
|
746 done
|
pascal@688
|
747 exit $E_UNSUPPORTED
|
pascal@688
|
748 ;;
|
pascal@688
|
749
|
pascal@688
|
750 -e) # extract: from archive passed files
|
pascal@2080
|
751 for ext in $TAR_EXTS $GZIP_EXTS $BZIP2_EXTS $COMPRESS_EXTS $LZMA_EXTS \
|
pascal@2080
|
752 $IPK_EXTS; do
|
pascal@688
|
753 if [ $(expr "$lc_archive" : ".*\."$ext"$") -gt 0 ]; then
|
pascal@688
|
754 # xarchive will put is the right extract dir
|
pascal@688
|
755 # so we just have to extract.
|
pascal@942
|
756 $DECOMPRESS "$archive" | tar -xf - "$@"
|
pascal@688
|
757 exit $?
|
pascal@688
|
758 fi
|
pascal@688
|
759 done
|
pascal@2877
|
760
|
pascal@2877
|
761 while read exe exts; do
|
pascal@2877
|
762 [ "$(which $exe)" ] || continue
|
pascal@2877
|
763 for ext in $exts; do
|
pascal@688
|
764 if [ $(expr "$lc_archive" : ".*\."$ext"$") -gt 0 ]; then
|
pascal@688
|
765 if [ -n "$1" ]; then
|
pascal@688
|
766 while [ "$1" ]; do
|
pascal@2877
|
767 $exe "$archive" | cpio -idv "$1"
|
pascal@688
|
768 shift 1
|
pascal@688
|
769 done
|
pascal@688
|
770 else
|
pascal@2877
|
771 $exe "$archive" | cpio -idv
|
pascal@688
|
772 fi
|
pascal@688
|
773 exit $?
|
pascal@688
|
774 fi
|
pascal@2877
|
775 done
|
pascal@2877
|
776 done <<EOT
|
pascal@2877
|
777 rpm2cpio $RPM_EXTS
|
pascal@2877
|
778 do_decompress $CPIO_EXTS $CPIOGZ_EXTS
|
pascal@2877
|
779 tazpkg2cpio $TAZPKG_EXTS
|
pascal@2877
|
780 EOT
|
pascal@2877
|
781
|
pascal@2877
|
782 while read exe args exts; do
|
pascal@2877
|
783 [ "$(which $exe)" ] || continue
|
pascal@2877
|
784 for ext in $exts; do
|
pascal@688
|
785 if [ $(expr "$lc_archive" : ".*\."$ext"$") -gt 0 ]; then
|
pascal@2877
|
786 $exe $args "$archive" "$@"
|
pascal@688
|
787 exit $?
|
pascal@688
|
788 fi
|
pascal@688
|
789 done
|
pascal@2877
|
790 done <<EOT
|
pascal@2877
|
791 loop_fs copy $ISO_EXTS $SQUASHFS_EXTS $CROMFS_EXTS $CLOOP_EXTS $FS_EXTS
|
pascal@2877
|
792 unzip -n $ZIP_EXTS
|
pascal@2877
|
793 dpkg-deb -X $DEB_EXTS
|
pascal@2877
|
794 lha x $LHA_EXTS
|
pascal@3194
|
795 lzop -x $LZO_EXTS
|
pascal@2877
|
796 EOT
|
pascal@2877
|
797 while read exe args argpass exts; do
|
pascal@2877
|
798 [ "$(which $exe)" ] || continue
|
pascal@2877
|
799 for ext in $exts; do
|
pascal@688
|
800 if [ $(expr "$lc_archive" : ".*\."$ext"$") -gt 0 ]; then
|
pascal@2877
|
801 [ $exe != unace ] && $exe $args "$archive" "$@"
|
pascal@2877
|
802 if [ "$?" -ne "0" ] && [ "$XTERM_PROG" ]; then
|
pascal@2877
|
803 echo Probably password protected,
|
pascal@2877
|
804 echo Opening an x-terminal...
|
pascal@2877
|
805 $XTERM_PROG -e $exe $argpass "$archive" "$@"
|
pascal@2877
|
806 fi
|
pascal@2877
|
807 exit 0
|
pascal@688
|
808 fi
|
pascal@2877
|
809 done
|
pascal@2877
|
810 done <<EOT
|
pascal@2877
|
811 rar x\ -o-\ -p- x\ -o- $RAR_EXTS
|
pascal@2877
|
812 arj x\ -y x\ -y\ -g? arj
|
pascal@2877
|
813 7za x\ -y\ -p- x\ -y 7z
|
pascal@2877
|
814 unace -UNUSED- x\ -o\ -y ace
|
pascal@2877
|
815 EOT
|
pascal@688
|
816 exit $E_UNSUPPORTED
|
pascal@688
|
817 ;;
|
pascal@688
|
818
|
pascal@688
|
819 *) echo "error, option $opt not supported"
|
pascal@688
|
820 echo "use one of these:"
|
pascal@688
|
821 echo "-i #info"
|
pascal@688
|
822 echo "-o archive #open"
|
pascal@688
|
823 echo "-a archive files #add"
|
pascal@688
|
824 echo "-n archive file #new"
|
pascal@688
|
825 echo "-r archive files #remove"
|
pascal@688
|
826 echo "-e archive files #extract"
|
pascal@688
|
827 exit
|
pascal@688
|
828 esac
|