summaryrefslogtreecommitdiff
path: root/gawkbug.in
blob: 6f6fd75938555c525e2ef02e0b56458556a64eae (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
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
286
287
288
289
#!/bin/sh -
#
# gawkbug - create a bug report and mail it to the bug address
#
# All mail defaults to bug-gawk@gnu.org. Unlike the original bashbug
# script, we don't differentiate on the release status.
#
# Copyright (C) 1996-2022 Free Software Foundation, Inc.
#
#   This program is free software: you can redistribute it and/or modify
#   it under the terms of the GNU General Public License as published by
#   the Free Software Foundation, either version 3 of the License, or
#   (at your option) any later version.
#
#   This program is distributed in the hope that it will be useful,
#   but WITHOUT ANY WARRANTY; without even the implied warranty of
#   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#   GNU General Public License for more details.
#
#   You should have received a copy of the GNU General Public License
#   along with this program.  If not, see <http://www.gnu.org/licenses/>.

#
# configuration section:
#	these variables are filled in by the make target in Makefile
#
MACHINE="@host_cpu@"
OS="@host_os@"
CC="@CC@"
CFLAGS="@CFLAGS@"
VERSION="@PACKAGE_VERSION@"
MACHTYPE="@host@"

PATH=/bin:/usr/bin:/usr/local/bin:$PATH
export PATH

# Check if TMPDIR is set, default to /tmp
: ${TMPDIR:=/tmp}

#Securely create a temporary directory for the temporary files
TEMPDIR=$TMPDIR/gbug.$$
(umask 077 && mkdir "$TEMPDIR") || {
	echo "$0: could not create temporary directory" >&2
	exit 1
}

TEMPFILE1=$TEMPDIR/gbug1
TEMPFILE2=$TEMPDIR/gbug2
        
USAGE="Usage: $0 [--help] [--version] [bug-report-email-address]"
VERSTR="GNU gawkbug, version ${VERSION}"

do_help= do_version=

while [ $# -gt 0 ]
do
	case "$1" in
	--help)		shift ; do_help=y ;;
	--version)	shift ; do_version=y ;;
	--)		shift ; break ;;
	-*)		echo "gawkbug: ${1}: invalid option" >&2
			echo "$USAGE" >&2
			exit 2 ;;
	*)		break ;;
	esac
done

if [ -n "$do_version" ]
then
	echo "${VERSTR}"
	exit 0
fi

if [ -n "$do_help" ]
then
	echo "${VERSTR}"
	echo "${USAGE}"
	echo
	cat << HERE_EOF
Gawkbug is used to send mail to the Gawk maintainers
for when Gawk doesn't behave like you'd like, or expect.

Gawkbug will start up your editor (as defined by the shell's
EDITOR environment variable) with a preformatted bug report
template for you to fill in. The report will be mailed to the
bug-gawk mailing list by default.

Please see https://www.gnu.org/software/gawk/manual/html_node/Bugs.html
for bug reporting instructions.  Reading that information before
repoting a bug will make everyones' lives easier.

If you invoke gawkbug by accident, just quit your editor without
saving any changes to the template, and no bug report will be sent.
HERE_EOF
	exit 0
fi

# Figure out how to echo a string without a trailing newline
N=`echo 'hi there\c'`
case "$N" in
*c)	n=-n c= ;;
*)	n= c='\c' ;;
esac

BUGGAWK=bug-gawk@gnu.org

BUGADDR="${1-$BUGGAWK}"

if [ -z "$DEFEDITOR" ] && [ -z "$EDITOR" ]
then
	if [ -x /usr/bin/editor ]
	then
		DEFEDITOR=editor
	elif [ -x /usr/bin/vim ]
	then
		DEFEDITOR=vim
	elif [ -x /usr/bin/gvim ]
	then
		DEFEDITOR=gvim
	elif [ -x /usr/local/bin/ce ]
	then
		DEFEDITOR=ce
	elif [ -x /usr/local/bin/emacs ]
	then
		DEFEDITOR=emacs
	elif [ -x /usr/contrib/bin/emacs ]
	then
		DEFEDITOR=emacs
	elif [ -x /usr/bin/emacs ]
	then
		DEFEDITOR=emacs
	elif [ -x /usr/bin/xemacs ]
	then
		DEFEDITOR=xemacs
	elif [ -x /usr/bin/nano ]
	then
		DEFEDITOR=nano
	elif [ -x /usr/contrib/bin/jove ]
	then
		DEFEDITOR=jove
	elif [ -x /usr/local/bin/jove ]
	then
		DEFEDITOR=jove
	elif [ -x /usr/bin/vi ]
	then
		DEFEDITOR=vi
	else
		echo "$0: No default editor found: attempting to use vi" >&2
		DEFEDITOR=vi
	fi
fi


: ${EDITOR=$DEFEDITOR}

: ${USER=${LOGNAME-`whoami`}}

trap 'rm -rf "$TEMPDIR"; exit 1' 1 2 3 13 15
trap 'rm -rf "$TEMPDIR"' 0

UN=
if (uname) >/dev/null 2>&1
then
	UN=`uname -a`
fi

if [ -f /usr/lib/sendmail ]
then
	RMAIL="/usr/lib/sendmail"
	SMARGS="-i -t"
elif [ -f /usr/sbin/sendmail ]
then
	RMAIL="/usr/sbin/sendmail"
	SMARGS="-i -t"
else
	RMAIL=rmail
	SMARGS="$BUGADDR"
fi

INITIAL_SUBJECT='[50 character or so descriptive subject here (for reference)]'

cat > "$TEMPFILE1" <<EOF
From: ${USER}
To: ${BUGADDR}
Subject: ${INITIAL_SUBJECT}

Configuration Information [Automatically generated, do not change]:
Machine: $MACHINE
OS: $OS
Compiler: $CC
Compilation CFLAGS: $CFLAGS
uname output: $UN
Machine Type: $MACHTYPE

Gawk Version: $VERSION

Attestation 1:
	I have read https://www.gnu.org/software/gawk/manual/html_node/Bugs.html.
	Yes / No  [ Choose one. If "No", then why haven't you? ]

Attestation 2:
	I have not modified the sources before building gawk.
	True / False
	[ Choose one. If "False", then please explain what you did and why. ]

Description:
	[Detailed description of the problem, suggestion, or complaint.]

Repeat-By:
	[Describe the sequence of events that causes the problem to occur.]

Fix:
	[Description of how to fix the problem.  If you don't know a
	fix for the problem, don't include this section.]
EOF

cp "$TEMPFILE1" "$TEMPFILE2"
chmod u+w "$TEMPFILE1"

trap '' 2		# ignore interrupts while in editor

edstat=1
while [ $edstat -ne 0 ]
do
	$EDITOR "$TEMPFILE1"
	edstat=$?

	if [ $edstat -ne 0 ]
	then
		echo "$0: editor \`$EDITOR' exited with nonzero status."
		echo "$0: Perhaps it was interrupted."
		echo "$0: Type \`y' to give up, and lose your bug report;"
		echo "$0: type \`n' to re-enter the editor."
		echo $n "$0: Do you want to give up? $c"

		read ans
		case "$ans" in
		[Yy]*) exit 1 ;;
		esac

		continue
	fi

	# find the subject from the temp file and see if it's been changed
	CURR_SUB=`grep '^Subject: ' "$TEMPFILE1" | sed 's|^Subject:[ 	]*||' | sed 1q`

	case "$CURR_SUB" in
	"${INITIAL_SUBJECT}")
		echo
		echo "$0: You have not changed the subject from the default."
		echo "$0: Please use a more descriptive subject header."
		echo "$0: Type \`y' to give up, and lose your bug report;"
		echo "$0: type \`n' to re-enter the editor."
		echo $n "$0: Do you want to give up? $c"

		read ans
		case "$ans" in
		[Yy]*) exit 1 ;;
		esac

		echo "$0:  The editor will be restarted in five seconds."
		sleep 5
		edstat=1
		;;
	esac

done

trap 'rm -rf "$TEMPDIR"; exit 1' 2	# restore trap on SIGINT

if cmp -s "$TEMPFILE1" "$TEMPFILE2"
then
	echo "File not changed, no bug report submitted."
	exit
fi

echo $n "Send bug report to ${BUGADDR}? [y/n] $c"
read ans
case "$ans" in
[Nn]*)	exit 0 ;;
esac

${RMAIL} $SMARGS < "$TEMPFILE1" || {
	cat "$TEMPFILE1" >> $HOME/dead.gawkbug
	echo "$0: mail to ${BUGADDR} failed: report saved in $HOME/dead.gawkbug" >&2
	echo "$0: please send it manually to ${BUGADDR}" >&2
}

exit 0