(__pthread_trylock): Remove need for oldstatus variable.
[kopensolaris-gnu/glibc.git] / glibcbug.in
1 #! /bin/sh
2 #
3 # glibcbug - create a bug report and mail it to the bug address.
4 #
5 # configuration section:
6 #       these variables are filled in by configure
7 #
8 VERSION="@VERSION@"
9 RELEASE="@RELEASE@"
10 ADDONS="@subdirs@"
11 HOST="@host@"
12 CC='@CC@'
13 CCVERSION='@CCVERSION@'
14 CFLAGS="@CFLAGS@"
15 SYSINCLUDES="@SYSINCLUDES@"
16 VERSIONING="@VERSIONING@"
17 BUILD_STATIC="@static@"
18 BUILD_SHARED="@shared@"
19 BUILD_PIC_DEFAULT="@pic_default@"
20 BUILD_PROFILE="@profile@"
21 BUILD_OMITFP="@omitfp@"
22 BUILD_BOUNDED="@bounded@"
23 BUILD_STATIC_NSS="@static_nss@"
24 STDIO="@stdio@"
25
26 TEMP=`mktemp -q /tmp/glibcbugXXXXXX 2>/dev/null`
27 if test $? -ne 0; then
28   TEMP=/tmp/glibcbug.$$
29   echo > $TEMP
30   chmod 600 $TEMP
31 fi
32 TEMPx=`mktemp -q /tmp/glibcbugXXXXXX 2>/dev/null`
33 if test $? -ne 0; then
34   TEMPx=/tmp/glibcbug.$$.x
35   echo > $TEMPx
36   chmod 600 $TEMPx
37 fi
38
39 BUGGLIBC="glibc-bug-reports-${RELEASE}@gnu.org"
40 BUGADDR=${1-$BUGGLIBC}
41
42 : ${EDITOR=emacs}
43
44 : ${USER=${LOGNAME-`whoami`}}
45
46 trap 'rm -f $TEMP $TEMPx; exit 1' 1 2 3 13 15
47 trap 'rm -f $TEMP $TEMPx' 0
48
49
50 # How to read the passwd database.
51 PASSWD="cat /etc/passwd"
52
53 if [ -f /usr/lib/sendmail ] ; then
54         MAIL_AGENT="/usr/lib/sendmail -oi -t"
55 elif [ -f /usr/sbin/sendmail ] ; then
56         MAIL_AGENT="/usr/sbin/sendmail -oi -t"
57 else
58         MAIL_AGENT=rmail
59 fi
60
61 # Figure out how to echo a string without a trailing newline
62 N=`echo 'hi there\c'`
63 case "$N" in
64 *c)     ECHON1='echo -n' ECHON2= ;;
65 *)      ECHON1=echo ECHON2='\c' ;;
66 esac
67
68 # Find out the name of the originator of this PR.
69 if [ -n "$NAME" ]; then
70   ORIGINATOR="$NAME"
71 elif [ -f $HOME/.fullname ]; then
72   ORIGINATOR="`sed -e '1q' $HOME/.fullname`"
73 else
74   # Must use temp file due to incompatibilities in quoting behavior
75   # and to protect shell metacharacters in the expansion of $LOGNAME
76   $PASSWD | grep "^$LOGNAME:" | awk -F: '{print $5}' | sed -e 's/,.*//' > $TEMP
77   ORIGINATOR="`cat $TEMP`"
78 fi
79
80 if [ -n "$ORGANIZATION" ]; then
81   if [ -f "$ORGANIZATION" ]; then
82     ORGANIZATION="`cat $ORGANIZATION`"
83   fi
84 else
85   if [ -f $HOME/.organization ]; then
86     ORGANIZATION="`cat $HOME/.organization`"
87   elif [ -f $HOME/.signature ]; then
88     ORGANIZATION=`sed -e "s/^/  /" $HOME/.signature; echo ">"`
89   fi
90 fi
91
92 # If they don't have a preferred editor set, then use
93 if [ -z "$VISUAL" ]; then
94   if [ -z "$EDITOR" ]; then
95     EDIT=vi
96   else
97     EDIT="$EDITOR"
98   fi
99 else
100   EDIT="$VISUAL"
101 fi
102
103 # Find out some information.
104 SYSTEM=`( [ -f /bin/uname ] && /bin/uname -a ) || \
105         ( [ -f /usr/bin/uname ] && /usr/bin/uname -a ) || echo ""`
106 ARCH=`[ -f /bin/arch ] && /bin/arch`
107 MACHINE=`[ -f /bin/machine ] && /bin/machine`
108
109 case $HOST in *linux*)
110   KHDRS=`(echo '#include <linux/version.h>'
111           echo '! UTS_RELEASE' ) |
112          $CC $SYSINCLUDES -E - | sed -n '/!/s/[! "]//gp'`;;
113 esac
114
115 ORGANIZATION_C='<organization of PR author (multiple lines)>'
116 SYNOPSIS_C='<synopsis of the problem (one line)>'
117 SEVERITY_C='<[ non-critical | serious | critical ] (one line)>'
118 PRIORITY_C='<[ low | medium | high ] (one line)>'
119 CLASS_C='<[ sw-bug | doc-bug | change-request | support ] (one line)>'
120 RELEASE_C='<release number or tag (one line)>'
121 ENVIRONMENT_C='<machine, os, target, libraries (multiple lines)>'
122 DESCRIPTION_C='<precise description of the problem (multiple lines)>'
123 HOW_TO_REPEAT_C='<code/input/activities to reproduce the problem (multiple lines)>'
124 FIX_C='<how to correct or work around the problem, if known (multiple lines)>'
125
126
127 cat > $TEMP <<EOF
128 SEND-PR: -*- send-pr -*-
129 SEND-PR: Lines starting with \`SEND-PR' will be removed automatically, as
130 SEND-PR: will all comments (text enclosed in \`<' and \`>').
131 SEND-PR:
132 From: ${USER}
133 To: ${BUGADDR}
134 Subject: [50 character or so descriptive subject here (for reference)]
135
136 >Submitter-Id:  net
137 >Originator:    ${ORIGINATOR}
138 >Organization:
139 ${ORGANIZATION- $ORGANIZATION_C}
140 >Confidential:  no
141 >Synopsis:      $SYNOPSIS_C
142 >Severity:      $SEVERITY_C
143 >Priority:      $PRIORITY_C
144 >Category:      libc
145 >Class:         $CLASS_C
146 >Release:       libc-${VERSION}
147 >Environment:
148         $ENVIRONMENT_C
149 `[ -n "$HOST" ] && echo Host type: $HOST`
150 `[ -n "$SYSTEM" ] && echo System: $SYSTEM`
151 `[ -n "$ARCH" ] && echo Architecture: $ARCH`
152 `[ -n "$MACHINE" ] && echo Machine: $MACHINE`
153 `[ -n "$ADDONS" ] && echo Addons: $ADDONS`
154 `[ -n "$CFLAGS" ] && echo Build CFLAGS: $CFLAGS`
155 `[ -n "$CC" ] && echo Build CC: $CC`
156 `[ -n "$CCVERSION" ] && echo Compiler version: $CCVERSION`
157 `[ -n "$KHDRS" ] && echo Kernel headers: $KHDRS`
158 `[ -n "$VERSIONING" ] && echo Symbol versioning: $VERSIONING`
159 `[ -n "$BUILD_STATIC" ] && echo Build static: $BUILD_STATIC`
160 `[ -n "$BUILD_SHARED" ] && echo Build shared: $BUILD_SHARED`
161 `[ -n "$BUILD_PIC_DEFAULT" ] && echo Build pic-default: $BUILD_PIC_DEFAULT`
162 `[ -n "$BUILD_PROFILE" ] && echo Build profile: $BUILD_PROFILE`
163 `[ -n "$BUILD_OMITFP" ] && echo Build omitfp: $BUILD_OMITFP`
164 `[ -n "$BUILD_BOUNDED" ] && echo Build bounded: $BUILD_BOUNDED`
165 `[ -n "$BUILD_STATIC_NSS" ] && echo Build static-nss: $BUILD_STATIC_NSS`
166 `[ -n "$STDIO" ] && echo Stdio: $STDIO`
167
168 >Description:
169         $DESCRIPTION_C
170 >How-To-Repeat:
171         $HOW_TO_REPEAT_C
172 >Fix:
173         $FIX_C
174 EOF
175
176 chmod u+w $TEMP
177 cp $TEMP $TEMPx
178
179 eval $EDIT $TEMP
180
181 if cmp -s $TEMP $TEMPx; then
182         echo "File not changed, no bug report submitted."
183         exit 1
184 fi
185
186 #\f
187 #       Check the enumeration fields
188
189 # This is a "sed-subroutine" with one keyword parameter
190 # (with workaround for Sun sed bug)
191 #
192 SED_CMD='
193 /$PATTERN/{
194 s|||
195 s|<.*>||
196 s|^[    ]*||
197 s|[     ]*$||
198 p
199 q
200 }'
201
202
203 while :; do
204   CNT=0
205
206   #
207   # 1) Severity
208   #
209   PATTERN=">Severity:"
210   SEVERITY=`eval sed -n -e "\"$SED_CMD\"" $TEMP`
211   case "$SEVERITY" in
212     ""|non-critical|serious|critical) CNT=`expr $CNT + 1` ;;
213     *)  echo "$COMMAND: \`$SEVERITY' is not a valid value for \`Severity'."
214   esac
215   #
216   # 2) Priority
217   #
218   PATTERN=">Priority:"
219   PRIORITY=`eval sed -n -e "\"$SED_CMD\"" $TEMP`
220   case "$PRIORITY" in
221     ""|low|medium|high) CNT=`expr $CNT + 1` ;;
222     *)  echo "$COMMAND: \`$PRIORITY' is not a valid value for \`Priority'."
223   esac
224   #
225   # 3) Class
226   #
227   PATTERN=">Class:"
228   CLASS=`eval sed -n -e "\"$SED_CMD\"" $TEMP`
229   case "$CLASS" in
230     ""|sw-bug|doc-bug|change-request|support) CNT=`expr $CNT + 1` ;;
231     *)  echo "$COMMAND: \`$CLASS' is not a valid value for \`Class'."
232   esac
233
234   [ $CNT -lt 3 ] &&
235     echo "Errors were found with the problem report."
236
237   while :; do
238     $ECHON1 "a)bort, e)dit or s)end? $ECHON2"
239     read input
240     case "$input" in
241       a*)
242         echo "$COMMAND: problem report saved in $HOME/dead.glibcbug."
243         cat $TEMP >> $HOME/dead.glibcbug
244         xs=1; exit
245         ;;
246       e*)
247         eval $EDIT $TEMP
248         continue 2
249         ;;
250       s*)
251         break 2
252         ;;
253     esac
254   done
255 done
256 #
257 #       Remove comments and send the problem report
258 #       (we have to use patterns, where the comment contains regex chars)
259 #
260 # /^>Originator:/s;$ORIGINATOR;;
261 sed  -e "
262 /^SEND-PR:/d
263 /^>Organization:/,/^>[A-Za-z-]*:/s;$ORGANIZATION_C;;
264 /^>Confidential:/s;<.*>;;
265 /^>Synopsis:/s;$SYNOPSIS_C;;
266 /^>Severity:/s;<.*>;;
267 /^>Priority:/s;<.*>;;
268 /^>Class:/s;<.*>;;
269 /^>Release:/,/^>[A-Za-z-]*:/s;$RELEASE_C;;
270 /^>Environment:/,/^>[A-Za-z-]*:/s;$ENVIRONMENT_C;;
271 /^>Description:/,/^>[A-Za-z-]*:/s;$DESCRIPTION_C;;
272 /^>How-To-Repeat:/,/^>[A-Za-z-]*:/s;$HOW_TO_REPEAT_C;;
273 /^>Fix:/,/^>[A-Za-z-]*:/s;$FIX_C;;
274 " $TEMP > $TEMPx
275
276 if $MAIL_AGENT < $TEMPx; then
277   echo "$COMMAND: problem report sent"
278   xs=0; exit
279 else
280   echo "$COMMAND: mysterious mail failure, report not sent."
281   echo "$COMMAND: problem report saved in $HOME/dead.glibcbug."
282   cat $TEMP >> $HOME/dead.glibcbug
283 fi
284
285 exit 0