home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / mailftp.zip / autoping.cmd next >
OS/2 REXX Batch file  |  1995-12-08  |  1KB  |  62 lines
  1. /* REXX Script for Ftp-Sstar.Cmd */
  2. /* heh heh heh - we'll stay connected by using ping ... */
  3. /* The necessary REXX functions were added by pppdial.cmd */
  4.  
  5. address cmd
  6. signal on halt
  7.  
  8. /* ihub domain name ... */
  9. HostName = value( 'ftp.sstar.com' )
  10. say 'Will PING to' HostName
  11.  
  12. call time('R')
  13. do until rc = 0
  14.    if time('E') > 15 then '@exit'
  15.  
  16.    call syssleep 5
  17.    'ping -dv' HostName '100 1'
  18. end /* do */
  19.  
  20. /* We got a valid PING reply... we must be connected... */
  21. /* Start mail. web, news, etc. */
  22. /* we're connected... ring a bell :-) */
  23. call beep 262, 250
  24. call beep 294, 250
  25.  
  26. /* Start the ultimail/2 minimized... */
  27. '@C:'
  28. '@CD \TCPIP\UMAIL'
  29. 'START /B /MIN UMAIL.EXE'
  30.  
  31. /* start ftp fido session */
  32. '@C:'
  33. '@CD \TCPIP\BIN'
  34. 'START "FTP SStar" /C /WIN /F FTP-SSTAR.CMD'
  35.  
  36. /*
  37. do until rc \= 0
  38.    delay = random( 41, 421 )
  39.    say time() 'Waiting' delay 'seconds until next ping...'
  40.    call syssleep delay
  41.    'ping' HostName '100 1'
  42. end /* do */
  43.  
  44. exit
  45. */
  46. say 'Stopping because of return code' rc 'from Ping.'
  47. if rc = 0 then
  48.     do
  49.     call halt
  50.     end
  51.     else
  52.     exit
  53.     'exit'
  54.  
  55. halt:
  56. say 'Auto ping stopped'
  57. call syssleep 3
  58. 'exit'
  59.  
  60.  
  61.  
  62.