info tested and works

This commit is contained in:
Zane C. B-H 2020-04-14 00:06:03 -05:00
parent c1ac43627a
commit 8ea0cd5d66
1 changed files with 7 additions and 1 deletions

View File

@ -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;