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
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
|
#!/usr/bin/perl
use List::MoreUtils qw(uniq nsort_by);
use LaTeX::Encode qw(latex_encode);
use XMLRPC::Lite;
use Data::Dumper;
# four 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
# - bux: manually generated index keyword file for bugs; format: one bug per two
# lines
# * first line bug number
# * second line bug keywords, separated by ";"
# - 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;
# Read the bug index keywords
open my $bux, '<', "decisions.bux";
my @buxlist = <$bux>;
close $bux;
chomp @buxlist;
my %bugkeywords=@buxlist;
# 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});
my @keywords=split /;/, $bugkeywords{$cur};
foreach(@keywords) {
$title=$title.'\index{'.$_.'}';
}
print $bug '\ifthenelse{\equal{#1}{'.$cur.'}}{'.$title.'}{}%'."\n";
};
print $bug '}'."\n";
close $bug;
|
GitWeb