1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/simple-cd-backup.pl	Mon Feb 25 13:30:46 2013 +0000
     1.3 @@ -0,0 +1,26 @@
     1.4 +#!/bin/perl
     1.5 +use File::Basename;
     1.6 +
     1.7 +$tmp_iso="/home/r/tmp/image.iso";
     1.8 +
     1.9 +@graft_points = ("-graft-points");
    1.10 +
    1.11 +for $graft_point(@ARGV){
    1.12 +    push(@graft_points, basename($graft_point) . "=" . $graft_point);
    1.13 +}
    1.14 +
    1.15 +@create_iso_command =  ("mkisofs", "-iso-level", "4", "-r", "-J", "-T");
    1.16 +
    1.17 +@create_iso_command = (@create_iso_command, "-o", $tmp_iso, @graft_points);
    1.18 +
    1.19 +
    1.20 +@remove_previous_iso_command = ("rm", "-f", $tmp_iso);
    1.21 +print "@remove_previous_iso_command\n";
    1.22 +system(@remove_previous_iso_command);
    1.23 +
    1.24 +print "@create_iso_command\n";
    1.25 +system(@create_iso_command);
    1.26 +
    1.27 +print "Created $tmp_iso.\n";
    1.28 +print "Use burn-tmp-iso-image to write to CD.\n";
    1.29 +