home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dream 52
/
Amiga_Dream_52.iso
/
Amiga
/
Internet
/
Mail
/
iris.lha
/
Iris
/
IrisRMail.irx
< prev
next >
Wrap
Text File
|
1998-03-18
|
983b
|
40 lines
/* REXX-script to read mail into Iris */
/* $VER: IrisRMail.irx V1.1 (supplied with Iris V1.2b) */
if ~show('l','rexxsupport.library') then addlib('rexxsupport.library',0,-30,0)
if showlist('a','amitcp') then do
irispath='AMITCP:Iris/Iris' /*
* This may need adaptation. You may remove
* all these if's and just include the path.
*/
end
else do
if showlist('v','work') then do
irispath='Work:Iris/Iris'
end
else do
irispath='SYS:Iris/Iris'
end
end
arg filename
if ~exists(irispath) then
do
reqbody='"The path of Iris is wrong.*N'
reqbody=reqbody||'Please change it in the*Nscript."'
address command 'requestchoice "IrisRMail.irx"' reqbody '"Abort"'
exit 20
end
if ~show('P','IRIS') then
do
address command 'run <nil: >nil: '||irispath
do while ~show('P','IRIS')
address command 'wait 1'
end
end
address 'IRIS' 'READMESSAGE' filename '0 *'