info tested and works
This commit is contained in:
parent
c1ac43627a
commit
8ea0cd5d66
|
@ -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…
Reference in New Issue