Mercurial > backup

     1 #!/bin/perl

     2 use File::Basename;

     3 

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

     5 

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

     7 

     8 for $graft_point(@ARGV){

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

    10 }

    11 

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

    13 

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

    15 

    16 

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

    18 print "@remove_previous_iso_command\n";

    19 system(@remove_previous_iso_command);

    20 

    21 print "@create_iso_command\n";

    22 system(@create_iso_command);

    23 

    24 print "Created $tmp_iso.\n";

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

    26
author	Robert McIntyre <rlm@mit.edu>
date	Mon, 25 Feb 2013 13:30:46 +0000
parents
children	07bb57b65da1