This is a small collection of scripts meant to simplify the process of authoring CDs on MOAT's CD-R.
This is a short perl script that invokes "mkisofs" with a useful set of switches, used to create an ISO9660 filesystem image with long filename extensions. An example invocation:
make_cdfs -V "My Data CD" -o fsimage.iso sourcedir
This copies all of the files and directories in "sourcedir" into an ISO filesystem image, with the volume title "My Data CD", and writes the image to "fsimage.iso".
This is a perl/suidperl script that invokes the "cdrecord" program with a useful set of switches to burn single-session data CD's, and to erase CD-RW media. Example invocations:
burn_cd fsimage.iso
burn_cd -blank fast
The first example writes the ISO9660 filesystem image to CD, and the second does a "quick erase" of a CD-RW disc. It's interesting to note that the drive will also blank a CD-R disc, but the disc will not be writable again.
This script can be installed SUID-root if desired, so that nonprivledged users can burn CDs. If you do this, edit the script and change the text "perl" in the first line to read "suidperl", and be aware of the security implications of having yet another suid-root program on your machine. This may also be run as a regular user, if "cdrecord" is suid-root, or "sudo" is used.
This is a perl/suidperl script to assist with inspecting ISO9660 filesystem images. It runs the necessary commands to "mount" the image as if it were on a CD-ROM; it then spawns an interactive shell to allow the user to inspect the filesystem. When the user exits the shell, the image file will be un-mounted. Example invocations:
iso_test fsimage.iso
iso_test -mount ~/my_temp fsimage.iso
The first example mounts the image on a default mount point, which may be something like "/mnt". The second form mounts the image onto the directory "~/my_temp".
This script can be installed SUID-root if desired, so that nonprivledged users can mount the ISO images. If you do this, edit the script and change the text "perl" in the first line to read "suidperl". Beware that you may be opening your machine up to attacks, and possible panics caused by well-meaning users. This script will not work right with "sudo", since it will refuse to run a root shell.