diplodocus.org Git - nmh/blob - docs/historical/mh-6.8.5/miscellany/mtrenv/bin/packit

   1 : run this script through /bin/sh
   2 : packit used to be called "packf", but "pack" got changed to that
   3 : PATH=:/bin:/usr/bin:/usr/ucb:/usr/uci:/usr/uci/lib/mh; export PATH
   4 F="" M="" N=F
   5
   6 for A in $*
   7 do
   8     case $A in
   9         -nov*)  N=F ;;
  10
  11         -v*)    N=T ;;
  12
  13         -*)     echo "packit: $A unknown" 1>&2
  14                 exit 1 ;;
  15
  16         +*|@*)  case $F in
  17                     "")  F=$A ;;
  18                     *)   echo "packit: only one folder at a time" 1>&2
  19                          exit 1 ;;
  20                 esac ;;
  21
  22         *)      M="$M $A" ;;
  23     esac
  24 done
  25
  26 case $F in
  27     "")  F=+outbox ;;
  28 esac
  29 case $M in
  30     "")  M=all ;;
  31 esac
  32
  33 prf=/tmp/prf$$ ctx=/tmp/ctx$$
  34 trap "rm -f $prf $ctx" 0 1 2 3 13 15
  35
  36 rm -f $prf
  37 echo "MH-Sequences:" > $prf
  38 cat ${MH-$HOME/.mh_profile} >> $prf
  39 MH="$prf" ; export MH
  40
  41 rm -f $ctx
  42 cp ${MHCONTEXT-`mhpath +`/context} $ctx
  43 MHCONTEXT="$ctx" ; export MHCONTEXT
  44
  45 if mhpath $F all > /dev/null;
  46     then
  47         P=`mhpath +`/OUTGOING
  48         C="packf -file $P $F $M"
  49         case $N in
  50             T)  echo $C ;;
  51         esac
  52         if $C;
  53         then
  54             C="rmm $F $M"
  55             case $N in
  56                 T)  echo $C ;;
  57             esac
  58             if $C;
  59             then
  60                 exit 0;
  61             else
  62                 exit 1;
  63             fi
  64         else
  65             exit 1;
  66         fi
  67     else
  68         exit 1;
  69 fi
  70
  71 exit 0