/* Imp Master Error Trapper */

parse arg program,ro,sig,sl

say "TRAPPEDIT"

optic='W'
if exists("MAIL:IMPMASTERERROR") then optic='A'

if ~open(errr,"MAIL:IMPMASTERERROR",optic) then do
	say "Error in Program > "||program
	say errortext(ro)
	say sig||" : "||sl
	say "-----------------"
	say "Notify Steven Pearson @ 2:250/563.12"
	say "-----------------"
	exit
end

call writeln(errr,"- Imp Master Error Trapper -"||'0a'x||date(e)||'0a'x||"Error in Program > "||program||'0a'x||errortext(ro)||'0a'x||sig||" : "||sl||'0a'x||"-----------------------------------------")
call close(errr)

address spot

yname = getclip("IMP_NAME")
yaddr = getclip("IMP_ADDRESS")

'requestresponse TITLE "Imp-Master Error" Prompt "An Error has occured, Netmail Steve (Creator of Imp-Master)?" gadgets "YES|YES|NO"'
if rc ~= 0 then do
	'gotomatrixarea'
	'messages'
	'write TO "Steven Pearson" TOADDR "2:250/563.12" FROM "'yname'" FROMADDR "'yaddr'" SUBJECT "Imp Master ERROR REPORT!" FILE "MAIL:IMPMASTERERROR" nosig noedit nogui'
end
if rc=0 then do
	address command
	'type mail:impmastererror'
	address spot
end

'requestresponse TITLE "Imp-Master Error" Prompt "An Error Report is in MAIL:IMPMASTERERROR" gadgets "Keep|Delete"'
if rc=0 then address command 'c:delete mail:impmastererror > nil:'

exit

