|
I use the following for the task properties
$ccm->ccm('task', qw(-show info), "$taskID", qw(-u -f), "%task_synopsis@@%release@@%resolver@@%stat
+us@@%create_time@@%completion_date@@");
my ($task_synopsis, $release, $resolver, $status, $creation_date, $completion_date) = split(/@@/, $
+ccm->{out});
...and the following for any associated objects
$ccm->ccm('task', qw(-show objects), "$taskID", qw(-u -f), "%name@@%version@@%status@@%release@@%cv
+type@@%owner@@%objectname@@");
my (@objects) = split /^/m, $ccm->{out};
foreach (@objects) {
my ($name, $version, $status, $release, $cvtype, $owner, $objectname) = split(/@@/,
+ $_, 8);
my (undef, undef, $instance) = split(/:/, $objectname, 3);
push @{$objectList->{data}}, [$name, $version, $instance, $status, $release, $cvtyp
+e, $owner];
Regards,
Michael |
