=**************************************
= Name: easy iso burn v1.0
= Description:to burn linux isos without all the troubles of dealing with cdrecord
= By: phillip mcelraft
=
= Assumes:that you have cdrecord installed, good program for those who does not want to have to go through to much hassle, a make iso will be added later on, if anyone can help me with adding the ability to change the speed and device config, please leave a message, eventually it will have the ability to burn mp3s and other files
=
=This code is copyrighted and has= limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=526&lngWId=6=for details.=**************************************
#!/usr/bin/perl
print"welcome to easy burn, a linux iso buring utility\n";
print"scanning drive\n";
system("cdrecord -scanbus");
print"default configuration for this program is dev=0,0,0 and speed=24, change if needed\n";
print"where is your iso located\n";
$DIR=<STDIN>;
system("cd $DIR");
print"displaying your iso files in this directory\n";
system("ls *.iso");
print"enter in your iso name and press return\n";
$ISO=<STDIN>;
system("burning........\n";
system("cdrecord dev=0,0,0 speed=24 $ISO");
print"burn done\n";
|
