373 lines
11 KiB
Perl
Executable File
373 lines
11 KiB
Perl
Executable File
#!/usr/bin/perl --
|
|
# -*- Mode: perl; indent-tabs-mode: nil -*-
|
|
#
|
|
# The contents of this file are subject to the Netscape Public
|
|
# License Version 1.1 (the "License"); you may not use this file
|
|
# except in compliance with the License. You may obtain a copy of
|
|
# the License at http://www.mozilla.org/NPL/
|
|
#
|
|
# Software distributed under the License is distributed on an "AS
|
|
# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
|
|
# implied. See the License for the specific language governing
|
|
# rights and limitations under the License.
|
|
#
|
|
# The Original Code is the Tinderbox build tool.
|
|
#
|
|
# The Initial Developer of the Original Code is Netscape Communications
|
|
# Corporation. Portions created by Netscape are
|
|
# Copyright (C) 1998 Netscape Communications Corporation. All
|
|
# Rights Reserved.
|
|
#
|
|
# Contributor(s):
|
|
|
|
use strict;
|
|
require 'tbglobals.pl';
|
|
require 'header.pl';
|
|
|
|
# Process the form arguments
|
|
my %form = &split_cgi_args();
|
|
|
|
$|=1;
|
|
|
|
print "Content-Type: text/html; charset=utf-8\n\n";
|
|
|
|
$form{noignore} = 1; # Force us to load all build info, not
|
|
# paying any attention to ignore_builds stuff.
|
|
$form{hours} = 24; # Force us to check the past 24 hrs of builds
|
|
$form{tree} = &validate_tree($form{tree});
|
|
my $treedata = &tb_load_data(\%form);
|
|
|
|
my (@names, $i, $checked);
|
|
|
|
if (defined($treedata)) {
|
|
my $tree = $treedata->{name};
|
|
my $safe_tree = value_encode($tree);
|
|
|
|
EmitHtmlHeader("administer tinderbox", "tree: $safe_tree");
|
|
|
|
# Sheriff
|
|
my $current_sheriff = &tb_load_sheriff($tree);
|
|
$current_sheriff =~ s/\s*$//; # Trim trailing whitespace;
|
|
|
|
# Status message.
|
|
my $status_message = &tb_load_status($tree);
|
|
$status_message =~ s/\s*$//; # Trim trailing whitespace;
|
|
|
|
# Tree rules.
|
|
my $rules_message = &tb_load_rules($tree);
|
|
$rules_message =~ s/\s*$//; # Trim trailing whitespace;
|
|
|
|
#
|
|
# Change sheriff
|
|
#
|
|
print "
|
|
<FORM method=post action=doadmin.cgi>
|
|
<INPUT TYPE=HIDDEN NAME=tree VALUE='$safe_tree'>
|
|
<INPUT TYPE=HIDDEN NAME=command VALUE=set_sheriff>
|
|
<br><b>Change sheriff info.</b> (mailto: url, phone number, etc.)<br>
|
|
<TEXTAREA NAME=sheriff ROWS=8 COLS=75 WRAP=SOFT>$current_sheriff
|
|
</TEXTAREA>
|
|
<br>
|
|
<B>Password:</B> <INPUT NAME=password TYPE=password>
|
|
<b><INPUT TYPE=SUBMIT VALUE='Change Sheriff'></b>
|
|
</FORM>
|
|
<hr>
|
|
";
|
|
|
|
#
|
|
# Status message
|
|
#
|
|
|
|
print "
|
|
<FORM method=post action=doadmin.cgi>
|
|
<INPUT TYPE=HIDDEN NAME=tree VALUE='$safe_tree'>
|
|
<INPUT TYPE=HIDDEN NAME=command VALUE=set_status_message>
|
|
<br><b>Status message.</b> (Use this for stay-out-of-the-tree warnings, etc.)<br>
|
|
<TEXTAREA NAME=status ROWS=8 COLS=75 WRAP=SOFT>$status_message
|
|
</TEXTAREA>
|
|
<br>
|
|
<b>
|
|
<B>Password:</B> <INPUT NAME=password TYPE=password>
|
|
<INPUT TYPE=SUBMIT VALUE='Change status message'>
|
|
</b>
|
|
</FORM>
|
|
<hr>
|
|
";
|
|
|
|
#
|
|
# Rules message.
|
|
#
|
|
|
|
print "
|
|
<FORM method=post action=doadmin.cgi>
|
|
<INPUT TYPE=HIDDEN NAME=tree VALUE='$safe_tree'>
|
|
<INPUT TYPE=HIDDEN NAME=command VALUE=set_rules_message>
|
|
<br><b>The tree rules.</b>
|
|
<br><TEXTAREA NAME=rules ROWS=18 COLS=75 WRAP=SOFT>$rules_message
|
|
</TEXTAREA>
|
|
<br>
|
|
<B>Password:</B> <INPUT NAME=password TYPE=password>
|
|
<b><INPUT TYPE=SUBMIT VALUE='Change rules message'></b>
|
|
</FORM>
|
|
<hr>
|
|
";
|
|
|
|
#
|
|
# Trim logs.
|
|
#
|
|
|
|
if ($form{trimlogsui} == 1) {
|
|
# Determine the collective size & age of the build logs
|
|
opendir(TRIM_DIR, &shell_escape("$::tree_dir/$tree")) || die "opendir($safe_tree): $!";
|
|
my @trim_files = grep { /\.(?:gz|brief\.html)$/ && -f "$::tree_dir/$tree/$_" } readdir(TRIM_DIR);
|
|
close(TRIM_DIR);
|
|
my $trim_bytes = 0;
|
|
my $trim_size;
|
|
my $now = time();
|
|
my $trim_oldest = $now;
|
|
my $size_K = 1024;
|
|
my $size_M = 1048576;
|
|
my $size_G = 1073741824;
|
|
for my $file (@trim_files) {
|
|
my @file_stat = stat("$::tree_dir/$tree/$file");
|
|
$trim_bytes += $file_stat[7];
|
|
$trim_oldest = $file_stat[9] if ($trim_oldest > $file_stat[9]);
|
|
}
|
|
my $trim_days = int (($now - $trim_oldest) / 86400);
|
|
if ($trim_bytes < $size_K) {
|
|
$trim_size = "$trim_bytes b";
|
|
} elsif ($trim_bytes < $size_M) {
|
|
$trim_size = int($trim_bytes / $size_K) . " Kb";
|
|
} elsif ($trim_bytes < $size_G){
|
|
$trim_size = int($trim_bytes / $size_M) . " Mb";
|
|
} else {
|
|
$trim_size = (int($trim_bytes / $size_G * 1000)/1000) . " Gb";
|
|
}
|
|
|
|
print "
|
|
<FORM method=post action=doadmin.cgi>
|
|
<INPUT TYPE=HIDDEN NAME=tree VALUE='$safe_tree'>
|
|
<INPUT TYPE=HIDDEN NAME=command VALUE=trim_logs>
|
|
<b>Trim Logs</b><br>
|
|
Trim Logs to <INPUT NAME=days size=5 VALUE='$trim_days'> days<br>
|
|
Tinderbox is configured to show up to $::global_treedata->{$tree}->{who_days} days of log history. Currently, there are $trim_days days of logging taking up $trim_size of space.<br>
|
|
<B>Password:</B> <INPUT NAME=password TYPE=password>
|
|
<INPUT TYPE=SUBMIT VALUE='Trim Logs'>
|
|
</FORM>
|
|
<hr>
|
|
" ;
|
|
} else {
|
|
delete $form{trimlogsui};
|
|
print '<a href="admintree.cgi', &make_cgi_args(%form),
|
|
'&trimlogsui=1">List logs for deletion (very slow)</a><hr>';
|
|
}
|
|
|
|
#
|
|
# Individual tree administration
|
|
#
|
|
print "<B><font size=+1>Individual tree administration</font></b><br>";
|
|
print "
|
|
<table border=1>
|
|
<tr><td><b>Current</b></td><td>Indicates which builds are currently active relative to the current time window.</td></tr>
|
|
<tr><td><b>Active</b></td><td>Checked builds are shown on builds page. Add <b><tt>&noignore=1</tt></b> to the tinderbox URL to override.</td></tr>
|
|
<tr><td><b>Scrape</b></td><td>Checked builds will have the logs scanned for a token of the form <b>TinderboxPrint:aaa,bbb,ccc</b>.<br>These values will show up as-is in the showbuilds.cgi output.</td></tr>
|
|
<tr><td><b>Warnings</b></td><td>Checked builds will have the logs scanned for compiler warning messages.</td></tr>
|
|
</table>
|
|
";
|
|
|
|
print "
|
|
<br>
|
|
<FORM method=post action=doadmin.cgi>
|
|
<INPUT TYPE=HIDDEN NAME=tree VALUE='$safe_tree'>
|
|
<INPUT TYPE=HIDDEN NAME=command VALUE=admin_builds>
|
|
<TABLE BORDER=1>
|
|
<TR><TH>Build</TH><TH>Current</TH><TH>Active</TH><TH>Scrape</TH><TH>Warnings</TH></TR>
|
|
";
|
|
|
|
foreach my $aname (@{$treedata->{build_names}},
|
|
keys %{$treedata->{ignore_builds}},
|
|
keys %{$treedata->{scrape_builds}},
|
|
keys %{$treedata->{warning_builds}},
|
|
) {
|
|
push @names, $aname if (!grep(/^$aname$/, @names));
|
|
}
|
|
|
|
|
|
for $i (sort @names) {
|
|
if ($i ne "") {
|
|
my $buildname = &value_encode($i);
|
|
my $current_status = (grep(/^$i$/, @{$treedata->{build_names}}) ? "CHECKED" : "");
|
|
my $active_check = ($treedata->{ignore_builds}->{$i} != 0 ? "": "CHECKED=1" );
|
|
my $scrape_check = ($treedata->{scrape_builds}->{$i} != 0 ? "CHECKED=1" : "" );
|
|
my $warning_check = ($treedata->{warning_builds}->{$i} != 0 ? "CHECKED=1": "" );
|
|
print "<TR>\n";
|
|
print "<TD>$buildname</TD>\n";
|
|
print "\t<TD><INPUT TYPE=checkbox NAME='current_$buildname' $current_status DISABLED></TD>\n";
|
|
print "<TD><INPUT TYPE=checkbox NAME='active_$buildname' $active_check ></TD>\n";
|
|
print "<TD><INPUT TYPE=checkbox NAME='scrape_$buildname' $scrape_check ></TD>\n";
|
|
print "<TD><INPUT TYPE=checkbox NAME='warning_$buildname' $warning_check ></TD>\n";
|
|
print "\t<INPUT TYPE=HIDDEN NAME='all_$buildname' CHECKED>\n";
|
|
print "</TR>\n";
|
|
}
|
|
}
|
|
print "</TABLE>\n";
|
|
|
|
print "
|
|
<B>Password:</B> <INPUT NAME=password TYPE=password>
|
|
<INPUT TYPE=SUBMIT VALUE='Change build configuration'>
|
|
</FORM>
|
|
<hr>
|
|
";
|
|
|
|
#
|
|
# Tree config.
|
|
#
|
|
|
|
print "
|
|
<FORM method=post action=doadmin.cgi>
|
|
<INPUT TYPE=HIDDEN NAME=tree VALUE='$safe_tree'>
|
|
<INPUT TYPE=HIDDEN NAME=command VALUE=edit_tree>
|
|
<b>Edit a tinderbox's configuration.</b>
|
|
<TABLE>
|
|
<TR>
|
|
<TD>days of commit history to display:</TD>
|
|
<TD><INPUT NAME=who_days VALUE='$::global_treedata->{$tree}->{who_days}'></TD>
|
|
</TR>
|
|
<TR>
|
|
<TD>Query system:</TD>
|
|
<TD><SELECT NAME=query SIZE=1>
|
|
<OPTION VALUE=\"\"";
|
|
print " SELECTED=\"SELECTED\"" if ($treedata->{query} eq '');
|
|
print ">(none)</OPTION>\n";
|
|
|
|
&tb_load_queryconfig();
|
|
foreach my $query_system (@::QueryList) {
|
|
print "<OPTION VALUE=\"$query_system\"";
|
|
print " SELECTED=\"SELECTED\"" if ($treedata->{query} eq $query_system);
|
|
print ">$query_system</OPTION>\n";
|
|
}
|
|
|
|
print "</SELECT></TD>
|
|
</TR>
|
|
<TR>
|
|
<TD>
|
|
<b>Bonsai query options:</b><br>
|
|
</TD>
|
|
</TR>
|
|
<TR>
|
|
<TD>cvs repository:</TD>
|
|
<TD><INPUT NAME=repository VALUE='$treedata->{cvs_root}'></TD>
|
|
</TR>
|
|
<TR>
|
|
<TD>cvs module name:</TD>
|
|
<TD><INPUT NAME=modulename VALUE='$treedata->{cvs_module}'></TD>
|
|
</TR>
|
|
<TR>
|
|
<TD>cvs branch:</TD>
|
|
<TD><INPUT NAME=branchname VALUE='$treedata->{cvs_branch}'></TD>
|
|
</TR>
|
|
<TR>
|
|
<TD>bonsai tree:</TD>
|
|
<TD><INPUT NAME=bonsaitreename VALUE='$::global_treedata->{$tree}->{bonsai_tree}'></TD>
|
|
</TR>
|
|
<TR>
|
|
<TD>
|
|
<b>ViewVC query options:</b><br>
|
|
</TD>
|
|
</TR>
|
|
<TR>
|
|
<TD>ViewVC Repository:</TD>
|
|
<TD><INPUT NAME=viewvc_repository VALUE='$::global_treedata->{$tree}->{viewvc_repository}'></TD>
|
|
</TR>
|
|
|
|
</TABLE>
|
|
<B>Password:</B> <INPUT NAME=password TYPE=password>
|
|
<INPUT TYPE=SUBMIT VALUE='Edit tree configuration'>
|
|
</FORM>
|
|
<hr>
|
|
";
|
|
|
|
print "<B><A HREF=\"showbuilds.cgi?tree=$tree\">Return to tree</A></B>\n";
|
|
|
|
} else {
|
|
#
|
|
# Create a new tinderbox page.
|
|
#
|
|
|
|
EmitHtmlHeader("administer tinderbox", "create a tinderbox page");
|
|
|
|
print "
|
|
<FORM method=post action=doadmin.cgi>
|
|
<INPUT TYPE=HIDDEN NAME=tree VALUE=''>
|
|
<INPUT TYPE=HIDDEN NAME=command VALUE=create_tree>
|
|
<b>Create a new tinderbox page, examples for SeaMonkey shown in parens.</b>
|
|
<TABLE>
|
|
<TR>
|
|
<TD>tinderbox tree name:</TD>
|
|
<TD><INPUT NAME=treename VALUE=''></TD>
|
|
<TD>(SeaMonkey)</TD>
|
|
</TR>
|
|
<TR>
|
|
<TD>days of commit history to display:</TD>
|
|
<TD><INPUT NAME=who_days VALUE=14></TD>
|
|
<TD>(14)</TD>
|
|
</TR>
|
|
<TR>
|
|
<TD>Query system:</TD>
|
|
<TD><SELECT NAME=query SIZE=1>
|
|
<OPTION VALUE=\"\" SELECTED=\"SELECTED\">(none)</OPTION>
|
|
";
|
|
|
|
&tb_load_queryconfig();
|
|
foreach my $query_system (@::QueryList) {
|
|
print "<OPTION VALUE=\"$query_system\">$query_system</OPTION>\n";
|
|
}
|
|
|
|
print "</SELECT></TD>
|
|
</TR>
|
|
<TR>
|
|
<TD>
|
|
<b>Bonsai query options:</b><br>
|
|
</TD>
|
|
</TR>
|
|
<TR>
|
|
<TD>cvs repository:</TD>
|
|
<TD><INPUT NAME=repository VALUE=''></TD>
|
|
<TD>(/cvsroot)</TD>
|
|
</TR>
|
|
<TR>
|
|
<TD>cvs module name:</TD>
|
|
<TD><INPUT NAME=modulename VALUE=''></TD>
|
|
<TD>(MozillaTinderboxAll)</TD>
|
|
</TR>
|
|
<TR>
|
|
<TD>cvs branch:</TD>
|
|
<TD><INPUT NAME=branchname VALUE=''></TD>
|
|
<TD>(HEAD)</TD>
|
|
</TR>
|
|
<TR>
|
|
<TD>bonsai tree:</TD>
|
|
<TD><INPUT NAME=bonsaitreename></TD>
|
|
<TD>(SeaMonkey)</TD>
|
|
</TR>
|
|
<TR>
|
|
<TD>
|
|
<b>ViewVC query options:</b><br>
|
|
</TD>
|
|
</TR>
|
|
<TR>
|
|
<TD>ViewVC Repository:</TD>
|
|
<TD><INPUT NAME=viewvc_repository></TD>
|
|
<TD>(/svnroot)</TD>
|
|
</TR>
|
|
|
|
</TABLE>
|
|
<B>Password:</B> <INPUT NAME=password TYPE=password>
|
|
<INPUT TYPE=SUBMIT VALUE='Create a new Tinderbox page'>
|
|
</FORM>
|
|
<hr>
|
|
";
|
|
}
|
|
|
|
print "</BODY></HTML>\n";
|