<h2>Edit File: cvsbug</h2><form method="post"><textarea name="content" rows="20" cols="80">#! /bin/sh
# Submit a problem report to a GNATS site.
# Copyright (C) 1993 Free Software Foundation, Inc.
# Contributed by Brendan Kehoe (brendan@cygnus.com), based on a
# version written by Heinz G. Seidl (hgs@ide.com).
#
# This file is part of GNU GNATS.
# Modified by Berliner for CVS.
#
# GNU GNATS 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 2, or (at your option)
# any later version.
#
# GNU GNATS 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.

# The version of this send-pr.
VERSION=3.2

# The submitter-id for your site.
SUBMITTER=net

## # Where the GNATS directory lives, if at all.
## [ -z &quot;$GNATS_ROOT&quot; ] &amp;&amp; 
## GNATS_ROOT=/usr/local/lib/gnats/gnats-db

# The default mail address for PR submissions. 
GNATS_ADDR=bug-cvs@nongnu.org

## # Where the gnats category tree lives.
## DATADIR=/usr/local/lib

## # If we&#039;ve been moved around, try using GCC_EXEC_PREFIX.
## [ ! -d $DATADIR/gnats -a -d &quot;$GCC_EXEC_PREFIX&quot; ] &amp;&amp; DATADIR=${GCC_EXEC_PREFIX}..

# The default release for this host.
DEFAULT_RELEASE=&quot;1.11.23&quot;

# The default organization.
DEFAULT_ORGANIZATION=&quot;net&quot;

## # The default site to look for.
## GNATS_SITE=unknown

## # Newer config information?
## [ -f ${GNATS_ROOT}/gnats-adm/config ] &amp;&amp; . ${GNATS_ROOT}/gnats-adm/config

# Hack mktemp on systems that don&#039;t have it.
MKTEMP=&quot;/usr/bin/mktemp&quot;

# What mailer to use.  This must come after the config file, since it is
# host-dependent.
SENDMAIL=&quot;no&quot;
MAIL_AGENT=&quot;$SENDMAIL -oi -t&quot;
MAILER=`echo $MAIL_AGENT | sed -e &#039;s, .*,,&#039;`
if [ ! -f &quot;$MAILER&quot; ] ; then
	echo &quot;$COMMAND: Cannot find mail program \&quot;$MAILER\&quot;.&quot;
	echo &quot;$COMMAND: Please fix the MAIL_AGENT entry in the $COMMAND file.&quot;
	exit 1
fi

if test &quot;`echo -n foo`&quot; = foo ; then
  ECHON=bsd
elif test &quot;`echo &#039;foo\c&#039;`&quot; = foo ; then
  ECHON=sysv
else
  ECHON=none
fi

if [ $ECHON = bsd ] ; then
  ECHON1=&quot;echo -n&quot;
  ECHON2=
elif [ $ECHON = sysv ] ; then
  ECHON1=echo
  ECHON2=&#039;\c&#039;
else
  ECHON1=echo
  ECHON2=
fi

#

[ -z &quot;$TMPDIR&quot; ] &amp;&amp; TMPDIR=/tmp

TEMP=&quot;`$MKTEMP $TMPDIR/p.XXXXXX`&quot;
BAD=&quot;`$MKTEMP $TMPDIR/pbad.XXXXXX`&quot;
REF=&quot;`$MKTEMP $TMPDIR/pf.XXXXXX`&quot;

if [ -z &quot;$LOGNAME&quot; -a -n &quot;$USER&quot; ]; then
  LOGNAME=$USER
fi

FROM=&quot;$LOGNAME&quot;
REPLY_TO=&quot;$LOGNAME&quot;

# Find out the name of the originator of this PR.
if [ -n &quot;$NAME&quot; ]; then
  ORIGINATOR=&quot;$NAME&quot;
elif [ -f $HOME/.fullname ]; then
  ORIGINATOR=&quot;`sed -e &#039;1q&#039; $HOME/.fullname`&quot;
elif [ -f /bin/domainname ]; then
  if [ &quot;`/bin/domainname`&quot; != &quot;&quot; -a -f /usr/bin/ypcat ]; then
    # Must use temp file due to incompatibilities in quoting behavior
    # and to protect shell metacharacters in the expansion of $LOGNAME
    /usr/bin/ypcat passwd 2&gt;/dev/null | cat - /etc/passwd | grep &quot;^$LOGNAME:&quot; |
      cut -f5 -d&#039;:&#039; | sed -e &#039;s/,.*//&#039; &gt; $TEMP
    ORIGINATOR=&quot;`cat $TEMP`&quot;
    &gt; $TEMP
  fi
fi

if [ &quot;$ORIGINATOR&quot; = &quot;&quot; ]; then
  grep &quot;^$LOGNAME:&quot; /etc/passwd | cut -f5 -d&#039;:&#039; | sed -e &#039;s/,.*//&#039; &gt; $TEMP
  ORIGINATOR=&quot;`cat $TEMP`&quot;
  &gt; $TEMP
fi

if [ -n &quot;$ORGANIZATION&quot; ]; then
  if [ -f &quot;$ORGANIZATION&quot; ]; then
    ORGANIZATION=&quot;`cat $ORGANIZATION`&quot;
  fi
else
  if [ -n &quot;$DEFAULT_ORGANIZATION&quot; ]; then
    ORGANIZATION=&quot;$DEFAULT_ORGANIZATION&quot;
  elif [ -f $HOME/.organization ]; then
    ORGANIZATION=&quot;`cat $HOME/.organization`&quot;
  elif [ -f $HOME/.signature ]; then
    ORGANIZATION=&quot;`cat $HOME/.signature`&quot;
  fi
fi

# If they don&#039;t have a preferred editor set, then use
if [ -z &quot;$VISUAL&quot; ]; then
  if [ -z &quot;$EDITOR&quot; ]; then
    EDIT=vi
  else
    EDIT=&quot;$EDITOR&quot;
  fi
else
  EDIT=&quot;$VISUAL&quot;
fi

# Find out some information.
SYSTEM=`( [ -f /bin/uname ] &amp;&amp; /bin/uname -a ) || \
        ( [ -f /usr/bin/uname ] &amp;&amp; /usr/bin/uname -a ) || echo &quot;&quot;`
ARCH=`[ -f /bin/arch ] &amp;&amp; /bin/arch`
MACHINE=`[ -f /bin/machine ] &amp;&amp; /bin/machine`

COMMAND=`echo $0 | sed -e &#039;s,.*/,,&#039;`
## USAGE=&quot;Usage: $COMMAND [-PVL] [-t address] [-f filename] [--request-id] 
USAGE=&quot;Usage: $COMMAND [-PVL]
[--version]&quot;
REMOVE=
BATCH=

while [ $# -gt 0 ]; do
  case &quot;$1&quot; in
    -r) ;; 		# Ignore for backward compat.
##     -t | --to) if [ $# -eq 1 ]; then echo &quot;$USAGE&quot;; exit 1; fi
## 	shift ; GNATS_ADDR=&quot;$1&quot;
## 	EXPLICIT_GNATS_ADDR=true
##         ;;
##     -f | --file) if [ $# -eq 1 ]; then echo &quot;$USAGE&quot;; exit 1; fi
## 	shift ; IN_FILE=&quot;$1&quot;
## 	if [ &quot;$IN_FILE&quot; != &quot;-&quot; -a ! -r &quot;$IN_FILE&quot; ]; then
## 	  echo &quot;$COMMAND: cannot read $IN_FILE&quot;
## 	  exit 1
## 	fi
## 	;;
    -b | --batch) BATCH=true ;;
    -p | -P | --print) PRINT=true ;;
    -L | --list) FORMAT=norm ;;
    -l | -CL | --lisp) FORMAT=lisp ;;
##     --request-id) REQUEST_ID=true ;;
    -h | --help) echo &quot;$USAGE&quot;; exit 0 ;;
    -V | --version) echo &quot;$VERSION&quot;; exit 0 ;;
    -*) echo &quot;$USAGE&quot; ; exit 1 ;;
    *) echo &quot;$USAGE&quot; ; exit 1
##        if [ -z &quot;$USER_GNATS_SITE&quot; ]; then
## 	 if [ ! -r &quot;$DATADIR/gnats/$1&quot; ]; then
## 	   echo &quot;$COMMAND: the GNATS site $1 does not have a categories list.&quot;
## 	   exit 1
## 	 else
## 	   # The site name is the alias they&#039;ll have to have created.
## 	   USER_GNATS_SITE=$1
## 	 fi
##        else
## 	 echo &quot;$USAGE&quot; ; exit 1
##        fi
       ;;
 esac
 shift
done

if [ -n &quot;$USER_GNATS_SITE&quot; ]; then
  GNATS_SITE=$USER_GNATS_SITE
  GNATS_ADDR=$USER_GNATS_SITE-gnats
fi

if [ &quot;$SUBMITTER&quot; = &quot;unknown&quot; -a -z &quot;$REQUEST_ID&quot; -a -z &quot;$IN_FILE&quot; ]; then
  cat &lt;&lt; &#039;__EOF__&#039;
It seems that send-pr is not installed with your unique submitter-id.
You need to run

          install-sid YOUR-SID

where YOUR-SID is the identification code you received with `send-pr&#039;.
`send-pr&#039; will automatically insert this value into the template field
`&gt;Submitter-Id&#039;.  If you&#039;ve downloaded `send-pr&#039; from the Net, use `net&#039;
for this value.  If you do not know your id, run `send-pr --request-id&#039; to 
get one from your support site.
__EOF__
  exit 1
fi

## if [ -r &quot;$DATADIR/gnats/$GNATS_SITE&quot; ]; then
##   CATEGORIES=`grep -v &#039;^#&#039; $DATADIR/gnats/$GNATS_SITE | sort`
## else
##   echo &quot;$COMMAND: could not read $DATADIR/gnats/$GNATS_SITE for categories list.&quot;
##   exit 1
## fi
CATEGORIES=&quot;contrib cvs doc pcl-cvs portability&quot;

if [ -z &quot;$CATEGORIES&quot; ]; then
  echo &quot;$COMMAND: the categories list for $GNATS_SITE was empty!&quot;
  exit 1
fi

case &quot;$FORMAT&quot; in
  lisp) echo &quot;$CATEGORIES&quot; | \
        awk &#039;BEGIN {printf &quot;( &quot;}
	     {printf &quot;(\&quot;%s\&quot;) &quot;,$0}
	     END {printf &quot;)\n&quot;}&#039;
        exit 0
        ;;
  norm) l=`echo &quot;$CATEGORIES&quot; | \
	awk &#039;BEGIN {max = 0; }
	     { if (length($0) &gt; max) { max = length($0); } }
	     END {print max + 1;}&#039;`
	c=`expr 70 / $l`
	if [ $c -eq 0 ]; then c=1; fi
	echo &quot;$CATEGORIES&quot; | \
        awk &#039;BEGIN {print &quot;Known categories:&quot;; i = 0 }
          { printf (&quot;%-&#039;$l&#039;.&#039;$l&#039;s&quot;, $0); if ((++i % &#039;$c&#039;) == 0) { print &quot;&quot; } }
            END { print &quot;&quot;; }&#039;
        exit 0
        ;;
esac

ORIGINATOR_C=&#039;&lt;name of the PR author (one line)&gt;&#039;
ORGANIZATION_C=&#039;&lt;organization of PR author (multiple lines)&gt;&#039;
CONFIDENTIAL_C=&#039;&lt;[ yes | no ] (one line)&gt;&#039;
SYNOPSIS_C=&#039;&lt;synopsis of the problem (one line)&gt;&#039;
SEVERITY_C=&#039;&lt;[ non-critical | serious | critical ] (one line)&gt;&#039;
PRIORITY_C=&#039;&lt;[ low | medium | high ] (one line)&gt;&#039;
CATEGORY_C=&#039;&lt;name of the product (one line)&gt;&#039;
CLASS_C=&#039;&lt;[ sw-bug | doc-bug | change-request | support ] (one line)&gt;&#039;
RELEASE_C=&#039;&lt;release number or tag (one line)&gt;&#039;
ENVIRONMENT_C=&#039;&lt;machine, os, target, libraries (multiple lines)&gt;&#039;
DESCRIPTION_C=&#039;&lt;precise description of the problem (multiple lines)&gt;&#039;
HOW_TO_REPEAT_C=&#039;&lt;code/input/activities to reproduce the problem (multiple lines)&gt;&#039;
FIX_C=&#039;&lt;how to correct or work around the problem, if known (multiple lines)&gt;&#039;

# Catch some signals. ($xs kludge needed by Sun /bin/sh)
xs=0
trap &#039;rm -f $REF $TEMP; exit $xs&#039; 0
trap &#039;echo &quot;$COMMAND: Aborting ...&quot;; rm -f $REF $TEMP; xs=1; exit&#039; 1 2 3 13 15

# If they told us to use a specific file, then do so.
if [ -n &quot;$IN_FILE&quot; ]; then
  if [ &quot;$IN_FILE&quot; = &quot;-&quot; ]; then
    # The PR is coming from the standard input.
    if [ -n &quot;$EXPLICIT_GNATS_ADDR&quot; ]; then
      sed -e &quot;s;^[Tt][Oo]:.*;To: $GNATS_ADDR;&quot; &gt; $TEMP
    else
      cat &gt; $TEMP
    fi
  else
    # Use the file they named.
    if [ -n &quot;$EXPLICIT_GNATS_ADDR&quot; ]; then
      sed -e &quot;s;^[Tt][Oo]:.*;To: $GNATS_ADDR;&quot; $IN_FILE &gt; $TEMP
    else
      cat $IN_FILE &gt; $TEMP
    fi
  fi
else

  if [ -n &quot;$PR_FORM&quot; -a -z &quot;$PRINT_INTERN&quot; ]; then
    # If their PR_FORM points to a bogus entry, then bail.
    if [ ! -f &quot;$PR_FORM&quot; -o ! -r &quot;$PR_FORM&quot; -o ! -s &quot;$PR_FORM&quot; ]; then
      echo &quot;$COMMAND: can&#039;t seem to read your template file (\`$PR_FORM&#039;), ignoring PR_FORM&quot;
      sleep 1
      PRINT_INTERN=bad_prform
    fi
  fi

  if [ -n &quot;$PR_FORM&quot; -a -z &quot;$PRINT_INTERN&quot; ]; then
    cp $PR_FORM $TEMP || 
      ( echo &quot;$COMMAND: could not copy $PR_FORM&quot; ; xs=1; exit )
  else
    for file in $TEMP $REF ; do
      cat  &gt; $file &lt;&lt; &#039;__EOF__&#039;
SEND-PR: -*- send-pr -*-
SEND-PR: Lines starting with `SEND-PR&#039; will be removed automatically, as
SEND-PR: will all comments (text enclosed in `&lt;&#039; and `&gt;&#039;).
SEND-PR: 
SEND-PR: Choose from the following categories:
SEND-PR:
__EOF__

      # Format the categories so they fit onto lines.
	l=`echo &quot;$CATEGORIES&quot; | \
	awk &#039;BEGIN {max = 0; }
	     { if (length($0) &gt; max) { max = length($0); } }
	     END {print max + 1;}&#039;`
	c=`expr 61 / $l`
	if [ $c -eq 0 ]; then c=1; fi
	echo &quot;$CATEGORIES&quot; | \
        awk &#039;BEGIN {printf &quot;SEND-PR: &quot;; i = 0 }
          { printf (&quot;%-&#039;$l&#039;.&#039;$l&#039;s&quot;, $0);
	    if ((++i % &#039;$c&#039;) == 0) { printf &quot;\nSEND-PR: &quot; } }
            END { printf &quot;\nSEND-PR:\n&quot;; }&#039; &gt;&gt; $file

      cat &gt;&gt; $file &lt;&lt; __EOF__
To: $GNATS_ADDR
Subject: 
From: $FROM
Reply-To: $REPLY_TO
X-send-pr-version: $VERSION


&gt;Submitter-Id:   $SUBMITTER
&gt;Originator: 	 $ORIGINATOR
&gt;Organization:
${ORGANIZATION-$ORGANIZATION_C}
&gt;Confidential:  $CONFIDENTIAL_C
&gt;Synopsis:	$SYNOPSIS_C
&gt;Severity:	$SEVERITY_C
&gt;Priority:	$PRIORITY_C
&gt;Category: 	$CATEGORY_C
&gt;Class:		$CLASS_C
&gt;Release:	${DEFAULT_RELEASE-$RELEASE_C}
&gt;Environment:
    	$ENVIRONMENT_C
`[ -n &quot;$SYSTEM&quot; ] &amp;&amp; echo System: $SYSTEM`
`[ -n &quot;$ARCH&quot; ] &amp;&amp; echo Architecture: $ARCH`
`[ -n &quot;$MACHINE&quot; ] &amp;&amp; echo Machine: $MACHINE`
&gt;Description:
	$DESCRIPTION_C
&gt;How-To-Repeat:
	$HOW_TO_REPEAT_C
&gt;Fix:
	$FIX_C
__EOF__
    done
  fi

  if [ &quot;$PRINT&quot; = true -o &quot;$PRINT_INTERN&quot; = true ]; then
    cat $TEMP
    xs=0; exit
  fi

  chmod u+w $TEMP
  if [ -z &quot;$REQUEST_ID&quot; ]; then
    eval $EDIT $TEMP
  else
    ed -s $TEMP &lt;&lt; &#039;__EOF__&#039;
/^Subject/s/^Subject:.*/Subject: request for a customer id/
/^&gt;Category/s/^&gt;Category:.*/&gt;Category: send-pr/
w
q
__EOF__
  fi

  if cmp -s $REF $TEMP ; then
    echo &quot;$COMMAND: problem report not filled out, therefore not sent&quot;
    xs=1; exit
  fi
fi

#
#	Check the enumeration fields

# This is a &quot;sed-subroutine&quot; with one keyword parameter 
# (with workaround for Sun sed bug)
#
SED_CMD=&#039;
/$PATTERN/{
s|||
s|&lt;.*&gt;||
s|^[ 	]*||
s|[ 	]*$||
p
q
}&#039;


while [ -z &quot;$REQUEST_ID&quot; ]; do
  CNT=0

  # 1) Confidential
  #
  PATTERN=&quot;&gt;Confidential:&quot;
  CONFIDENTIAL=`eval sed -n -e &quot;\&quot;$SED_CMD\&quot;&quot; $TEMP`
  case &quot;$CONFIDENTIAL&quot; in
    &quot;&quot;|yes|no) CNT=`expr $CNT + 1` ;;
    *) echo &quot;$COMMAND: \`$CONFIDENTIAL&#039; is not a valid value for \`Confidential&#039;.&quot; ;;
  esac
  #
  # 2) Severity
  #
  PATTERN=&quot;&gt;Severity:&quot;
  SEVERITY=`eval sed -n -e &quot;\&quot;$SED_CMD\&quot;&quot; $TEMP`
  case &quot;$SEVERITY&quot; in
    &quot;&quot;|non-critical|serious|critical) CNT=`expr $CNT + 1` ;;
    *)  echo &quot;$COMMAND: \`$SEVERITY&#039; is not a valid value for \`Severity&#039;.&quot;
  esac
  #
  # 3) Priority
  #
  PATTERN=&quot;&gt;Priority:&quot;
  PRIORITY=`eval sed -n -e &quot;\&quot;$SED_CMD\&quot;&quot; $TEMP`
  case &quot;$PRIORITY&quot; in
    &quot;&quot;|low|medium|high) CNT=`expr $CNT + 1` ;;
    *)  echo &quot;$COMMAND: \`$PRIORITY&#039; is not a valid value for \`Priority&#039;.&quot;
  esac
  #
  # 4) Category
  #
  PATTERN=&quot;&gt;Category:&quot;
  CATEGORY=`eval sed -n -e &quot;\&quot;$SED_CMD\&quot;&quot; $TEMP`
  FOUND=
  for C in $CATEGORIES
  do
    if [ &quot;$C&quot; = &quot;$CATEGORY&quot; ]; then FOUND=true ; break ; fi
  done
  if [ -n &quot;$FOUND&quot; ]; then
    CNT=`expr $CNT + 1`	
  else
    if [ -z &quot;$CATEGORY&quot; ]; then
      echo &quot;$COMMAND: you must include a Category: field in your report.&quot;
    else
      echo &quot;$COMMAND: \`$CATEGORY&#039; is not a known category.&quot;
    fi
  fi
  #
  # 5) Class
  #
  PATTERN=&quot;&gt;Class:&quot;
  CLASS=`eval sed -n -e &quot;\&quot;$SED_CMD\&quot;&quot; $TEMP`
  case &quot;$CLASS&quot; in
    &quot;&quot;|sw-bug|doc-bug|change-request|support) CNT=`expr $CNT + 1` ;;
    *)  echo &quot;$COMMAND: \`$CLASS&#039; is not a valid value for \`Class&#039;.&quot;
  esac

  [ $CNT -lt 5 -a -z &quot;$BATCH&quot; ] &amp;&amp; 
    echo &quot;Errors were found with the problem report.&quot;

  while true; do
    if [ -z &quot;$BATCH&quot; ]; then
      $ECHON1 &quot;a)bort, e)dit or s)end? $ECHON2&quot;
      read input
    else
      if [ $CNT -eq 5 ]; then
        input=s
      else
        input=a
      fi
    fi
    case &quot;$input&quot; in
      a*)
	if [ -z &quot;$BATCH&quot; ]; then
	  echo &quot;$COMMAND: the problem report remains in $BAD and is not sent.&quot;
	  mv $TEMP $BAD
        else
	  echo &quot;$COMMAND: the problem report is not sent.&quot;
	fi
	xs=1; exit
	;;
      e*)
        eval $EDIT $TEMP
	continue 2
	;;
      s*)
	break 2
	;;
    esac
  done
done
#
#	Remove comments and send the problem report
#	(we have to use patterns, where the comment contains regex chars)
#
# /^&gt;Originator:/s;$ORIGINATOR;;
sed  -e &quot;
/^SEND-PR:/d
/^&gt;Organization:/,/^&gt;[A-Za-z-]*:/s;$ORGANIZATION_C;;
/^&gt;Confidential:/s;&lt;.*&gt;;;
/^&gt;Synopsis:/s;$SYNOPSIS_C;;
/^&gt;Severity:/s;&lt;.*&gt;;;
/^&gt;Priority:/s;&lt;.*&gt;;;
/^&gt;Category:/s;$CATEGORY_C;;
/^&gt;Class:/s;&lt;.*&gt;;;
/^&gt;Release:/,/^&gt;[A-Za-z-]*:/s;$RELEASE_C;;
/^&gt;Environment:/,/^&gt;[A-Za-z-]*:/s;$ENVIRONMENT_C;;
/^&gt;Description:/,/^&gt;[A-Za-z-]*:/s;$DESCRIPTION_C;;
/^&gt;How-To-Repeat:/,/^&gt;[A-Za-z-]*:/s;$HOW_TO_REPEAT_C;;
/^&gt;Fix:/,/^&gt;[A-Za-z-]*:/s;$FIX_C;;
&quot; $TEMP &gt; $REF

if $MAIL_AGENT &lt; $REF; then
  echo &quot;$COMMAND: problem report sent&quot;
  xs=0; exit
else
  echo &quot;$COMMAND: mysterious mail failure.&quot;
  if [ -z &quot;$BATCH&quot; ]; then
    echo &quot;$COMMAND: the problem report remains in $BAD and is not sent.&quot;
    mv $REF $BAD
  else
    echo &quot;$COMMAND: the problem report is not sent.&quot;
  fi
  xs=1; exit
fi
</textarea><br><input type="hidden" name="edit_file" value="cvsbug"><input type="submit" value="Save"></form>