home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / disks / tools / afsrollover / makerolloverfile < prev    next >
Text File  |  1996-07-06  |  777b  |  34 lines
  1. /* Make a rollover file, then updated a script file to reproduce it */
  2.  
  3. if arg()=0 then do
  4.    say 'USAGE: MakeRolloverFile NAME/A,SIZE/N/A'
  5.    exit 10
  6.    end
  7.  
  8. parse arg fname size
  9.  
  10. address command
  11.  
  12. if exists(fname) then 'RX MakeIntoRollover 'fname size
  13. else 'MakeRollover 'fname size
  14.  
  15. 'List 'fname' >T:MakeRolloverFile.temp LFORMAT="%f%n"'
  16.  
  17. call open in,'T:MakeRolloverFile.temp','r'
  18. fullname=readln(in)
  19. call close in
  20. 'Delete >NIL: T:MakeRolloverFile.temp'
  21. say fullname
  22.  
  23. if ~open('out','S:RemakeRollovers','a') then do
  24.    call open 'out','S:RemakeRollovers','w'
  25.    end
  26. a='MakeIntoRollover "'fullname'"'size
  27. j=writeln('out',a)
  28. call close 'out'
  29. 'Protect S:RemakeRollovers +S'
  30. say 'Finished.  To restore your logfiles after a backup, type:'
  31. say ' '
  32. say ' RemakeRollovers'
  33. say ' '
  34.