Mercurial > backup
comparison simple-cd-backup.pl @ 8:e736b9aaf5ad
various attempts to do multisession burning; giving up for now.
| author | Robert McIntyre <rlm@mit.edu> |
|---|---|
| date | Mon, 25 Feb 2013 13:30:46 +0000 |
| parents | |
| children | 07bb57b65da1 |
comparison
equal
deleted
inserted
replaced
| 7:11334e7aed98 | 8:e736b9aaf5ad |
|---|---|
| 1 #!/bin/perl | |
| 2 use File::Basename; | |
| 3 | |
| 4 $tmp_iso="/home/r/tmp/image.iso"; | |
| 5 | |
| 6 @graft_points = ("-graft-points"); | |
| 7 | |
| 8 for $graft_point(@ARGV){ | |
| 9 push(@graft_points, basename($graft_point) . "=" . $graft_point); | |
| 10 } | |
| 11 | |
| 12 @create_iso_command = ("mkisofs", "-iso-level", "4", "-r", "-J", "-T"); | |
| 13 | |
| 14 @create_iso_command = (@create_iso_command, "-o", $tmp_iso, @graft_points); | |
| 15 | |
| 16 | |
| 17 @remove_previous_iso_command = ("rm", "-f", $tmp_iso); | |
| 18 print "@remove_previous_iso_command\n"; | |
| 19 system(@remove_previous_iso_command); | |
| 20 | |
| 21 print "@create_iso_command\n"; | |
| 22 system(@create_iso_command); | |
| 23 | |
| 24 print "Created $tmp_iso.\n"; | |
| 25 print "Use burn-tmp-iso-image to write to CD.\n"; | |
| 26 |