.key dummy
.bra {
.ket }

; get some information about system and it's configuration

findconfig USERNAME              >env:{$$}bugreportUSERNAME
findconfig REALNAME              >env:{$$}bugreportREALNAME
findconfig NODENAME DOMAINNAME   >env:{$$}bugreportHOSTNAME
findconfig MAILEDITOR            >env:{$$}bugreportEDITOR
messageid                        >env:{$$}bugreportID
ctime rfc                        >env:{$$}bugreportCTIME
echo >t:{$$}report.tmp1 "which relaynews"
echo >t:{$$}report.tmp2 "uident `execute t:{$$}report.tmp1` >>t:{$$}report.form"
echo >t:{$$}report.tmp3 "version `execute t:{$$}report.tmp1` file full"
copy version.id env:{$$}Revision

echo  >t:{$$}report.form "To: bugs@hactar.hanse.de"
echo >>t:{$$}report.form "From: ${$$}bugreportUSERNAME@${$$}bugreportHOSTNAME (${$$}bugreportREALNAME)"
echo >>t:{$$}report.form "Sender: BugReport@${$$}bugreportHOSTNAME (Script)"
echo >>t:{$$}report.form "Date: ${$$}bugreportCTIME"
echo >>t:{$$}report.form "Message-ID: <${$$}bugreportID@${$$}bugreportHOSTNAME>"
echo >>t:{$$}report.form "Subject: Installed ${$$}Revision (${$$}bugreportCTIME)"
echo >>t:{$$}report.form "X-Report-For: ${$$}Revision*N"

echo >>t:{$$}report.form "%comment:*Ninstalled wCNews_1.0*N%%*N"
echo >>t:{$$}report.form "%id:*N${$$}bugreportID-${$$}bugreportUSERNAME@${$$}bugreportHOSTNAME*N%%*N"
echo >>t:{$$}report.form "%path:*N`execute t:{$$}report.tmp1`*N%%*N"
echo >>t:{$$}report.form "%version:*N`execute t:{$$}report.tmp3`*N%%*N"
echo >>t:{$$}report.form "%avail:"
avail >>t:{$$}report.form
echo >>t:{$$}report.form "%%*N"
echo >>t:{$$}report.form "%uident:"
execute t:{$$}report.tmp2
echo >>t:{$$}report.form "%%*N"
;
; NOTE: The following  line may cause problems  with WShell;  I can't
;       tell you why  since I don't  own  and therefore  can't use it
;       (subliminal  hint:  how about  making the gift for  wCNews  a
;       WShell original? =;->). But since the Commodore shell doesn't
;       complain about it, too bad, WShell's wrong. Sorry, but again,
;       I can't do anything against it :(
;                           -- wusel, Wed, 14 Jul 1993 06:10:41 +0200
;
echo >>t:{$$}report.form "%cpu:*N`cpu`*N%%*N"
echo >>t:{$$}report.form "%ver:*N`version`*N%%*N"
failat 1
sendmail <t:{$$}report.form
run more KNOWN.PROBLEMS
sendmail <KNOWN.PROBLEMS -raw -t ${$$}bugreportUSERNAME -f bugs@hactar.hanse.de
echo  >t:{$$}4listserv "To: listserv@hactar.hanse.de*NCC: ${$$}bugreportUSERNAME@@${$$}bugreportHOSTNAME"
echo >>t:{$$}4listserv "Subject: [Automatic subscription to the wcnews mailing list; change the address below if you need to.]"
echo >>t:{$$}4listserv "Comment: Please note that this file will be fed into sendmail after you left the editor ...*N"
echo >>t:{$$}4listserv "subscribe ${$$}bugreportUSERNAME@${$$}bugreportHOSTNAME wcnews"
${$$}bugreportEDITOR t:{$$}4listserv
sendmail <t:{$$}4listserv
delete t:{$$}#? env:{$$}#? quiet