/*
	MR/2 ICE - TESTMAIL.CMD

	Copyright (c) 1996, Nick Knight
	All Rights Reserved.

	Author: 	Nick Knight
	Created:	04/08/96
	Usage:		maillist addressFile MessageFile
	Purpose:	

	US Mail:	Nick Knight, PO Box 22366, Beachwood, Ohio 44122
	Fidonet:	1:157/2 or 1:/157/200
	Internet:	nick@secant.com
	Compuserve: 76066,1240
	BBS:		Private messages on Nerd's Nook (216) 356-1772 or 1872
*/


call RxFuncAdd 'SysLoadFuncs','RexxUtil','SysLoadFuncs'
call SysLoadFuncs

'@echo off'
parse arg msg_filename

status = stream(msg_filename,'c','open read')

subject = ''
value = ''

fHeader = 1
ctr = 0
do while ((ctr < 100) & (lines(msg_filename) > 0))
	iline = linein(msg_filename)
	Parse VALUE iline with tag ': ' value
	Parse UPPER VALUE iline with tag ': '
	
    if (tag == 'SUBJECT') then do
		subject = value
        ctr = 101
    end

	ctr = ctr + 1
end

status = stream(msg_filename,'c','close')

PARSE UPPER value subject with subject .

if (subject == 'REXX') then
    rc = lineout('mr2_rexx.$$$','OK')

return 0

