Bommels05/Mozilla
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Main script that shows builds

Browse Source 
git-svn-id: svn://10.0.0.236/trunk@137293 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
johnkeis
2003-02-03 03:31:27 +00:00
parent 63d7d60350
commit 0547419c12
2 changed files with 64 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
mozilla/webtools/tinderbox3/scripts/showbuilds.pl Executable file
View File

@@ -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;

32
mozilla/webtools/tinderbox3/server/showbuilds.pl Executable file
View File

@@ -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;