/usr/share/doc/libsys-virt-perl/examples/vol-download.pl is in libsys-virt-perl 1.2.1-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 | #!/usr/bin/perl
use strict;
use warnings;
use Sys::Virt;
my $c = Sys::Virt->new(uri => "qemu:///session");
my $st = $c->new_stream();
die "syntax: $0 VOL-PATH OUTPUT-FILE" unless int(@ARGV) == 2;
my $volpath = shift @ARGV;
my $f = shift @ARGV;
my $vol = $c->get_storage_volume_by_path($volpath);
open FILE, ">$f" or die "cannot create $f: $!";
eval {
$vol->download($st, 0, 0);
while (1) {
my $nbytes = 1024;
my $data;
my $rv = $st->recv($data, $nbytes);
last if $rv == 0;
while ($rv > 0) {
my $done = syswrite FILE, $data, $rv;
if ($done) {
$data = substr $data, $done;
$rv -= $done;
}
}
}
$st->finish();
};
if ($@) {
unlink $f if $@;
close FILE;
die $@;
}
close FILE or die "cannot save $f: $!";
|