annotate simple-cd-backup.pl @ 10:07bb57b65da1
pipeline burning appears to work.
| author |
Robert McIntyre <rlm@mit.edu> |
| date |
Mon, 25 Feb 2013 14:15:13 +0000 |
| parents |
e736b9aaf5ad |
| 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";
|
