home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 8 / FreshFishVol8-CD1.bin / new / comm / mail / thor / thor.lha / rexx / JoinConf.thor < prev    next >
Text File  |  1994-08-06  |  686b  |  37 lines
  1. /* JoinConf.thor · by Troels Walsted Hansen
  2. ** $VER: JoinConf.thor v1.00 (19.04.94)
  3. **
  4. ** Join a conf through requesters.
  5. */
  6.  
  7. options results
  8.  
  9. if(substr(address(),1,4) ~= "THOR") then do
  10.     parse arg portname
  11.     if~(show(p, portname)) then do
  12.         if ~(show(p, "THOR.01")) then do
  13.             say "No THOR port found!"
  14.             exit
  15.         end
  16.         else portname = "THOR.01"
  17.     end
  18. end
  19. else portname = address()
  20.  
  21. address(portname)
  22.  
  23. CURRENTBBS stem CURRENT
  24. if(rc ~= 0) then do
  25.     REQUESTLIST BBSLIST
  26.     bbsname = result
  27.     if(rc ~= 0) then exit
  28. end
  29. else bbsname = CURRENT.BBSNAME
  30.  
  31. REQUESTLIST CONFLIST BBS '"'bbsname'"'
  32. confname = result
  33. if(rc ~= 0) then exit
  34.  
  35. ADDEVENT BBS '"'bbsname'"' EVENT JOINCONF C '"'confname'"'
  36. exit
  37.