blob: 7067a435a36ed4a001bf68c988471d045b266334 (
plain)
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
|
#!/usr/local/plan9/bin/rc
fn read9p {
srv=$1; shift
9p read $srv >[2=1]|grep -v '^9p\:'
}
fn dir9p {
srv=$1; shift
9p ls $srv >[2=1]|grep -v '^9p\:'
}
fn catmesg {
# hold on for a second
TMP=/tmp/$USER.`{date -n}; sleep 1
msg=$1;
read9p $msg/body >$TMP.body
t=`{read9p $msg/type}
switch($t){
case text/html
echo '
,x/<!--(-?[^\-]|--[^>]|\n)*-->/ c//
,x/<[^>]+>/d
,p
u
,y/<[^>]+>/d
,p
'| sam -d $TMP.body|[2] sed '1d;/^\?/d'
case text/*
cat $TMP.body
case message/*
cat $TMP.body
case multipart/related
if (~ `{read9p $msg/1/type} text/plain)
catmesg $msg/1
if not if (~ `{read9p $msg/2/type} text/plain)
catmesg $msg/2
if not {
for (i in `{dir9p $msg|awk '$10 ~ /[0-9][0-9]*/ {print $10}'})
catmesg $msg/$i
}
case *
echo $t
# should there be more?
}
rm -f $TMP.body
}
if (~ $#* 0)
echo usage: msgcat mail/mbox/msgn && exit 1
mesg=$1
if (~ `{read9p $mesg/lines} '')
echo no such message $mesg && exit 2
read9p $mesg/unixheader; read9p $mesg/header
echo
catmesg $mesg
echo
|