[5] | 1 | #!/bin/sh |
---|
[2433] | 2 | # $Id: sendbug.sh,v 1.3 1989-12-04 15:22:54 raeburn Exp $ |
---|
| 3 | # make sure stuff this script needs is up front |
---|
| 4 | eval `/etc/athena/sh_commands_path` |
---|
| 5 | PATH=$PATH:/bin/athena |
---|
| 6 | bugs_address=bugs@Athena.MIT.EDU |
---|
| 7 | sendmail="/usr/lib/sendmail -t -oi" |
---|
| 8 | report_file=/tmp/bug$$.text |
---|
| 9 | version_file=/etc/version |
---|
| 10 | if [ ! -r $version_file ]; then |
---|
| 11 | version="unknown version (no $version_file found)" |
---|
| 12 | else |
---|
| 13 | awk_cmd='\ |
---|
| 14 | {if ($5 == "Update") update++; \ |
---|
| 15 | else if ($5 == version) { same++; update=0; } \ |
---|
| 16 | else { version=$5; update=0; same=0; } } \ |
---|
| 17 | END { printf "%s", version; \ |
---|
| 18 | close=0; \ |
---|
| 19 | if (update) { printf " (plus partial update"; close=1; }\ |
---|
| 20 | else if (same) { \ |
---|
| 21 | if (close) printf "; "; \ |
---|
| 22 | else printf " ("; \ |
---|
| 23 | printf "%d update(s) to same version", same; \ |
---|
| 24 | close=1; } \ |
---|
| 25 | if (close) printf ")"; \ |
---|
| 26 | }' |
---|
| 27 | version=`awk "$awk_cmd" < $version_file` |
---|
| 28 | fi |
---|
| 29 | short_version=`expr "$version (" : '\([^(]*[^( ]\) *(.*'` |
---|
| 30 | machtype=`machtype` |
---|
| 31 | cpu=`machtype -c` |
---|
| 32 | hostname=`hostname` |
---|
| 33 | dpy=`machtype -d` |
---|
| 34 | /usr/ucb/fmt << EOF |
---|
| 35 | Please enter the subject for this bug report. (Generally, this means the |
---|
| 36 | name of the program or locker with which you are having problems.) |
---|
| 37 | EOF |
---|
| 38 | echo -n ' --> ' |
---|
| 39 | read subject |
---|
| 40 | cat > $report_file << EOF |
---|
| 41 | To: $bugs_address |
---|
| 42 | Subject: $machtype $short_version: $subject |
---|
| 43 | ------- |
---|
| 44 | System name: $hostname |
---|
| 45 | Type and version: $cpu $version |
---|
| 46 | Display type: $dpy |
---|
| 47 | What were you trying to do? |
---|
| 48 | [Please fill this in.] |
---|
[5] | 49 | |
---|
[2433] | 50 | What's wrong: |
---|
| 51 | [Please fill this in.] |
---|
| 52 | |
---|
| 53 | What should have happened: |
---|
| 54 | [Please fill this in.] |
---|
| 55 | |
---|
| 56 | Please describe any relevant documentation references: |
---|
| 57 | [Please fill this in.] |
---|
| 58 | EOF |
---|
| 59 | |
---|
| 60 | fmt << EOF |
---|
| 61 | |
---|
| 62 | Please fill in the specified fields of the bug report form, which will |
---|
| 63 | be displayed momentarily. |
---|
| 64 | Remember to save the file before exiting the editor. |
---|
| 65 | EOF |
---|
| 66 | |
---|
| 67 | if [ -r $HOME/.mh_profile ]; then |
---|
| 68 | comp -form $report_file |
---|
| 69 | rm $report_file |
---|
| 70 | exit 0 |
---|
| 71 | fi |
---|
| 72 | # not using MH; run the editor, and send, ourselves. |
---|
| 73 | if [ "x$EDITOR" = "x" ]; then |
---|
| 74 | EDITOR=/usr/athena/emacs ; export EDITOR |
---|
| 75 | fi |
---|
| 76 | |
---|
| 77 | $EDITOR $report_file |
---|
| 78 | exec whatnow $report_file |
---|