/* GotoHomePage.rexx <browser> - © Alessandro Zummo */

page = 'http://freepage.logicom.it/azummo/'

PARSE ARG browser


IF browser = 'Clip' THEN
DO
	ADDRESS COMMAND 'ClipWrite "'page'"'

	EXIT
END


IF SHOW('Ports','IBROWSE') THEN
DO
	ADDRESS 'IBROWSE'

	gotourl page

	CALL DONE
END

IF SHOW('Ports','VOYAGER') THEN
DO
	ADDRESS 'VOYAGER'

	openurl page

	CALL DONE
END


ERROR:

Say 'Cannot found a compatible browser!'

ADDRESS COMMAND 'RequestChoice TITLE="GotoHomePage.rexx" BODY="Cannot found a compatible browser!" "Ok" >NIL:'

EXIT



DONE:

phrase = '-s180 You are waiting to be connected to the EasyPatch home page.'

IF EXISTS('SYS:Utilities/Say') THEN 
DO
	ADDRESS COMMAND 'RUN <>NIL: SYS:Utilities/Say 'phrase
END

EXIT