Mercurial > backup

annotate 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
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@16 14 @mkisofs_args = ("-iso-level", "4", "-r", "-quiet");
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@16 29 $final_command = "mkisofs @mkisofs_args | @aes_loop_command | @burn_command";
rlm@10 30
rlm@10 31 print "$final_command\n";
rlm@10 32 system($final_command);
rlm@14 33