/* Scanner #2 */
parse arg node
options results
address value "AERexxControl"node

ADDLIB('rexxtricks.library',0,-30,0)

ac = "" ; bc = "" ; cc = "" ; dc = "" ; ec = "" ; zc = ""
gt=GETUSER ; tr=TRANSMIT ; sm=SENDMESSAGE ; CLS=""

if ~show('P','YAM') then do
tr ""
tr "Outside Mail Program Not Available. Please Use 'EMAIL' At Prompt!"
tr ""
call EXITING
end

doma=gettooltypevalue('doors:email/email','domain')
deep=gettooltypevalue('doors:email/email','folder')
tget=gettooltypevalue('doors:email/email','time')

if time(h)=tget then do
tr ""
tr cc"Sorry, but Email is not available during the hour of "tget":00!"
tr ""
shutdown
exit
end

address YAM
isonline
address
if rc=1 then do
tr ""
tr cc"Sorry! Main program is out on a mail-run somewhere!"
tr ""
shutdown
exit
end

x=0 ; gt 100
greed=result
user=space(greed,1,'-')
funk=user"@"doma

address yam
setfolder deep
getfolderinfo max
address
hey=result
do i=0 to hey-1
address yam
setmail i
getmailinfo TO
address
aaa=result

if MATCHPATTERN(aaa,funk,'NOCASE') | MATCHPATTERN(aaa,'#?<'funk'>#?','NOCASE') then x=1
end

if x=0 then do
tr ""
tr "- --[ mESSAGE fROM mO-eMAIL: tHERE iS nO mAIL fOR yOU ]------------------ -- -"
tr ""
end

if x=1 then do
tr ""
tr "- --[ mESSAGE fROM mO-eMAIL: yOU hAVE mESSAGES wAITING! wAHOO!]---------- -- -"
tr ""
end

SHUTDOWN
EXIT
END

EXITING:
shutdown
exit
end