# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1369363938 14400
# Node ID d1607d25ffbaa89025593643244f0a2d04213cec
# Parent  e2bef5c2dc286c2aec764a88ba5e6ce899199e8b
add unencrypted cd backup.

diff -r e2bef5c2dc28 -r d1607d25ffba cd-simple-burn.pl
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/cd-simple-burn.pl	Thu May 23 22:52:18 2013 -0400
@@ -0,0 +1,30 @@
+#!/bin/perl
+
+use File::Basename;
+
+$tmp_iso="/home/r/tmp/image.iso";
+
+@graft_points = ("-graft-points");
+
+for $graft_point(@ARGV){
+    push(@graft_points, '"'. basename($graft_point) .'"' . "=" 
+	 . '"'. $graft_point . '"');
+}
+
+@mkisofs_args =  ("-iso-level", "4", "-r", "-quiet");
+
+@mkisofs_args = (@mkisofs_args, @graft_points);
+
+
+# get size of stuff
+$size = `mkisofs -print-size @mkisofs_args 2>/dev/null`;
+chomp($size);
+
+@burn_command = ("cdrecord", "gracetime=3", "-v",
+		 "tsize=".$size."s", "-data", "-");
+
+$final_command = "mkisofs @mkisofs_args |  @burn_command";
+
+print "$final_command\n";
+system($final_command);
+