X-Git-Url: https://git.exim.org/buildfarm-server.git/blobdiff_plain/4162ff9658e407a2c3aaf9a2a9d3f8622081eddf..7a251a65acd9d84242e15b47fd7c01405322b2ed:/cgi-bin/typedefs.pl diff --git a/cgi-bin/typedefs.pl b/cgi-bin/typedefs.pl index c10a1cf..5f3b216 100755 --- a/cgi-bin/typedefs.pl +++ b/cgi-bin/typedefs.pl @@ -2,6 +2,9 @@ use strict; use DBI; +use CGI; + +my $query = new CGI; use vars qw($dbhost $dbname $dbuser $dbpass $dbport); @@ -25,6 +28,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