git.marmaro.de Git - mmh/blob - docs/historical/mh-6.8.5/miscellany/mtrenv/bin/distf

   1 : run this script through /bin/sh
   2 : PATH=:/bin:/usr/bin:/usr/ucb:/usr/uci:/usr/uci/lib/mh; export PATH
   3 case $LOCAL in
   4     "")  LOCAL="`rprompt %h`"
   5          export LOCAL ;;
   6 esac
   7 F="" H="" N=F T=+${LOCAL}$$
   8
   9 for A in $*
  10 do
  11     case $A in
  12         -nov*)  N=F ;;
  13
  14         -v*)    N=T ;;
  15
  16         -*)     echo "distf: $A unknown" 1>&2
  17                 exit 1 ;;
  18
  19         +*|@*)  case $F in
  20                     "")  F=$A ;;
  21                     *)   echo "distf: only one folder at a time" 1>&2
  22                          exit 1 ;;
  23                 esac ;;
  24
  25         *)      case $H in
  26                     "")  H=$A ;;
  27                     *)   echo "distf: only one host at a time" 1>&2
  28                          exit 1 ;;
  29                 esac ;;
  30     esac
  31 done
  32
  33 case $F in
  34     "")  F=+outbox ;;
  35 esac
  36 case $H in
  37     "")  echo "usage: distf hostname [+folder]" 1>&2
  38          exit 1 ;;
  39 esac
  40
  41 prf=/tmp/prf$$ ctx=/tmp/ctx$$
  42 trap "rm -f $prf $ctx" 0 1 2 3 13 15
  43
  44 rm -f $prf
  45 echo "MH-Sequences:" > $prf
  46 cat ${MH-$HOME/.mh_profile} >> $prf
  47 MH="$prf" ; export MH
  48
  49 rm -f $ctx
  50 cp ${MHCONTEXT-`mhpath +`/context} $ctx
  51 MHCONTEXT="$ctx" ; export MHCONTEXT
  52
  53 if mhpath $F all > /dev/null;
  54     then
  55         C="rcp -r `mhpath $F` $H:`rsh $H -n mhpath $T`"
  56         case $N in
  57             T)   echo $C ;;
  58         esac
  59         if $C;
  60         then
  61             case $N in
  62                 F) C="rsh $H -n packit $T; rmf $T" ;;
  63
  64                 T) C="rsh $H -n packit -v $T; rmf $T"
  65                    echo $C ;;
  66             esac
  67             if $C;
  68             then
  69                 C="rmm $F all"
  70                 case $N in
  71                     T)   echo "rmm $F all" ;;
  72                 esac
  73                 if $C;
  74                 then
  75                     exit 0;
  76                 else
  77                     exit 1;
  78                 fi
  79             else
  80                 exit 1;
  81             fi
  82         else
  83             exit 1;
  84         fi
  85     else
  86         exit 1;
  87 fi
  88
  89 exit 0