use base qw(PVE::Storage::Plugin);
-
-sub iscsi_ls{
- my ($scfg, $storeid) = @_;
-
+sub iscsi_ls {
+ my ($scfg, $storeid) = @_;
my $portal = $scfg->{portal};
my $cmd = ['/usr/bin/iscsi-ls', '-s', 'iscsi://'.$portal ];
my $list = {};
my $test = "";
-
+
my $errfunc = sub {
my $line = shift;
$line = trim($line);
eval {
- run_command($cmd, errmsg => "iscsi error", errfunc => $errfunc,outfunc => sub {
+ run_command($cmd, errmsg => "iscsi error", errfunc => $errfunc, outfunc => sub {
my $line = shift;
$line = trim($line);
if( $line =~ /Lun:(\d+)\s+([A-Za-z0-9\-\_\.\:]*)\s+\(Size:(\d+)G\)/ ) {
$test = $1;
-
+
my $image = $1;
my $size = $3;
-
+
$list->{$storeid}->{$image} = {
name => $image,
size => $size,
my $err = $@;
die $err if $err && $err !~ m/TESTUNITREADY failed with SENSE KEY/ ;
return $list;
-
}
# Configuration
};
}
-
# Storage implementation
sub parse_volname {
my ($class, $volname) = @_;
-
+
if ($volname =~ m/^(\d+)$/) {
return ('images', $1, undef);
}
return 1;
}
-
1;