comparison crvft/simple-cd-backup.pl @ 19:e2bef5c2dc28

move cruft.
author Robert McIntyre <rlm@mit.edu>
date Thu, 23 May 2013 22:52:01 -0400
parents simple-cd-backup.pl@07bb57b65da1
children
comparison
equal deleted inserted replaced
18:413c2abaaf76 19:e2bef5c2dc28
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";