Imported Upstream version 3.2.1

[debian/amanda] / server-src / amcheck-device.pl

diff --git a/server-src/amcheck-device.pl b/server-src/amcheck-device.pl
index ba1699f4dfbff53a1d07086e261feecda594ba14..d9689cb9ad8ae55966b8b1fbf1a805dd0c79009b 100644 (file)
--- a/server-src/amcheck-device.pl
+++ b/server-src/amcheck-device.pl
@@ -22,7 +22,7 @@ use strict;
 use warnings;
 
 use Amanda::Util qw( :constants );
-use Amanda::Config qw( :init );
+use Amanda::Config qw( :init :getconf );
 use Amanda::Logfile qw( :logtype_t log_add $amanda_log_trace_log );
 use Amanda::Debug;
 use Amanda::Device qw( :constants );
@@ -187,6 +187,13 @@ sub do_check {
            print "WARNING: Media access mode is WRITE_ONLY; dumps may not be recoverable\n";
        }
 
+       if (getconf_seen($CNF_DEVICE_OUTPUT_BUFFER_SIZE)) {
+           my $dobs = getconf($CNF_DEVICE_OUTPUT_BUFFER_SIZE);
+           my $block_size = $res->{'device'}->property_get("BLOCK_SIZE");
+           if ($block_size * 2 > $dobs) {
+               print "WARNING: DEVICE-OUTPUT-BUFFER-SIZE is not at least twice the block size of the device, it should be increased for better throughput\n";
+           }
+       }
        $steps->{'check_overwrite'}->();
     };
 
@@ -225,7 +232,8 @@ sub do_check {
        $finished_cb->();
     };
 }
-do_check(\&Amanda::MainLoop::quit);
+
+Amanda::MainLoop::call_later(\&do_check, \&Amanda::MainLoop::quit);
 Amanda::MainLoop::run();
 Amanda::Util::finish_application();
 exit($exit_status);