cgit.sxemacs.org Git - packages/blob - xemacs-packages/mew/mew/contrib/imput.sh

   1 #!/bin/sh
   2
   3 # imput.sh: emulate imput program using MH's send
   4 #   options
   5 #     -Draftfolder +dradt   -> -draftfolder +dradt
   6 #     -draftmessage 1       -> -draftmessage 1 (add From: field)
   7 #     --preserve=off        -> (ignore)
   8 #     --help=no             -> (ignore)
   9 #     --debug=no            -> (ignore)
  10 #     --verbose             -> (ignore)
  11 #     other options         -> (through)
  12 #
  13
  14 mhdir=/usr/local/bin/mh
  15 arg= fflag=0 dflag=0 folder=
  16
  17 addr="`sed -n 's/^Address=\([^  ]*\).*/\1/p' $HOME/.im/Config`"
  18 [ "$addr" = "" ] && addr="$USER@_your_domain_address_"
  19
  20 sig="`sed -n 's/[       ]*#.*//;s/^Name=\(.*\)$/\1/p' $HOME/.im/Config`"
  21 [ "$sig" = "" ] && sig="`sed -n 's/^[Ss]ignature: //p' $HOME/.mh_profile`"
  22 [ "$sig" = "" ] && sig="`awk -F: '{print $5}' /etc/passwd`"
  23 if [ "$sig" != "" ]; then
  24     if [ "`echo $sig | grep '[.@]'`" = "" ]; then
  25         from="From: $sig <$addr>"
  26     else
  27         from="From: "\""$sig"\"" <$addr>"
  28     fi
  29 else
  30     from="From: $addr"
  31 fi
  32
  33 for opt in $*
  34 do
  35     case $opt in
  36         -*=*) optarg=`echo $opt | sed 's/[-_a-zA-Z0-9]*=//'` ;;
  37         *) optarg= ;;
  38     esac
  39
  40     case $opt in
  41         --preserve=*)
  42             ;;  # ignore
  43         --help=*)
  44             ;;  # ignore
  45         --debug=*)
  46             ;;  # ignore
  47         -draftfolder)
  48             fflag=1
  49             arg="$arg $opt"
  50             ;;
  51         -draftmessage)
  52             dflag=1
  53             arg="$arg $opt"
  54             ;;
  55         -verbose)
  56             ;;  # ignore
  57         *)
  58             if [ $fflag = 1 ]; then
  59                 folder=`echo $opt | sed 's/^+//'`
  60             fi
  61             if [ $dflag = 1 ]; then
  62                 cd $HOME/Mail/$folder
  63                 mv $opt ,$opt
  64                 sed -n '1,/^-*$/p' ,$opt | sed 's/^\(-*\)$/'"$from"'\
  65 \1/' > $opt
  66                 sed '1,/^-*$/d' ,$opt >> $opt
  67             fi
  68             arg="$arg $opt" fflag=0 dflag=0
  69             ;;
  70     esac
  71 done
  72
  73 exec $mhdir/send $arg 2>&1 | sed "s/^\([^<=][^=>]\)/`basename $0`: ERROR: \1/"