remove options not used in failures case
[buildfarm-server.git] / cgi-bin / typedefs.pl
1 #!/usr/bin/perl
2
3 =comment
4
5 Copyright (c) 2003-2010, Andrew Dunstan
6
7 See accompanying License file for license details
8
9 =cut 
10
11 use strict;
12 use DBI;
13 use CGI;
14
15 my $query = new CGI;
16
17 use vars qw($dbhost $dbname $dbuser $dbpass $dbport);
18
19 require "$ENV{BFConfDir}/BuildFarmWeb.pl";
20
21 my $dsn="dbi:Pg:dbname=$dbname";
22 $dsn .= ";host=$dbhost" if $dbhost;
23 $dsn .= ";port=$dbport" if $dbport;
24
25 my $dbh = DBI->connect($dsn,$dbuser,$dbpass) or die("$dsn,$dbuser,$dbpass,$!");
26
27 my %words;
28
29 my $sql = q{
30     select sysname, max(snapshot) as snapshot 
31     from build_status_log 
32     where branch = 'HEAD' and 
33         log_stage = 'typedefs.log' and 
34         snapshot > current_date::timestamp - interval '30 days' 
35     group by sysname
36 };
37 my $builds = $dbh->selectall_arrayref($sql, { Slice => {} });
38
39
40 if ($query->param('show_list'))
41 {
42     print "Content-Type: text/html\n\n",
43     "<head><title>Typedefs URLs</title></head>\n",
44     "<body><h1>Typdefs URLs</h1>\n",
45     "<table border='1'><tr><th>member</th></tr>\n";
46
47     foreach my $build (@$builds)
48     {
49         print "<tr><td><a href='http://www.pgbuildfarm.org/cgi-bin/show_stage_log.pl?nm=$build->{sysname}\&amp;dt=$build->{snapshot}\&amp;stg=typedefs'>$build->{sysname}</a></td></tr>\n";
50     }
51     print "</table></body></html>\n";
52     exit;
53 }
54
55 $sql = q{
56    select log_text
57    from build_status_log
58    where sysname = ?
59      and snapshot = ?
60      and log_stage = 'typedefs.log'
61      and branch = 'HEAD'
62  };
63
64 my $sth = $dbh->prepare($sql);
65
66 foreach my $build (@$builds)
67 {
68     $sth->execute($build->{sysname},$build->{snapshot});
69     my @row = $sth->fetchrow;
70     my @typedefs = split(/\s+/,$row[0]);
71     @words{@typedefs} = 1 x @typedefs;
72 }
73
74 print "Content-Type: text/plain\n\n",
75     join("\n",sort keys %words),
76     "\n";