| Line 2567... |
Line 2567... |
| 2567 |
push @text, 'Creation Date: yyyy-mm-dd';
|
2567 |
push @text, 'Creation Date: yyyy-mm-dd';
|
| 2568 |
push @text, '(Coded information)';
|
2568 |
push @text, '(Coded information)';
|
| 2569 |
push @text, '|{Code';
|
2569 |
push @text, '|{Code';
|
| 2570 |
push @text, '|{N: Not Locked';
|
2570 |
push @text, '|{N: Not Locked';
|
| 2571 |
push @text, 'b: Bad Singleton';
|
2571 |
push @text, 'b: Bad Singleton';
|
| - |
|
2572 |
push @text, 'd: A dependency';
|
| 2572 |
push @text, 'B: Bad VCS Tag';
|
2573 |
push @text, 'B: Bad VCS Tag';
|
| 2573 |
push @text, 'D: DeadWood';
|
2574 |
push @text, 'D: DeadWood';
|
| 2574 |
push @text, 'E: Essential Version';
|
2575 |
push @text, 'e: Essential BOM Version';
|
| - |
|
2576 |
push @text, 'E: Essential Release Version';
|
| 2575 |
push @text, 'G: Glued into Version Tree';
|
2577 |
push @text, 'G: Glued into Version Tree';
|
| 2576 |
push @text, 'S: Splitpoint';
|
2578 |
push @text, 'S: Splitpoint';
|
| 2577 |
push @text, 't: Glued into Project Tree';
|
2579 |
push @text, 't: Glued into Project Tree';
|
| 2578 |
push @text, 'T: Tip version';
|
2580 |
push @text, 'T: Tip version';
|
| 2579 |
push @text, 'V: In SVN';
|
2581 |
push @text, 'V: In SVN';
|
| Line 2633... |
Line 2635... |
| 2633 |
# push @label, $entry; # Add PVID
|
2635 |
# push @label, $entry; # Add PVID
|
| 2634 |
push @label, substr( $versions{$entry}{created}, 0, 10); # 2008-02-19
|
2636 |
push @label, substr( $versions{$entry}{created}, 0, 10); # 2008-02-19
|
| 2635 |
# push @label, 'V=' . $versions{$entry}{maxVersion};
|
2637 |
# push @label, 'V=' . $versions{$entry}{maxVersion};
|
| 2636 |
# push @label, 'B=' . $versions{$entry}{svnBranchTip} if ( exists $versions{$entry}{svnBranchTip} );
|
2638 |
# push @label, 'B=' . $versions{$entry}{svnBranchTip} if ( exists $versions{$entry}{svnBranchTip} );
|
| 2637 |
|
2639 |
|
| - |
|
2640 |
my $reason = '';
|
| - |
|
2641 |
if (exists $versions{$entry}{Essential})
|
| - |
|
2642 |
{
|
| - |
|
2643 |
$reason = 'E';
|
| - |
|
2644 |
if (exists $versions{$entry}{Reason})
|
| - |
|
2645 |
{
|
| - |
|
2646 |
if ( $versions{$entry}{Reason} =~ m~bom~ )
|
| - |
|
2647 |
{
|
| - |
|
2648 |
$reason = 'e';
|
| - |
|
2649 |
}
|
| - |
|
2650 |
if ( $versions{$entry}{Reason} =~ m~Depend~ )
|
| - |
|
2651 |
{
|
| - |
|
2652 |
$reason .= 'd';
|
| - |
|
2653 |
}
|
| - |
|
2654 |
}
|
| - |
|
2655 |
}
|
| 2638 |
|
2656 |
|
| 2639 |
my $stateText = '';
|
2657 |
my $stateText = '';
|
| 2640 |
$stateText .= 'N' if ($versions{$entry}{locked} eq 'N');
|
2658 |
$stateText .= 'N' if ($versions{$entry}{locked} eq 'N');
|
| 2641 |
$stateText .= 'b' if (exists $versions{$entry}{badSingleton});
|
2659 |
$stateText .= 'b' if (exists $versions{$entry}{badSingleton});
|
| 2642 |
$stateText .= 'B' if (exists $versions{$entry}{badVcsTag});
|
2660 |
$stateText .= 'B' if (exists $versions{$entry}{badVcsTag});
|
| 2643 |
$stateText .= 'G' if (exists $versions{$entry}{GluedIn});
|
2661 |
$stateText .= 'G' if (exists $versions{$entry}{GluedIn});
|
| 2644 |
$stateText .= 't' if (exists $versions{$entry}{MakeTree});
|
2662 |
$stateText .= 't' if (exists $versions{$entry}{MakeTree});
|
| 2645 |
$stateText .= 'E' if (exists $versions{$entry}{Essential});
|
2663 |
# $stateText .= 'E' if (exists $versions{$entry}{Essential});
|
| - |
|
2664 |
$stateText .= $reason if ( $reason );
|
| 2646 |
$stateText .= 'D' if (exists $versions{$entry}{DeadWood});
|
2665 |
$stateText .= 'D' if (exists $versions{$entry}{DeadWood});
|
| 2647 |
$stateText .= 'S' if (exists $versions{$entry}{EssentialSplitPoint} && $versions{$entry}{EssentialSplitPoint} > 1 );
|
2666 |
$stateText .= 'S' if (exists $versions{$entry}{EssentialSplitPoint} && $versions{$entry}{EssentialSplitPoint} > 1 );
|
| 2648 |
$stateText .= 'T' if (exists $versions{$entry}{Tip} );
|
2667 |
$stateText .= 'T' if (exists $versions{$entry}{Tip} );
|
| 2649 |
$stateText .= 'V' if (exists $versions{$entry}{isSvn} );
|
2668 |
$stateText .= 'V' if (exists $versions{$entry}{isSvn} );
|
| 2650 |
$stateText .= '+' if (exists $versions{$entry}{svnVersion} );
|
2669 |
$stateText .= '+' if (exists $versions{$entry}{svnVersion} );
|
| Line 2893... |
Line 2912... |
| 2893 |
next unless ( exists $pkg_ids{ $ScmPackages{$_}{pkgid} } );
|
2912 |
next unless ( exists $pkg_ids{ $ScmPackages{$_}{pkgid} } );
|
| 2894 |
push @EssentialPackages, $_;
|
2913 |
push @EssentialPackages, $_;
|
| 2895 |
Error ("Essential Package Version not in extracted Release Manager Data: $_")
|
2914 |
Error ("Essential Package Version not in extracted Release Manager Data: $_")
|
| 2896 |
unless ( exists $versions{$_} );
|
2915 |
unless ( exists $versions{$_} );
|
| 2897 |
$versions{$_}{Essential} = 1;
|
2916 |
$versions{$_}{Essential} = 1;
|
| - |
|
2917 |
$versions{$_}{Reason} = $ScmPackages{$_}{Reason};
|
| 2898 |
#print "ESSENTIAL: $versions{$_}{name} $versions{$_}{vname}\n";
|
2918 |
#print "ESSENTIAL: $versions{$_}{name} $versions{$_}{vname} $versions{$_}{Reason}\n";
|
| 2899 |
}
|
2919 |
}
|
| 2900 |
|
2920 |
|
| 2901 |
#
|
2921 |
#
|
| 2902 |
# Free memory
|
2922 |
# Free memory
|
| 2903 |
#
|
2923 |
#
|