Main script that shows builds

webtools/tinderbox3/scripts/showbuilds.pl

@@ -0,0 +1,32 @@
+#!/usr/bin/perl -wT -I.
+
+use strict;
+use CGI;
+use Tinderbox3::DB;
+use Tinderbox3::ShowBuilds;
+
+my $p = new CGI;
+my $dbh = get_dbh();
+
+my $tree = $p->param('tree') || "";
+# XXX These will get set by parameters eventually
+my ($start_time, $end_time);
+if ($p->param('start_time')) {
+  $start_time = $p->param('start_time');
+  if ($start_time > time) {
+    $start_time = time;
+  }
+  $end_time = $start_time + ($p->param('interval') || (24*60*60));
+  if ($end_time > time) {
+    $end_time = time;
+  }
+} else {
+  $end_time = time;
+  $start_time = $end_time - 24*60*60;
+}
+
+print $p->header;
+Tinderbox3::ShowBuilds::print_showbuilds($p, $dbh, *STDOUT, $tree, $start_time,
+                                         $end_time);
+
+$dbh->disconnect;

webtools/tinderbox3/server/showbuilds.pl

@@ -0,0 +1,32 @@
+#!/usr/bin/perl -wT -I.
+
+use strict;
+use CGI;
+use Tinderbox3::DB;
+use Tinderbox3::ShowBuilds;
+
+my $p = new CGI;
+my $dbh = get_dbh();
+
+my $tree = $p->param('tree') || "";
+# XXX These will get set by parameters eventually
+my ($start_time, $end_time);
+if ($p->param('start_time')) {
+  $start_time = $p->param('start_time');
+  if ($start_time > time) {
+    $start_time = time;
+  }
+  $end_time = $start_time + ($p->param('interval') || (24*60*60));
+  if ($end_time > time) {
+    $end_time = time;
+  }
+} else {
+  $end_time = time;
+  $start_time = $end_time - 24*60*60;
+}
+
+print $p->header;
+Tinderbox3::ShowBuilds::print_showbuilds($p, $dbh, *STDOUT, $tree, $start_time,
+                                         $end_time);
+
+$dbh->disconnect;