← Back to branch summary

~inspirated/arsenal/send-attachments-lpltk

« back to all changes in this revision

Viewing changes to scripts/bugtotals

  • Committer: Bryce Harrington
  • Date: 2009-04-14 07:20:37 UTC
  • Revision ID: bryce@canonical.com-20090414072037-8tyqpo3elyy0xl7i
Adding new hook scripts (migrating a few from contrib...) and moving
dependencies into scripts dir.

Show diffs side-by-side

added added

removed removed

Lines of Context:
scripts/bugtotals
 
1
#!/usr/bin/perl
 
2
 
 
3
use strict;
 
4
use Pod::Usage;
 
5
use Getopt::Long qw(:config no_ignore_case bundling);
 
6
 
 
7
my %totals;
 
8
my %dates;
 
9
 
 
10
our $opt_help         = 0;
 
11
our $opt_data         = 0;
 
12
our $opt_version      = 0;
 
13
our $opt_proprietary  = 0;
 
14
our $opt_quarter      = "";
 
15
Getopt::Long::Configure ("bundling", "no_ignore_case");
 
16
GetOptions(
 
17
           "version|v",
 
18
           "help|h",
 
19
           "data|d",
 
20
           "quarter|q",
 
21
           "proprietary|p",
 
22
           ) or pod2usage(-verbose => 0, -exitstatus => 0);
 
23
 
 
24
version_and_exit() if $opt_version;
 
25
 
 
26
sub version_and_exit
 
27
{
 
28
    print "Copyright (C) 2009 Bryce W. Harrington <bryce\@bryceharrington.org>\n";
 
29
    print "This program is free software; you can redistribute it and/or\n";
 
30
    print "modify it under the same terms as Perl itself.\n";
 
31
    exit(0);
 
32
}
 
33
 
 
34
# TODO:  Determine date range for quarter if specified
 
35
my $quarter_start = 20090401;
 
36
my $quarter_end   = 20090631;
 
37
 
 
38
my $date;
 
39
my $firstdate = undef;
 
40
foreach my $file (<*.txt>) {
 
41
    # Skip unless within the quarter we care about
 
42
    $date = $file;
 
43
    $date =~ s/^xorg-packagebugs-//;
 
44
    $date =~ s/\.txt$//;
 
45
 
 
46
    if ($opt_quarter) {
 
47
        # TODO:  Parse start and end based on opt_quarter
 
48
        if ($date < $quarter_start or $date > $quarter_end) {
 
49
            next;
 
50
        }
 
51
    }
 
52
 
 
53
    open(FILE, "<$file");
 
54
 
 
55
    $date =~ s/^20//;
 
56
    $dates{$date} = 1;
 
57
    if (! $firstdate) {
 
58
        $firstdate = $date;
 
59
    }
 
60
    foreach my $line (<FILE>) {
 
61
        chomp $line;
 
62
        my ($pkg, $total) = split(/\s+/, $line);
 
63
        $pkg =~ s/://g;
 
64
        $totals{$pkg}->{$date} = $total;
 
65
    }
 
66
 
 
67
    close(FILE);
 
68
}
 
69
 
 
70
printf("%-8s ", "Date");
 
71
 
 
72
my $lastdate = $date;
 
73
my @packages;
 
74
my $lastpkgnum = 30;
 
75
 
 
76
if ($opt_proprietary) {
 
77
    # Sort with proprietary stuff on the bottom
 
78
    my @closed = reverse qw(linux-restricted-modules-2.6.22 linux-restricted-modules-2.6.24
 
79
                    fglrx-installer nvidia-settings
 
80
                    nvidia-graphics-drivers-96 nvidia-graphics-drivers-173
 
81
                    nvidia-graphics-drivers-177 nvidia-graphics-drivers-180);
 
82
    my %open = %totals;
 
83
    foreach my $driver (@closed) {
 
84
        delete $open{$driver};
 
85
    }
 
86
    @packages = reverse sort { $open{$a}->{$firstdate} <=> $open{$b}->{$firstdate} } keys %open;
 
87
    my $num = $lastpkgnum - @closed + 1;
 
88
    $totals{'Other-FOSS'} = $totals{$packages[$num]};
 
89
    $packages[$num] = 'Other-FOSS';
 
90
    foreach my $driver (@closed) {
 
91
        $num++;
 
92
        $packages[$num] = $driver;
 
93
    }
 
94
 
 
95
} else {
 
96
    # Sort by number of bugs
 
97
    @packages = reverse sort { $totals{$a}->{$firstdate} <=> $totals{$b}->{$firstdate} } keys %totals;
 
98
    $totals{'Remainder'} = $totals{$packages[$lastpkgnum+1]};
 
99
    $packages[$lastpkgnum+1] = 'Remainder';
 
100
}
 
101
 
 
102
 
 
103
# Print out top N pkg names
 
104
foreach my $pkg (@packages[1..$lastpkgnum+1]) {
 
105
    my $display_name = $pkg;
 
106
    $display_name =~ s/://g;
 
107
    $display_name =~ s/linux-restricted-modules/lrm/;
 
108
    $display_name =~ s/xserver-xorg-(input|video)//;
 
109
    $display_name =~ s/nvidia-graphics-drivers/nvidia/;
 
110
    $display_name =~ s/xorg-server/xserver/;
 
111
    $display_name =~ s/fglrx-installer/-fglrx/;
 
112
    $display_name =~ s/xkeyboard-config/xkbd-cfg/;
 
113
    printf("%10s ",  $display_name);
 
114
}
 
115
 
 
116
my @dates = sort keys %dates;
 
117
 
 
118
# Print line of zeros so gnuplot can display areas
 
119
printf("\n%-8s ", $dates[0]);
 
120
foreach my $pkg (@packages[0..$lastpkgnum]) {
 
121
    printf("%10.0f ", 0);
 
122
}
 
123
 
 
124
# foreach date, print data for each pkg
 
125
foreach my $date (@dates) {
 
126
    printf("\n%-8s ", $date);
 
127
 
 
128
    # Calculate remainder
 
129
    if ($opt_proprietary) {
 
130
        my $remainder = $totals{'Total'}->{$date};
 
131
        foreach my $pkg (@packages[0..$lastpkgnum+1]) {
 
132
            if ($pkg ne 'Total') {
 
133
                $remainder -= $totals{$pkg}->{$date};
 
134
            }
 
135
        }
 
136
        $totals{'Other-FOSS'}->{$date} = $remainder;
 
137
    }
 
138
 
 
139
    my $sum = $totals{'Total'}->{$date};
 
140
    foreach my $pkg (@packages[0..$lastpkgnum]) {
 
141
        if ($pkg ne 'Total') {
 
142
            $sum -= $totals{$pkg}->{$date};
 
143
        }
 
144
        printf("%10.0f ", $sum);
 
145
    }
 
146
}
 
147
 
 
148
# Print line of zeros so gnuplot can display areas
 
149
printf("\n%-8s ", $dates[$#dates]);
 
150
foreach my $pkg (@packages[0..$lastpkgnum]) {
 
151
    printf("%10.0f ", 0);
 
152
}
 
153
 
 
154
print "\n";