File: imput.sh

package info (click to toggle)
mew 1.93b33-1
  • links: PTS
  • area: main
  • in suites: hamm
  • size: 2,072 kB
  • ctags: 1,720
  • sloc: lisp: 13,877; ansic: 2,325; sh: 305; makefile: 174; perl: 23
file content (73 lines) | stat: -rw-r--r-- 1,736 bytes parent folder | download | duplicates (12)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
#!/bin/sh

# imput.sh: emulate imput program using MH's send
#   options
#     -Draftfolder +dradt   -> -draftfolder +dradt
#     -draftmessage 1       -> -draftmessage 1 (add From: field)
#     --preserve=off        -> (ignore)
#     --help=no             -> (ignore)
#     --debug=no            -> (ignore)
#     --verbose             -> (ignore)
#     other options         -> (through)
#

mhdir=/usr/local/bin/mh
arg= fflag=0 dflag=0 folder=

addr="`sed -n 's/^Address=\([^ 	]*\).*/\1/p' $HOME/.im/Config`"
[ "$addr" = "" ] && addr="$USER@_your_domain_address_"

sig="`sed -n 's/[ 	]*#.*//;s/^Name=\(.*\)$/\1/p' $HOME/.im/Config`"
[ "$sig" = "" ] && sig="`sed -n 's/^[Ss]ignature: //p' $HOME/.mh_profile`"
[ "$sig" = "" ] && sig="`awk -F: '{print $5}' /etc/passwd`"
if [ "$sig" != "" ]; then
    if [ "`echo $sig | grep '[.@]'`" = "" ]; then
        from="From: $sig <$addr>"
    else
        from="From: "\""$sig"\"" <$addr>"
    fi
else
    from="From: $addr"
fi

for opt in $*
do
    case $opt in
	-*=*) optarg=`echo $opt | sed 's/[-_a-zA-Z0-9]*=//'` ;;
	*) optarg= ;;
    esac
    
    case $opt in
	--preserve=*)
	    ;;  # ignore
	--help=*)
	    ;;  # ignore
	--debug=*)
	    ;;  # ignore
	-draftfolder)
	    fflag=1
	    arg="$arg $opt"
	    ;;
	-draftmessage)
	    dflag=1
	    arg="$arg $opt"
	    ;;
	-verbose)
	    ;;  # ignore
	*)
	    if [ $fflag = 1 ]; then
		folder=`echo $opt | sed 's/^+//'`
	    fi
	    if [ $dflag = 1 ]; then
		cd $HOME/Mail/$folder
		mv $opt ,$opt
		sed -n '1,/^-*$/p' ,$opt | sed 's/^\(-*\)$/'"$from"'\
\1/' > $opt
		sed '1,/^-*$/d' ,$opt >> $opt
	    fi
	    arg="$arg $opt" fflag=0 dflag=0
	    ;;
    esac
done

exec $mhdir/send $arg 2>&1 | sed "s/^\([^<=][^=>]\)/`basename $0`: ERROR: \1/"