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