annotate simple-cd-backup.pl @ 17:69bf466ff2ae

get proj backup.
author Robert McIntyre <rlm@mit.edu>
date Sun, 19 May 2013 14:55:48 -0400
parents 07bb57b65da1
children
rev   line source
rlm@8 1 #!/bin/perl
rlm@8 2 use File::Basename;
rlm@8 3
rlm@8 4 @graft_points = ("-graft-points");
rlm@8 5
rlm@8 6 for $graft_point(@ARGV){
rlm@8 7 push(@graft_points, basename($graft_point) . "=" . $graft_point);
rlm@8 8 }
rlm@8 9
rlm@8 10 @create_iso_command = ("mkisofs", "-iso-level", "4", "-r", "-J", "-T");
rlm@8 11
rlm@8 12 @create_iso_command = (@create_iso_command, "-o", $tmp_iso, @graft_points);
rlm@8 13
rlm@8 14
rlm@8 15 @remove_previous_iso_command = ("rm", "-f", $tmp_iso);
rlm@8 16 print "@remove_previous_iso_command\n";
rlm@8 17 system(@remove_previous_iso_command);
rlm@8 18
rlm@8 19 print "@create_iso_command\n";
rlm@8 20 system(@create_iso_command);
rlm@8 21
rlm@8 22 print "Created $tmp_iso.\n";
rlm@8 23 print "Use burn-tmp-iso-image to write to CD.\n";