X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=application-src%2Famraw.pl;fp=application-src%2Famraw.pl;h=5502657dc5325f19f525a0853c9d2f87c9158dda;hb=c6f0a88c567f8536c498f554285aed1f8150da18;hp=cfd7e427ede362b7ca588a539def534a8f7dec6d;hpb=cd0b924f27312d57bd42f6c4fae2b795139e2d0b;p=debian%2Famanda

diff --git a/application-src/amraw.pl b/application-src/amraw.pl
index cfd7e42..5502657 100644
--- a/application-src/amraw.pl
+++ b/application-src/amraw.pl
@@ -30,7 +30,7 @@ use Symbol;
 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;
@@ -83,8 +83,16 @@ sub command_support {
 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",