al@p3srv:~$ cat ~/bin/cdrecordeasy
#!/usr/bin/perl -w
# vim: set sw=4 ts=4 si et:
# Written by Katja and Guido Socher
# run this file with chmod 6755 to allow the normal user
# to burn a CD without beeing root.
#
# cdrecord -dummy -v -eject speed=8 dev=ATA:1,1,0 some_file_to_burn.iso
# bash IDE device dummy/test run (scanbus 1st then test run)
#
# cdrecord -dummy -v -eject speed=4 dev=0,3,0 some_file_to_burn.iso
# bash scsi device dummy/test run (scanbus 1st then test run)
# accepts either 2 or 3 part commandline -- speed is optional
# cdr filename [speed] # ex: cdr filename 10
my $spd;
# burn speed next
unless ( $ARGV[1] ) { # default speeds for: cdr filename
$spd='24'; # BTC IDE5232
# $spd='12'; # BTC IDE5232 networked burn
# $spd='10';
# $spd='4'; # R55S
}
if ( $ARGV[1] ) {
  if ( $ARGV[1] =~ /^\d+$/ ) {
  $spd = pop;
}
}
print "$spd\n";
#
# adapt the next line to the device number that you
# get from the command cdrecord -scanbus
# if not scsi burner use: cdrecord -dev=ATA -scanbus
# my $dev="0,3,0"; # R55S
# my $dev="ATA:2,0,0"; # BTC IDE5232
my $dev="ATA:1,1,0"; # BTC IDE5232
# my $dev="2,0,0"; # rek IDE CD-RW 1610
# useage # useage ###############
# cd to dir where filename.iso then su then
# cdrecordeasy filename.iso
%ENV=();
$ENV{'PATH'}='/bin:/usr/bin:/usr/local/bin';
sub help(){
    print "cdrecordeasy -- record a normal data CD from an image file

USAGE: cdrecordeasy image.file

EXAMPLE: cdrecordeasy image.file
Explanation: The image.file will written to cdrom.

You can preview your CD before burning with the following command:
mount -o loop -t iso9660 image.file /some/directory
";
    exit 0;
}
# run a command and use unbuffered IO to display the
# output while the command is still running.
sub runcmd($){
    my $cmd=shift;
    $|=1;
    my $buff;
    open(PP,"$cmd 2>&1 |")||die;
    while(sysread(PP,$buff,8)>0){
        print "$buff";
    }
    close PP;
}
if ($ARGV[0] && $ARGV[0] eq "-h"){
    help();
}
help() if (scalar @ARGV !=1 );
$<=$>;
my $file="";
# untaint it:
if ($ARGV[0] =~/([#-~]+)/){
    $file=$1;
}else{
    die "ERROR: invalid file name $ARGV[0]\n";
}
die "ERROR: can not read image file: $file\n" unless( -r "$file");
#print `id`;
# runcmd("cdrecord -v dev=$dev speed=4 $file"); # R55S
runcmd("cdrecord -v dev=$dev speed=$spd $file"); # BTC IDE5232
__END__


al@p3srv:~$ cat ~/bin/dvdb
#!/bin/sh
# file to dvd command
# growisofs -dvd-compat -Z /dev/dvd -r -J /path/to/files
# this script burn a .iso to dvd
growisofs -dvd-compat -Z /dev/dvd=$1;
# end