modules/extfs/uha.in

   1 #!/bin/sh
   2 #
   3 # It is the uhafs Valery Kornienkov vlk@st.simbirsk.su 2:5051/30@fidonet
   4 # ver ? :)
   5
   6 HA=ha # for HA 0.999 Copyright (c) 1995 Harri Hirvola
   7       # Source: ftp://sunsite.unc.edu/pub/Linux/compress/ha0999p-linux.tar.gz
   8
   9 mchafs_list ()
  10 {
  11  eval $HA lf $1 2>/dev/null |@AWK@ -v uid=${UID-0} '
  12 { date="JanFebMarAprMayJunJulAugSepOctNovDec" }
  13 /^===========/ {next}
  14 {
  15  if ($5="%" && $8~/DIR|ASC|CPY/) {
  16    split($6, a, "-")
  17    split($7, t, ":")
  18    filename=$1
  19    filesize=$2
  20    getline
  21    if ($2=="(none)") $2=""
  22    path=$2
  23    getline
  24    if ($1~/^d.*/) next
  25    printf "%s %s %-8d %-8d %8d %3s %2d %4d %s:%s %s%s \n",\
  26    $1,1,0,0,filesize, substr(date,(a[2]-1)*3+1,3),a[3],a[1],t[1],t[2],\
  27    path,filename
  28   }
  29 }' 2>/dev/null
  30 }
  31
  32 mchafs_copyout ()
  33 {
  34     cd /tmp
  35     eval $HA xy $1 $2 >/dev/null 2>&1
  36     mv -f $2 $3
  37 }
  38
  39 case "$1" in
  40   list) shift; mchafs_list $1; exit 0;;
  41   copyout) shift; mchafs_copyout $1 $2 $3; exit 0;;
  42 esac
  43 exit 1