Imported Upstream version 2.5.1p3

[debian/amanda] / changer-src / chg-rth.pl.in

diff --git a/changer-src/chg-rth.pl.in b/changer-src/chg-rth.pl.in
index 96c7a796a515744b2a4b214976c3c93ba3e9712b..19f3981198304bc739c8d28cf5883ada99d2f251 100644 (file)
--- a/changer-src/chg-rth.pl.in
+++ b/changer-src/chg-rth.pl.in
@@ -25,6 +25,9 @@ require 5.001;
 
 use Getopt::Long;
 
+delete @ENV{'IFS', 'CDPATH', 'ENV', 'BASH_ENV', 'PATH'};
+$ENV{'PATH'} = "/usr/bin:/usr/sbin:/sbin:/bin";
+
 $pname = "rth-changer";
 
 $prefix="@prefix@";
@@ -51,6 +54,9 @@ if (-x "$sbindir/ammt$SUF") {
 }
 
 $tapeDevice=`$sbindir/amgetconf$SUF tapedev`;
+die "tapedev not found in amanda.conf"
+       if !$tapeDevice or $tapeDevice eq "" or
+           $tapeDevice =~ m/no such parameter/;
 
 sub getCurrentTape {