src/vfs/extfs/helpers/urar.in

   1 #! /bin/sh
   2 #
   3 # Written by andrey joukov
   4 # (C) 1996 2:5020/337.13@fidonet.org
   5 # Updated by christian.gennerat@alcatel.fr 1999
   6 #            Andrew V. Samoilov <sav@bcs.zp.ua> 2000
   7 #
   8 # Andrew Borodin <aborodin@vmail.ru>
   9 # David Haller <dnh@opensuse.org>
  10 #       2013: support unrar5
  11 #
  12 # beta version 2.0
  13 #
  14 # rar and unrar can be found on http://www.rarlabs.com/
  15
  16 RAR=rar
  17
  18 # Prefer unrar (freeware).
  19 UNRAR=`which unrar 2>/dev/null`
  20
  21 [ -z $UNRAR ] && UNRAR=$RAR
  22 [ ! -x $UNRAR -a -x $RAR ] && UNRAR=$RAR
  23
  24 # Define $UNRAR version
  25 UNRAR_VERSION=`$UNRAR -? | grep "Copyright" | sed -e 's/.*\([0-9]\)\..*/\1/'`
  26
  27 mcrar4fs_list ()
  28 {
  29      $UNRAR v -c- -cfg- "$1" | @AWK@ -v uid=`id -u` -v gid=`id -g` '
  30 BEGIN { flag=0 }
  31 /^-------/ { flag++; if (flag > 1) exit 0; next }
  32 flag==1 {
  33     str = substr($0, 2)
  34     getline
  35     split($4, a, "-")
  36     if (index($6, "D") != 0)
  37         $6="drwxr-xr-x"
  38     else
  39         if (index($6, ".") != 0)
  40             $6="-rw-r--r--"
  41     printf "%s 1 %s %s %d %02d/%02d/%02d %s ./%s\n", $6, uid, gid, $1, a[2], a[1], a[3], $5, str
  42 }'
  43 }
  44
  45 mcrar5fs_list ()
  46 {
  47     $UNRAR vt -c- -cfg- "$1" | @AWK@ -F ':' -v uid=`id -u` -v gid=`id -g` '
  48     {
  49         ### remove space after the ":" of the field name
  50         sub ("^ ", "", $2);
  51     }
  52
  53     $1 ~ / *Name$/ {
  54         ### next file
  55         name = mtime = size = attrs = "";
  56         delete date;
  57         name = $2;
  58         ### if the name contains ":", append the rest of the fields
  59         if (NF > 2) {
  60             for (i = 3; i <= NF; i++) {
  61                 name = name ":" $i;
  62             }
  63         }
  64     }
  65     $1 ~ /^ *mtime$/ {
  66         mtime = $2 ":" $3;
  67     }
  68     $1 ~ /^ *Size$/ {
  69         size = $2;
  70     }
  71     $1 ~ /^ *Attributes$/ {
  72         attrs = $2;
  73     }
  74
  75     $1 ~ /^ *Compression$/ {
  76         ### file done, using /^$/ is not so good you
  77         ### would have to skip the version stuff first
  78
  79         ### get date and time
  80         split (mtime, date, " ");
  81         time = date[2];
  82         ### cut off seconds from the time
  83         sub (",[0-9]*$", "", time);
  84         ### split for reordering of the date in the printf below
  85         split (date[1], date, "-");
  86         ### mc seems to be able to parse 4 digit years too, so remove if tested
  87         # sub ("^..", "", date[1]); ### cut year to 2 digits only
  88
  89         ### check/adjust rights
  90         if (index (attrs, "D") != 0) {
  91             attrs = "drwxr-xr-x";
  92         } else {
  93             if (index (attrs, ".") != 0) {
  94                 attrs = "-rw-r--r--";
  95             }
  96         }
  97
  98         ### and finally
  99         printf ("%s 1 %s %s %d %02d/%02d/%02d %s ./%s\n",
 100                 attrs, uid, gid, size, date[2], date[3], date[1], time, name);
 101     }
 102 '
 103 }
 104
 105 mcrarfs_list ()
 106 {
 107     [ x$UNRAR_VERSION = x5 ] && mcrar5fs_list "$@" || mcrar4fs_list "$@"
 108 }
 109
 110 mcrarfs_copyin ()
 111 {
 112 # copyin by christian.gennerat@alcatel.fr
 113 # preserve pwd. It is clean, but is it necessary?
 114     pwd=`pwd`
 115 # Create a directory and copy in it the tmp file with the good name
 116     mkdir "$3.dir"
 117     cd "$3.dir"
 118     di="${2%/*}"
 119 # if file is to be written upper in the archive tree, make fake dir
 120     if test x"$di" != x"${2##*/}" ; then
 121         mkdir -p "$di"
 122     fi
 123     cp -fp "$3" "$3.dir/$2"
 124     $RAR a "$1" "$2" >/dev/null
 125     cd "$pwd"
 126     rm -rf "$3.dir"
 127 }
 128
 129 mcrarfs_copyout ()
 130 {
 131     $UNRAR p -p- -c- -cfg- -inul "$1" "$2" > "$3"
 132 }
 133
 134 mcrarfs_mkdir ()
 135 {
 136 # preserve pwd. It is clean, but is it necessary?
 137     pwd=`pwd`
 138 # Create a directory and create in it a tmp directory with the good name
 139     dir=`mktemp -d "${MC_TMPDIR:-/tmp}/mctmpdir-urar.XXXXXX"` || exit 1
 140     cd "$dir"
 141     mkdir -p "$2"
 142 # rar cannot create an empty directory
 143     touch "$2"/.rarfs
 144     $RAR a -r "$1" "$2" >/dev/null
 145     $RAR d "$1" "$2/.rarfs" >/dev/null
 146     cd "$pwd"
 147     rm -rf "$dir"
 148 }
 149
 150 mcrarfs_rm ()
 151 {
 152     $RAR d "$1" "$2" >/dev/null
 153 }
 154
 155 umask 077
 156
 157 cmd="$1"
 158 shift
 159
 160 case "$cmd" in
 161   # Workaround for a bug in mc - directories must precede files to
 162   # avoid duplicate entries, so we sort output by filenames
 163   list)    mcrarfs_list    "$@" | sort -k 8 ;;
 164   rm)      mcrarfs_rm      "$@" ;;
 165   rmdir)   mcrarfs_rm      "$@" ;;
 166   mkdir)   mcrarfs_mkdir   "$@" ;;
 167   copyin)  mcrarfs_copyin  "$@" ;;
 168   copyout) mcrarfs_copyout "$@" ;;
 169   *) exit 1 ;;
 170 esac
 171 exit 0