/*rx
 * Connect - GUI Connection Script       *
 * v2.0 by James Savage for Demon Internet *
 */

if ~ exists("libs:rexxreqtools.library") then 
do
	say "Can't find rexxreqtools.library, aborting.."
   exit
end

if ~ show('L',"rexxreqtools.library") then 
do
	addlib('rexxreqtools.library',0,-30,0)
end

NL = '0a'x

result = rtezrequest("Choose an option","Connect|Auto Mail|News|Auto News|Disconnect|Cancel","Connect - by James Savage")

if result = 0 then
do
	exit
end

if result = 1 then
do
	say "Connecting to Demon - Fetching mail"
	address command "amitcp:bin/link up"
	exit
end

if result = 2 then
do
	say "Connecting to Demon - Disconnection after mail"
	address command "amitcp:bin/link up automail"
	exit
end

if result = 3 then
do
	say "Connecting to Demon - Fetching mail and news"
	address command "amitcp:bin/link up news"
	exit
end

if result = 4 then
do
	say "Connecting to Demon - Disconnection after mail and news"
	address command "amitcp:bin/link up autonews"
	exit
end

if result = 5 then
do
	say "Disconnecting from Demon"
	address command "amitcp:bin/link down"
	exit
end