Mercurial > backup

comparison cd-burn.pl @ 14:40806ae2eb19

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
remove dangerous overburn paramater.
author Robert McIntyre <rlm@mit.edu>
date Mon, 25 Feb 2013 18:55:50 +0000
parents 06a9a4618faf
children fc6c4e9295a7
comparison
equal deleted inserted replaced
13:06a9a4618faf 14:40806ae2eb19
19 # get size of stuff 19 # get size of stuff
20 $size = `mkisofs -print-size @mkisofs_args 2>/dev/null`; 20 $size = `mkisofs -print-size @mkisofs_args 2>/dev/null`;
21 chomp($size); 21 chomp($size);
22 22
23 @burn_command = ("cdrecord", "gracetime=3", "-v", 23 @burn_command = ("cdrecord", "gracetime=3", "-v",
24 "-overburn", "tsize=".$size."s", "-data", "-"); 24 "tsize=".$size."s", "-data", "-");
25 25
26 @aes_loop_command = ("aespipe", "-P", "/etc/cd-key", "-e", "aes256"); 26 @aes_loop_command = ("aespipe", "-P", "/etc/cd-key", "-e", "aes256");
27 27
28 28
29 $final_command = "mkisofs @mkisofs_args 2>/dev/null | @aes_loop_command | @burn_command"; 29 $final_command = "mkisofs @mkisofs_args 2>/dev/null | @aes_loop_command | @burn_command";
30 30
31 print "$final_command\n"; 31 print "$final_command\n";
32 system($final_command); 32 system($final_command);
33