Mercurial > backup

comparison cd-simple-burn.pl @ 20:d1607d25ffba

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
add unencrypted cd backup.
author Robert McIntyre <rlm@mit.edu>
date Thu, 23 May 2013 22:52:18 -0400
parents
children
comparison
equal deleted inserted replaced
19:e2bef5c2dc28 20:d1607d25ffba
1 #!/bin/perl
2
3 use File::Basename;
4
5 $tmp_iso="/home/r/tmp/image.iso";
6
7 @graft_points = ("-graft-points");
8
9 for $graft_point(@ARGV){
10 push(@graft_points, '"'. basename($graft_point) .'"' . "="
11 . '"'. $graft_point . '"');
12 }
13
14 @mkisofs_args = ("-iso-level", "4", "-r", "-quiet");
15
16 @mkisofs_args = (@mkisofs_args, @graft_points);
17
18
19 # get size of stuff
20 $size = `mkisofs -print-size @mkisofs_args 2>/dev/null`;
21 chomp($size);
22
23 @burn_command = ("cdrecord", "gracetime=3", "-v",
24 "tsize=".$size."s", "-data", "-");
25
26 $final_command = "mkisofs @mkisofs_args | @burn_command";
27
28 print "$final_command\n";
29 system($final_command);
30