scripts/summary

   1 #!/usr/bin/perl
   2 # $Id: summary.in,v 1.11 2004/04/17 17:31:04 cjwatson Exp $
   3
   4 $config_path = '/etc/debbugs';
   5 $lib_path = '/usr/lib/debbugs';
   6
   7 require("$config_path/config");
   8 require("$lib_path/errorlib");
   9 $ENV{'PATH'} = $lib_path.':'.$ENV{'PATH'};
  10
  11 chdir("$gSpoolDir") || die "chdir spool: $!\n";
  12
  13 #open(DEBUG,">&4");
  14
  15 $mode= shift(@ARGV);
  16
  17 open(M,"$gMaintainerFile") || die "open $gMaintainerFile: $!";
  18 while (<M>) {
  19     m/^(\S+)\s+(\S.*\S)\s*$/ || warn "$_ ?";
  20     ($a,$b)=($1,$2);
  21     $a =~ y/A-Z/a-z/;
  22     $maintainer{$a}= $b;
  23 }
  24 close(M);
  25 open(M,"$gMaintainerFileOverride") || die "open $gMaintainerFileOverride: $!";
  26 while (<M>) {
  27     m/^(\S+)\s+(\S.*\S)\s*$/ || warn "$_ ?";
  28     ($a,$b)=($1,$2);
  29     $a =~ y/A-Z/a-z/;
  30     $maintainer{$a}= $b;
  31 }
  32 close(M);
  33
  34
  35 defined($startdate= time) || die "failed to get time: $!";
  36
  37 opendir(DIR,"db-h") || die "opendir db-h: $!\n";
  38 @dirs = grep(s,^,db-h/,, grep(m/^\d+$/,readdir(DIR)));
  39 closedir(DIR);
  40 foreach my $dir (@dirs) {
  41         opendir(DIR,$dir);
  42         push @list, grep(s/\.status$//,grep(m/^\d+\.status$/,readdir(DIR)));
  43         closedir(DIR);
  44 }
  45 @list = sort { $a <=> $b } @list;
  46
  47 $head= $mode eq 'bymaint'
  48     ? ' Package     Ref    Subject'
  49     : ' Ref   Package    Keywords/Subject               Package maintainer';
  50 $amonths=-1;
  51
  52 while (length($f=shift(@list))) {
  53     if (!($data = lockreadbug($f))) { next; }
  54     $_= $data->{package}; y/A-Z/a-z/; $_= $` if m/[^-+._a-z0-9]/;
  55     $data->{maintainer}=
  56         defined($maintainer{$_}) ? $maintainer{$_} :
  57         length($_) ? "(unknown -- \`$_')" :
  58         "(unknown)";
  59     if ($mode eq 'undone' || $mode eq 'veryold') {
  60         &unfilelock;
  61         next if length($data->{done}) || length($data->{forwarded});
  62         $cmonths= int(($startdate - $data->{date})/2592000); # 3600*24*30 (30 days)
  63         next if $mode eq 'veryold' && $cmonths < 2;
  64         if ($cmonths != $amonths) {
  65             $msg= $cmonths == 0 ? "Submitted in the last month" :
  66                   $cmonths == 1 ? "Over one month old" :
  67                   $cmonths == 2 ? "Over two months old - attention is required" :
  68                                   "OVER $cmonths MONTHS OLD - ATTENTION IS REQUIRED";
  69             print "\n$msg:\n$head\n";
  70             $amonths= $cmonths;
  71         }
  72         printf("%6d %-10.10s %-30.30s %-.31s\n", $f, $data->{package},
  73                (length($data->{keywords}) ? $data->{keywords}.'/' : '').$data->{subject},
  74                $data->{maintainer}) || die "output undone: $!";
  75     } elsif ($mode eq 'bymaint') {
  76         &unfilelock;
  77         next if length($data->{done}) || length($data->{forwarded});
  78         $string{$f}=
  79             sprintf(" %-10.10s %6d  %-.59s\n", $data->{package}, $f, $data->{subject});
  80         $data->{maintainer}= "(unknown)" if $data->{maintainer} =~ m/^\(unknown \-\-/;
  81         $maintainercnt{$data->{maintainer}}++;
  82         $maintainerlist{$data->{maintainer}}.= " $f";
  83     } else {
  84         die "badmode $mode";
  85     }
  86 }
  87
  88 if ($mode eq 'bymaint') {
  89     print("$head\n") || die "output head: $!";
  90     for $m (sort { $maintainercnt{$a} <=> $maintainercnt{$b} } keys %maintainercnt) {
  91         printf("\n%s (%d $gBugs):\n",$m,$maintainercnt{$m})
  92             || die "output mainthead: $!";
  93         for $i (sort { $string{$a} cmp $string{$b} } split(/ /,$maintainerlist{$m})) {
  94             printf($string{$i}) || die "output 1bymaint: $!";
  95         }
  96     }
  97 }
  98
  99 close(STDOUT) || die "close stdout: $!";