Mercurial > backup

view cd-burn.pl @ 10:07bb57b65da1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
pipeline burning appears to work.
author Robert McIntyre <rlm@mit.edu>
date Mon, 25 Feb 2013 14:15:13 +0000
parents acd110f8e4b0
children e15c393dffa8
line wrap: on
line source
     1 #!/bin/perl



     2 



     3 use File::Basename;



     4 



     5 $tmp_iso="/home/r/tmp/image.iso";



     6 



     7 @graft_points = ("-graft-points");



     8 



     9 for $graft_point(@ARGV){



    10     push(@graft_points, '"'. basename($graft_point) .'"' . "=" 



    11 	 . '"'. $graft_point . '"');



    12 }



    13 



    14 @mkisofs_args =  ("-iso-level", "4", "-r", "-J");



    15 



    16 @mkisofs_args = (@mkisofs_args, @graft_points);



    17 



    18 



    19 # get size of stuff



    20 $size = `mkisofs -print-size @mkisofs_args 2>/dev/null`;



    21 chomp($size);



    22 



    23 @burn_command = ("cdrecord", "gracetime=3",



    24 		 "-overburn", "tsize=".$size."s", "-data", "-");



    25 



    26 



    27 $final_command = "mkisofs @mkisofs_args | @burn_command";



    28 



    29 print "$final_command\n";



    30 system($final_command);