home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / REFLECT.ZIP / VAXDIR.RCL < prev    next >
Encoding:
Text File  |  1989-02-14  |  2.3 KB  |  61 lines
  1. ;
  2. ; This Reflection command file uploads installs BACKDIR on a VAX/VMS.
  3. ; 3/17/88   version 2.0 - check for presence of files and give error message
  4. ;        if not present.
  5. ;
  6. ; Send up the .EXE and .DCL files
  7. ;
  8. let v9=""
  9. let v8=""
  10. display "^M^J"
  11. display "^[[7;1m                                                             ^M^J"
  12. display "                                                             ^M^J"
  13. display "           Uploading backup directory program files...       ^M^J"
  14. display "                                                             ^M^J"
  15. display "                                                             ^[[0m^M^J"
  16. display "^M^J"
  17. wait 0:0:5
  18. if not exist("vaxdir.exe")
  19.     let v8 = "Could not find VAXDIR.EXE file in " & $dir & " directory."
  20.     let v9 = "Please make sure all files installed in directory."
  21.     goto senderr
  22. endif
  23. continue
  24. send vaxdir.exe to backdir.exe/i binary delete
  25. if error
  26.     let v8 = "Failed while trying to transfer VAXDIR.EXE file."
  27.   goto senderr
  28. endif
  29. if not exist("vaxdir.dcl")
  30.     let v8 = "Could not find VAXDIR.DCL file in " & $dir & " directory."
  31.     let v9 = "Please make sure all files installed in directory."
  32.     goto senderr
  33. endif
  34. continue
  35. send vaxdir.dcl to backdir.com ascii delete
  36. if error
  37.   let v8 = "Failed while trying to transfer VAXDIR.DCL file."
  38.   goto senderr
  39. endif
  40. wait 0:0:2 for "$"
  41. display "^[[1;1H^[[0J^J"
  42. display "^M^J"
  43. display "^[[7;1m                                                             ^M^J"
  44. display "                                                             ^M^J"
  45. display "              Installation successfully completed.           ^M^J"
  46. display "                                                             ^M^J"
  47. display "                                                             ^[[0m^M^J"
  48. display "^M^J"
  49. return
  50. :senderr
  51. display "^M^J"
  52. display "^[[7;1m                                                             ^M^J"
  53. display "                                                             ^M^J"
  54. display "           Installation aborted... Please try again!         ^M^J"
  55. display "                                                             ^M^J"
  56. display "                                                             ^[[0m^M^J"
  57. display " Error was:^m^j"
  58. display v8 & "^m^j"
  59. display v9 & "^m^J"
  60. display "^M^J"
  61.