home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / REFLECT.ZIP / UNIXDIR.RCL < prev    next >
Encoding:
Text File  |  1989-02-14  |  2.3 KB  |  68 lines
  1. Q COMMAND ON
  2. ;
  3. ; This Reflection command file uploads installs BACKDIR on a UNIX system.
  4. ; See UNIXDIR.DOC for instructions on executing this command file and
  5. ; using the BACKDIR command.
  6. ;
  7. ;
  8. ; Send up the BACKDIR source code
  9. ;
  10. display " ^M^J"
  11. display "______________________________________________________________^M^J"
  12. display "                                                              ^M^J"
  13. display "           Uploading backup directory program files...        ^M^J"
  14. display "                                                              ^M^J"
  15. display "______________________________________________________________^M^J"
  16. display " ^M^J"
  17. wait 0:0:5
  18. continue
  19. send unixdir.c to backdir.c ascii delete
  20. if error
  21.   goto senderr
  22. endif
  23. continue
  24. TRANSMIT "^m"
  25. TRANSMIT "sh ^m"
  26. WAIT 00:00:5
  27. TRANSMIT "PS1='|' ^m"
  28. WAIT FOR "|"
  29. WAIT FOR "|"
  30. WAIT 00:00:2
  31. DISPLAY "Are you using Unix System 5?"
  32. ACCEPT V1 LIMIT 1
  33. transmit "^m"
  34. WAIT FOR "|"
  35. IF PACK(UPPER(V1))='Y'
  36.   DISPLAY "PROCESSING - PLEASE WAIT"
  37.   Q DISPLAY ON
  38.   TRANSMIT "if cc -DSYSTEM5 -o backdir  backdir.c  ; then echo 'Successful Upload';^m"
  39.   READHOST V1
  40.   TRANSMIT "else echo 'Unsuccessful Upload - Retry' ; fi^m"
  41. ELSE
  42.   TRANSMIT "if cc -o backdir  backdir.c ; then echo 'Successful Upload';^m"
  43.   READHOST V1
  44.   TRANSMIT "else echo 'Unsuccessful Upload - Retry' ; fi^m"
  45. ENDIF
  46. Q DISPLAY OFF
  47. READHOST V1
  48. READHOST V1 UNTIL "|"
  49. transmit "^d"
  50. Q COMMAND OFF
  51. display "                                                              ^M^J"
  52. display "______________________________________________________________^M^J"
  53. display "                                                              ^M^J"
  54. display "              Installation successfully completed.            ^M^J"
  55. display "                                                              ^M^J"
  56. display "______________________________________________________________^M^J"
  57. display "     ^M^J"
  58. return
  59. :senderr
  60. display " ^M^J"
  61. display "______________________________________________________________^M^J"
  62. display "                                                              ^M^J"
  63. display "           Installation aborted... Please try again!          ^M^J"
  64. display "                                                              ^M^J"
  65. display "______________________________________________________________^M^J"
  66. display " ^M^J"
  67. return
  68.