modules/extfs/lha.in

   1 #! /bin/sh
   2
   3 #
   4 # LHa Virtual filesystem executive v0.1
   5 # Copyright (C) 1996, 1997 Joseph M. Hinkle
   6 # May be distributed under the terms of the GNU Public License
   7 # <jhinkle@rockisland.com>
   8 #
   9
  10 # Code for mc_lha_fs_run() suggested by:
  11 # Jan 97        Zdenek Kabelac <kabi@informatics.muni.cz>
  12
  13 # Tested with mc 3.5.18 and gawk 3.0.0 on Linux 2.0.0
  14 # Tested with lha v1.01 and lharc v1.02
  15 # Information and sources for other forms of lha/lzh appreciated
  16
  17 # Nota bene:
  18 # There are several compression utilities which produce *.lha files.
  19 # LHArc and LHa in exist several versions, and their listing output varies.
  20 # Another variable is the architecture on which the compressed file was made.
  21 # This program attempts to sort out the variables known to me, but it is likely
  22 # to display an empty panel if it encounters a mystery.
  23 # In that case it will be useful to execute this file from the command line:
  24 # ./lha list Mystery.lha
  25 # to examine the output directly on the console.  The output string must be
  26 # precisely in the format described in the README in this directory.
  27 # Another helpful thing is to temporarily remove the redirection of error
  28 # output of awk (The '2> /dev/null' instruction near the end of mcfs_list())
  29 # The screen will get ugly if there's an error, but some useful text shows
  30 # at the bottom of the screen.
  31 # Caveat emptor.
  32 # Learn Latin.
  33
  34 # Define your awk
  35 AWK=@AWK@
  36
  37 if ls -de . >& /dev/null;
  38 then
  39     LS_COMMAND="ls -le"
  40 else
  41     LS_COMMAND="ls -l --full-time"
  42 fi
  43
  44 # Define which archiver you are using with appropriate options
  45 LHA_LIST="lha l"
  46 LHA_GET="lha pq"
  47 LHA_PUT="lha aq"
  48
  49 # Define a directory to create a temporary file for when
  50 # running a command to be run from the archive
  51 TMPDIR=/tmp/mc-cmd.$$
  52 # Temporary file within the directory
  53 TMPCMD=$TMPDIR/run
  54
  55 # The 'list' command executive
  56
  57 mc_lha_fs_list()
  58 {
  59    # Get the year of the file timestamp in case we need to replace 'hh:mm'
  60    YEAR=$($LS_COMMAND $1 | $AWK '{ print $10 }')
  61    # List the contents of the archive and sort it out
  62    $LHA_LIST $1 | $AWK -v uid=$(id -nu) -v gid=$(id -ng) -v year=$YEAR '
  63       # Ignore the annotations, quit on the last one
  64       /^\ PERMSSN/ { next }
  65       /^-----/ { next }
  66       /^\ Total/ { exit 0 }
  67       # Strip a leading '/' if present in a filepath
  68       $(NF) ~ /^\// { $(NF) = substr($NF,2) }
  69       # Replace the year stamp if it is expressed as 'hh:mm'
  70       $(NF-1) ~ /\:/ { $(NF-1) = year }
  71       # Print the line this way if there is no permission string
  72       $1 ~ /^\[generic\]/ {
  73          # Invent a generic permission
  74          $1 = ($10 ~ /\/$/) ? "drwxr-xr-x":"-rwxr--r--";
  75          # Print it
  76          printf "%s   1 %-8s %-8s %-8d %3s %2d %4d %s\n",
  77                  $1,     uid, gid,  $2, $4, $5, $6, $7;
  78          # Get the next line of the list
  79          next;
  80       }
  81       # Do it this way for a defined permission
  82       $1 !~ /^\[generic\]/ {
  83          # If the permissions and UID run together
  84          if ($1 ~ /\//) {
  85             $8 = $7;
  86             $7 = $6;
  87             $6 = $5;
  88             $5 = $4;
  89             $3 = $2;
  90             $2 = substr($1,10);
  91             $1 = substr($1,1,9);
  92          }
  93          # If the permission string is missing a type
  94          if (length($1) == 9) {
  95             if ($NF ~ /\/$/)
  96                $1 = ("d" $1);
  97             else
  98                $1 = ("-" $1);
  99          }
 100          # UID:GID might not be the same as on your system so print numbers
 101          # Well, that is the intent.  At the moment mc is translating them.
 102          split($2, id, "/");
 103          printf "%s   1 %-8d %-8d %-8d %3s %2d %4d %s\n",
 104                  $1,     id[1], id[2],  $3, $5, $6, $7, $8;
 105          # Get the next line of the list
 106          next;
 107       }
 108
 109    ' 2> /dev/null
 110 }
 111
 112 # The 'copyout' command executive to copy displayed files to a destination
 113
 114 mc_lha_fs_copyout()
 115 {
 116    $LHA_GET $1 $2 > $3  2> /dev/null
 117 }
 118
 119 # The 'copyin' command executive to add something to the archive
 120
 121 mc_lha_fs_copyin ()
 122 {
 123    NAME2=`basename $2`; DIR2=${2%$NAME2}
 124    NAME3=`basename $3`; DIR3=${3%$NAME3}
 125
 126    cd ${DIR3}
 127
 128    ONE2=${2%%/*}
 129    [ -n ${ONE2} ] || exit
 130    [ -e ${ONE2} ] && exit
 131
 132    [ -e ${DIR2} ] || mkdir -p ${DIR2}
 133    ln $3 $2       || exit
 134
 135    $LHA_PUT $1 $2  2> /dev/null
 136    rm -r ${ONE2}
 137 }
 138
 139 # The 'run' command executive to run a command from within an archive
 140
 141 mc_lha_fs_run()
 142 {
 143    trap "rm $TMPCMD; rmdir $TMPDIR; exit 0" 1 2 3 4 15
 144 # FIXME bugzilla.eazel.com 1225: Try harder to generate a unique directory if this fails
 145    mkdir -m 0700 $TMPDIR || exit 1
 146    $LHA_GET $1 $2 > $TMPCMD  2> /dev/null
 147    chmod a+x $TMPCMD  2> /dev/null
 148    $TMPCMD 2> /dev/null
 149    rm $TMPCMD
 150    rmdir $TMPDIR
 151 }
 152
 153
 154 # The main routine
 155 umask 077
 156
 157 case "$1" in
 158    list) mc_lha_fs_list $2; exit $?;;
 159    copyout) mc_lha_fs_copyout $2 $3 $4; exit $?;;
 160    copyin)  mc_lha_fs_copyin  $2 $3 $4; exit $?;;
 161    run)     mc_lha_fs_run     $2 $3 $4; exit $?;;
 162 esac
 163 exit 1
 164