Mercurial > backup

view simple-cd-backup.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 e736b9aaf5ad
children
line wrap: on
line source
     1 #!/bin/perl



     2 use File::Basename;



     3 



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



     5 



     6 for $graft_point(@ARGV){



     7     push(@graft_points, basename($graft_point) . "=" . $graft_point);



     8 }



     9 



    10 @create_iso_command =  ("mkisofs", "-iso-level", "4", "-r", "-J", "-T");



    11 



    12 @create_iso_command = (@create_iso_command, "-o", $tmp_iso, @graft_points);



    13 



    14 



    15 @remove_previous_iso_command = ("rm", "-f", $tmp_iso);



    16 print "@remove_previous_iso_command\n";



    17 system(@remove_previous_iso_command);



    18 



    19 print "@create_iso_command\n";



    20 system(@create_iso_command);



    21 



    22 print "Created $tmp_iso.\n";



    23 print "Use burn-tmp-iso-image to write to CD.\n";