rlm@10: #!/bin/perl
rlm@10: 
rlm@10: use File::Basename;
rlm@10: 
rlm@10: $tmp_iso="/home/r/tmp/image.iso";
rlm@10: 
rlm@10: @graft_points = ("-graft-points");
rlm@10: 
rlm@10: for $graft_point(@ARGV){
rlm@10:     push(@graft_points, '"'. basename($graft_point) .'"' . "=" 
rlm@10: 	 . '"'. $graft_point . '"');
rlm@10: }
rlm@10: 
rlm@16: @mkisofs_args =  ("-iso-level", "4", "-r", "-quiet");
rlm@10: 
rlm@10: @mkisofs_args = (@mkisofs_args, @graft_points);
rlm@10: 
rlm@10: 
rlm@10: # get size of stuff
rlm@10: $size = `mkisofs -print-size @mkisofs_args 2>/dev/null`;
rlm@10: chomp($size);
rlm@10: 
rlm@11: @burn_command = ("cdrecord", "gracetime=3", "-v",
rlm@14: 		 "tsize=".$size."s", "-data", "-");
rlm@10: 
rlm@11: @aes_loop_command = ("aespipe", "-P", "/etc/cd-key", "-e", "aes256");
rlm@10: 
rlm@11: 
rlm@16: $final_command = "mkisofs @mkisofs_args | @aes_loop_command | @burn_command";
rlm@10: 
rlm@10: print "$final_command\n";
rlm@10: system($final_command);
rlm@14: