| Line 127... |
Line 127... |
| 127 |
NotInReleaseManager => 0,
|
127 |
NotInReleaseManager => 0,
|
| 128 |
NotLocked => 0,
|
128 |
NotLocked => 0,
|
| 129 |
SecondLevelPackage => 0,
|
129 |
SecondLevelPackage => 0,
|
| 130 |
TopLevelPackage => 0,
|
130 |
TopLevelPackage => 0,
|
| 131 |
TotalPackages => 0,
|
131 |
TotalPackages => 0,
|
| 132 |
ZeroTime => 0,
|
- |
|
| 133 |
);
|
132 |
);
|
| 134 |
|
133 |
|
| 135 |
#-------------------------------------------------------------------------------
|
134 |
#-------------------------------------------------------------------------------
|
| 136 |
# Function : Main Entry
|
135 |
# Function : Main Entry
|
| 137 |
#
|
136 |
#
|
| Line 1059... |
Line 1058... |
| 1059 |
if (exists $entry->{tlp}) { $keepReason = 'TopLevelPackage'; last;}
|
1058 |
if (exists $entry->{tlp}) { $keepReason = 'TopLevelPackage'; last;}
|
| 1060 |
if (exists $entry->{slp}) { $keepReason = 'SecondLevelPackage'; last;}
|
1059 |
if (exists $entry->{slp}) { $keepReason = 'SecondLevelPackage'; last;}
|
| 1061 |
if (exists $entry->{sdk}) { $keepReason ='inSdk'; last;}
|
1060 |
if (exists $entry->{sdk}) { $keepReason ='inSdk'; last;}
|
| 1062 |
if (exists $entry->{dm}) { $keepReason = 'inDeploymentManager'; last;}
|
1061 |
if (exists $entry->{dm}) { $keepReason = 'inDeploymentManager'; last;}
|
| 1063 |
if ($entry->{isPatch}) { $keepReason = 'isPatch'; last;}
|
1062 |
if ($entry->{isPatch}) { $keepReason = 'isPatch'; last;}
|
| 1064 |
unless ($mtime) { $keepReason ='ZeroTime'; last;}
|
- |
|
| 1065 |
if ($mtime <= $config{retain}) { $keepReason ='RetainTime:' . ($config{retain} - $mtime); last;}
|
1063 |
if ($mtime <= $config{retain}) { $keepReason ='RetainTime:' . ($config{retain} - $mtime); last;}
|
| 1066 |
#unless ($entry->{buildStandard}) { $keepReason ='NoBuildStandard:' . $mtime; last;}
|
1064 |
#unless ($entry->{buildStandard}) { $keepReason ='NoBuildStandard:' . $mtime; last;}
|
| 1067 |
if ($entry->{locked} ne 'Y') { $keepReason ='NotLocked:' . $entry->{locked}; last;}
|
1065 |
if ($entry->{locked} ne 'Y') { $keepReason ='NotLocked:' . $entry->{locked}; last;}
|
| 1068 |
#if ($entry->{buildType} eq 'M') { $keepReason ='ManualBuild:' . $entry->{buildType}; last;}
|
1066 |
#if ($entry->{buildType} eq 'M') { $keepReason ='ManualBuild:' . $entry->{buildType}; last;}
|
| 1069 |
|
1067 |
|