зеркало из https://github.com/mozilla/gecko-dev.git
Patches by Matthew Wilson <msw@gimp.org> -- added much of the missing configuration ability.
This commit is contained in:
Родитель
2b15710b4c
Коммит
953de4703b
|
@ -16,7 +16,104 @@
|
|||
# Corporation. Portions created by Netscape are Copyright (C) 1998
|
||||
# Netscape Communications Corporation. All Rights Reserved.
|
||||
|
||||
|
||||
# This Makefile helps you install Bonsai. Define PERL and MYSQLTCL to
|
||||
# the full pathnames of where you have these utilities. Define PREFIX
|
||||
# to where you will install the running Bonsai. Then "make install" should
|
||||
# copy things for you.
|
||||
|
||||
|
||||
CFLAGS = -g
|
||||
#LDFLAGS = -lcrypt
|
||||
#PERL = /usr/bin/perl
|
||||
#MYSQLTCL = /bonsai/bin/mysqltcl
|
||||
#PREFIX = /home/httpd/html/bonsai
|
||||
|
||||
FILES = CGI.tcl \
|
||||
SourceChecker.cgi \
|
||||
SourceChecker.pm \
|
||||
addcheckin.tcl \
|
||||
admin.cgi \
|
||||
adminfuncs.tcl \
|
||||
adminmail.tcl \
|
||||
branchspam.cgi \
|
||||
branchspammer.cgi \
|
||||
changebar.tcl \
|
||||
closemessage \
|
||||
contacthelp.html \
|
||||
countcheckins.cgi \
|
||||
createlegaldirs.tcl \
|
||||
cvsblame.cgi \
|
||||
cvsblame.pl \
|
||||
cvsguess.cgi \
|
||||
cvsindex.pl \
|
||||
cvslog.cgi \
|
||||
cvsmenu.pl \
|
||||
cvsquery.cgi \
|
||||
cvsquery.pl \
|
||||
cvsqueryform.cgi \
|
||||
cvsregexp.html \
|
||||
cvsview2.cgi \
|
||||
doadmin.cgi \
|
||||
doeditcheckin.cgi \
|
||||
doeditmessage.cgi \
|
||||
doeditprofile.cgi \
|
||||
doeditwhiteboard.cgi \
|
||||
dolog.pl \
|
||||
dotweak.cgi \
|
||||
editcheckin.cgi \
|
||||
editmessage.cgi \
|
||||
editprofile.cgi \
|
||||
editwhiteboard.cgi \
|
||||
globals.tcl \
|
||||
handleAdminMail.tcl \
|
||||
handleCheckinMail.tcl \
|
||||
header.pl \
|
||||
index.html \
|
||||
indextest.pl \
|
||||
lloydcgi.pl \
|
||||
localprofile.cgi \
|
||||
maketables.sh \
|
||||
moduleanalyse.cgi \
|
||||
modules.pl \
|
||||
multidiff.cgi \
|
||||
myglobrecur.tcl \
|
||||
openmessage \
|
||||
perlifyconfig.tcl \
|
||||
processqueue.pl \
|
||||
profile.cgi \
|
||||
rebuildcvshistory.cgi \
|
||||
rebuilddatabase.tcl \
|
||||
rebuildtaginfo.cgi \
|
||||
repophook.cgi \
|
||||
reposfiles.pl \
|
||||
rview.cgi \
|
||||
show2.cgi \
|
||||
showcheckins.cgi \
|
||||
switchtree.cgi \
|
||||
testlock.pl \
|
||||
toplevel.cgi \
|
||||
utils.pl \
|
||||
viewold.cgi
|
||||
|
||||
trapdoor: trapdoor.o
|
||||
cc -o trapdoor trapdoor.o
|
||||
cc -o trapdoor trapdoor.o $(LDFLAGS)
|
||||
|
||||
install: trapdoor
|
||||
mkdir -p $(PREFIX) && \
|
||||
for I in $(FILES); do \
|
||||
echo Installing $$I && \
|
||||
sed -e s#/usr/bonsaitools/bin/perl#$(PERL)#g \
|
||||
-e s#/usr/bonsaitools/bin/mysqltcl#$(MYSQLTCL)#g \
|
||||
$$I > $(PREFIX)/$$I && \
|
||||
chmod 755 $(PREFIX)$(I); done && \
|
||||
mkdir -p $(PREFIX)/data && \
|
||||
cp -f trapdoor $(PREFIX)/data && \
|
||||
chmod 755 $(PREFIX)/data && \
|
||||
cp -f bonsai.gif $(PREFIX) && \
|
||||
chmod 755 $(PREFIX)/bonsai.gif
|
||||
|
||||
clean:
|
||||
rm -f trapdoor trapdoor.o
|
||||
|
||||
|
||||
|
|
|
@ -39,7 +39,7 @@ proc digest {str} {
|
|||
set env(CVSROOT) $treeinfo($treeid,repository)
|
||||
set origdir [pwd]
|
||||
cd /
|
||||
set fid [open "|/tools/ns/bin/cvs checkout -c" r]
|
||||
set fid [open "|$cvscommand checkout -c" r]
|
||||
cd $origdir
|
||||
|
||||
set curline ""
|
||||
|
|
|
@ -463,14 +463,15 @@ sub print_useful_links {
|
|||
my ($dir, $file) = $path =~ m@(.*/)?(.+)@;
|
||||
$dir =~ s@/$@@;
|
||||
|
||||
my $lxr_base = "http://cvs-mirror.mozilla.org/webtools/lxr/source";
|
||||
my $diff_base = "cvsview2.cgi";
|
||||
my $blame_base = "cvsblame.cgi";
|
||||
|
||||
# total kludge!! lxr omits the top-level "mozilla" directory...
|
||||
my $lxr_path = $path;
|
||||
$lxr_path =~ s@^ns/@@;
|
||||
$lxr_path =~ s@^mozilla/@@;
|
||||
if ($mozilla_lxr_kludge eq 'TRUE') {
|
||||
$lxr_path =~ s@^ns/@@;
|
||||
$lxr_path =~ s@^mozilla/@@;
|
||||
}
|
||||
|
||||
my $lxr_link = "$lxr_base/$lxr_path";
|
||||
my $diff_link = "$diff_base?command=DIRECTORY\&subdir=$dir\&files=$file";
|
||||
|
|
|
@ -393,7 +393,7 @@ $prefix .= "&root=$opt_root";
|
|||
$magic_url = "$prefix&subdir=$opt_subdir";
|
||||
|
||||
# Now that we've munged QUERY_STRING into perl variables, set rcsdiff options.
|
||||
$rcsdiff = '/tools/ns/bin/rcsdiff -f';
|
||||
$rcsdiff = "$rcsdiffcommand -f";
|
||||
$rcsdiff .= ' -w' if ($opt_whitespace_mode eq 'ignore');
|
||||
|
||||
# Handle the "root" argument
|
||||
|
@ -466,17 +466,17 @@ sub do_diff_links {
|
|||
|
||||
open(RCSDIFF, "$rcsdiff -r$opt_rev1 -r$opt_rev2 $opt_file 2>/dev/null |");
|
||||
|
||||
|
||||
print '<FORM><TABLE CELLPADDING=0 CELLSPACING=0 BORDER=0><TR VALIGN=TOP>';
|
||||
|
||||
my $lxr_base = "http://cvs-mirror.mozilla.org/webtools/lxr/source";
|
||||
my $diff_base = "cvsview2.cgi";
|
||||
my $blame_base = "cvsblame.cgi";
|
||||
|
||||
# total kludge!! lxr omits the top-level "mozilla" directory...
|
||||
my $lxr_path = "$opt_subdir/$opt_file";
|
||||
$lxr_path =~ s@^ns/@@;
|
||||
$lxr_path =~ s@^mozilla/@@;
|
||||
if ($mozilla_lxr_kludge eq 'TRUE') {
|
||||
$lxr_path =~ s@^ns/@@;
|
||||
$lxr_path =~ s@^mozilla/@@;
|
||||
}
|
||||
|
||||
my $lxr_link = "$lxr_base/$lxr_path";
|
||||
my $blame_link = "$blame_base?root=$CVS_ROOT\&file=$opt_subdir/$opt_file";
|
||||
|
@ -658,12 +658,12 @@ sub do_directory {
|
|||
$path = "$dir/Attic/$file,v" if (! -r $path);
|
||||
&parse_rcs_file($path);
|
||||
|
||||
my $lxr_base = "http://cvs-mirror.mozilla.org/webtools/lxr/source";
|
||||
|
||||
# total kludge!! lxr omits the top-level "mozilla" directory...
|
||||
my $lxr_path = "$opt_subdir/$file";
|
||||
$lxr_path =~ s@^ns/@@;
|
||||
$lxr_path =~ s@^mozilla/@@;
|
||||
if (mozilla_lxr_kludge) {
|
||||
$lxr_path =~ s@^ns/@@;
|
||||
$lxr_path =~ s@^mozilla/@@;
|
||||
}
|
||||
|
||||
my $lxr_link = "$lxr_base/$lxr_path";
|
||||
|
||||
|
@ -783,7 +783,7 @@ sub html_diff {
|
|||
local ($old_line_num) = 1;
|
||||
|
||||
open(DIFF, "$rcsdiff -f -r$rev1 -r$rev2 $file 2>/dev/null |");
|
||||
open(OLDREV, "/tools/ns/bin/co -p$rev1 $file 2>/dev/null |");
|
||||
open(OLDREV, "$cocommand -p$rev1 $file 2>/dev/null |");
|
||||
|
||||
$anchor_num = 0;
|
||||
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
#! /tools/ns/bin/perl5
|
||||
#!/tools/ns/bin/perl5
|
||||
# -*- Mode: perl; indent-tabs-mode: nil -*-
|
||||
#
|
||||
# The contents of this file are subject to the Netscape Public License
|
||||
|
@ -40,6 +40,7 @@ $flag_debug = 0;
|
|||
$flag_tagcmd = 0;
|
||||
$repository = '';
|
||||
$repository_tag = '';
|
||||
$rlogcommand = '/tools/ns/bin/rlog';
|
||||
|
||||
@mailto=();
|
||||
@changed_files = ();
|
||||
|
@ -177,7 +178,7 @@ sub process_cvs_info {
|
|||
if( ! -r $rcsfile ){
|
||||
$rcsfile = "$envcvsroot/$repository/Attic/$fn,v";
|
||||
}
|
||||
open(LOG, "/tools/ns/bin/rlog -N -r$rev $rcsfile |")
|
||||
open(LOG, "$rlogcommand -N -r$rev $rcsfile |")
|
||||
|| print STDERR "dolog.pl: Couldn't run rlog\n";
|
||||
while(<LOG>){
|
||||
if( /^revision /){
|
||||
|
|
|
@ -21,7 +21,12 @@
|
|||
# closetimestamp -- when the tree was closed. When we open, it probably
|
||||
# becomes the lastgoodtimestamp
|
||||
|
||||
|
||||
set cvscommand /tools/ns/bin/cvs
|
||||
set rlogcommand /tools/ns/bin/rlog
|
||||
set rcsdiffcommand /tools/ns/bin/rcsdiff
|
||||
set cocommand /tools/ns/bin/co
|
||||
set lxr_base http://cvs-mirror.mozilla.org/webtools/lxr/source
|
||||
set mozilla_lxr_kludge TRUE
|
||||
|
||||
set ldapserver directory.mcom.com
|
||||
# set ldapserver hoth.mcom.com
|
||||
|
|
|
@ -72,7 +72,7 @@ for $k (@revs) {
|
|||
if (IsHidden($fullname)) {
|
||||
next;
|
||||
}
|
||||
open( DIFF, "/tools/ns/bin/rcsdiff -c -r$prevrev -r$rev $fullname 2>&1|" );
|
||||
open( DIFF, "$rcsdiffcommand -c -r$prevrev -r$rev $fullname 2>&1|" );
|
||||
$_ =~ s/&/&/g;
|
||||
$_ =~ s/</</g;
|
||||
while(<DIFF>){
|
||||
|
|
|
@ -60,6 +60,12 @@ puts $fid "\# gets automatically generated from that one."
|
|||
puts $fid ""
|
||||
regsub -all {(^|[^\])&} $BUGSYSTEMEXPR {\1$\&} BUGSYSTEMEXPR
|
||||
puts $fid "\$BUGSYSTEMEXPR = [PerlStringify $BUGSYSTEMEXPR];"
|
||||
puts $fid "\$cvscommand = [PerlStringify $cvscommand];"
|
||||
puts $fid "\$rlogcommand = [PerlStringify $rlogcommand];"
|
||||
puts $fid "\$rcsdiffcommand = [PerlStringify $rcsdiffcommand];"
|
||||
puts $fid "\$cocommand = [PerlStringify $cocommand];"
|
||||
puts $fid "\$lxr_base = [PerlStringify $lxr_base];"
|
||||
puts $fid "\$mozilla_lxr_kludge = [PerlStringify $mozilla_lxr_kludge];"
|
||||
set list ""
|
||||
foreach i $treelist {
|
||||
append list [PerlStringify $i]
|
||||
|
|
|
@ -55,11 +55,11 @@ flush stdout
|
|||
set repositoryid [GetId repositories repository $repository]
|
||||
|
||||
proc ProcessOneFile {filename} {
|
||||
global repository startfrom
|
||||
global repository startfrom rlogcommand
|
||||
|
||||
puts "$filename"
|
||||
flush stdout
|
||||
set fid [open "|/tools/ns/bin/rlog $filename" r]
|
||||
set fid [open "|$rlogcommand $filename" r]
|
||||
set doingtags 0
|
||||
catch {unset branchname}
|
||||
regsub -- {,v$} $filename {} filerealname
|
||||
|
@ -211,7 +211,7 @@ proc digest {str} {
|
|||
set env(CVSROOT) $treeinfo($treeid,repository)
|
||||
set origdir [pwd]
|
||||
cd /
|
||||
set fid [open "|/tools/ns/bin/cvs checkout -c" r]
|
||||
set fid [open "|$cvscommand checkout -c" r]
|
||||
cd $origdir
|
||||
|
||||
set curline ""
|
||||
|
|
|
@ -42,7 +42,7 @@ set numtags 0
|
|||
my_for_recursive_glob filename $repository "*,v" {
|
||||
puts "$filename<br>"
|
||||
flush stdout
|
||||
set fid [open "|/tools/ns/bin/rlog -h $filename" r]
|
||||
set fid [open "|$rc -h $filename" r]
|
||||
set doingtags 0
|
||||
while {1} {
|
||||
if {[gets $fid line] < 0} {
|
||||
|
|
Загрузка…
Ссылка в новой задаче