home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 2 / FFMCD02.bin / new / comm / fido / spot / rexx / pollwho.spot < prev    next >
Text File  |  1993-12-21  |  2KB  |  60 lines
  1. /***************************************************************************/
  2. /* PollWho.spot    ©1993 Stu Churchill   2:250/107.97@fidonet              */
  3. /*                                                                         */
  4. /* $VER: PollWho.spot 1.53 (7.9.93)                                        */
  5. /*                                                                         */
  6. /* This script allows you to instantly poll a node (other than your Boss)  */
  7. /* and will supress your password in the handshake. Useful for sending a   */
  8. /* f'req or crash mail instantly.                                          */
  9. /***************************************************************************/
  10.  
  11. options results
  12.  
  13. /***************************************************************************/
  14. /* Set up any variables we may need for later use                          */
  15. /***************************************************************************/
  16.  
  17. NL          = '0d'x
  18. mailer_path = 'D:TrapDoor'
  19.  
  20. /***************************************************************************/
  21. /* Now we can get on with the rest of the script                           */
  22. /***************************************************************************/
  23.  
  24. address 'SPOT'
  25.  
  26. 'requeststring TITLE "PollWho 1.53" PROMPT "Enter a node to dial'NL'using dot seperation"'
  27. if rc > 0 then do
  28.   exit
  29. end
  30. newnode = RESULT
  31. if newnode == '' | newnode = 'RESULT' then do
  32.   exit
  33. end
  34.  
  35. parse var newnode zone'.'net'.'node
  36.  
  37. call testdata('zone',zone)         /* Here we make sure that each part of */
  38. call testdata('net',net)           /* the address is actually a number */
  39. call testdata('node',node)
  40.  
  41. node = zone':'net'/'node
  42.  
  43. address command mailer_path' Call 'node' Password ""'
  44.  
  45. exit
  46.  
  47.  
  48. /***************************************************************************/
  49. /* TestData procedure - ensure the user has entered numerical address      */
  50. /***************************************************************************/
  51.  
  52. testdata: procedure
  53.   parse arg type,val
  54.   test = datatype(val,'n')
  55.   if test ~= 1 then do
  56.     'requestnotify PROMPT "You must use a numeric'NL'character for the 'type'"'
  57.     exit
  58.   end
  59.   return
  60.