+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}};
+ }
+
+ my $days = $pkg->{'state_days'};
+ $days = $priomap->{'waitingdays'}->{'min'} if $priomap->{'waitingdays'}->{'min'} and $days < $priomap->{'waitingdays'}->{'min'};
+ $days = $priomap->{'waitingdays'}->{'max'} if $priomap->{'waitingdays'}->{'max'} and $days > $priomap->{'waitingdays'}->{'max'};
+ my $scale = $priomap->{'waitingdays'}->{'scale'} || 1;
+ $pkg->{'calprio'} += $days * $scale;
+
+ $pkg->{'calprio'} += $pkg->{'permbuildpri'} if $pkg->{'permbuildpri'};
+ $pkg->{'calprio'} += $pkg->{'buildpri'} if $pkg->{'buildpri'};
+
+ return $pkg;
+}
+
+
+sub use_fmt {
+ my $r;
+
+ if (ref($_[0]) eq 'CODE') {
+ $r = &{$_[0]};
+ } else {
+ $r = $_[0];
+ }
+
+ shift;
+ my $t = shift;
+
+ $r ||= "";
+ return $r unless $t;
+
+ my $pkg = shift;
+ my $var = shift;
+ if (substr($t,0,1) eq '!') {
+ $t = substr($t,1);
+ return "" if $r;
+ } else {
+ return "" unless $r;
+ }
+ if ($t =~ /%/) {
+ return print_format($t, $pkg, $var);
+ }
+ return $t;
+}
+sub make_fmt { my $c = shift; my $pkg = shift; my $var = shift; return sub { use_fmt($c, $_[0], $pkg, $var); } };
+
+sub print_format {
+ my $printfmt = shift;
+ my $pkg = shift;
+ my $var = shift;
+=pod
+Within an format string, the following values are allowed (need to be preceded by %).
+This can be combined to e.g.
+wanna-build --format='wanna-build -A %a --give-back %p_%v' -A mipsel --list=failed
+
+a Architecture
+c section (e.g. libs or utils)
+D in case of BD-Uninstallable the reason for the uninstallability
+d distribution
+E in case of Dep-Wait the packages being waited on, in case of Needs-Build the number in the queue
+P previous state
+p Package name
+S Package state
+s Time in this state in full seconds since epoch
+t time of state change
+u Builder (e.g. buildd_mipsel-rem)
+v Package version
+V full Package version (i.e. with +b.., = %v%{+b}B%B
+X the string normally between [], e.g. optional:out-of-date:calprio{61}:days{25}
+F in case of Failed the fail reason
+
+%{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 stringf($printfmt, (
+ 'p' => make_fmt( $pkg->{'package'}, $pkg, $var),
+ 'a' => make_fmt( $arch, $pkg, $var),
+ 's' => make_fmt( sub { return floor(str2time($pkg->{'state_change'})); }, $pkg, $var),
+ 'v' => make_fmt( $pkg->{'version'}, $pkg, $var),
+ 'V' => make_fmt( sub { $pkg->{'binary_nmu_version'} ? $pkg->{'version'}."+b".$pkg->{'binary_nmu_version'} : $pkg->{'version'} }, $pkg, $var),
+ 'S' => make_fmt( $pkg->{'state'}, $pkg, $var),
+ 'u' => make_fmt( $pkg->{'builder'}, $pkg, $var),
+ 'X' => make_fmt( sub {
+ my $c = "$pkg->{'priority'}:$pkg->{'notes'}";
+ $c .= ":PREV-FAILED" if $pkg->{'previous_state'} =~ /^Failed/;
+ $c .= ":bp{" . $pkg->{'buildpri'} . "}" if defined $pkg->{'buildpri'};
+ $c .= ":binNMU{" . $pkg->{'binary_nmu_version'} . "}" if defined $pkg->{'binary_nmu_version'};
+ $c .= ":calprio{". $pkg->{'calprio'}."}";
+ $c .= ":days{". $pkg->{'state_days'}."}";
+ return $c;
+ }, $pkg, $var),
+ 'c' => make_fmt( $pkg->{'section'}, $pkg, $var),
+ 'P' => make_fmt( $pkg->{'previous_state'} || "unknwon", $pkg, $var),
+ 'E' => make_fmt( sub { return $pkg->{'depends'} if $pkg->{'state'} eq "Dep-Wait";
+ return $var->{scnt}{'Needs-Build'} + 1 if $pkg->{'state'} eq 'Needs-Build';
+ return ""; }, $pkg, $var),
+ 'F' => make_fmt( sub { return "" unless $pkg->{'failed'};
+ my $failed = $pkg->{'failed'};
+ $failed =~ s/\\/\\\\/g;
+ return $pkg->{'package'}."#".$arch."-failure\n ".
+ join("\\0a",split("\n",$failed))."\\0a\n"; }, $pkg, $var),
+ 'D' => make_fmt( sub { return "" unless $pkg->{'bd_problem'};
+ 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),
+ ));
+}
+