home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Pearls / comm / Fido / Spot / Rexx / Info.spot < prev    next >
Text File  |  1993-11-16  |  930b  |  36 lines
  1. /*
  2.  Info.spot 1.0 written on 14-Jul-93 by Stefan Hochmuth
  3.  requires mail:bin/getnode from TrapDoor
  4.  displays getnode's output in a requester on the Spot screen */
  5.  
  6. nodeinfocmd="mail:bin/getnode"
  7.  
  8. options results
  9.  
  10. abort=0
  11.  
  12. getfromaddress
  13. requeststring 'TITLE="Info on Node X" PROMPT="Enter Node:" DEFAULT '||result
  14. if rc = 5 then abort=1 
  15. eingabe = result
  16.  
  17. if abort=0 then do
  18.  address COMMAND nodeinfocmd||" >ram:nodeinfo.spot "||eingabe
  19.  if open('infofile','ram:nodeinfo.spot',R) then do
  20.   ausgabe=readch('infofile',300)
  21.   dummy=close('infofile')
  22.  
  23.   address COMMAND "delete >NIL: ram:nodeinfo.spot"
  24.   /* convert LF to CR */
  25.   ausgabe=translate(ausgabe,'0d'x,"0a"x," ")
  26.   /* don't show password */
  27.   len=pos("Password",ausgabe)-2
  28.   if len < 1 then len=length(ausgabe)-1
  29.   ausgabe=left(ausgabe,len)
  30.   /* delete trailing spaces, remove "s */
  31.   ausgabe='"'||trim(translate(ausgabe,' ','"',' '))||'"'
  32.   requestnotify ausgabe
  33.  
  34.  end
  35. end
  36.