rlm@8: #!/bin/perl
rlm@8: use File::Basename;
rlm@8: 
rlm@8: $tmp_iso="/home/r/tmp/image.iso";
rlm@8: 
rlm@8: @graft_points = ("-graft-points");
rlm@8: 
rlm@8: for $graft_point(@ARGV){
rlm@8:     push(@graft_points, basename($graft_point) . "=" . $graft_point);
rlm@8: }
rlm@8: 
rlm@8: @create_iso_command =  ("mkisofs", "-iso-level", "4", "-r", "-J", "-T");
rlm@8: 
rlm@8: @create_iso_command = (@create_iso_command, "-o", $tmp_iso, @graft_points);
rlm@8: 
rlm@8: 
rlm@8: @remove_previous_iso_command = ("rm", "-f", $tmp_iso);
rlm@8: print "@remove_previous_iso_command\n";
rlm@8: system(@remove_previous_iso_command);
rlm@8: 
rlm@8: print "@create_iso_command\n";
rlm@8: system(@create_iso_command);
rlm@8: 
rlm@8: print "Created $tmp_iso.\n";
rlm@8: print "Use burn-tmp-iso-image to write to CD.\n";
rlm@8: