Merge commit 'upstream/3.1.0'

[debian/amanda] / server-src / amdevcheck.pl

diff --git a/server-src/amdevcheck.pl b/server-src/amdevcheck.pl
deleted file mode 100644 (file)
index e96c3b0..0000000
--- a/server-src/amdevcheck.pl
+++ /dev/null
@@ -1,109 +0,0 @@
-#! @PERL@
-# Copyright (c) 2005-2008 Zmanda Inc.  All Rights Reserved.
-# 
-# This program is free software; you can redistribute it and/or modify it
-# under the terms of the GNU General Public License version 2 as published 
-# by the Free Software Foundation.
-# 
-# This program is distributed in the hope that it will be useful, but
-# WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
-# or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
-# for more details.
-# 
-# You should have received a copy of the GNU General Public License along
-# with this program; if not, write to the Free Software Foundation, Inc.,
-# 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
-# 
-# Contact information: Zmanda Inc., 465 S Mathlida Ave, Suite 300
-# Sunnyvale, CA 94086, USA, or: http://www.zmanda.com
-
-use lib '@amperldir@';
-use Getopt::Long;
-
-use strict;
-use Amanda::Device qw( :constants );
-use Amanda::Config qw( :getconf :init );
-use Amanda::Debug qw( :logging );
-use Amanda::Util qw( :constants );
-
-# try to open the device and read its label, returning the device_read_label
-# result (one or more of ReadLabelStatusFlags)
-sub try_read_label {
-    my ($device_name) = @_;
-
-    if ( !$device_name ) {
-       die("No device name specified.\n");
-    }
-
-    my $result;
-
-    my $device = Amanda::Device->new($device_name);
-    if ( !$device ) {
-       die("Error creating $device_name");
-    }
-
-    if ($device->status() == $DEVICE_STATUS_SUCCESS) {
-       $result = $device->read_label();
-    } else {
-       $result = $device->status();
-    }
-
-    print_result( $result, $device->error() );
-    return $result;
-}
-
-# print the results, one flag per line
-sub print_result {
-    my ($flags, $errmsg) = @_;
-
-    if ($flags != $DEVICE_STATUS_SUCCESS) {
-       print "MESSAGE $errmsg\n";
-    }
-    print join( "\n", DeviceStatusFlags_to_strings($flags) ), "\n";
-}
-
-sub usage {
-    print <<EOF;
-Usage: amdevcheck <config> [ <device name> ]
-EOF
-    exit(1);
-}
-
-## Application initialization
-
-Amanda::Util::setup_application("amdevcheck", "server", $CONTEXT_SCRIPTUTIL);
-
-my $config_overwrites = new_config_overwrites($#ARGV+1);
-
-Getopt::Long::Configure(qw(bundling));
-GetOptions(
-    'help|usage|?' => \&usage,
-    'o=s' => sub { add_config_overwrite_opt($config_overwrites, $_[1]); },
-) or usage();
-
-usage() if ( @ARGV < 1 || @ARGV > 2 );
-my $config_name = $ARGV[0];
-
-config_init($CONFIG_INIT_EXPLICIT_NAME, $config_name);
-apply_config_overwrites($config_overwrites);
-my ($cfgerr_level, @cfgerr_errors) = config_errors();
-if ($cfgerr_level >= $CFGERR_WARNINGS) {
-    config_print_errors();
-    if ($cfgerr_level >= $CFGERR_ERRORS) {
-       die("errors processing config file");
-    }
-}
-
-Amanda::Util::finish_setup($RUNNING_AS_DUMPUSER);
-
-## Check the device
-
-my $device_name;
-if ( $#ARGV == 1 ) {
-    $device_name = $ARGV[1];
-} else {
-    $device_name = getconf($CNF_TAPEDEV);
-}
-
-try_read_label($device_name);
-exit 0;