From e817c51bd86f2da18440c6807e68ea711b7c8d69 Mon Sep 17 00:00:00 2001 From: Andrew Dunstan Date: Mon, 13 Apr 2009 15:14:33 +0000 Subject: [PATCH] add show_list option --- cgi-bin/typedefs.pl | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) 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 -- 2.30.2