/*
NoMail V3.0 By TresPass/Clique for Ami-Express V4.7
Stop Your users writting Mail in Non-Mail conferances EG file only areas
*/
parse arg node
options results
signal on error
signal on syntax
signal on ioerr
nodeid = 'AERexxControl'node
address value nodeid
tr = transmit
sf = showfile
gu = getuser
if exists('doors:nomail/nomail.config') then call bluebimbo
else call noconfig
bluebimbo:
gu 127
conf=result
if exists('bbs:commands/bbscmd/COMMENT.INFO') then call door
else call stock
stock:
frank = 1
call bigball
door:
frank = 2
call bigball
bigball:
CALL OPEN('pathz','doors:nomail/nomail.config','R')
moreballs:
pathtouse=READLN('pathz')
if pathtouse = conf THEN call ok
if pathtouse = '' THEN call Nomail
else call moreballs
else call Nomail
Nomail:
CALL CLOSE('pathz')
tr "Sorry no mail in this area.                <NoMailV3.0>/TPS/CLI"
call end
ok:
CALL CLOSE('pathz')
gu 131
tik = result
tik = LEFT(tik,2)
if tik = "RS" then call search
if tik = "rs" then call search
if tik = "Rs" then call search
if tik = "rS" then call search
else call bummer
bummer:
gu 131
what = result
what = LEFT(what,1)
if what = "e" then call enter
if what = "E" then call enter
if what = "c" then call comment
if what = "C" then call comment
if what = "r" then call read
if what = "R" then call read
else call end
comment:
if frank = 2 then call extra
if frank = 1 then call none
extra: 
PUTUSTR "comment"
PUTUSER 508
call end
none:
PUTUSTR "c"
PUTUSER 136
call end
enter:
gu 131
comm = result
PUTUSTR ""comm""
PUTUSER 136
call end
read:
gu 131
comm = result
PUTUSTR ""comm""
PUTUSER 136
call end
search:
PUTUSTR "readsearch"
PUTUSER 508
call end
noconfig
tr "No config.. exiting"
call end
end:
Shutdown
Exit