797
|
1 #! /bin/sh - |
|
2 # |
|
3 # octave-bug - create a bug report and mail it to the bug-octave |
|
4 # mailing list. |
|
5 # |
|
6 # Patterned after the bashbug script from bash 1.14. |
|
7 # |
|
8 # John W. Eaton |
1451
|
9 # jwe@bevo.che.wisc.edu |
|
10 # University of Wisconsin-Madison |
797
|
11 # Department of Chemical Engineering |
|
12 |
|
13 # Configuration: these variables are filled in at configuration time. |
|
14 |
|
15 VERSION="%VERSION%" |
|
16 MACHINE="%TARGET_HOST_TYPE%" |
|
17 F77="%F77%" |
|
18 FFLAGS="%FFLAGS%" |
1064
|
19 FLIBS="%FLIBS%" |
|
20 F2C="%F2C%" |
|
21 F2CFLAGS="%F2CFLAGS%" |
797
|
22 CC="%CC%" |
2031
|
23 CC_VERSION="%CC_VERSION%" |
797
|
24 CFLAGS="%CFLAGS%" |
|
25 CXX="%CXX%" |
2031
|
26 CXX_VERSION="%CXX_VERSION%" |
797
|
27 CXXFLAGS="%CXXFLAGS%" |
1064
|
28 LDFLAGS="%LDFLAGS%" |
797
|
29 DEFS="%DEFS%" |
|
30 |
2031
|
31 CC_AND_VERSION= |
|
32 if test -n "$CC_VERSION"; then |
|
33 CC_AND_VERSION="$CC, version $CC_VERSION" |
|
34 fi |
|
35 |
|
36 CXX_AND_VERSION= |
|
37 if test -n "$CXX_VERSION"; then |
|
38 CXX_AND_VERSION="$CXX, version $CXX_VERSION" |
|
39 fi |
|
40 |
846
|
41 PATH=/bin:/usr/bin:/usr/ucb:/usr/local/bin:$PATH |
797
|
42 export PATH |
|
43 |
|
44 TEMP=/tmp/octave-bug.$$ |
|
45 |
|
46 : ${EDITOR=emacs} |
|
47 |
|
48 trap 'rm -f $TEMP $TEMP.x; exit 1' 1 2 3 13 15 |
|
49 trap 'rm -f $TEMP $TEMP.x' 0 |
|
50 |
|
51 UN= |
|
52 if (uname) > /dev/null 2>&1 |
|
53 then |
|
54 UN=`uname -a` |
|
55 fi |
|
56 |
|
57 HAVE_FMT=false |
|
58 if (fmt < /dev/null) > /dev/null 2>&1 |
|
59 then |
|
60 HAVE_FMT=true |
|
61 fi |
|
62 |
801
|
63 ss_p=`echo $VERSION | grep "^ss-"` |
|
64 if test -n "$ss_p" |
|
65 then |
1451
|
66 BUGADDR="octave-maintainers@bevo.che.wisc.edu" |
801
|
67 else |
1451
|
68 BUGADDR="bug-octave@bevo.che.wisc.edu" |
801
|
69 fi |
797
|
70 |
|
71 SUBJECT="[50 character or so descriptive subject here (for reference)]" |
|
72 if test $# -gt 0 |
|
73 then |
|
74 case "$1" in |
|
75 -s) |
801
|
76 shift |
797
|
77 if test $# -gt 0 |
|
78 then |
|
79 SUBJECT="$1" |
801
|
80 shift |
797
|
81 else |
|
82 echo "usage: octave-bug [-s subject]" |
|
83 exit 1 |
|
84 fi |
|
85 ;; |
|
86 esac |
|
87 fi |
|
88 |
|
89 cat > $TEMP << EOF |
|
90 To: $BUGADDR |
|
91 Subject: $SUBJECT |
851
|
92 -------- |
797
|
93 Bug report for Octave $VERSION configured for $MACHINE |
|
94 |
|
95 Description: |
|
96 ----------- |
|
97 |
|
98 * Please replace this item with a detailed description of the |
|
99 problem. Suggestions or general comments are also welcome. |
|
100 |
|
101 Repeat-By: |
|
102 --------- |
|
103 |
|
104 * Please replace this item with a description of the sequence of |
|
105 events that causes the problem to occur. |
|
106 |
|
107 Fix: |
|
108 --- |
|
109 |
|
110 * If possible, replace this item with a description of how to |
|
111 fix the problem (if you don't have a fix for the problem, don't |
|
112 include this section, but please do submit your report anyway). |
|
113 |
801
|
114 |
|
115 |
|
116 Configuration (please do not edit this section): |
|
117 ----------------------------------------------- |
|
118 |
|
119 uname output: $UN |
|
120 Fortran compiler: $F77 |
|
121 FFLAGS: $FFLAGS |
1064
|
122 F2C: $F2C |
|
123 F2CFLAGS: $F2CFLAGS |
|
124 FLIBS: $FLIBS |
2031
|
125 C compiler: $CC_AND_VERSION |
801
|
126 CFLAGS: $CFLAGS |
2031
|
127 C++ compiler: $CXX_AND_VERSION |
801
|
128 CXXFLAGS: $CXXFLAGS |
1064
|
129 LDFLAGS: $LDFLAGS |
801
|
130 DEFS: |
|
131 |
797
|
132 EOF |
|
133 |
801
|
134 if $HAVE_FMT |
|
135 then |
|
136 echo $DEFS | fmt | sed 's/^/ /' >> $TEMP |
|
137 else |
|
138 echo $DEFS >> $TEMP |
|
139 fi |
|
140 |
|
141 if test $# -gt 0 |
|
142 then |
|
143 if test -f "$1" |
|
144 then |
|
145 cat >> $TEMP << EOF |
|
146 |
|
147 User-preferences (please do not edit this section): |
|
148 -------------------------------------------------- |
|
149 |
|
150 EOF |
|
151 cat $1 >> $TEMP |
|
152 fi |
|
153 fi |
|
154 |
797
|
155 chmod u+w $TEMP |
|
156 cp $TEMP $TEMP.x |
|
157 |
|
158 status=0 |
|
159 |
|
160 if $EDITOR $TEMP |
|
161 then |
|
162 if cmp -s $TEMP $TEMP.x |
|
163 then |
|
164 echo "file not changed -- no bug report submitted" |
|
165 status=1 |
2031
|
166 elif test `wc $TEMP | awk '{print $1}'` -eq 0; then |
|
167 echo "empty bug report file -- not submitted" |
|
168 status=1 |
797
|
169 else |
851
|
170 |
|
171 # Try to extract the recipient address, in case the To: line in the |
964
|
172 # message template has been changed. Also get cc: lines. |
851
|
173 |
964
|
174 TO_ADDR=`sed -e '/^--------[ \t]*$/q' $TEMP | sed -n -e 's/^[Tt][Oo]://p'` |
|
175 CC_ADDR=`sed -e '/^--------[ \t]*$/q' $TEMP | sed -n -e 's/^[Cc][Cc]://p'` |
|
176 |
|
177 if test -z "$TO_ADDR" |
851
|
178 then |
|
179 echo "no valid \`To:' field found in header -- using $BUGADDR instead" |
|
180 else |
964
|
181 BUGADDR="$TO_ADDR" |
851
|
182 fi |
|
183 |
964
|
184 BUGADDR="$BUGADDR $CC_ADDR" |
|
185 |
851
|
186 # Delete the `--------' separator in the message. |
|
187 |
1066
|
188 # Don't pretty-print this. Odd whitespace kills Ultrix AWK! |
|
189 |
|
190 awk 'BEGIN{in_header=1;} /^--------[ \t]*$/ { |
|
191 if (in_header) { in_header=0; print ""; next; } |
|
192 } { print $0; }' $TEMP > $TEMP.x |
851
|
193 |
|
194 # Now try to mail it. |
|
195 |
1067
|
196 ( /bin/mail $BUGADDR < $TEMP.x ) > /dev/null 2>&1 |
1066
|
197 status=$? |
|
198 if test $status -ne 0; then |
1067
|
199 ( Mail -s "$SUBJECT" $BUGADDR < $TEMP.x ) > /dev/null 2>&1 |
1066
|
200 status=$? |
|
201 if test $status -ne 0; then |
1067
|
202 ( /usr/ucb/mail -s "$SUBJECT" $BUGADDR < $TEMP.x ) > /dev/null 2>&1 |
1066
|
203 status=$? |
|
204 if test $status -ne 0; then |
1067
|
205 ( mailx -s "$SUBJECT" $BUGADDR < $TEMP.x ) > /dev/null 2>&1 |
1066
|
206 status=$? |
|
207 fi |
|
208 fi |
|
209 fi |
856
|
210 |
1066
|
211 if test $status -ne 0; then |
|
212 echo "unable to send mail -- saving message in \$HOME/dead.octave-bug"; |
|
213 cat $TEMP >> $HOME/dead.octave-bug; |
|
214 exit 1 |
|
215 else |
964
|
216 echo "bug report sent to: $TO_ADDR" |
|
217 echo " cc to: $CC_ADDR" |
|
218 fi |
797
|
219 fi |
|
220 else |
|
221 echo "problems with edit -- no bug report submitted" |
|
222 status=1 |
|
223 fi |
|
224 |
|
225 exit $status |