home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 28
/
amigaformatcd28.iso
/
-seriously_amiga-
/
comms
/
other
/
aemail151
/
files.lha
/
ARexx.lha
/
html.aem
< prev
next >
Wrap
Text File
|
1998-03-08
|
691b
|
26 lines
/* AEMail html display */
OPTIONS RESULTS
PARSE ARG file a
ADDRESS COMMAND "DELETE >NIL: t:amtemp.html"
ADDRESS COMMAND "RENAME >NIL: T:Amtemp t:amtemp.html"
IF ~ SHOW("PORTS","IBROWSE") THEN
DO
ADDRESS COMMAND "Run >NIL: IBROWSE:Ibrowse"
ADDRESS COMMAND "WaitForPort IBROWSE"
IF ~ SHOW("PORTS","IBROWSE") THEN
DO
ADDRESS COMMAND "Run >NIL: sys:utilities/multiview" file
EXIT
END
END
ADDRESS IBROWSE INFO SCREEN
ADDRESS AEMAIL1 SCREENTOFRONT result
if (result = 0) then ADDRESS AEMAIL1 okay1 "Bad Public Screen"
ADDRESS IBROWSE GOTOURL "file://localhost/t:amtemp.html"
if (RC ~= 0) then ADDRESS AEMAIL1 okay1 "IBROWSE returned RC "RC