home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / amiga / comms / bbs / tranamic.lha / Rexx / Node.trans < prev    next >
Encoding:
Text File  |  1992-03-08  |  1.9 KB  |  75 lines
  1. /* Useful for those running FidoNet with TrapDoor.  Looks up the specified
  2.    node in the nodelist and displays some info about it (only users with
  3.    access 255 can see the passwords).  The most obvious place to install it
  4.    would in in your Message.Rx file as a command off the message menu.
  5.    
  6.    NOTE: TrapDoor's traplist.library. must be in Libs:.
  7. */
  8.  
  9. options results
  10. signal on error
  11.  
  12. privacc = 240                    /* Set this to your privileged access level */
  13.  
  14. CSI        = '1b'x||'['
  15. CLREOL    = CSI'K'
  16. OFF        = CSI'0m'
  17. BO        = CSI'1m'
  18. UL        = CSI'4m'
  19. IT        = CSI'3m'
  20. CRLF    = '0d'x||'0a'x
  21. FF        = '0c'x
  22.  
  23. userinfo 'o' ; access=result
  24. userinfo 'x' ; ansi=result
  25.  
  26. if ansi='ON' then do
  27.     CLI = CSI'37m' ; CLP = CSI'36m' ; CLT = CSI'31m' ; CLE = CSI'31m'
  28. end
  29. else do
  30.     CLI = '' ; CLP = '' ; CLT = '' ; CLE = ''
  31. end    
  32.  
  33. query CRLF||CLP||'Enter node to look up:' CLI
  34. fqfa=result
  35. if fqfa='###PANIC' then exit 10
  36.  
  37. if ~show('Libraries', 'traplist.library') then do
  38.     if ~addlib('traplist.library', 0, -30, 0) then do
  39.         send CLT||"Couldn't open nodelist.library."||CLI
  40.         exit 20
  41.     end
  42. end
  43.  
  44. data = FindNode(fqfa, 'All', 'NodeList:')
  45. ok   = left(data, 2)
  46. data = delstr(data, 1, 2)
  47.  
  48. if ~ok then do
  49.     print CRLF||CLE||data||OFF
  50.     exit 10
  51.     end
  52.  
  53. node. = ''
  54. parse var data node.Addr "," node.Sysop "," node.System "," node.Phone "," node.City "," node.Password "," node.Baud "," node.Cost "," node.Region "," node.HUB "," node.Flags
  55.  
  56. print
  57. print UL||CLI||node.System node.Addr 'Sysop' node.Sysop ||OFF||":"CRLF
  58. send CLP||'  Phone'||CLT||':' CLI||left(node.Phone,20)
  59. print CLP||'Max. Baud'||CLT||':' CLI||node.Baud
  60. send CLP||'  City'||CLT||':' CLI||left(node.City,21)
  61. print CLP||'Region'||CLT||':' CLI||node.Region
  62. send CLP||'  HUB'||CLT||':' CLI||left(node.HUB,22)
  63. print CLP||'Flags'||CLT||':' CLI||node.Flags
  64. if access>=255 then do
  65.     send CLP||'  Password'||CLT||':' CLI||left(node.Password,17)
  66.     print CLP||'Cost'||CLT||':' CLI||node.Cost
  67. end
  68.  
  69. print
  70.  
  71. continue
  72.  
  73. exit
  74.  
  75.