modules/extfs/ar.in

   1 #!/bin/sh
   2 #
   3 # Written by    Alex Kuchma <ask@bcs.zp.ua>
   4 #               Alex Tkachenko <alex@bcs.zp.ua>
   5 # Updated by    Vitezslav Samel <xsamel00@dcse.fee.vutbr.cz>
   6 #
   7 # (C) 1997, 1998 The Free Software Foundation.
   8 #
   9 #
  10 XAR=ar
  11 XUNAR=ar
  12 XARINFO="ar tv"
  13 AWK=awk
  14
  15 mcarfs_list ()
  16 {
  17         YEAR=`date '+%Y'`
  18         $XARINFO $1 | @AWK@ -v year=$YEAR '
  19         {
  20                 date = $(NF-1)
  21                 if(date == year) {
  22                         date = $(NF-2);
  23                 }
  24                 perms = substr($1, 1, 9);
  25                 split($2, id, "/");
  26                 if(NF > 8) {
  27                         id[2] = $3;
  28                 }
  29                 printf("-%9s 1 %8d %8d %8d %s %s %s %s\n", perms, id[1], id[2], $(NF-5), $(NF-4), $(NF-3), date, $(NF));
  30         }' 2>/dev/null
  31 }
  32
  33 mcarfs_copyout ()
  34 {
  35     $XUNAR p $1 $2 > $3
  36 }
  37
  38 # override any locale for dates
  39 LC_ALL=C
  40 export LC_ALL
  41
  42 umask 077
  43 case "$1" in
  44   list) mcarfs_list $2; exit 0;;
  45   copyout) shift; mcarfs_copyout $*; exit 0;;
  46   copyin) shift; mcarfs_copyin $*; exit 0;;
  47 esac
  48 exit 1