зеркало из https://github.com/mozilla/pjs.git
204 строки
5.0 KiB
Perl
Executable File
204 строки
5.0 KiB
Perl
Executable File
#!/usr/bonsaitools/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 lib "../bonsai";
|
|
|
|
require 'lloydcgi.pl';
|
|
require 'tbglobals.pl';
|
|
require 'header.pl';
|
|
|
|
$|=1;
|
|
|
|
print "Content-type: text/html\n\n<HTML>\n";
|
|
|
|
$form{noignore} = 1; # Force us to load all build info, not
|
|
# paying any attention to ignore_builds stuff.
|
|
$maxdate = time();
|
|
$mindate = $maxdate - 24*60*60;
|
|
tb_load_data();
|
|
|
|
EmitHtmlHeader("administer tinderbox", "tree: $tree");
|
|
|
|
if (defined($tree)) {
|
|
|
|
# Sheriff
|
|
if( -r "$tree/sheriff.pl" ){
|
|
require "$tree/sheriff.pl";
|
|
$current_sheriff =~ s/\s*$//; # Trim trailing whitespace;
|
|
} else {
|
|
$current_sheriff = "";
|
|
}
|
|
|
|
# Status message.
|
|
if( -r "$tree/status.pl" ){
|
|
require "$tree/status.pl";
|
|
$status_message =~ s/\s*$//; # Trim trailing whitespace;
|
|
} else {
|
|
$status_message = "";
|
|
}
|
|
|
|
# Tree rules.
|
|
if( -r "$tree/rules.pl" ){
|
|
require "$tree/rules.pl";
|
|
$rules_message =~ s/\s*$//; # Trim trailing whitespace;
|
|
} else {
|
|
$rules_message = "";
|
|
}
|
|
|
|
|
|
#
|
|
# Change sheriff
|
|
#
|
|
print "
|
|
<FORM method=post action=doadmin.cgi>
|
|
<INPUT TYPE=HIDDEN NAME=tree VALUE=$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=4 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=$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=5 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=$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.
|
|
#
|
|
|
|
print "
|
|
<FORM method=post action=doadmin.cgi>
|
|
<INPUT TYPE=HIDDEN NAME=tree VALUE=$tree>
|
|
<INPUT TYPE=HIDDEN NAME=command VALUE=trim_logs>
|
|
<b>Trim Logs</b><br>
|
|
Trim Logs to <INPUT NAME=days size=5 VALUE='7'> days. (Tinderbox
|
|
shows 2 days history by default. You can see more by clicking show all).<br>
|
|
<B>Password:</B> <INPUT NAME=password TYPE=password>
|
|
<INPUT TYPE=SUBMIT VALUE='Trim Logs'>
|
|
</FORM>
|
|
<hr>
|
|
" ;
|
|
}
|
|
|
|
#
|
|
# Create a new tinderbox page.
|
|
#
|
|
|
|
print "
|
|
<FORM method=post action=doadmin.cgi>
|
|
<INPUT TYPE=HIDDEN NAME=tree VALUE=$tree>
|
|
<INPUT TYPE=HIDDEN NAME=command VALUE=create_tree>
|
|
<b>Create a new tinderbox page.</b>
|
|
<TABLE>
|
|
<TR>
|
|
<TD>tinderbox tree name:</TD>
|
|
<TD><INPUT NAME=treename VALUE=''></TD>
|
|
</TR><TR>
|
|
<TD>cvs repository:</TD>
|
|
<TD><INPUT NAME=repository VALUE=''></TD>
|
|
</TR><TR>
|
|
<TD>cvs module name:</TD>
|
|
<TD><INPUT NAME=modulename VALUE=''></TD>
|
|
</TR><TR>
|
|
<TD>cvs branch:</TD>
|
|
<TD><INPUT NAME=branchname VALUE='HEAD'></TD>
|
|
</TR>
|
|
</TABLE>
|
|
<B>Password:</B> <INPUT NAME=password TYPE=password>
|
|
<INPUT TYPE=SUBMIT VALUE='Create a new Tinderbox page'>
|
|
</FORM>
|
|
<hr>
|
|
";
|
|
|
|
#
|
|
# Turn builds off.
|
|
#
|
|
|
|
if (defined($tree)) {
|
|
print "
|
|
<B><font size=+1>If builds are behaving badly you can turn them off.</font></b><br> Uncheck
|
|
the build that is misbehaving and click the button. You can still see all the
|
|
builds even if some are disabled by adding the parameter <b><tt>&noignore=1</tt></b> to
|
|
the tinderbox URL.<br>
|
|
<FORM method=post action=doadmin.cgi>
|
|
<INPUT TYPE=HIDDEN NAME=tree VALUE=$tree>
|
|
<INPUT TYPE=HIDDEN NAME=command VALUE=disable_builds>
|
|
";
|
|
|
|
@names = sort (@$build_names) ;
|
|
|
|
for $i (@names){
|
|
if( $i ne "" ){
|
|
$checked = ($ignore_builds->{$i} != 0 ? "": "CHECKED" );
|
|
print "<INPUT TYPE=checkbox NAME='build_$i' $checked >";
|
|
print "$i<br>\n";
|
|
}
|
|
}
|
|
|
|
print "
|
|
<B>Password:</B> <INPUT NAME=password TYPE=password>
|
|
<INPUT TYPE=SUBMIT VALUE='Show only checked builds'>
|
|
</FORM>
|
|
<hr>
|
|
";
|
|
}
|
|
|