Imported Upstream version 2.5.2p1

[debian/amanda] / server-src / amtoc.pl.in

diff --git a/server-src/amtoc.pl.in b/server-src/amtoc.pl.in
index d25010234792e7ad1c3418a9d4c706ffd9590c06..79d0757a4f20bac862f6cbcad055430e66c56982 100644 (file)
--- a/server-src/amtoc.pl.in
+++ b/server-src/amtoc.pl.in
@@ -129,6 +129,9 @@ sub init() {
 
 &init;
 
+delete @ENV{'IFS', 'CDPATH', 'ENV', 'BASH_ENV', 'PATH'};
+$ENV{'PATH'} = "/usr/bin:/usr/sbin:/sbin:/bin";
+
 $dir=$logfile;
 $dir =~ s/[^\/]*$//;
 
@@ -166,7 +169,7 @@ while ( <$IF> ) {
   $level = $6;
   switch: {
     /START taper/ && do {
-      $tocfilename=&tfn($level) if ($#subs >= 0);
+      $tocfilename=&tfn($chunk) if ($#subs >= 0);
       if (!$tocfilename || ($tocfilename eq '-')) {$OF=STDOUT;}
       else {
           die ("Cannot open tocfile $tocfilename") unless open(OF,">$tocfilename");