lib/vfs/mc-vfs/extfs/ucab

   1 #! /bin/sh
   2
   3 CAB=cabextract
   4
   5 mccabfs_list ()
   6 {
   7     $CAB -l "$1" | gawk -v uid=`id -un` -v gid=`id -gn` '
   8 BEGIN { flag=0 }
   9 /^-------/ { flag++; if (flag > 1) exit 0; next }
  10 {
  11 if (flag == 0) next
  12 if (length($6) == 0) next
  13 pr="-rw-r--r--"
  14 split($3, a, ".")
  15 split($4, b, ":")
  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
  17 }'
  18
  19 }
  20
  21 mccabfs_copyout ()
  22 {
  23     $CAB -F "$2" -p "$1" > "$3"
  24 }
  25
  26 LC_ALL=C
  27 export LC_ALL
  28
  29 umask 077
  30
  31 cmd="$1"
  32
  33 case "$cmd" in
  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" ;;
  38   *) exit 1 ;;
  39 esac
  40 exit 0