Adding bonsai tree name field, plus hints in parens so it's easier for newbies to figure this out.

This commit is contained in:
mcafee%netscape.com 2001-03-29 03:45:38 +00:00
Родитель a528425b2a
Коммит dfce4b727f
2 изменённых файлов: 18 добавлений и 4 удалений

Просмотреть файл

@ -146,20 +146,32 @@ 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>
<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>
</TR><TR>
<TD>(SeaMonkey)</TD>
</TR>
<TR>
<TD>cvs repository:</TD>
<TD><INPUT NAME=repository VALUE=''></TD>
</TR><TR>
<TD>(/cvsroot)</TD>
</TR>
<TR>
<TD>cvs module name:</TD>
<TD><INPUT NAME=modulename VALUE=''></TD>
</TR><TR>
<TD>(MozillaTinderboxAll)</TD>
</TR>
<TR>
<TD>cvs branch:</TD>
<TD><INPUT NAME=branchname VALUE='HEAD'></TD>
<TD>(HEAD)</TD>
</TR>
<TR>
<TD>bonsai tree:</TD>
<TD><INPUT NAME=bonsaitreename></TD>
<TD>(SeaMonkey)</TD>
</TR>
</TABLE>
<B>Password:</B> <INPUT NAME=password TYPE=password>

Просмотреть файл

@ -119,6 +119,7 @@ sub create_tree {
my $repository = $form{'repository'};
$modulename = $form{'modulename'};
$branchname = $form{'branchname'};
$bonsaitreename = $form{'bonsaitreename'};
if( -r $treename ){
chmod 0777, $treename;
@ -129,6 +130,7 @@ sub create_tree {
open( F, ">$treename/treedata.pl" );
print F "\$cvs_module='$modulename';\n";
print F "\$cvs_branch='$branchname';\n";
print F "\$bonsai_tree='$bonsaitreename';\n";
if ($repository ne "") {
print F "\$cvs_root='$repository';\n";
}