home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Magazines / HDUdec / Prg / UpDateCopy.lha / UpDateCopy / Scripts / BackUpUp_GUI < prev    next >
Encoding:
Text File  |  1997-02-22  |  1.9 KB  |  86 lines
  1. .k ""
  2.  
  3. set src ""          ;default source directory !
  4. set dest ""         ;default destination directory!
  5. set optall   ""
  6. set optdeep  ""
  7. set optquiet ""
  8. set optforce ""
  9. set optredir ""
  10.  
  11. echo "Executing BackUpUp"
  12.  
  13. set >nil: src `requestfile TITLE "Select source" DRAWERSONLY`
  14.  
  15. set >nil: dest `requestfile TITLE "Select destination" DRAWERSONLY SAVEMODE`
  16.  
  17. if 1 eq `requestchoice "UpDateCopy" "Enable option: ALL?" "Yes" "No"`
  18.  set optall all
  19. endif
  20.  
  21. if 1 eq `requestchoice "UpDateCopy" "Enable option: DEEP?" "Yes" "No"`
  22.  set optdeep deep
  23. endif
  24.  
  25. if 1 eq `requestchoice "UpDateCopy" "Enable option: FORCE?" "Yes" "No"`
  26.  set optforce force
  27. endif
  28.  
  29. if 1 eq `requestchoice "UpDateCopy" "Enable option: QUIET?" "Yes" "No"`
  30.  set optquiet quiet
  31. endif
  32.  
  33. if 1 eq `requestchoice "UpDateCopy" "Enable option: PRINT?" "Yes" "No"`
  34.  set optredir ">prt:"
  35. endif
  36.  
  37. if 0 eq `requestchoice "UpDateCopy" "Execute*nUpDateCopy $src $dest $optall $optdeep $optforce $optquiet $optredir*n?" "*Yes" "No"`
  38.  echo "*N*NAbort!*N*N"
  39.  skip exit
  40. endif
  41.  
  42. date >env:start
  43. echo "*N          Started:" $start
  44.  
  45. echo "*N  Execution of the:"
  46. echo "      updatecopy " "$src" "$dest" $optall $optdeep $optforce $optquiet $optredir
  47. echo "  (abort pressing CTRL+C !)*N"
  48.  
  49. updatecopy "$src" "$dest" $optall $optdeep $optforce $optquiet $optredir
  50.  
  51. if $optquiet not eq quiet
  52.   echo "*N          Started:" $start
  53. endif
  54. date >env:stop
  55. echo "          Stopped:" $stop
  56.  
  57. unsetenv start
  58. unsetenv stop
  59.  
  60. set b1 .backdrop
  61. set b2 .backdrop-
  62. set b3 .backdrop.info
  63. set b4 .backdrop-.info
  64.  
  65. if exists $dest$b1
  66.  
  67.   if 1 eq `requestchoice "UpDateCopy" "Rename $dest$b1 as $dest$b2?" "*Yes" "No"`
  68.  
  69.     if exists $dest$b2
  70.       delete $dest$b2 force quiet
  71.     endif
  72.     rename $dest$b1 $dest$b2
  73.  
  74.     if exists $dest$b3
  75.       if exists $dest$b4
  76.         delete $dest$b4 force quiet
  77.       endif
  78.       rename $dest$b3 $dest$b4
  79.     endif
  80.  
  81.   endif
  82. endif
  83.  
  84. lab exit
  85. echo "*N*NFinished. Press close gadget for exit!"
  86.