sub calculate_prio {
my $priomap = $yamlmap->{priority};
my $pkg = shift;
+ my @s=split("/", $pkg->{'section'});
+ $pkg->{'component'} = $s[0] if $s[1];
+ $pkg->{'component'} ||= 'main';
$pkg->{'calprio'} = 0;
foreach my $k (keys %{$priomap->{keys}}) {
$pkg->{'calprio'} += $priomap->{keys}->{$k}{$pkg->{$k}} if $pkg->{$k} and $priomap->{keys}->{$k}{$pkg->{$k}};
P previous state
E in case of Dep-Wait the packages being waited on, in case of Needs-Build the number in the queue
D in case of BD-Uninstallable the reason for the uninstallability
+d distribution
+t time of state change
-%{Text}? print text in case ? is not empty, don't print ?
-%{!Text}? print text in case ? is empty, don't print ?
+%{Text}? print Text in case ? is not empty; ? is never printed
+%{!Text}? print Text in case ? is empty; ? is never printed
Text could contain further %. To start with !, use %!
=cut
return $pkg->{'package'}."#".$arch."-bd-problem\n".
join("\\0a",split("\n",$pkg->{'bd_problem'}))."\\0a\n"; }, $pkg, $var),
'B' => make_fmt( sub { return $pkg->{'binary_nmu_version'} if defined $pkg->{'binary_nmu_version'}; }, $pkg, $var),
+ 'd' => make_fmt( $distribution, $pkg, $var),
+ 't' => make_fmt( $pkg->{'state_change'}, $pkg, $var),
));
}