Here is an example of a perl script which calculates correctly the predecessor baseline:

($stream,@recbls) = split (' ',`cleartool lsstream -fmt "%Xn %[rec_bls]Xp" -cview`);
foreach (@recbls)
{
    $component = `cleartool lsbl -fmt "%[component]Xp" $_`;
    chomp( @BLs = `cleartool lsbl -fmt "%Xn\\n" -stream $stream -component $component` )
        or next; # "No baselines for component $component in stream $stream\n";
    system ('cleartool','diffbl','-baselines','-activities','-versions',    # whatever opts you want, '-graphical' ?
                (@BLs > 1 ?        # was there a previous for the latest ?
                        '-predecessor' :    # no, compare  foundation
                        $BLs[-2]),        # yes, compare second latest
                $BLs[-1]);                # compare to latest
}
This message is automatically generated by JIRA.
If you think it was sent incorrectly, please contact your JIRA administrators.
For more information on JIRA, see: http://www.atlassian.com/software/jira

--
You received this message because you are subscribed to the Google Groups "Jenkins Issues" group.
To unsubscribe from this group and stop receiving emails from it, send an email to [email protected].
For more options, visit https://groups.google.com/groups/opt_out.
 
 

Reply via email to