Magic-Mirror/gecko-dev
1
0
Fork 0
mirror of https://github.com/mozilla/gecko-dev.git synced 2024-10-10 03:45:46 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Main script that shows builds

Browse Source
This commit is contained in:
johnkeis 2003-02-03 03:31:27 +00:00
parent 75631a7635
commit 5e9d32b423
2 changed files with 64 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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