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