#!@PERL@
-# Copyright (c) 2009 Zmanda, Inc. All Rights Reserved.
+# Copyright (c) 2009, 2010 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
use lib '@amperldir@';
use strict;
+use warnings;
use Getopt::Long;
package Amanda::Application::Amraw;
use IO::Handle;
use Amanda::Constants;
use Amanda::Debug qw( :logging );
-use Amanda::Util;
+use Amanda::Util qw( quote_string );
sub new {
my $class = shift;
sub command_selfcheck {
my $self = shift;
- print "OK " . $self->{disk} . "\n";
- print "OK " . $self->{device} . "\n";
+ $self->print_to_server("disk " . quote_string($self->{disk}),
+ $Amanda::Script_App::GOOD)
+ if defined $self->{disk};
+
+ $self->print_to_server("amraw version " . $Amanda::Constants::VERSION,
+ $Amanda::Script_App::GOOD);
+
+ $self->print_to_server(quote_string($self->{device}),
+ $Amanda::Script_App::GOOD)
+ if defined $self->{device};
if (! -r $self->{device}) {
$self->print_to_server("$self->{device} can't be read",
my $self = shift;
my $level = $self->{level}[0];
- my $mesgout_fd;
- open($mesgout_fd, '>&=3') ||
- $self->print_to_server_and_die("Can't open mesgout_fd: $!",
- $Amanda::Script_App::ERROR);
- $self->{mesgout} = $mesgout_fd;
if (defined($self->{index})) {
$self->{'index_out'} = IO::Handle->new_from_fd(4, 'w');
if ($ksize < 32) {
$ksize = 32;
}
- print $mesgout_fd "sendbackup: size $ksize\n";
- print $mesgout_fd "sendbackup: end\n";
+ print {$self->{mesgout}} "sendbackup: size $ksize\n";
+ print {$self->{mesgout}} "sendbackup: end\n";
}
exit 0;