home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / disk / backup_utils / mrbackup1.5 / arexx_scripts / datetest.mrbk < prev    next >
Text File  |  1995-02-27  |  977b  |  57 lines
  1. /* datetest.mrbk */
  2.  
  3. /* This ARexx script invokes MRBackup's date requester. */
  4.  
  5. signal on ERROR
  6. signal on BREAK_C
  7.  
  8. parse source type res called resolved ext host
  9.  
  10. options results
  11.  
  12. if ~(Show('P', 'MRBackup_#1')) then do
  13.     say "You must run MRBackup first. With a little work, you could"
  14.     say "get this ARexx script to do it for you."
  15.     exit 1
  16. end
  17.  
  18. address "MRBackup_#1"
  19.  
  20. poptofront
  21.  
  22. gettestdate
  23. if rc ~= 0 then do
  24.     say "Failed to get test date; rc = " || rc
  25.     exit rc
  26. end
  27.  
  28. say "Current test date: " || result
  29.  
  30. settestdate
  31. if rc ~= 0 then do
  32.     say "Failed to set test date; rc = " || rc
  33.     exit rc
  34. end
  35.  
  36. say "  Final test date: " || result
  37.  
  38. exit 0
  39.  
  40.  
  41. /*------------------------------------------------------------------*/
  42.  
  43. break_c:
  44.  
  45. say "*** Control-C recieved.  Stopped by user. ***"
  46. exit 5
  47.  
  48. /*------------------------------------------------------------------*/
  49.  
  50. error:
  51.  
  52. say "Error"
  53. exit 6
  54.  
  55. /*------------------------------------------------------------------*/
  56.  
  57.