annotate simple-cd-backup.pl @ 8:e736b9aaf5ad
various attempts to do multisession burning; giving up for now.
| author |
Robert McIntyre <rlm@mit.edu> |
| date |
Mon, 25 Feb 2013 13:30:46 +0000 |
| parents |
|
| children |
07bb57b65da1 |
| rev |
line source |
|
rlm@8
|
1 #!/bin/perl
|
|
rlm@8
|
2 use File::Basename;
|
|
rlm@8
|
3
|
|
rlm@8
|
4 $tmp_iso="/home/r/tmp/image.iso";
|
|
rlm@8
|
5
|
|
rlm@8
|
6 @graft_points = ("-graft-points");
|
|
rlm@8
|
7
|
|
rlm@8
|
8 for $graft_point(@ARGV){
|
|
rlm@8
|
9 push(@graft_points, basename($graft_point) . "=" . $graft_point);
|
|
rlm@8
|
10 }
|
|
rlm@8
|
11
|
|
rlm@8
|
12 @create_iso_command = ("mkisofs", "-iso-level", "4", "-r", "-J", "-T");
|
|
rlm@8
|
13
|
|
rlm@8
|
14 @create_iso_command = (@create_iso_command, "-o", $tmp_iso, @graft_points);
|
|
rlm@8
|
15
|
|
rlm@8
|
16
|
|
rlm@8
|
17 @remove_previous_iso_command = ("rm", "-f", $tmp_iso);
|
|
rlm@8
|
18 print "@remove_previous_iso_command\n";
|
|
rlm@8
|
19 system(@remove_previous_iso_command);
|
|
rlm@8
|
20
|
|
rlm@8
|
21 print "@create_iso_command\n";
|
|
rlm@8
|
22 system(@create_iso_command);
|
|
rlm@8
|
23
|
|
rlm@8
|
24 print "Created $tmp_iso.\n";
|
|
rlm@8
|
25 print "Use burn-tmp-iso-image to write to CD.\n";
|
|
rlm@8
|
26
|
