annotate cd-burn.pl @ 14:40806ae2eb19
remove dangerous overburn paramater.
| author |
Robert McIntyre <rlm@mit.edu> |
| date |
Mon, 25 Feb 2013 18:55:50 +0000 |
| parents |
06a9a4618faf |
| children |
fc6c4e9295a7 |
| rev |
line source |
|
rlm@10
|
1 #!/bin/perl
|
|
rlm@10
|
2
|
|
rlm@10
|
3 use File::Basename;
|
|
rlm@10
|
4
|
|
rlm@10
|
5 $tmp_iso="/home/r/tmp/image.iso";
|
|
rlm@10
|
6
|
|
rlm@10
|
7 @graft_points = ("-graft-points");
|
|
rlm@10
|
8
|
|
rlm@10
|
9 for $graft_point(@ARGV){
|
|
rlm@10
|
10 push(@graft_points, '"'. basename($graft_point) .'"' . "="
|
|
rlm@10
|
11 . '"'. $graft_point . '"');
|
|
rlm@10
|
12 }
|
|
rlm@10
|
13
|
|
rlm@10
|
14 @mkisofs_args = ("-iso-level", "4", "-r", "-J");
|
|
rlm@10
|
15
|
|
rlm@10
|
16 @mkisofs_args = (@mkisofs_args, @graft_points);
|
|
rlm@10
|
17
|
|
rlm@10
|
18
|
|
rlm@10
|
19 # get size of stuff
|
|
rlm@10
|
20 $size = `mkisofs -print-size @mkisofs_args 2>/dev/null`;
|
|
rlm@10
|
21 chomp($size);
|
|
rlm@10
|
22
|
|
rlm@11
|
23 @burn_command = ("cdrecord", "gracetime=3", "-v",
|
|
rlm@14
|
24 "tsize=".$size."s", "-data", "-");
|
|
rlm@10
|
25
|
|
rlm@11
|
26 @aes_loop_command = ("aespipe", "-P", "/etc/cd-key", "-e", "aes256");
|
|
rlm@10
|
27
|
|
rlm@11
|
28
|
|
rlm@13
|
29 $final_command = "mkisofs @mkisofs_args 2>/dev/null | @aes_loop_command | @burn_command";
|
|
rlm@10
|
30
|
|
rlm@10
|
31 print "$final_command\n";
|
|
rlm@10
|
32 system($final_command);
|
|
rlm@14
|
33
|
