home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Fax / AVMN199D.LHA / avminstall / rexx / killall.avm < prev    next >
Encoding:
Text File  |  1995-08-22  |  584 b   |  28 lines
  1. /* to broadcast to everyone to quit */
  2.  
  3. call addlib("rexxsupport.library", 0, -30, 0)
  4.  
  5. /* Assume MAX of 10 AVMLOGVIEWs */
  6.  
  7. if showlist('p', 'AVMPROGRAMMER') then
  8.     address 'AVMPROGRAMMER' 'quit'
  9.  
  10. if showlist('p', 'AVMFAXPRINTER') then
  11.     address 'AVMFAXPRINTER' 'quit'
  12.  
  13. /* kill the active servers */
  14.  
  15. call open('servers', 'avm:servers.cfg', 'r')
  16. do while ~eof('servers')
  17.     line = readln('servers')
  18.     parse upper var line variable '=' value
  19.     if variable = 'PORT' then do
  20.         address value value
  21.         'quit'
  22.     end
  23. end
  24.  
  25. if showlist('p', 'AVMUSERINTERFACE') then
  26.     address 'AVMUSERINTERFACE' 'quit'
  27.  
  28.