mirror of
https://github.com/mozilla/gecko-dev.git
synced 2024-10-10 11:55:49 +00:00
Main script that shows builds
This commit is contained in:
parent
75631a7635
commit
5e9d32b423
32
webtools/tinderbox3/scripts/showbuilds.pl
Executable file
32
webtools/tinderbox3/scripts/showbuilds.pl
Executable 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
32
webtools/tinderbox3/server/showbuilds.pl
Executable 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;
|
Loading…
Reference in New Issue
Block a user