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."'");
|
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;
|
1;
|
||||||
|
|
Loading…
Reference in New Issue