/* to broadcast to everyone to quit */

call addlib("rexxsupport.library", 0, -30, 0)

/* Assume MAX of 10 AVMLOGVIEWs */

if showlist('p', 'AVMPROGRAMMER') then
	address 'AVMPROGRAMMER' 'quit'

if showlist('p', 'AVMFAXPRINTER') then
	address 'AVMFAXPRINTER' 'quit'

/* kill the active servers */

call open('servers', 'avm:servers.cfg', 'r')
do while ~eof('servers')
	line = readln('servers')
	parse upper var line variable '=' value
	if variable = 'PORT' then do
		address value value
		'quit'
	end
end

if showlist('p', 'AVMUSERINTERFACE') then
	address 'AVMUSERINTERFACE' 'quit'

faxprogram = upper(getclip('AVMFaxProgram'))

if faxprogram = 'GPFAX' then 'stopgpfax.avm'