X-Git-Url: https://git.exim.org/buildfarm-server.git/blobdiff_plain/1716f2bd83f53b67690093ddcf447b24487d5767..2abaa3e3cbcf431d35a2807ae30b0d6f9172ec1c:/cgi-bin/show_status.pl diff --git a/cgi-bin/show_status.pl b/cgi-bin/show_status.pl index d41dff1..c75b20e 100755 --- a/cgi-bin/show_status.pl +++ b/cgi-bin/show_status.pl @@ -1,11 +1,19 @@ #!/usr/bin/perl +=comment + +Copyright (c) 2003-2010, Andrew Dunstan + +See accompanying License file for license details + +=cut + use strict; use DBI; use Template; use CGI; -use vars qw($dbhost $dbname $dbuser $dbpass $dbport); +use vars qw($dbhost $dbname $dbuser $dbpass $dbport $template_dir); require "$ENV{BFConfDir}/BuildFarmWeb.pl"; @@ -34,13 +42,14 @@ elsif ($sortby eq 'compiler') $sort_clause = "lower(compiler), compiler_version,"; } -my $db = DBI->connect($dsn,$dbuser,$dbpass) or die("$dsn,$dbuser,$dbpass,$!"); +my $db = DBI->connect($dsn,$dbuser,$dbpass,{pg_expand_array => 0}) + or die("$dsn,$dbuser,$dbpass,$!"); my $statement =<fetchrow_hashref) # enable-integer-datetimes is now the default if ($row->{branch} eq 'HEAD' || $row->{branch} gt 'REL8_3_STABLE') { - $row->{buildflags} .- " --enable-integer-datetimes " + $row->{build_flags} .= " --enable-integer-datetimes " unless ($row->{build_flags} =~ /--(en|dis)able-integer-datetimes/); } + # enable-thread-safety is now the default + if ($row->{branch} eq 'HEAD' || $row->{branch} gt 'REL8_5_STABLE') + { + $row->{build_flags} .= " --enable-thread-safety " + unless ($row->{build_flags} =~ /--(en|dis)able-thread-safety/); + } $row->{build_flags} =~ s/--((enable|with)-)?//g; $row->{build_flags} =~ s/libxml/xml/; $row->{build_flags} =~ s/\S+=\S+//g; @@ -73,134 +88,13 @@ $sth->finish; $db->disconnect; -my $template = new Template({}); +my $template_opts = { INCLUDE_PATH => $template_dir }; +my $template = new Template($template_opts); print "Content-Type: text/html\n\n"; -$template->process(\*DATA,{statrows=>$statrows}); +$template->process('status.tt', + {statrows=>$statrows}); exit; -=comment - -[%- BLOCK img ; flag ; END -%] -[%- BLOCK imgx ; IF flag_imgs.$flag ; '

' ; ELSE flag . ' ' ; END ; END -%] - -=cut - -__DATA__ -[% - flag_imgs = { - perl = '/img/camel.png', - python = '/img/python.png', - debug = '/img/bug.png', - pam => '/img/pam.png', - cassert => '/img/cassert.png', - openssl => '/img/ssl_icon.gif', - nls => '/img/translateicon.gif', - krb5 => '/img/krb.gif', - tcl => '/img/tcl.png', - xml => '/img/xml.png', - 'thread-safety' => '/img/threads.gif', - 'integer-datetimes' = '/img/days.png', - } --%] -[%- BLOCK img ; IF flag == 'depend' or flag == 'gnu-ld' ; ; ELSIF flag_imgs.$flag %]

[% ELSE %][%# - flag ; ' ' -%][% END ; END -%] -[%- BLOCK cl %] class=" [% SWITCH bgfor -%] - [%- CASE 'OK' %]pass[% CASE 'ContribCheck' %]warn[% CASE [ 'Check' 'InstallCheck' ] %]warnx[% CASE %]fail[% END %]" -[%- END -%] - - - - - PostgreSQL BuildFarm Status - - - - - -

- -

PostgreSQL BuildFarm Status

- Shown here is the latest status of each farm member - for each branch it has reported on in the last 30 days. -

- Use the farm member link for history of that member - on the relevant branch. -

- -[% FOREACH flagset IN flag_imgs %] - -[% IF loop.count == 6 %][% END %] -[% END %] -

Legend
Legend	= [% flagset.key %]

-
- -[% brch = "" %] -[% FOREACH row IN statrows %] -[% IF row.branch != brch ; brch = row.branch %] - - -[% END %] - - - - - - - -[% END %] -

Branch: [% brch %]
Alias	System	Status	Flags
[% row.sysname %]	[% row.operating_system %] - [% row.os_version %] - [%- row.compiler %] - [% row.compiler_version %] - [%- row.architecture %]	- [%- row.when_ago \| replace('\s',' ') %] ago - [% row.stage -%] - - [%- IF row.stage != 'OK' %]Details[% ELSE %]Config[% END -%]	[% FOREACH flag IN row.build_flags.split().sort() ; PROCESS img ; END %]

-The PostgreSQL Buildfarm website is provided by: -CommandPrompt, -The PostgreSQL Company
-The PostgreSQL community makes it work! -

- - - - - - - - - -