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
|
#! /bin/sh
:
#ident "@(#)smail/util:RELEASE-3_2_0_102:checkerr.sh,v 1.8 1997/07/21 16:18:23 woods Exp"
#
# Copyright (C) 1987, 1988 Ronald S. Karr and Landon Curt Noll
# Copyright (C) 1992 Ronald S. Karr
# See the file COPYING, distributed with smail, for restriction
# and warranty information.
# Check for errors which have been deposited in the smail error directory.
# If any new messages are found in this directory, save information
# related to those errors in the file .checkerror which is then mailed
# to the postmaster. If the mail cannot be sent to the postmaster now,
# such as due to a configuration error, then try to send it in a future
# invocation of this script.
PATH="X_UTIL_PATH_X:X_SECURE_PATH_X"; export PATH
SMAIL_PROGRAM="X_SMAIL_NAME_X"
SPOOL_DIRS="`$SMAIL_PROGRAM -bP spool_dirs`"
HOSTNAME="`$SMAIL_PROGRAM -bP primary_name`"
LOGFILE="`$SMAIL_PROGRAM -bP logfile`"
OLD_LOGFILE="`echo $LOGFILE | sed -e 's,^\(.*\)/\([^/][^/]*\)$,\1/OLD/\2,'`"
PANICLOG="`$SMAIL_PROGRAM -bP paniclog`"
OLD_PANICLOG="`echo $PANICLOG | sed -e 's,^\(.*\)/\([^/][^/]*\)$,\1/OLD/\2,'`"
Z_DOT="X_DOT_Z_X"
ZCAT="X_ZCAT_X"
PROG=$0
# go into each spooling directory
(IFS=:; for i in $SPOOL_DIRS; do echo $i; done) |
while read SPOOLDIR; do
cd $SPOOLDIR
if [ $? != 0 ]; then
# spool directory did not exist, ignore it
continue
fi
# cleanup old msg.* files in the input directory
if [ -d input ]; then
find input -name 'msg.*' -mtime +2 -print | while read fn
do
rm -f "$fn"
done
fi
# cleanup msglog files with no corresponding input or error file:
if [ -d msglog ]; then (
cd msglog
x="`echo [0-9]*`"
sleep 1 # avoids an almost impossible race condition
if [ "$x" != "[0-9]*" ]; then
for i in $x; do
if [ ! -f ../input/$i ] && [ ! -f ../error/$i ]; then
rm -f $i
fi
done
fi
); fi
# if the last run found some errors, but couldn't deliver, try again now
if [ -s .checkerror ]; then
# don't send to the Postmaster if configuration errors still exist
x="`$SMAIL_PROGRAM -bv Postmaster 2>/dev/null`"
if [ "$x" ]; then
$SMAIL_PROGRAM -f"<+>" -eq -m Postmaster <<EOF
From: MAILER-DAEMON
Subject: Mail errors on the host $HOSTNAME
Smail has detected new errors requiring your attention on the
host $HOSTNAME. Messages which failed can be found in the
directory $SPOOLDIR/error and should be moved back to
$SPOOLDIR when the situation which caused the error has
been taken care of.
A sumary of these errors follows:
`cat .checkerror`
EOF
if [ $? -ne 0 ]; then
continue
fi
rm -f .checkerror
else
# if we cannot reach the postmaster, don't go to the next step
continue
fi
fi
if [ ! -d error ]; then
# no error directory, so there could not be new errors
continue
fi
# find any new errors
if [ -f .lasttimedone ]; then
mv -f .lasttimedone .thistime
: > .lasttimedone
cd error; find * -newer ../.thistime -name '[0-9]*' -print
else
: > .lasttimedone
cd error; find * -name '[0-9]*' -print
fi 2> /dev/null | while read f; do
echo ""; echo "------------------ Message $f ------------------"
if [ -s msglog/$f ]; then
echo "The per-message log file contains:"
sed 's/^/ /' < msglog/$f
else
echo "No per-message log file was created"
fi
echo ""; echo "Logfile entries related to this message are:"
(if [ -f $LOGFILE ]; then
cat $LOGFILE;
fi
if [ -f $OLD_LOGFILE.0 ]; then
cat $OLD_LOGFILE.0;
elif [ -f $OLD_LOGFILE.0$Z_DOT ]; then
$ZCAT $OLD_LOGFILE.0$Z_DOT;
fi
if [ -f $OLD_LOGFILE.1 ]; then
cat $OLD_LOGFILE.1;
elif [ -f $OLD_LOGFILE.1$Z_DOT ]; then
$ZCAT $OLD_LOGFILE.1$Z_DOT;
fi) | sed ":l1
/^[^|].*\[m$f\]/{
:l2
s/^/ /
n
/^|/!b l1
s/^| /| /
b l2
}
d"
echo ""; echo "Paniclog entries related to this messsage are:"
(if [ -f $PANICLOG ]; then
cat $PANICLOG;
fi
if [ -f $OLD_PANICLOG.0 ]; then
cat $OLD_PANICLOG.0;
elif [ -f $OLD_PANICLOG.0$Z_DOT ]; then
$ZCAT $OLD_PANICLOG.0$Z_DOT;
fi
if [ -f $OLD_PANICLOG.1 ]; then
cat $OLD_PANICLOG.1;
elif [ -f $OLD_PANICLOG.1$Z_DOT ]; then
$ZCAT $OLD_PANICLOG.1$Z_DOT;
fi) | grep "\[m$f\]" | sed 's/^/ /'
done > .newerrors
mv .newerrors .checkerror
if [ -s .checkerror ]; then
# don't send to the Postmaster if configuration errors still exist
x="`$SMAIL_PROGRAM -bv Postmaster 2>/dev/null`"
if [ "$x" ]; then
$SMAIL_PROGRAM -f"<+>" -eq -m Postmaster <<EOF
From: MAILER-DAEMON
Subject: Mail errors on the host $HOSTNAME
Smail has detected new errors requiring your attention on the
host $HOSTNAME. Messages which failed can be found in the
directory $SPOOLDIR/error and should be moved back to
$SPOOLDIR when the situation which caused the error has
been taken care of.
A sumary of these errors follows:
`cat .checkerror`
EOF
if [ $? -eq 0 ]; then
rm -f .checkerror
fi
fi
fi
done
exit 0
|
