Mercurial > backup

comparison cd-burn.pl @ 16:cfb8a8c044b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
adjust cd-burn.
author Robert McIntyre <rlm@mit.edu>
date Sun, 19 May 2013 14:55:34 -0400
parents fc6c4e9295a7
children 75db8d48c313
comparison
equal deleted inserted replaced
15:fc6c4e9295a7 16:cfb8a8c044b4
9 for $graft_point(@ARGV){ 9 for $graft_point(@ARGV){
10 push(@graft_points, '"'. basename($graft_point) .'"' . "=" 10 push(@graft_points, '"'. basename($graft_point) .'"' . "="
11 . '"'. $graft_point . '"'); 11 . '"'. $graft_point . '"');
12 } 12 }
13 13
14 @mkisofs_args = ("-iso-level", "4", "-r"); 14 @mkisofs_args = ("-iso-level", "4", "-r", "-quiet");
15 15
16 @mkisofs_args = (@mkisofs_args, @graft_points); 16 @mkisofs_args = (@mkisofs_args, @graft_points);
17 17
18 18
19 # get size of stuff 19 # get size of stuff
24 "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 | @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 33