# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1361801713 0
# Node ID 07bb57b65da14cb4b4d0877bc7cd17aa2bcc4073
# Parent  acd110f8e4b0deb68fdc334f8827477723508cf1
pipeline burning appears to work.

diff -r acd110f8e4b0 -r 07bb57b65da1 cd-burn.pl
--- a/cd-burn.pl	Mon Feb 25 13:34:38 2013 +0000
+++ b/cd-burn.pl	Mon Feb 25 14:15:13 2013 +0000
@@ -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", "-J");
+
+@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",
+		 "-overburn", "tsize=".$size."s", "-data", "-");
+
+
+$final_command = "mkisofs @mkisofs_args | @burn_command";
+
+print "$final_command\n";
+system($final_command);
diff -r acd110f8e4b0 -r 07bb57b65da1 simple-cd-backup.pl
--- a/simple-cd-backup.pl	Mon Feb 25 13:34:38 2013 +0000
+++ b/simple-cd-backup.pl	Mon Feb 25 14:15:13 2013 +0000
@@ -1,8 +1,6 @@
 #!/bin/perl
 use File::Basename;
 
-$tmp_iso="/home/r/tmp/image.iso";
-
 @graft_points = ("-graft-points");
 
 for $graft_point(@ARGV){
@@ -23,4 +21,3 @@
 
 print "Created $tmp_iso.\n";
 print "Use burn-tmp-iso-image to write to CD.\n";
-