1 #!/bin/sh 2 # Submit a problem report to a GNATS site. 3 # Copyright (C) 1993, 2000, 2001, 2002, 2003, 2007 Free Software Foundation, Inc. 4 # Contributed by Brendan Kehoe (brendan (at] cygnus.com), based on a 5 # version written by Heinz G. Seidl (hgs (at] cygnus.com). 6 # 7 # This file is part of GNU GNATS. 8 # 9 # GNU GNATS is free software; you can redistribute it and/or modify 10 # it under the terms of the GNU General Public License as published by 11 # the Free Software Foundation; either version 3, or (at your option) 12 # any later version. 13 # 14 # GNU GNATS is distributed in the hope that it will be useful, 15 # but WITHOUT ANY WARRANTY; without even the implied warranty of 16 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 17 # GNU General Public License for more details. 18 # 19 # You should have received a copy of the GNU General Public License 20 # along with GNU GNATS; see the file COPYING3. If not see 21 # <http://www.gnu.org/licenses/>. 22 23 # The version of this send-pr. 24 VERSION=3.113 25 26 # The submitter-id for your site. 27 SUBMITTER=net 28 29 # The default mail address for PR submissions. 30 GNATS_ADDR=gcc-gnats@gcc.gnu.org 31 32 # The default release for this host. 33 # We have to guess at what program_transform_name might have done. 34 # "sed 1q" because neither "head -1" nor "head -n 1" is universal, argh. 35 36 DEFAULT_GCC="`echo $0 | sed -e 's/bug//'`" 37 DEFAULT_RELEASE="`$DEFAULT_GCC --version | sed 1q`" 38 39 # The default organization. 40 DEFAULT_ORGANIZATION= 41 42 # What mailer to use. This must come after the config file, since it is 43 # host-dependent. 44 # Copied from cvsbug 45 if [ -f /usr/sbin/sendmail ]; then 46 MAIL_AGENT="/usr/sbin/sendmail -oi -t" 47 else 48 MAIL_AGENT="/usr/lib/sendmail -oi -t" 49 fi 50 MAILER=`echo $MAIL_AGENT | sed -e 's, .*,,'` 51 if [ ! -f "$MAILER" ] ; then 52 echo "$COMMAND: Cannot file mail program \"$MAILER\"." 53 echo "$COMMAND: Please fix the MAIL_AGENT entry in the $COMMAND file." 54 exit 1 55 fi 56 57 58 # How to read the passwd database. 59 PASSWD="cat /etc/passwd" 60 61 ECHON=bsd 62 63 if [ $ECHON = bsd ] ; then 64 ECHON1="echo -n" 65 ECHON2= 66 elif [ $ECHON = sysv ] ; then 67 ECHON1=echo 68 ECHON2='\c' 69 else 70 ECHON1=echo 71 ECHON2= 72 fi 73 74 # 76 77 if [ -z "$TMPDIR" ]; then 78 TMPDIR=/tmp 79 else 80 if [ "`echo $TMPDIR | grep '/$'`" != "" ]; then 81 TMPDIR="`echo $TMPDIR | sed -e 's,/$,,'`" 82 fi 83 fi 84 85 if [ yes = yes ]; then 86 TEMP0=`mktemp $TMPDIR/poXXXXXX` || exit 1 87 TEMP=`mktemp $TMPDIR/pXXXXXX` || exit 1 88 BAD=`mktemp $TMPDIR/pbadXXXXXX` || exit 1 89 REF=`mktemp $TMPDIR/pfXXXXXX` || exit 1 90 REMOVE_TEMP="rm -f $TEMP0 $TEMP $BAD $REF" 91 else 92 TEMPD=$TMPDIR/pd$$ 93 TEMP0=$TEMPD/po$$ 94 TEMP=$TEMPD/p$$ 95 BAD=$TEMPD/pbad$$ 96 REF=$TEMPD/pf$$ 97 mkdir $TEMPD || exit 1 98 REMOVE_TEMP="rm -rf $TEMPD" 99 fi 100 101 # find a user name 102 if [ "$LOGNAME" = "" ]; then 103 if [ "$USER" != "" ]; then 104 LOGNAME="$USER" 105 else 106 LOGNAME="UNKNOWN" 107 fi 108 fi 109 110 FROM="$LOGNAME" 111 REPLY_TO="${REPLY_TO:-${REPLYTO:-$LOGNAME}}" 112 113 # Find out the name of the originator of this PR. 114 if [ -n "$NAME" ]; then 115 ORIGINATOR="$NAME" 116 elif [ -f $HOME/.fullname ]; then 117 ORIGINATOR="`sed -e '1q' $HOME/.fullname`" 118 else 119 # Must use temp file due to incompatibilities in quoting behavior 120 # and to protect shell metacharacters in the expansion of $LOGNAME 121 $PASSWD | grep "^$LOGNAME:" | awk -F: '{print $5}' | sed -e 's/,.*//' > $TEMP0 122 ORIGINATOR="`cat $TEMP0`" 123 rm -f $TEMP0 124 fi 125 126 if [ -n "$ORGANIZATION" ]; then 127 if [ -f "$ORGANIZATION" ]; then 128 ORGANIZATION="`cat $ORGANIZATION`" 129 fi 130 else 131 if [ -n "$DEFAULT_ORGANIZATION" ]; then 132 ORGANIZATION="$DEFAULT_ORGANIZATION" 133 elif [ -f $HOME/.organization ]; then 134 ORGANIZATION="`cat $HOME/.organization`" 135 fi 136 fi 137 138 # If they don't have a preferred editor set, then use 139 if [ -z "$VISUAL" ]; then 140 if [ -z "$EDITOR" ]; then 141 EDIT=vi 142 else 143 EDIT="$EDITOR" 144 fi 145 else 146 EDIT="$VISUAL" 147 fi 148 149 # Find out some information. 150 SYSTEM=`( [ -f /bin/uname ] && /bin/uname -a ) || \ 151 ( [ -f /usr/bin/uname ] && /usr/bin/uname -a ) || echo ""` 152 ARCH=`[ -f /bin/arch ] && /bin/arch` 153 MACHINE=`[ -f /bin/machine ] && /bin/machine` 154 155 COMMAND=`echo $0 | sed -e 's,.*/,,'` 156 USAGE="Usage: $COMMAND [-PVL] [-t address] [-f filename] [-s severity] 157 [-c address] [--request-id] [--version]" 158 REMOVE= 159 BATCH= 160 CC= 161 SEVERITY_C= 162 163 while [ $# -gt 0 ]; do 164 case "$1" in 165 -r) ;; # Ignore for backward compat. 166 -t | --to) if [ $# -eq 1 ]; then echo "$USAGE"; $REMOVE_TEMP; exit 1; fi 167 shift ; GNATS_ADDR="$1" 168 EXPLICIT_GNATS_ADDR=true 169 ;; 170 -f | --file) if [ $# -eq 1 ]; then echo "$USAGE"; $REMOVE_TEMP; exit 1; fi 171 shift ; IN_FILE="$1" 172 if [ "$IN_FILE" != "-" -a ! -r "$IN_FILE" ]; then 173 echo "$COMMAND: cannot read $IN_FILE" 174 $REMOVE_TEMP 175 exit 1 176 fi 177 ;; 178 -b | --batch) BATCH=true ;; 179 -c | --cc) if [ $# -eq 1 ]; then echo "$USAGE"; $REMOVE_TEMP; exit 1; fi 180 shift ; CC="$1" 181 ;; 182 -s | --severity) if [ $# -eq 1 ]; then echo "$USAGE"; $REMOVE_TEMP; exit 1; fi 183 shift ; SEVERITY_C="$1" 184 ;; 185 -p | -P | --print) PRINT=true ;; 186 -L | --list) FORMAT=norm ;; 187 -l | -CL | --lisp) FORMAT=lisp ;; 188 --request-id) REQUEST_ID=true ;; 189 -h | --help) echo "$USAGE"; $REMOVE_TEMP; exit 0 ;; 190 -V | --version) cat <<EOF 191 gccbug (GCC) $DEFAULT_RELEASE 192 Copyright (C) 2002 Free Software Foundation, Inc. 193 This is free software; see the source for copying conditions. There is NO 194 warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. 195 196 EOF 197 $REMOVE_TEMP; exit 0 ;; 198 -*) echo "$USAGE" ; $REMOVE_TEMP; exit 1 ;; 199 *) echo "$USAGE" ; $REMOVE_TEMP; exit 1 200 esac 201 shift 202 done 203 204 # spam does not need to be listed here 205 CATEGORIES="ada bootstrap c++ c debug driver fortran inline-asm java libgcj libobjc libstdc++ middle-end objc other pch preprocessor rtl-optimization target tree-optimization web" 206 207 case "$FORMAT" in 208 lisp) echo "$CATEGORIES" | \ 209 awk 'BEGIN {printf "( "} {printf "(\"%s\") ",$0} END {printf ")\n"}' 210 $REMOVE_TEMP 211 exit 0 212 ;; 213 norm) l=`echo "$CATEGORIES" | \ 214 awk 'BEGIN {max = 0; } { if (length($0) > max) { max = length($0); } } 215 END {print max + 1;}'` 216 c=`expr 70 / $l` 217 if [ $c -eq 0 ]; then c=1; fi 218 echo "$CATEGORIES" | \ 219 awk 'BEGIN {print "Known categories:"; i = 0 } 220 { printf ("%-'$l'.'$l's", $0); if ((++i % '$c') == 0) { print "" } } 221 END { print ""; }' 222 $REMOVE_TEMP 223 exit 0 224 ;; 225 esac 226 227 ORIGINATOR_C='<name of the PR author (one line)>' 228 ORGANIZATION_C='<organization of PR author (multiple lines)>' 229 SYNOPSIS_C='<synopsis of the problem (one line)>' 230 if [ -z "$SEVERITY_C" ]; then 231 SEVERITY_C='<[ non-critical | serious | critical ] (one line)>' 232 fi 233 PRIORITY_C='<[ low | medium ] (one line)>' 234 CATEGORY_C='<choose from the top of this file (one line)>' 235 RELEASE_C='<release number or tag (one line)>' 236 ENVIRONMENT_C='<machine, os, target, libraries (multiple lines)>' 237 DESCRIPTION_C='<precise description of the problem (multiple lines)>' 238 HOW_TO_REPEAT_C='<When reporting a compiler error, preprocessor output must be included>' 239 FIX_C='<how to correct or work around the problem, if known (multiple lines)>' 240 241 # Catch some signals. ($xs kludge needed by Sun /bin/sh) 242 xs=0 243 trap '$REMOVE_TEMP; exit $xs' 0 244 trap 'echo "$COMMAND: Aborting ..."; $REMOVE_TEMP; xs=1; exit' 1 3 13 15 245 246 # If they told us to use a specific file, then do so. 247 if [ -n "$IN_FILE" ]; then 248 if [ "$IN_FILE" = "-" ]; then 249 # The PR is coming from the standard input. 250 if [ -n "$EXPLICIT_GNATS_ADDR" ]; then 251 sed -e "s;^[Tt][Oo]:.*;To: $GNATS_ADDR;" > $TEMP 252 else 253 cat > $TEMP 254 fi 255 else 256 # Use the file they named. 257 if [ -n "$EXPLICIT_GNATS_ADDR" ]; then 258 sed -e "s;^[Tt][Oo]:.*;To: $GNATS_ADDR;" $IN_FILE > $TEMP 259 else 260 cat $IN_FILE > $TEMP 261 fi 262 fi 263 else 264 265 if [ -n "$PR_FORM" -a -z "$PRINT_INTERN" ]; then 266 # If their PR_FORM points to a bogus entry, then bail. 267 if [ ! -f "$PR_FORM" -o ! -r "$PR_FORM" -o ! -s "$PR_FORM" ]; then 268 echo "$COMMAND: can't seem to read your template file (\`$PR_FORM'), ignoring PR_FORM" 269 sleep 1 270 PRINT_INTERN=bad_prform 271 fi 272 fi 273 274 if [ -n "$PR_FORM" -a -z "$PRINT_INTERN" ]; then 275 cp $PR_FORM $TEMP || 276 ( echo "$COMMAND: could not copy $PR_FORM" ; xs=1; exit ) 277 else 278 for file in $TEMP $REF ; do 279 cat > $file << '__EOF__' 280 SEND-PR: -*- send-pr -*- 281 SEND-PR: Lines starting with `SEND-PR' will be removed automatically, as 282 SEND-PR: will all comments (text enclosed in `<' and `>'). 283 SEND-PR: 284 SEND-PR: Please consult the GCC manual if you are not sure how to 285 SEND-PR: fill out a problem report. 286 SEND-PR: Note that the Synopsis field is mandatory. The Subject (for 287 SEND-PR: the mail) will be made the same as Synopsis unless explicitly 288 SEND-PR: changed. 289 SEND-PR: 290 SEND-PR: Choose from the following categories: 291 SEND-PR: 292 __EOF__ 293 294 # Format the categories so they fit onto lines. 295 l=`echo "$CATEGORIES" | \ 296 awk 'BEGIN {max = 0; } { if (length($0) > max) { max = length($0); } } 297 END {print max + 1;}'` 298 c=`expr 61 / $l` 299 if [ $c -eq 0 ]; then c=1; fi 300 echo "$CATEGORIES" | \ 301 awk 'BEGIN {printf "SEND-PR: "; i = 0 } 302 { printf ("%-'$l'.'$l's", $0); 303 if ((++i % '$c') == 0) { printf "\nSEND-PR: " } } 304 END { printf "\nSEND-PR:\n"; }' >> $file 305 306 cat >> $file << __EOF__ 307 To: $GNATS_ADDR 308 Subject: 309 From: $FROM 310 Reply-To: $REPLYTO 311 Cc: $CC 312 X-send-pr-version: $VERSION 313 X-GNATS-Notify: 314 315 316 >Submitter-Id: $SUBMITTER 317 >Originator: $ORIGINATOR 318 >Organization: ${ORGANIZATION-$ORGANIZATION_C} 319 >Confidential: no 320 SEND-PR: Leave "Confidential" as "no"; all GCC PRs are public. 321 >Synopsis: $SYNOPSIS_C 322 >Severity: $SEVERITY_C 323 SEND-PR: critical GCC is completely not operational; no work-around known. 324 SEND-PR: serious GCC is not working properly; a work-around is possible. 325 SEND-PR: non-critical Report indicates minor problem. 326 >Priority: $PRIORITY_C 327 SEND-PR: medium The problem should be solved in the next release. 328 SEND-PR: low The problem should be solve in a future release. 329 >Category: $CATEGORY_C 330 >Class: <[ doc-bug | accepts-illegal | rejects-legal | wrong-code | ice-on-legal-code| ice-on-illegal-code | pessimizes-code | sw-bug | change-request | support ] (one line)> 331 SEND-PR: doc-bug The documentation is incorrect. 332 SEND-PR: accepts-illegal GCC fails to reject erroneous code. 333 SEND-PR: rejects-legal GCC gives an error message for correct code. 334 SEND-PR: wrong-code The machine code generated by gcc is incorrect. 335 SEND-PR: ice-on-legal-code GCC gives an Internal Compiler Error (ICE) 336 SEND-PR: for correct code 337 SEND-PR: ice-on-illegal-code GCC gives an ICE instead of reporting an error 338 SEND-PR: pessimizes-code GCC misses an important optimization opportunity 339 SEND-PR: sw-bug Software bug of some other class than above 340 SEND-PR: change-request A feature in GCC is missing. 341 SEND-PR: support I need help with gcc. 342 >Release: ${DEFAULT_RELEASE-$RELEASE_C} 343 >Environment: 344 `[ -n "$SYSTEM" ] && echo System: $SYSTEM` 345 `[ -n "$ARCH" ] && echo Architecture: $ARCH` 346 `[ -n "$MACHINE" ] && echo Machine: $MACHINE` 347 $ENVIRONMENT_C 348 host: x86_64-unknown-linux-gnu 349 build: x86_64-unknown-linux-gnu 350 target: i686-pc-linux-gnu 351 __EOF__ 352 cat >> $file << \__EOF__ 353 configured with: /tmp/gcc32/toolchain-src/gcc/gcc-4.4.3/configure --prefix=/tmp/gcc32/1/i686-linux-glibc2.7-4.4.3 --with-sysroot=/tmp/gcc32/1/i686-linux-glibc2.7-4.4.3/sysroot --disable-nls --with-gmp=/tmp/gcc32/1/i686-linux-glibc2.7-4.4.3 --with-mpfr=/tmp/gcc32/1/i686-linux-glibc2.7-4.4.3 --target=i686-linux --disable-plugin --disable-docs --enable-languages=c,c++ 354 __EOF__ 355 cat >> $file << __EOF__ 356 >Description: 357 $DESCRIPTION_C 358 >How-To-Repeat: 359 $HOW_TO_REPEAT_C 360 >Fix: 361 $FIX_C 362 __EOF__ 363 done 364 fi 365 366 if [ "$PRINT" = true -o "$PRINT_INTERN" = true ]; then 367 cat $TEMP 368 xs=0; exit 369 fi 370 371 chmod u+w $TEMP 372 if [ -z "$REQUEST_ID" ]; then 373 eval $EDIT $TEMP 374 else 375 ed -s $TEMP << '__EOF__' 376 /^Subject/s/^Subject:.*/Subject: request for a customer id/ 377 /^>Category/s/^>Category:.*/>Category: send-pr/ 378 w 379 q 380 __EOF__ 381 fi 382 383 if cmp -s $REF $TEMP ; then 384 echo "$COMMAND: problem report not filled out, therefore not sent" 385 xs=1; exit 386 fi 387 fi 388 389 # 391 # Check the enumeration fields 392 393 # This is a "sed-subroutine" with one keyword parameter 394 # (with workaround for Sun sed bug) 395 # 396 SED_CMD=' 397 /$PATTERN/{ 398 s||| 399 s|<.*>|| 400 s|^[ ]*|| 401 s|[ ]*$|| 402 p 403 q 404 }' 405 406 407 while [ -z "$REQUEST_ID" ]; do 408 CNT=0 409 410 # 1) Confidential 411 # 412 PATTERN=">Confidential:" 413 CONFIDENTIAL=`eval sed -n -e "\"$SED_CMD\"" $TEMP` 414 case "$CONFIDENTIAL" in 415 no) CNT=`expr $CNT + 1` ;; 416 *) echo "$COMMAND: \`$CONFIDENTIAL' is not a valid value for \`Confidential'." ;; 417 esac 418 # 419 # 2) Severity 420 # 421 PATTERN=">Severity:" 422 SEVERITY=`eval sed -n -e "\"$SED_CMD\"" $TEMP` 423 case "$SEVERITY" in 424 ""|non-critical|serious|critical) CNT=`expr $CNT + 1` ;; 425 *) echo "$COMMAND: \`$SEVERITY' is not a valid value for \`Severity'." 426 esac 427 # 428 # 3) Priority 429 # 430 PATTERN=">Priority:" 431 PRIORITY=`eval sed -n -e "\"$SED_CMD\"" $TEMP` 432 case "$PRIORITY" in 433 ""|low|medium) CNT=`expr $CNT + 1` ;; 434 high) echo "$COMMAND: \`Priority: high' is reserved for GCC maintainers." ;; 435 *) echo "$COMMAND: \`$PRIORITY' is not a valid value for \`Priority'." 436 esac 437 # 438 # 4) Category 439 # 440 PATTERN=">Category:" 441 CATEGORY=`eval sed -n -e "\"$SED_CMD\"" $TEMP` 442 FOUND= 443 for C in $CATEGORIES 444 do 445 if [ "$C" = "$CATEGORY" ]; then FOUND=true ; break ; fi 446 done 447 if [ -n "$FOUND" ]; then 448 CNT=`expr $CNT + 1` 449 else 450 if [ -z "$CATEGORY" ]; then 451 echo "$COMMAND: you must include a Category: field in your report." 452 else 453 echo "$COMMAND: \`$CATEGORY' is not a known category." 454 fi 455 fi 456 # 457 # 5) Class 458 # 459 PATTERN=">Class:" 460 CLASS=`eval sed -n -e "\"$SED_CMD\"" $TEMP` 461 case "$CLASS" in 462 ""|doc-bug|accepts-illegal|rejects-legal|wrong-code|ice-on-legal-code|ice-on-illegal-code|pessimizes-code|sw-bug|change-request|support) CNT=`expr $CNT + 1` ;; 463 *) echo "$COMMAND: \`$CLASS' is not a valid value for \`Class'." 464 esac 465 # 466 # 6) Check that synopsis is not empty 467 # 468 if grep "^>Synopsis:[ ]*${SYNOPSIS_C}\$" $TEMP > /dev/null 469 then 470 echo "$COMMAND: Synopsis must not be empty." 471 else 472 CNT=`expr $CNT + 1` 473 fi 474 475 [ $CNT -lt 6 -a -z "$BATCH" ] && 476 echo "Errors were found with the problem report." 477 478 while true; do 479 if [ -z "$BATCH" ]; then 480 $ECHON1 "a)bort, e)dit or s)end? $ECHON2" 481 read input 482 else 483 if [ $CNT -eq 6 ]; then 484 input=s 485 else 486 input=a 487 fi 488 fi 489 case "$input" in 490 a*) 491 if [ -z "$BATCH" ]; then 492 echo "$COMMAND: the problem report remains in $BAD and is not sent." 493 REMOVE_TEMP="rm -f $TEMP0 $TEMP $REF" 494 mv $TEMP $BAD 495 else 496 echo "$COMMAND: the problem report is not sent." 497 fi 498 xs=1; exit 499 ;; 500 e*) 501 eval $EDIT $TEMP 502 continue 2 503 ;; 504 s*) 505 break 2 506 ;; 507 esac 508 done 509 done 510 511 # 512 # Make sure the mail has got a Subject. If not, use the same as 513 # in Synopsis. 514 # 515 516 if grep '^Subject:[ ]*$' $TEMP > /dev/null 517 then 518 SYNOPSIS=`grep '^>Synopsis:' $TEMP | sed -e 's/^>Synopsis:[ ]*//'` 519 ed -s $TEMP << __EOF__ 520 /^Subject:/s/:.*\$/: $SYNOPSIS/ 521 w 522 q 523 __EOF__ 524 fi 525 526 # 527 # Remove comments and send the problem report 528 # (we have to use patterns, where the comment contains regex chars) 529 # 530 # /^>Originator:/s;$ORIGINATOR;; 531 sed -e " 532 /^SEND-PR:/d 533 /^>Organization:/,/^>[A-Za-z-]*:/s;$ORGANIZATION_C;; 534 /^>Confidential:/s;<.*>;; 535 /^>Synopsis:/s;$SYNOPSIS_C;; 536 /^>Severity:/s;<.*>;; 537 /^>Priority:/s;<.*>;; 538 /^>Category:/s;$CATEGORY_C;; 539 /^>Class:/s;<.*>;; 540 /^>Release:/,/^>[A-Za-z-]*:/s;$RELEASE_C;; 541 /^>Environment:/,/^>[A-Za-z-]*:/s;$ENVIRONMENT_C;; 542 /^>Description:/,/^>[A-Za-z-]*:/s;$DESCRIPTION_C;; 543 /^>How-To-Repeat:/,/^>[A-Za-z-]*:/s;$HOW_TO_REPEAT_C;; 544 /^>Fix:/,/^>[A-Za-z-]*:/s;$FIX_C;; 545 " $TEMP > $REF 546 547 if $MAIL_AGENT < $REF; then 548 echo "$COMMAND: problem report sent" 549 xs=0; exit 550 else 551 echo "$COMMAND: mysterious mail failure." 552 if [ -z "$BATCH" ]; then 553 echo "$COMMAND: the problem report remains in $BAD and is not sent." 554 REMOVE_TEMP="rm -f $TEMP0 $TEMP $REF" 555 mv $REF $BAD 556 else 557 echo "$COMMAND: the problem report is not sent." 558 fi 559 xs=1; exit 560 fi 561
