5
use Getopt::Long qw(:config no_ignore_case bundling);
13
Getopt::Long::Configure ("bundling", "no_ignore_case");
18
) or pod2usage(-verbose => 0, -exitstatus => 0);
20
version_and_exit() if $opt_version;
24
print "Copyright (C) 2009 Bryce W. Harrington <bryce\@bryceharrington.org>\n";
25
print "This program is free software; you can redistribute it and/or\n";
26
print "modify it under the same terms as Perl itself.\n";
31
foreach my $file (<*.txt>) {
34
$date =~ s/^upstream-20//;
38
foreach my $line (<FILE>) {
40
my ($name, $score) = split(/\s+/, $line);
41
$upstream{$name}->{$date} = $lineno;
46
my @dates = sort keys %dates;
48
my $firstdate = $dates[0];
50
printf("%-8s ", "Date");
52
#my @packages = keys %upstream;
54
for my $pkg ( qw(fglrx-installer xkeyboard-config xserver-xorg-video-nv xserver-xorg-video-intel
55
xserver-xorg-video-ati linux-restricted-modules-2.6.22 linux-restricted-modules-2.6.24
56
xorg xorg-server mesa inkscape xserver-xorg-input-evdev) ) {
57
if (exists $upstream{$pkg}) {
61
my @names = reverse sort { $upstream{$a}->{$firstdate} <=> $upstream{$b}->{$firstdate} } @packages;
64
foreach my $name (@names) {
65
my $display_name = $name;
66
$display_name =~ s/ +/_/g;
67
$display_name =~ s/linux-restricted-modules/lrm/;
68
$display_name =~ s/xserver-xorg-(video|input)//;
70
printf("%20s", $display_name);
73
# foreach date, print data for each name
74
foreach my $date (@dates) {
75
printf("\n%-8s ", $date);
76
foreach my $name (@names) {
77
printf("%20.0f", $upstream{$name}->{$date});