view cd-burn.pl @ 15:fc6c4e9295a7

remove uesless joilet option.
author Robert McIntyre <rlm@mit.edu>
date Tue, 26 Feb 2013 17:53:21 +0000
parents 40806ae2eb19
children cfb8a8c044b4
line wrap: on
line source
1 #!/bin/perl
3 use File::Basename;
5 $tmp_iso="/home/r/tmp/image.iso";
7 @graft_points = ("-graft-points");
9 for $graft_point(@ARGV){
10 push(@graft_points, '"'. basename($graft_point) .'"' . "="
11 . '"'. $graft_point . '"');
12 }
14 @mkisofs_args = ("-iso-level", "4", "-r");
16 @mkisofs_args = (@mkisofs_args, @graft_points);
19 # get size of stuff
20 $size = `mkisofs -print-size @mkisofs_args 2>/dev/null`;
21 chomp($size);
23 @burn_command = ("cdrecord", "gracetime=3", "-v",
24 "tsize=".$size."s", "-data", "-");
26 @aes_loop_command = ("aespipe", "-P", "/etc/cd-key", "-e", "aes256");
29 $final_command = "mkisofs @mkisofs_args 2>/dev/null | @aes_loop_command | @burn_command";
31 print "$final_command\n";
32 system($final_command);