#!/usr/bin/env perl
# burncd.wrapper - Wrapper for "burncd"
# License:  BSD-style [for this file only]
# Revision: 080630

#---------------------------------------------------------------------
#                            module setup
#---------------------------------------------------------------------

require 5.6.1;
use strict;
use Carp;
use warnings;
                                # Trap warnings
$SIG {__WARN__} = sub { die @_; };

#---------------------------------------------------------------------
#                           basic constants
#---------------------------------------------------------------------

use constant ZERO  => 0;        # Zero
use constant ONE   => 1;        # One

use constant FALSE => 0;        # Boolean FALSE
use constant TRUE  => 1;        # Boolean TRUE

#---------------------------------------------------------------------
#                         program parameters
#---------------------------------------------------------------------

                                # Absolute path for target program
my $TARGET = '__META_PREFIX__/bin/burncd.bin';

#---------------------------------------------------------------------
#                            main routine
#---------------------------------------------------------------------

sub Main
{
    for (@ARGV)                 # Adjust command-line arguments
    {
        s@^(/dev/\S+)\z@--dev=$1@;
        s@^([^\-]\S+\.iso)\z@--iso=$1@i;
    }

    exec $TARGET, @ARGV;        # Chain to target program
}

#---------------------------------------------------------------------
#                            main program
#---------------------------------------------------------------------

&Main();                        # Call the main routine
exit ZERO;                      # Normal exit