|
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 |
|
2155
|
13 # Configuration: these variables are filled in when running make to |
|
|
14 # compile Octave. |
|
797
|
15 |
|
2159
|
16 config_opts=%config_opts% |
|
|
17 VERSION=%VERSION% |
|
|
18 MACHINE=%TARGET_HOST_TYPE% |
|
|
19 F77=%F77% |
|
|
20 FFLAGS=%FFLAGS% |
|
|
21 FPICFLAG=%FPICFLAG% |
|
|
22 FLIBS=%FLIBS% |
|
|
23 F2C=%F2C% |
|
|
24 F2CFLAGS=%F2CFLAGS% |
|
|
25 CPPFLAGS=%CPPFLAGS% |
|
|
26 INCFLAGS=%INCFLAGS% |
|
|
27 CC=%CC% |
|
|
28 CC_VERSION=%CC_VERSION% |
|
|
29 CFLAGS=%CFLAGS% |
|
|
30 CPICFLAG=%CPICFLAG% |
|
|
31 CXX=%CXX% |
|
|
32 CXX_VERSION=%CXX_VERSION% |
|
|
33 CXXFLAGS=%BUG_CXXFLAGS% |
|
|
34 CXXPICFLAG=%CXXPICFLAG% |
|
|
35 LDFLAGS=%LDFLAGS% |
|
|
36 LIBFLAGS=%LIBFLAGS% |
|
2676
|
37 RLD_FLAG=%RLD_FLAG% |
|
2159
|
38 TERMLIBS=%TERMLIBS% |
|
|
39 LIBS=%LIBS% |
|
|
40 LEXLIB=%LEXLIB% |
|
|
41 LIBPLPLOT=%LIBPLPLOT% |
|
|
42 LIBDLFCN=%LIBDLFCN% |
|
|
43 DEFS=%DEFS% |
|
797
|
44 |
|
2031
|
45 CC_AND_VERSION= |
|
|
46 if test -n "$CC_VERSION"; then |
|
|
47 CC_AND_VERSION="$CC, version $CC_VERSION" |
|
|
48 fi |
|
|
49 |
|
|
50 CXX_AND_VERSION= |
|
|
51 if test -n "$CXX_VERSION"; then |
|
|
52 CXX_AND_VERSION="$CXX, version $CXX_VERSION" |
|
|
53 fi |
|
|
54 |
|
846
|
55 PATH=/bin:/usr/bin:/usr/ucb:/usr/local/bin:$PATH |
|
797
|
56 export PATH |
|
|
57 |
|
|
58 TEMP=/tmp/octave-bug.$$ |
|
|
59 |
|
|
60 : ${EDITOR=emacs} |
|
2564
|
61 : ${PAGER=more} |
|
797
|
62 |
|
|
63 trap 'rm -f $TEMP $TEMP.x; exit 1' 1 2 3 13 15 |
|
|
64 trap 'rm -f $TEMP $TEMP.x' 0 |
|
|
65 |
|
|
66 UN= |
|
2222
|
67 if (uname) > /dev/null 2>&1; then |
|
797
|
68 UN=`uname -a` |
|
|
69 fi |
|
|
70 |
|
|
71 HAVE_FMT=false |
|
2222
|
72 if (fmt < /dev/null) > /dev/null 2>&1; then |
|
797
|
73 HAVE_FMT=true |
|
|
74 fi |
|
|
75 |
|
2564
|
76 # Check whether to use -n or \c to keep echo from printing a newline |
|
|
77 # character. Stolen from autoconf, which borrowed the idea from dist 3.0. |
|
|
78 |
|
|
79 if (echo "testing\c"; echo 1,2,3) | grep c >/dev/null; then |
|
|
80 # Stardent Vistra SVR4 grep lacks -e, says ghazi@caip.rutgers.edu. |
|
|
81 if (echo -n testing; echo 1,2,3) | sed s/-n/xn/ | grep xn >/dev/null; then |
|
|
82 echo_n= |
|
|
83 echo_c=' |
|
|
84 ' |
|
|
85 else |
|
|
86 echo_n=-n |
|
|
87 echo_c= |
|
|
88 fi |
|
|
89 else |
|
|
90 echo_n= |
|
|
91 echo_c='\c' |
|
|
92 fi |
|
|
93 |
|
801
|
94 ss_p=`echo $VERSION | grep "^ss-"` |
|
2222
|
95 if test -n "$ss_p"; then |
|
1451
|
96 BUGADDR="octave-maintainers@bevo.che.wisc.edu" |
|
801
|
97 else |
|
2691
|
98 pretest_p=`echo $VERSION \ |
|
|
99 | sed 's,.*\.\([0-9]*\).*,\1,' \ |
|
|
100 | grep -v '\.' \ |
|
|
101 | grep '[0-9]'` |
|
2222
|
102 |
|
|
103 if test -n "$pretest_p" && test "$pretest_p" -ge 90; then |
|
|
104 BUGADDR="octave-maintainers@bevo.che.wisc.edu" |
|
|
105 else |
|
|
106 BUGADDR="bug-octave@bevo.che.wisc.edu" |
|
|
107 fi |
|
801
|
108 fi |
|
797
|
109 |
|
|
110 SUBJECT="[50 character or so descriptive subject here (for reference)]" |
|
2222
|
111 if test $# -gt 0; then |
|
797
|
112 case "$1" in |
|
|
113 -s) |
|
801
|
114 shift |
|
2222
|
115 if test $# -gt 0; then |
|
797
|
116 SUBJECT="$1" |
|
801
|
117 shift |
|
797
|
118 else |
|
|
119 echo "usage: octave-bug [-s subject]" |
|
|
120 exit 1 |
|
|
121 fi |
|
|
122 ;; |
|
|
123 esac |
|
|
124 fi |
|
|
125 |
|
|
126 cat > $TEMP << EOF |
|
|
127 To: $BUGADDR |
|
|
128 Subject: $SUBJECT |
|
851
|
129 -------- |
|
797
|
130 Bug report for Octave $VERSION configured for $MACHINE |
|
|
131 |
|
|
132 Description: |
|
|
133 ----------- |
|
|
134 |
|
|
135 * Please replace this item with a detailed description of the |
|
|
136 problem. Suggestions or general comments are also welcome. |
|
|
137 |
|
|
138 Repeat-By: |
|
|
139 --------- |
|
|
140 |
|
|
141 * Please replace this item with a description of the sequence of |
|
|
142 events that causes the problem to occur. |
|
|
143 |
|
|
144 Fix: |
|
|
145 --- |
|
|
146 |
|
|
147 * If possible, replace this item with a description of how to |
|
|
148 fix the problem (if you don't have a fix for the problem, don't |
|
|
149 include this section, but please do submit your report anyway). |
|
|
150 |
|
801
|
151 |
|
|
152 |
|
|
153 Configuration (please do not edit this section): |
|
|
154 ----------------------------------------------- |
|
|
155 |
|
|
156 uname output: $UN |
|
2155
|
157 configure opts: $config_opts |
|
801
|
158 Fortran compiler: $F77 |
|
|
159 FFLAGS: $FFLAGS |
|
1064
|
160 F2C: $F2C |
|
|
161 F2CFLAGS: $F2CFLAGS |
|
|
162 FLIBS: $FLIBS |
|
2155
|
163 CPPFLAGS: $CPPFLAGS |
|
|
164 INCFLAGS: $INCFLAGS |
|
2031
|
165 C compiler: $CC_AND_VERSION |
|
801
|
166 CFLAGS: $CFLAGS |
|
2155
|
167 CPICFLAG: $CPICFLAG |
|
2031
|
168 C++ compiler: $CXX_AND_VERSION |
|
801
|
169 CXXFLAGS: $CXXFLAGS |
|
2155
|
170 CXXPICFLAG: $CXXPICFLAG |
|
1064
|
171 LDFLAGS: $LDFLAGS |
|
2155
|
172 LIBFLAGS: $LIBFLAGS |
|
2676
|
173 RLD_FLAG: $RLD_FLAG |
|
2155
|
174 TERMLIBS: $TERMLIBS |
|
|
175 LIBS: $LIBS |
|
|
176 LEXLIB: $LEXLIB |
|
|
177 LIBPLPLOT: $LIBPLPLOT |
|
|
178 LIBDLFCN: $LIBDLFCN |
|
801
|
179 DEFS: |
|
|
180 |
|
797
|
181 EOF |
|
|
182 |
|
2222
|
183 if $HAVE_FMT; then |
|
801
|
184 echo $DEFS | fmt | sed 's/^/ /' >> $TEMP |
|
|
185 else |
|
|
186 echo $DEFS >> $TEMP |
|
|
187 fi |
|
|
188 |
|
2222
|
189 if test $# -gt 0; then |
|
|
190 if test -f "$1"; then |
|
801
|
191 cat >> $TEMP << EOF |
|
|
192 |
|
|
193 User-preferences (please do not edit this section): |
|
|
194 -------------------------------------------------- |
|
|
195 |
|
|
196 EOF |
|
|
197 cat $1 >> $TEMP |
|
|
198 fi |
|
|
199 fi |
|
|
200 |
|
797
|
201 chmod u+w $TEMP |
|
|
202 cp $TEMP $TEMP.x |
|
|
203 |
|
|
204 status=0 |
|
|
205 |
|
2564
|
206 editing=true |
|
|
207 |
|
|
208 while $editing; do |
|
|
209 if $EDITOR $TEMP; then |
|
|
210 while $editing; do |
|
|
211 echo $echo_n "(a)bort, (e)dit, (l)ist, (s)end? $echo_c" |
|
|
212 read ans |
|
|
213 case "$ans" in |
|
|
214 a* | A*) |
|
|
215 status=1 |
|
|
216 editing=false |
|
|
217 ;; |
|
|
218 e* | E*) |
|
|
219 break; |
|
|
220 ;; |
|
|
221 l* | L*) |
|
|
222 $PAGER $TEMP |
|
|
223 ;; |
|
|
224 s* | S*) |
|
|
225 editing=false |
|
|
226 ;; |
|
|
227 esac |
|
|
228 done |
|
|
229 else |
|
|
230 echo "problems with edit -- no bug report submitted" |
|
|
231 status=1 |
|
|
232 editing=false |
|
|
233 fi |
|
|
234 done |
|
|
235 |
|
|
236 if test $status -eq 0; then |
|
2222
|
237 if cmp -s $TEMP $TEMP.x; then |
|
797
|
238 echo "file not changed -- no bug report submitted" |
|
|
239 status=1 |
|
2031
|
240 elif test `wc $TEMP | awk '{print $1}'` -eq 0; then |
|
|
241 echo "empty bug report file -- not submitted" |
|
|
242 status=1 |
|
797
|
243 else |
|
851
|
244 |
|
|
245 # Try to extract the recipient address, in case the To: line in the |
|
964
|
246 # message template has been changed. Also get cc: lines. |
|
851
|
247 |
|
964
|
248 TO_ADDR=`sed -e '/^--------[ \t]*$/q' $TEMP | sed -n -e 's/^[Tt][Oo]://p'` |
|
|
249 CC_ADDR=`sed -e '/^--------[ \t]*$/q' $TEMP | sed -n -e 's/^[Cc][Cc]://p'` |
|
|
250 |
|
2222
|
251 if test -z "$TO_ADDR"; then |
|
851
|
252 echo "no valid \`To:' field found in header -- using $BUGADDR instead" |
|
|
253 else |
|
964
|
254 BUGADDR="$TO_ADDR" |
|
851
|
255 fi |
|
|
256 |
|
964
|
257 BUGADDR="$BUGADDR $CC_ADDR" |
|
|
258 |
|
2564
|
259 TMP_SUB=`sed -e '/^--------[ \t]*$/q' $TEMP | sed -n -e 's/^Subject://p'` |
|
|
260 |
|
|
261 if test -n "$TMP_SUB"; then |
|
|
262 SUBJECT="$TMP_SUB" |
|
|
263 fi |
|
|
264 |
|
851
|
265 # Delete the `--------' separator in the message. |
|
|
266 |
|
1066
|
267 # Don't pretty-print this. Odd whitespace kills Ultrix AWK! |
|
|
268 |
|
|
269 awk 'BEGIN{in_header=1;} /^--------[ \t]*$/ { |
|
|
270 if (in_header) { in_header=0; print ""; next; } |
|
|
271 } { print $0; }' $TEMP > $TEMP.x |
|
851
|
272 |
|
|
273 # Now try to mail it. |
|
|
274 |
|
1067
|
275 ( /bin/mail $BUGADDR < $TEMP.x ) > /dev/null 2>&1 |
|
1066
|
276 status=$? |
|
|
277 if test $status -ne 0; then |
|
1067
|
278 ( Mail -s "$SUBJECT" $BUGADDR < $TEMP.x ) > /dev/null 2>&1 |
|
1066
|
279 status=$? |
|
|
280 if test $status -ne 0; then |
|
2564
|
281 ( /usr/ucb/mail -s "$SUBJECT" $BUGADDR < $TEMP.x ) > /dev/null 2>&1 |
|
|
282 status=$? |
|
|
283 if test $status -ne 0; then |
|
|
284 ( mailx -s "$SUBJECT" $BUGADDR < $TEMP.x ) > /dev/null 2>&1 |
|
|
285 status=$? |
|
|
286 fi |
|
1066
|
287 fi |
|
|
288 fi |
|
856
|
289 |
|
1066
|
290 if test $status -ne 0; then |
|
2564
|
291 echo "unable to send mail..." |
|
964
|
292 fi |
|
797
|
293 fi |
|
2564
|
294 fi |
|
|
295 |
|
|
296 if test $status -ne 0; then |
|
|
297 echo "saving message in \$HOME/dead.octave-bug"; |
|
|
298 cat $TEMP >> $HOME/dead.octave-bug; |
|
|
299 exit 1 |
|
797
|
300 else |
|
2564
|
301 echo "bug report sent to: $TO_ADDR" |
|
|
302 echo " cc to: $CC_ADDR" |
|
797
|
303 fi |
|
|
304 |
|
|
305 exit $status |
