failat 50

echo "*e[H*e[JAmiTALK Debugging Information Script."

echo "*nWARNING:  This script will list files in your WBStartup drawer"
echo "and copy your user-startup and startnet script to ram:AmiTALK.debug"
echo "Please inspect this file and * out any passwords or other"
echo "information you do not want seen before mailing it to me."
echo "*nNOTE:  This script will not work with AS225 or its derivatives."
echo "(Fortunately, no one using AS225 has reported the above bug yet.)"

ask "*nAre you ready to proceed?"
if not warn
	echo "*nOkay, well, please run me again when you are."
	skip END
endif

echo "*nBeginning the collection of debugging information."

echo >ram:AmiTALK.debug "To: gunnbr@cs.rose-hulman.edu"
echo >>ram:AmiTALK.debug "Subject: AmiTALK debug script"

echo >>ram:AmiTALK.debug "*nAmiTALK debug script.*nRun on " NOLINE
date >>ram:AmiTALK.debug
echo >>ram:AmiTALK.debug "Run by $USER"

echo >>ram:AmiTALK.debug "*nAmiTALK version:"
version >>ram:AmiTALK.debug amitcp:bin/talk

echo >>ram:AmiTALK.debug "*nAmiTALKd version:"
version >>ram:AmiTALK.debug amitcp:serv/talkd

echo >>ram:AmiTALK.debug "*nAmiTCP version:"
version >>ram:AmiTALK.debug amitcp:amitcp

echo >>ram:AmiTALK.debug "*nHostname:  $hostname*nDomain:  $domain"

echo >>ram:AmiTALK.debug "*nConfiguration:"
sys:tools/showconfig >>ram:AmiTALK.debug

echo >>ram:AmiTALK.debug "*nPath:"
path >>ram:AmiTALK.debug

echo >>ram:AmiTALK.debug "*n======= status ========="
status >>ram:AmiTALK.debug

echo >>ram:AmiTALK.debug "*n======= talkrequest.rexx ========"
type >>ram:AmiTALK.debug amitcp:bin/talkrequest.rexx

echo >>ram:AmiTALK.debug "*n======= inetd.conf ======="
type >>ram:AmiTALK.debug amitcp:db/inetd.conf

echo >>ram:AmiTALK.debug "*n======= startnet ======="
type >>ram:AmiTALK.debug amitcp:bin/startnet

echo >>ram:AmiTALK.debug "*n======= netdb ========="
type >>ram:AmiTALK.debug amitcp:db/netdb

echo >>ram:AmiTALK.debug "*n======= netdb-myhost ========"
type >>ram:AmiTALK.debug amitcp:db/netdb-myhost

echo >>ram:AmiTALK.debug "*n======= interfaces ========="
type >>ram:AmiTALK.debug amitcp:db/interfaces

echo >>ram:AmiTALK.debug "*n======= env:sana2 =========="
type >>ram:AmiTALK.debug env:sana2/#? opt b

echo >>ram:AmiTALK.debug "*n======= user-startup ========"
type >>ram:AmiTALK.debug s:user-startup

echo >>ram:AmiTALK.debug "*n======= WBStartup ========"
list >>ram:AmiTALK.debug sys:wbstartup

echo >>ram:AmiTALK.debug "*n======= ENV: ========="
list >>ram:AmiTALK.debug env: all

echo "*nCollection of information completed."
echo "Please mail the file ram:AmiTALK.debug to:"
echo "*n        gunnbr@cs.rose-hulman.edu"
echo "*nMIME mail is preferred, but send it as plain text"
echo "if MIME is not possible."
echo "*nFeel free to include any other information you"
echo "think is necessary."
echo "*nThank you!*n"

lab END