home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 8 / FreshFishVol8-CD1.bin / new / comm / mail / thor / thor.lha / rexx / ABBSSearch.thor next >
Text File  |  1994-04-19  |  845b  |  39 lines
  1. /* ABBSSearch.thor · by Troels Walsted Hansen
  2. ** $VER: ABBSSearch.thor v1.00 (19.04.94)
  3. **
  4. ** Make command event for "f k xxx *", where xxx is something you
  5. ** type in a requester.
  6. */
  7.  
  8. options results
  9.  
  10. if(substr(address(),1,4) ~= "THOR") then do
  11.     parse arg portname
  12.     if~(show(p, portname)) then do
  13.         if ~(show(p, "THOR.01")) then do
  14.             say "No THOR port found!"
  15.             exit
  16.         end
  17.         else portname = "THOR.01"
  18.     end
  19. end
  20. else portname = address()
  21.  
  22. address(portname)
  23.  
  24. CURRENTBBS stem CURRENT
  25. if(rc ~= 0) then do
  26.     REQUESTLIST BBSLIST
  27.     bbsname = result
  28.     if(rc ~= 0) then exit
  29. end
  30. else bbsname = CURRENT.BBSNAME
  31.  
  32. REQUESTSTRING TITLE '"Enter part of filename or description:"'  BT '"_Ok|_Cancel"' MAXCHARS 900
  33. str = result
  34. if(rc ~= 0 | str = "RESULT") then exit
  35.  
  36. cmdstring = "f k "str" **"
  37. ADDEVENT BBS '"'bbsname'"' EVENT DOCOMMAND CMD '"'cmdstring'"'
  38. exit
  39.