# HG changeset patch # User jwe # Date 791047119 0 # Node ID ed077e7b5bcb7e7e425d9929a26efd5cc1989989 # Parent 5eeb61cac52e7f9f6aa38c7d4f8717618c0fefab [project @ 1995-01-25 15:18:39 by jwe] diff -r 5eeb61cac52e -r ed077e7b5bcb octave-bug.in --- a/octave-bug.in Wed Jan 25 14:06:23 1995 +0000 +++ b/octave-bug.in Wed Jan 25 15:18:39 1995 +0000 @@ -170,31 +170,34 @@ # Delete the `--------' separator in the message. - awk 'BEGIN{ in_header = 1; } \ - /^--------[ \t]*$/ { - if (in_header) { - in_header = 0; - print ""; - next; - } - } { - print $0; - }' $TEMP > $TEMP.x +# Don't pretty-print this. Odd whitespace kills Ultrix AWK! + + awk 'BEGIN{in_header=1;} /^--------[ \t]*$/ { + if (in_header) { in_header=0; print ""; next; } + } { print $0; }' $TEMP > $TEMP.x # Now try to mail it. - ( rmail $BUGADDR < $TEMP.x ) > /dev/null 2>&1 || \ - ( mailx -s "$SUBJECT" $BUGADDR < $TEMP.x ) > /dev/null 2>&1 || \ - ( Mail -s "$SUBJECT" $BUGADDR < $TEMP.x ) > /dev/null 2>&1 || \ - ( /usr/ucb/mail -s "$SUBJECT" $BUGADDR < $TEMP.x ) > /dev/null 2>&1 || \ - ( /bin/mail $BUGADDR < $TEMP.x ) > /dev/null 2>&1 || \ - ( echo "unable to send mail -- saving message in \$HOME/dead.octave-bug"; \ - cat $TEMP >> $HOME/dead.octave-bug; exit 1 ) + ( /bin/mail $BUGADDR < $TEMP ) > /dev/null 2>&1 + status=$? + if test $status -ne 0; then + ( Mail -s "$SUBJECT" $BUGADDR < $TEMP ) > /dev/null 2>&1 + status=$? + if test $status -ne 0; then + ( /usr/ucb/mail -s "$SUBJECT" $BUGADDR < $TEMP ) > /dev/null 2>&1 + status=$? + if test $status -ne 0; then + ( mailx -s "$SUBJECT" $BUGADDR < $TEMP ) > /dev/null 2>&1 + status=$? + fi + fi + fi - status=$? - - if test $status -eq 0 - then + if test $status -ne 0; then + echo "unable to send mail -- saving message in \$HOME/dead.octave-bug"; + cat $TEMP >> $HOME/dead.octave-bug; + exit 1 + else echo "bug report sent to: $TO_ADDR" echo " cc to: $CC_ADDR" fi