vfs/extfs/uha.in

   1 #!/bin/sh
   2 #
   3 # It is the uhafs Valery Kornienkov vlk@st.simbirsk.su 2:5051/30@fidonet
   4 # ver 0.1 Thu Apr  6 12:05:08 2000
   5 #
   6 # Tested with HA 0.999.  Source of ha can be found at
   7 # ftp://ftp.ibiblio.org/pub/Linux/utils/compress/
   8
   9 HA=ha
  10
  11 mchafs_list ()
  12 {
  13     $HA lf "$1" 2>/dev/null | @AWK@ -v uid=${UID-0} '
  14 /^===========/ {next}
  15 {
  16  if ($5="%" && $8~/DIR|ASC|HSC|CPY/) {
  17    split($6, a, "-")
  18    split($7, t, ":")
  19    filename=$1
  20    filesize=$2
  21    getline
  22    if ($2=="(none)") $2=""
  23    path=$2
  24    getline
  25    if ($1~/^d.*/) next
  26    printf "%s %s %-8d %-8d %8d %s-%s-%s %s:%s %s%s\n",\
  27    $1,1,0,0,filesize,a[3],a[2],a[1],t[1],t[2],path,filename
  28   }
  29 }'
  30 }
  31
  32 mchafs_copyout ()
  33 {
  34     TMPDIR="/tmp/mctmpdir-uha.$$"
  35     mkdir $TMPDIR || exit 1
  36     cd $TMPDIR
  37
  38     $HA xyq "$1" "$2" >/dev/null
  39     cat "$2" > "$3"
  40
  41     cd /
  42     rm -rf $TMPDIR
  43 }
  44
  45 cmd="$1"
  46 shift
  47
  48 case "$cmd" in
  49   list) mchafs_list "$@" ;;
  50   copyout) mchafs_copyout "$@" ;;
  51   *) exit 1 ;;
  52 esac
  53 exit 0