summaryrefslogtreecommitdiff
blob: 854bf398101219f91813709d85ee999b72866990 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
#!/usr/bin/perl

use List::MoreUtils qw(uniq nsort_by);
use LaTeX::Encode qw(latex_encode);
use XMLRPC::Lite;
use Data::Dumper;

# three files: 
# - bur: input file, unsorted list of bug numbers, may contain duplicates, 
#        generated by LaTeX
# - but: cache of bug titles; format: one bug per two lines
#        * first line bug number
#        * second line bug title
#        maintained by this script, can be deleted any time but needs bugzilla
#        access for recreation
# - bug: output file, LaTeX fragment that can be sourced

# Initialization for the BZ
my $proxy = XMLRPC::Lite->proxy("https://bugs.gentoo.org/xmlrpc.cgi");


# Fetch the title of a bug from Bugzilla
sub getbugtitle {
  my $number=shift;
  my $soapresult = $proxy->call('Bug.get', { ids => [$number] });
  my $result = $soapresult->result;
  my $bug = $result->{bugs}->[0];
  my $summary = $bug->{summary};
  return $summary;
}

# Encode a bug title so it can be printed by LaTeX
sub encodebugtitle {
  return latex_encode(shift);
};


# Main code start

# Read the list of bugs referenced in the LaTeX file.
open my $bur, '<', "decisions.bur";
my @burlist = <$bur>;
close $bur;
chomp @burlist;

my @bugnumbers=uniq nsort_by { $_ } @burlist;

# Read the cache of bug titles; this file can be deleted, but recreating or
# updating it requires internet access.
open my $but, '<', "decisions.but";
my @butlist = <$but>;
close $but;
chomp @butlist;

my %bugtitles=@butlist;

# Loop through the referenced bug numbers, check if we already have the title,
# and if not fetch and add it.
foreach(@bugnumbers) {
  my $cur=$_;
  print "Bug number $cur\n";
  if ($bugtitles{$cur}) {
    print "  Title is \"$bugtitles{$cur}\"\n";
  } else {
    print "  Title not yet available, fetching it\n";
    $bugtitles{$cur}=getbugtitle($cur);
    print "    Result is \"$bugtitles{$cur}\"\n";
  };
};

# Write out the bug title cache again.
my @butlistnew= map { $_ => $bugtitles{$_} } sort keys %bugtitles;
open my $but, '>', "decisions.but";
print $but "$_\n" for @butlistnew;
close $but;

# Write out the TeX input file
open my $bug, '>', "decisions.bug";
print $bug '\renewcommand{\gentoobugtitle}[1]{%'."\n";

foreach(@bugnumbers) {
  my $cur=$_;
  my $title=encodebugtitle($bugtitles{$cur});
  print $bug '\ifthenelse{\equal{#1}{'.$cur.'}}{'.$title.'}{}%'."\n";
};

print $bug '}'."\n";
close $bug;