7 $CAB -l "$1" | @AWK@
-v uid
=`id -un` -v gid
=`id -gn` '
9 /^-------/ { flag++; if (flag > 1) exit 0; next }
12 if (length($6) == 0) next
16 printf "%s 1 %s %s %d %02d/%02d/%02d %02d:%02d %s\n", pr, uid, gid, $1, a[2], a[1], a[3], b[1], b[2], $6
23 $CAB -F "$2" -p "$1" > "$3"
34 # Workaround for a bug in mc - directories must precede files to
35 # avoid duplicate entries, so we sort output by filenames
36 list
) mccabfs_list
"$2" ;;
37 copyout
) mccabfs_copyout
"$2" "$3" "$4" ;;