3 # Usage: construct-notification packages_files
6 use vars qw (%sources);
12 my @f = split(/^([a-z0-9]+):\s*/mi);
19 $f{lc $field} = $value;
21 $f{source} = $f{package} unless defined $f{source};
22 $sources{$f{source}}{$f{package}} = $f{description};
25 foreach my $source (sort {$a cmp $b} keys %sources) {
26 print "Source package: $source\n";
27 foreach my $package (sort {$a cmp $b } keys %{$sources{$source}}) {
28 print "Package: $package\n";
29 print "Description: ";
30 print $sources{$source}{$package};