Mercurial > backup
comparison cd-burn.pl @ 24:75db8d48c313
rename.
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Thu, 29 Jan 2015 20:48:32 -0800 |
parents | cfb8a8c044b4 |
children |
comparison
equal
deleted
inserted
replaced
23:9fd4948b4303 | 24:75db8d48c313 |
---|---|
21 chomp($size); | 21 chomp($size); |
22 | 22 |
23 @burn_command = ("cdrecord", "gracetime=3", "-v", | 23 @burn_command = ("cdrecord", "gracetime=3", "-v", |
24 "tsize=".$size."s", "-data", "-"); | 24 "tsize=".$size."s", "-data", "-"); |
25 | 25 |
26 @aes_loop_command = ("aespipe", "-P", "/etc/cd-key", "-e", "aes256"); | 26 $final_command = "mkisofs @mkisofs_args | @burn_command"; |
27 | |
28 | |
29 $final_command = "mkisofs @mkisofs_args | @aes_loop_command | @burn_command"; | |
30 | 27 |
31 print "$final_command\n"; | 28 print "$final_command\n"; |
32 system($final_command); | 29 system($final_command); |
33 | 30 |