X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=changer-src%2Fchg-iomega.pl.in;h=56a13299cc856f74c3393bd999420460925dc0f2;hb=1c82a00c27b82bb9549ea44c2afdb7e0eea1aff1;hp=6f946e0ad32037545e32ab912577c1e64f50a606;hpb=3ab887b9bc819a846c75dd7f2ee5d41fac22b19f;p=debian%2Famanda

diff --git a/changer-src/chg-iomega.pl.in b/changer-src/chg-iomega.pl.in
index 6f946e0..56a1329 100644
--- a/changer-src/chg-iomega.pl.in
+++ b/changer-src/chg-iomega.pl.in
@@ -53,6 +53,9 @@ require 5.001;
 use English;
 use Getopt::Long;
 
+delete @ENV{'IFS', 'CDPATH', 'ENV', 'BASH_ENV', 'PATH'};
+$ENV{'PATH'} = "/usr/bin:/usr/sbin:/sbin:/bin";
+
 $| = 1;
 
 if (-d "@AMANDA_DBGDIR@") {
@@ -81,18 +84,20 @@ if ( "@USE_VERSION_SUFFIXES@" eq "yes" ) {
 
 chomp ($tapeDevice = `$sbindir/amgetconf$SUF tapedev 2>&1`);
 die "tapedev not found in amanda.conf"
-	if !$tapeDevice or $tapeDevice =~ m/BUGGY/;
+	if !$tapeDevice or $tapeDevice eq "" or
+	    $tapeDevice =~ m/no such parameter/;
 chomp ($changerDevice = `$sbindir/amgetconf$SUF changerdev 2>&1`);
 chomp $changerDevice;
 die "changerdev not found in amanda.conf"
-	if !$changerDevice or $changerDevice =~ m/BUGGY/;
+	if !$changerDevice or $changerDevice eq "" or
+	    $changerDevice =~ m/no such parameter/;
 
 #
 # Initialise a few global variables
 #
 
 $current_label = "";
-$current_slot = 0;
+#$current_slot = 0;
 $max_slot = 1;
 
 @dow = ("Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat");