X-Git-Url: https://git.exim.org/buildfarm-server.git/blobdiff_plain/4162ff9658e407a2c3aaf9a2a9d3f8622081eddf..39fb7c2634fb6b66d9b2a25e2b15fd873136afa4:/cgi-bin/typedefs.pl diff --git a/cgi-bin/typedefs.pl b/cgi-bin/typedefs.pl index c10a1cf..63c0fc5 100755 --- a/cgi-bin/typedefs.pl +++ b/cgi-bin/typedefs.pl @@ -1,7 +1,18 @@ #!/usr/bin/perl +=comment + +Copyright (c) 2003-2010, Andrew Dunstan + +See accompanying License file for license details + +=cut + use strict; use DBI; +use CGI; + +my $query = new CGI; use vars qw($dbhost $dbname $dbuser $dbpass $dbport); @@ -25,6 +36,22 @@ my $sql = q{ }; my $builds = $dbh->selectall_arrayref($sql, { Slice => {} }); + +if ($query->param('show_list')) +{ + print "Content-Type: text/html\n\n", + "Typedefs URLs\n", + "

Typdefs URLs

\n", + "\n"; + + foreach my $build (@$builds) + { + print "\n"; + } + print "
member
$build->{sysname}
\n"; + exit; +} + $sql = q{ select log_text from build_status_log