Browse Source

info tested and works

master
Zane C. B-H 1 year ago
parent
commit
8ea0cd5d66
  1. 8
      Rex-Virtualization-CBSD/lib/Rex/Virtualization/CBSD/info.pm

8
Rex-Virtualization-CBSD/lib/Rex/Virtualization/CBSD/info.pm

@ -34,8 +34,14 @@ sub execute {
die("Error running 'cbsd bget jname=".$name."'");
}
my %info;
my @lines=split(/\n/, $returned);
foreach my $line (@lines) {
my ( $vname, $vval )=split(/\:\ /, $line);
$info{$vname}=$vval;
}
return 1;
return \%info;
}
1;
Loading…
Cancel
Save