#!/usr/bin/perl

# $Id: dvdrip-exec,v 1.4 2005/12/26 14:39:55 joern Exp $

#-----------------------------------------------------------------------
# Copyright (C) 2001-2003 Jörn Reder <joern@zyn.de> All Rights Reserved
#
# This program is part of Video::DVDRip, which is free software; you can
# redistribute it and/or modify it under the same terms as Perl itself.
#-----------------------------------------------------------------------

use strict;
use Getopt::Std;

my $USAGE = <<__EOU;
Usage: dvdrip-exec [-n nice] command options ...
__EOU

main: {
    my %opt;
    my $opt_ok = getopts ('n:', \%opt);
    usage() if not $opt_ok or !@ARGV;

    my $nice = $opt{n};

    print STDERR "DVDRIP_JOB_PID=$$\n";

    exec "nice", "-n", $nice, @ARGV if $nice;
    exec @ARGV;
}

sub usage {
    print $USAGE;
    exit 1;
}