home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / TELECOM / RCIS_2_3_demo.lzh / netscript.oj < prev   
Text File  |  1993-02-11  |  984b  |  56 lines
  1. #Do an RCISNet transfer
  2.  
  3. echo NETMAIL STARTED >/log
  4. date >/log
  5.  
  6. # Name of HUB
  7. set hub = "RCIS_HQ"
  8. # Dialout device
  9. set port = "/t3"
  10.  
  11. chd /dd/network
  12.  
  13. chd $hub
  14.  
  15. if isfile('outfile.ar')
  16.     fprintf $stdout "Using existing outfile.\n"
  17. else
  18.     mailex $hub outfile.ar
  19. endif
  20.  
  21. if isfile('outfile.ar')
  22.  # Dial Host
  23.  netcall $port $hub -d -f -y -t 3 infile.ar outfile.ar
  24.  if (exitstat == 81)
  25.     del outfile.ar
  26.     goto 0done
  27.  endif
  28.  
  29.  del outfile.ar
  30.  
  31.  if (exitstat == 1)
  32.   mailto "#0" "*SYSTEM*" "BAD RCISNet Xfer" "None" "/dd/datafiles/forms/badnet"
  33.   del outfile.ar
  34.   goto 0done
  35.  endif
  36. else
  37.   fprintf $stdout "Switching to Receive only mode\n"
  38.   netcall $port $hub -d -r -y -t 3 infile.ar
  39.   if (exitstat == 1)  
  40.    mailto "#0" "*SYSTEM*" "BAD RCISNet Xfer" "None" "/dd/datafiles/forms/badnet"
  41.    goto 0done
  42.   endif
  43. endif
  44.  
  45. if isfile('infile.ar')
  46.     mailin $hub infile.ar
  47. else
  48.     fprintf $stdout "Nothing received from %s\n" $hub
  49. endif
  50.  
  51. 0done
  52.  
  53. echo NETMAIL COMPLETED >/log
  54. date >/log
  55. date >-/dd/log/lastrcis
  56.