1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950 |
- #!/bin/sh
- #
- # Written by Alex Kuchma <ask@bcs.zp.ua>
- # Alex Tkachenko <alex@bcs.zp.ua>
- # Updated by Vitezslav Samel <xsamel00@dcse.fee.vutbr.cz>
- #
- # (C) 1997, 1998 The Free Software Foundation.
- #
- #
- XAR=ar
- mcarfs_list ()
- {
- $XAR tv "$1" | sed 's,^,-,;s, , 1 ,;s,/, ,'
- }
- mcarfs_copyout ()
- {
- $XAR p "$1" "$2" > "$3"
- }
- mcarfs_copyin ()
- {
- TMPDIR=/tmp/mctmpdir-uar.$$
- mkdir $TMPDIR || exit 1
- name=`basename "$2"`
- (cd $TMPDIR && cp -fp "$3" $name && $XAR r "$1" $name)
- rm -rf $TMPDIR
- }
- mcarfs_rm ()
- {
- $XAR d "$1" "$2"
- }
- # override any locale for dates
- LC_ALL=C
- export LC_ALL
- umask 077
- case "$1" in
- list) mcarfs_list "$2" ;;
- copyout) shift; mcarfs_copyout "$@" ;;
- copyin) shift; mcarfs_copyin "$@" ;;
- rm) shift; mcarfs_rm "$@" ;;
- *) exit 1;
- esac
- exit 0
|