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
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
| #!/bin/sh
#exemple de commande
#./send-mail.sh -f expediteur@ailleurs.com -t destinataire@quelquepart.fr -s "sujet du mail" -n fichierjoint < texte
# -f adresse de l'expediteur ( si non indiqué, sera l'adresse de l'utilisateur connecté)
# -t adresse du destinataire
# -c adresse des destinataires en copie (facultatif)
# -s sujet ou objet (titre)
# -n liste de fichiers (il existe aussi l'option -u et -b encodage base 64...)
# < un fichier qui existe (qui contient le corps du message) (facultatif)
#
# script to email files as attachments.
# ------------------------------------
# Additional documentation for this script, including a brief introdcution
# to MIME can be found at: http://home.clara.net/dwotton/unix/mail_files.htm
# Written: Dave Wotton, July 1998, (Cambridge UK)
# This script comes with no warranty or support. You are
# free to modify it as you wish, but please retain an
# acknowledgement of my original authorship.
# Usage: mail_files [-t] mailid [ -c mailid ] [ -s subject ] [ -f mailid ]
# [-n file_list] [-u file_list] [-b file_list] file_list
#
# -f : The mailid of the sender ( defaults to your userid )
# Only userids that have been defined as "trusted" in the sendmail
# config file can make use of the -f option. For non-trusted users
# any value specified by this parameter will be ignored by
# sendmail.
# -t : The mailid of the recipient. Mandatory, no default
# multiple mailids can be specified, separated by commas.
# -c : The mailid of any carbon-copy recipients. Optional.
# multiple mailids can be specified, separated by commas.
# -s : The subject string. Optional, default = "Not specified".
# Enclose in quotes.
# -n : no-encode: indicates a list of files which are NOT to be base64
# or uuencode encoded. Multiple files may be enclosed in double
# quotes. Usual wildcard notation can be used. This option is
# for completeness and can be omitted because the default action
# is not to encode the file-list.
# -b : base64 encoding: indicates a list of files which are to be
# base64 encoded. Multiple files may be enclosed in double quotes.
# Usual wildcard notation can be used.
# -u : uuencode encoding: indicates a list of files which are to be
# uuencode encoded. Multiple files may be enclosed in double
# quotes. Usual wildcard notation can be used.
# file_list : The list of files to send as attachments with no-encoding
# (same as -n option, but the file list does not need to be
# enclosed in quotes if more than one file specified).
# Usual wildcard notation can be used.
# The program will also prompt for text to be supplied on standard input
# as the main text of the message.
# eg.
# 1) mail_files Dave.Wotton -b file9.gif t*.htm < /dev/null
#
# email file9.gif as a base64 encoded attachment and the t*.htm
# files unencoded.
#
# 2) mail_files Dave.Wotton -s "my test" -b "file1.gif file2.gif" \
# < /dev/null
#
# email file1.gif and file2.gif as base64 encoded attachments.
# The script makes use of perl's MIME package to perform the base-64
# encoding/decoding.
# Note that files destined for Windows environments should have a name of
# the form aaaa.bbb where aaaa is up to 8 characters long, and bbb is a
# 3 character sufix. The suffix determines which program is used to
# display/process the data at the remote end.
# Simple text files can be emailed unencoded. Binary files, or text files
# with long lines ( ie > 1000 chars ) should use the base64 or uuencode
# encoding procedures. Base64 is preferred because it is more universally
# supported. In particular, most PC mail-clients can automatically decode
# base64 encoded attachments. Note that simple text files with short lines
# which are destined for PC environments should not be base64 encoded.
# This is because PCs use a different line-break character to Unix.
# If the text is base64 encoded, the line-breaks are not converted
# automatically and so the data arrives at the remote end without
# line-breaks.
# set up a 'usage' routine
# ------------------------
usage()
{
[ "$1" ] && ( echo $* ; echo "" )
cat <<!
Usage: mail_files [-t] mailid [ -c mailid ] [ -s subject ] [ -f mailid ]
[-n file_list] [-u file_list] [-b file_list] file_list
!
exit 4
}
# Initialise main variables ...
# -------------------------
FROM=$LOGNAME
SUBJ=${SUBJ:-"Not specified"}
TO="" ; CC="" ; SUBJ="" ; NOENC="" ; BASE64="" ; UUE=""
# First parse the command line options. Using getopts means the parameters
# can be supplied in any order. But first we handle the first parameter,
# which may be a recipient, without a -t flag...
case "$1" in
-* ) : ;; # ignore it, let getopts handle flags
* ) TO=$1 ; shift ;;
esac
while getopts f:s:t:c:n:b:u: OPT
do
case $OPT in
"f" ) FROM=$OPTARG ;;
"t" ) TO="$TO,$OPTARG" ;;
"c" ) CC="$CC,$OPTARG" ;;
"s" ) SUBJ=$OPTARG ;;
"n" ) NOENC="$NOENC $OPTARG" ;;
"b" ) BASE64="$BASE64 $OPTARG" ;;
"u" ) UUE="$UUE $OPTARG" ;;
* ) usage ;;
esac
done
shift `expr $OPTIND - 1`
if [ "$TO" = "" ]
then
usage "An addressee must be specified"
fi
# All remaining parameters are files not requiring encoding ...
# ---------------------------------------------------------
# Build up $FILES as the list of non-encoded files. Use sed to remove
# any leading space from the variable.
FILES=`echo $NOENC $*|sed 's/^ //'`
if [ "$BASE64" = "" -a "$FILES" = "" -a "$UUE" = "" ]
then
usage "At least one file must be specified"
fi
# Remove leading commas from TO, CC ...
# ---------------------------------
TO=`echo $TO | sed 's/^,//'`
CC=`echo $CC | sed 's/^,//'`
# Validate that the files exist ...
# -----------------------------
for F in $FILES $BASE64 $UUE
do
if [ ! -r $F ]
then
echo "Error: File $F does not exist / is not readable."
echo "Exiting. ( Mail not sent )."
exit
fi
done
tty -s && echo "Enter text of main message ( finish with CTRL-D ) ..."
# Now do the work ...
# ---------------
# The generated mail message is output onto standard out, which is then
# piped in to sendmail.
(
cat <<!
From: $FROM
Subject: $SUBJ
To: $TO
!
[ "$CC" ] && echo "Cc: $CC"
cat <<!
Mime-Version: 1.0
Content-Type: multipart/mixed; boundary="DMW.Boundary.605592468"
This is a Mime message, which your mail program may not understand. Parts
of the message will appear as text. If the remainder appears as random
characters in the message body, instead of as attachments, then you'll
have to extract these parts and decode them manually.
--DMW.Boundary.605592468
Content-Type: text/plain; name="message.txt"; charset=US-ASCII
Content-Disposition: inline; filename="message.txt"
Content-Transfer-Encoding: 7bit
!
# Read the standard input as the main text of the message ...
# -------------------------------------------------------
cat -
# Now process the non-encrypted attachments ...
# -----------------------------------------
if [ "$FILES" ]
then
for F in $FILES
do
BASE=`basename $F`
echo --DMW.Boundary.605592468
echo Content-Type: application/octet-stream\; name=\"$BASE\"
echo Content-Disposition: attachment\; filename=\"$BASE\"
echo Content-Transfer-Encoding: 7bit
echo
cat $F
done
fi
# Now process the base64 encrypted attachments ...
# --------------------------------------------
if [ "$BASE64" ]
then
for F in $BASE64
do
BASE=`basename $F`
echo --DMW.Boundary.605592468
echo Content-Type: application/octet-stream\; name=\"$BASE\"
echo Content-Disposition: attachment\; filename=\"$BASE\"
echo Content-Transfer-Encoding: base64
echo
perl -e '
use MIME::Base64 qw(encode_base64);
local($/) = undef;
print encode_base64(<STDIN>);' < $F
done
fi
# Now process the uuencode encrypted attachments ...
# ----------------------------------------------
# Sorry, this bit is untested - I haven't got a mail-client which can
# handle uuencoded MIME messages automatically, so can't test if the
# 'Content-Transfer-Encoding: uuencode' line is correct and whether I
# need the uuencode "begin" and "end" lines.
if [ "$UUE" ]
then
for F in $UUE
do
BASE=`basename $F`
echo --DMW.Boundary.605592468
echo Content-Type: application/octet-stream\; name=\"$BASE\"
echo Content-Disposition: attachment\; filename=\"$BASE\"
echo Content-Transfer-Encoding: uuencode
echo
uuencode < $F xxx
done
fi
# append the final boundary line ...
echo --DMW.Boundary.605592468--
) | /usr/sbin/sendmail -t |
