home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Magazines / HDUdec / Prg / UpDateCopy.lha / UpDateCopy / Scripts / BackUpUp < prev    next >
Encoding:
Text File  |  1997-02-22  |  2.1 KB  |  118 lines
  1. .k ""
  2.  
  3.  
  4. set sour dh0:         ;default source directory !
  5. set dest hd0:         ;default destination directory!
  6.  
  7.  
  8. echo "source ?        (for $sour press ENTER)"
  9. set >nil: sour ?
  10.  
  11. echo "destination ?   (for $dest press ENTER)"
  12. set >nil: dest ?
  13.  
  14. set e ""
  15.  
  16. set s ""
  17. echo "all     (n/y) ? (for y press ENTER)"
  18. set >nil: s ?
  19. if "$s" eq "$e"
  20.  set a all
  21. else
  22.  set a ""
  23. endif
  24.  
  25. ask "deep    (y/n) ? (for n press ENTER)*N"
  26. if warn
  27.  set d deep
  28. else
  29.  set d ""
  30. endif
  31.  
  32. set s ""
  33.  echo "force   (n/y) ? (for y press ENTER)"
  34. set >nil: s ?
  35. if "$s" eq "$e"
  36.  set f force
  37. else
  38.  set f ""
  39. endif
  40.  
  41. set s ""
  42. echo "quiet   (n/y) ? (for y press ENTER)"
  43. set >nil: s ?
  44. if "$s" eq "$e"
  45.  set q quiet
  46. else
  47.  set q ""
  48. endif
  49.  
  50. ask "PRINT         (y/n) ? (for n press ENTER)*N"
  51. if warn
  52.  set p print
  53. else
  54.  set p ""
  55. endif
  56.  
  57. set s ""
  58. echo "OK TO CONTINUE  (n/y) ? (for y press ENTER)"
  59. set >nil: s ?
  60. if "$s" not eq "$e"
  61.  echo "*N*N                    Abort!*N*N"
  62.  skip exit
  63. endif
  64.  
  65.                  date >env:start
  66.                  echo "*N          start:" $start
  67.  
  68. echo "*NExecution of the:"
  69. echo "      updatecopy " $sour $dest $a $d $f $q $p
  70. echo "(abort pressing CTRL+C !)*N"
  71.  
  72. if $p eq print
  73.  updatecopy $sour $dest $a $d $f $q >prt:
  74. else
  75.  updatecopy $sour $dest $a $d $f $q
  76. endif
  77.  
  78.                  if $q not eq quiet
  79.                   echo "*N          start:" $start
  80.                  endif
  81.  
  82.                  date >env:stop
  83.                  echo "*N           stop:" $stop
  84.  
  85.  
  86. set b1 .backdrop
  87. set b2 .backdrop-
  88. set b3 .backdrop.info
  89. set b4 .backdrop-.info
  90.  
  91.  if exists $dest$b1
  92.   set s ""
  93.   echo "*NRENAME $dest$b1 AS $dest$b2  (n/y) ? (for y press ENTER)"
  94.   set >nil: s ?
  95.   if "$s" eq "$e"
  96.                                    if exists $dest$b2
  97.                                      delete $dest$b2 forced quiet
  98.                                     endif
  99.      rename $dest$b1 $dest$b2
  100.  
  101.      if exists $dest$b3
  102.                                    if exists $dest$b4
  103.                                     delete $dest$b4 forced quiet
  104.                                    endif
  105.       rename $dest$b3 $dest$b4
  106.      endif
  107.  
  108.   else
  109.    set q ""
  110.   endif
  111.  
  112.  endif
  113.  
  114.  
  115. lab exit
  116. echo "*N*N   For exit click to the close gadget!"
  117.  
  118.