diff --git a/mozilla/webtools/tinderbox3/scripts/tbox_build_static_pages.pl b/mozilla/webtools/tinderbox3/scripts/tbox_build_static_pages.pl new file mode 100755 index 00000000000..76d7945dc81 --- /dev/null +++ b/mozilla/webtools/tinderbox3/scripts/tbox_build_static_pages.pl @@ -0,0 +1,44 @@ +#!/usr/bin/perl -wT -I. + +use strict; +use CGI; +use Tinderbox3::DB; +use Tinderbox3::ShowBuilds; + +open INDEX_FILE, ">index.html"; + +print INDEX_FILE < + +Tinderbox - Index + + +

Tinderbox - Index

+

Administrate This Tinderbox

+

This Tinderbox has the following trees:

+EOM + +# +# Create the actual tree static pages +# +my $p = new CGI; +my $dbh = get_dbh(); + +my $trees = $dbh->selectcol_arrayref("SELECT tree_name FROM tbox_tree"); +foreach my $tree (@{$trees}) { + my $end_time = time; + my $start_time = time - 24*60*60; + + open OUTFILE, ">$tree.html"; + Tinderbox3::ShowBuilds::print_showbuilds($p, $dbh, *OUTFILE, $tree, + $start_time, $end_time); + close OUTFILE; + + print INDEX_FILE "$tree (Dynamic)
\n"; +} + +print INDEX_FILE " +"; +close INDEX_FILE; + +$dbh->disconnect; diff --git a/mozilla/webtools/tinderbox3/server/tbox_build_static_pages.pl b/mozilla/webtools/tinderbox3/server/tbox_build_static_pages.pl new file mode 100755 index 00000000000..76d7945dc81 --- /dev/null +++ b/mozilla/webtools/tinderbox3/server/tbox_build_static_pages.pl @@ -0,0 +1,44 @@ +#!/usr/bin/perl -wT -I. + +use strict; +use CGI; +use Tinderbox3::DB; +use Tinderbox3::ShowBuilds; + +open INDEX_FILE, ">index.html"; + +print INDEX_FILE < + +Tinderbox - Index + + +

Tinderbox - Index

+

Administrate This Tinderbox

+

This Tinderbox has the following trees:

+EOM + +# +# Create the actual tree static pages +# +my $p = new CGI; +my $dbh = get_dbh(); + +my $trees = $dbh->selectcol_arrayref("SELECT tree_name FROM tbox_tree"); +foreach my $tree (@{$trees}) { + my $end_time = time; + my $start_time = time - 24*60*60; + + open OUTFILE, ">$tree.html"; + Tinderbox3::ShowBuilds::print_showbuilds($p, $dbh, *OUTFILE, $tree, + $start_time, $end_time); + close OUTFILE; + + print INDEX_FILE "$tree (Dynamic)
\n"; +} + +print INDEX_FILE " +"; +close INDEX_FILE; + +$dbh->disconnect;