workaround for bug=30927

git-svn-id: svn://10.0.0.236/branches/M15-patch@72213 18797224-902f-48f8-a5cc-f745e15eee43

mozilla/java/dom/jni/javaDOMGlobals.h

@@ -0,0 +1,105 @@
+/* 
+ The contents of this file are subject to the Mozilla 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/MPL/
+
+ 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 mozilla.org code.
+
+ The Initial Developer of the Original Code is Sun Microsystems,
+ Inc. Portions created by Sun are
+ Copyright (C) 1999 Sun Microsystems, Inc. All
+ Rights Reserved.
+
+ Contributor(s): 
+*/
+
+#ifndef __JavaDOMGlobals_h__
+#define __JavaDOMGlobals_h__
+
+#include "jni.h"
+#include "prclist.h"
+#include "nsError.h"
+
+#ifdef ERROR
+#undef ERROR
+#endif
+
+class nsISupports;
+class nsIDOMNode;
+struct PRLogModuleInfo;
+struct PRLock;
+
+class JavaDOMGlobals {
+
+ public:
+  static jclass attrClass;
+  static jclass cDataSectionClass;
+  static jclass commentClass;
+  static jclass documentClass;
+  static jclass documentFragmentClass;
+  static jclass documentTypeClass;
+  static jclass domImplementationClass;
+  static jclass elementClass;
+  static jclass entityClass;
+  static jclass entityReferenceClass;
+  static jclass namedNodeMapClass;
+  static jclass nodeClass;
+  static jclass nodeListClass;
+  static jclass notationClass;
+  static jclass processingInstructionClass;
+  static jclass textClass;
+
+  static jfieldID nodePtrFID;
+  static jfieldID nodeListPtrFID;
+  static jfieldID domImplementationPtrFID;
+
+  static jfieldID nodeTypeAttributeFID;
+  static jfieldID nodeTypeCDataSectionFID;
+  static jfieldID nodeTypeCommentFID;
+  static jfieldID nodeTypeDocumentFragmentFID;
+  static jfieldID nodeTypeDocumentFID;
+  static jfieldID nodeTypeDocumentTypeFID;
+  static jfieldID nodeTypeElementFID;
+  static jfieldID nodeTypeEntityFID;
+  static jfieldID nodeTypeEntityReferenceFID;
+  static jfieldID nodeTypeNotationFID;
+  static jfieldID nodeTypeProcessingInstructionFID;
+  static jfieldID nodeTypeTextFID;
+
+  static jclass domExceptionClass;
+  static jmethodID domExceptionInitMID;
+  static jclass runtimeExceptionClass;
+  static jmethodID runtimeExceptionInitMID;
+
+  static const char* const DOM_EXCEPTION_MESSAGE[];
+
+  typedef enum ExceptionType { EXCEPTION_RUNTIME, 
+			       EXCEPTION_DOM } ExceptionType;
+  
+  static PRLogModuleInfo* log;
+  static PRCList garbage;
+  static PRLock* garbageLock;
+
+  static PRInt32 javaMaxInt;
+
+  static void Initialize(JNIEnv *env);
+  static void Destroy(JNIEnv *env);
+  static jobject CreateNodeSubtype(JNIEnv *env, 
+				   nsIDOMNode *node);
+
+  static void AddToGarbage(nsISupports* domObject);
+  static void TakeOutGarbage();
+
+  static void ThrowException(JNIEnv *env,
+                             const char * message = NULL,
+                             nsresult rv = NS_OK,
+                             ExceptionType exceptionType = EXCEPTION_RUNTIME);
+};
+  
+#endif /* __JavaDOMGlobals_h__ */

mozilla/webtools/bonsai/CGI.pl

@@ -1,484 +0,0 @@
-# -*- Mode: perl; indent-tabs-mode: nil -*-
-#
-# The contents of this file are subject to the Mozilla Public License
-# Version 1.0 (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/MPL/
-# 
-# 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 Bugzilla Bug Tracking System.
-# 
-# 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): Terry Weissman <terry@mozilla.org>
-
-# Contains some global routines used throughout the CGI scripts of Bugzilla.
-
-use diagnostics;
-use strict;
-
-use CGI::Carp qw(fatalsToBrowser);
-
-require 'globals.pl';
-
-##
-##  Utility routines to convert strings
-##
-
-# Get rid of all the %xx encoding and the like from the given URL.
-sub url_decode {
-    my ($todecode) = (@_);
-    $todecode =~ tr/+/ /;       # pluses become spaces
-    $todecode =~ s/%([0-9a-fA-F]{2})/pack("c",hex($1))/ge;
-    return $todecode;
-}
-
-# Quotify a string, suitable for putting into a URL.
-sub url_quote {
-    my($toencode) = (@_);
-    $toencode=~s/([^a-zA-Z0-9_\-.])/uc sprintf("%%%02x",ord($1))/eg;
-    return $toencode;
-}
-
-# Quotify a string, suitable for output as form values
-sub value_quote {
-    my ($var) = (@_);
-    $var =~ s/\&/\&amp;/g;
-    $var =~ s/</\&lt;/g;
-    $var =~ s/>/\&gt;/g;
-    $var =~ s/\"/\&quot;/g;
-    $var =~ s/\n/\&#010;/g;
-    $var =~ s/\r/\&#013;/g;
-    return $var;
-}
-
-sub url_encode2 {
-    my ($s) = @_;
-
-    $s =~ s/\%/\%25/g;
-    $s =~ s/\=/\%3d/g;
-    $s =~ s/\?/\%3f/g;
-    $s =~ s/ /\%20/g;
-    $s =~ s/\n/\%0a/g;
-    $s =~ s/\r//g;
-    $s =~ s/\"/\%22/g;
-    $s =~ s/\'/\%27/g;
-    $s =~ s/\|/\%7c/g;
-    $s =~ s/\&/\%26/g;
-    $s =~ s/\+/\%2b/g;
-    return $s;
-}
-
-sub url_encode3 {
-    my ($s) = @_;
-
-    $s =~ s/\n/\%0a/g;
-    $s =~ s/\r//g;
-    $s =~ s/\"/\%22/g;
-    $s =~ s/\+/\%2b/g;
-    return $s;
-}
-
-
-##
-##  Routines to generate html as part of Bonsai
-##
-
-# Create the URL that has the correct tree and batch information
-sub BatchIdPart {
-    my ($initstr) = @_;
-    my ($result, $ro) = ("", Param('readonly'));
-
-    $initstr = ""                     unless (defined($initstr) && $initstr);
-
-    $result = $initstr                if (($::TreeID ne "default") || $ro);
-    $result .= "&treeid=$::TreeID"    if ($::TreeID ne "default");
-    $result .= "&batchid=$::BatchID"  if ($ro);
-
-    return $result;
-}
-
-# Create a generic page header for bonsai pages
-sub PutsHeader {
-    my ($title, $h1, $h2) = (@_);
-
-    if (!defined $h1) {
-	$h1 = $title;
-    }
-    if (!defined $h2) {
-	$h2 = "";
-    }
-
-    print "<HTML><HEAD>\n<TITLE>$title</TITLE>\n";
-    print $::Setup_String if (defined($::Setup_String) && $::Setup_String);
-    print Param("headerhtml") . "\n</HEAD>\n";
-    print "<BODY   BGCOLOR=\"#FFFFFF\" TEXT=\"#000000\"\n";
-    print "LINK=\"#0000EE\" VLINK=\"#551A8B\" ALINK=\"#FF0000\">\n";
-
-    print PerformSubsts(Param("bannerhtml"), undef);
-
-    print "<TABLE BORDER=0 CELLPADDING=12 CELLSPACING=0 WIDTH=\"100%\">\n";
-    print " <TR>\n";
-    print "  <TD>\n";
-    print "   <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=2>\n";
-    print "    <TR><TD VALIGN=TOP ALIGN=CENTER NOWRAP>\n";
-    print "     <FONT SIZE=\"+3\"><B><NOBR>$h1</NOBR></B></FONT>\n";
-    print "    </TD></TR><TR><TD VALIGN=TOP ALIGN=CENTER>\n";
-    print "     <B>$h2</B>\n";
-    print "    </TD></TR>\n";
-    print "   </TABLE>\n";
-    print "  </TD>\n";
-    print "  <TD>\n";
-
-    print Param("blurbhtml");
-
-    print "</TD></TR></TABLE>\n";
-}
-
-# Create a generic page trailer for bonsai pages
-sub PutsTrailer {
-     my $args = BatchIdPart('?');
-     my $maintainer = Param('maintainer');
-     my $email = '';
-
-
-     if ($maintainer) {
-          $email = "<br>" . ConstructMailTo($maintainer, "Bonsai Comments");
-          $email .= " with comments/questions about this page.\n";
-     }
-
-     print "
-<br clear=all>
-<hr>
-<a href=\"toplevel.cgi$args\" target=_top>
-    Back to the top of Bonsai</a>
-$email
-</html>
-";
-}
-
-
-sub GeneratePersonInput {
-    my ($field, $required, $def_value, $extraJavaScript) = (@_);
-    if (!defined $extraJavaScript) {
-        $extraJavaScript = "";
-    }
-    if ($extraJavaScript ne "") {
-        $extraJavaScript = "onChange=\" $extraJavaScript \"";
-    }
-    return "<INPUT NAME=\"$field\" SIZE=32 $extraJavaScript VALUE=\"$def_value\">";
-}
-
-sub GeneratePeopleInput {
-    my ($field, $def_value) = (@_);
-    return "<INPUT NAME=\"$field\" SIZE=45 VALUE=\"$def_value\">";
-}
-
-
-sub make_options {
-    my ($src,$default,$isregexp) = (@_);
-    my $last = "";
-    my $popup = "";
-    my $found = 0;
-
-    if ($src) {
-        foreach my $item (@$src) {
-            if ($item eq "-blank-" || $item ne $last) {
-                if ($item eq "-blank-") {
-                    $item = "";
-                }
-                $last = $item;
-                if ($isregexp ? $item =~ $default : $default eq $item) {
-                    $popup .= "<OPTION SELECTED VALUE=\"$item\">$item";
-                    $found = 1;
-                } else {
-                    $popup .= "<OPTION VALUE=\"$item\">$item";
-                }
-            }
-        }
-    }
-    if (!$found && $default ne "") {
-	$popup .= "<OPTION SELECTED>$default";
-    }
-    return $popup;
-}
-
-sub make_popup {
-    my ($name,$src,$default,$listtype,$onchange) = (@_);
-    my $popup = "<SELECT NAME=$name";
-    if ($listtype > 0) {
-        $popup .= " SIZE=5";
-        if ($listtype == 2) {
-            $popup .= " MULTIPLE";
-        }
-    }
-    if (defined $onchange && $onchange ne "") {
-        $popup .= " onchange=$onchange";
-    }
-    $popup .= ">" . make_options($src, $default,
-                                 ($listtype == 2 && $default ne ""));
-    $popup .= "</SELECT>";
-    return $popup;
-}
-
-sub make_cgi_args {
-    my ($k,$v);
-    my $ret = "";
-
-    for $k (sort keys %::FORM){
-        $ret .= ($ret eq "" ? '?' : '&');
-        $v = $::FORM{$k};
-        $ret .= &url_encode2($k);
-        $ret .= '=';
-        $ret .= &url_encode2($v);
-    }
-    return $ret;
-}
-
-sub cvsmenu {
-     my ($extra) = @_;
-     my ($pass, $i, $page, $title);
-     my ($desc, $branch, $root, $module, $maintainer);
-
-     LoadTreeConfig();
-
-     if (!defined $extra) {
-         $extra = "";
-     }
-     print "<table border=1 bgcolor=#ffffcc $extra>\n";
-     print "<tr><th>Menu</tr><tr><td><p>\n<dl>\n";
-     
-     foreach $pass ("cvsqueryform|Query",
-                    "rview|Browse",
-                    "moduleanalyse|Examine Modules") {
-          ($page, $title) = split(/\|/, $pass);
-          $page .= ".cgi";
-          print "<b>$title</b><br><ul>\n";
-          foreach $i (@::TreeList) {
-               $branch = '';
-               $branch = "&branch=$::TreeInfo{$i}{'branch'}"
-                    if $::TreeInfo{$i}{'branch'};
-
-               $desc = $::TreeInfo{$i}{'shortdesc'};
-               $desc = $::TreeInfo{$i}{'description'} unless $desc;
-
-               $root    = "cvsroot=$::TreeInfo{$i}{'repository'}";
-               $module  = "module=$::TreeInfo{$i}{'module'}";
-               print "<li><a href=\"$page?$root&$module$branch\">$desc</a>\n";
-          };
-          print "</ul>\n";
-     };
-     
-     if (open(EXTRA, "<data/cvsmenuextra")) {
-          while (<EXTRA>) {
-               print $_;
-          }
-          close EXTRA;
-     }
-
-     $maintainer = Param('maintainer');
-     print "</dl>
-<p></tr><tr><td>
-   <font size=-1> Questions, Comments, Feature requests? 
-      mail <a href=\"mailto:$maintainer\">$maintainer</a>
-   </font>
-</tr></table>
-";
-     
-}
-
-
-
-##
-##  Routines to handle initializing CGI form data, cookies, etc...
-##
-
-sub ProcessFormFields {
-    my ($buffer) = (@_);
-    undef %::FORM;
-    undef %::MFORM;
-
-    my %isnull;
-    my $remaining = $buffer;
-    while ($remaining ne "") {
-	my $item;
-	if ($remaining =~ /^([^&]*)&(.*)$/) {
-	    $item = $1;
-	    $remaining = $2;
-	} else {
-	    $item = $remaining;
-	    $remaining = "";
-	}
-
-	my $name;
-	my $value;
-	if ($item =~ /^([^=]*)=(.*)$/) {
-	    $name = $1;
-	    $value = url_decode($2);
-	} else {
-	    $name = $item;
-	    $value = "";
-	}
-	if ($value ne "") {
-	    if (defined $::FORM{$name}) {
-		$::FORM{$name} .= $value;
-		my $ref = $::MFORM{$name};
-		push @$ref, $value;
-	    } else {
-		$::FORM{$name} = $value;
-		$::MFORM{$name} = [$value];
-	    }
-        } else {
-            $isnull{$name} = 1;
-        }
-    }
-    if (defined %isnull) {
-        foreach my $name (keys(%isnull)) {
-            if (!defined $::FORM{$name}) {
-                $::FORM{$name} = "";
-                $::MFORM{$name} = [];
-            }
-        }
-    }
-}
-
-
-sub ProcessMultipartFormFields {
-    my ($boundary) = (@_);
-    $boundary =~ s/^-*//;
-    my $remaining = $ENV{"CONTENT_LENGTH"};
-    my $inheader = 1;
-    my $itemname = "";
-
-    while ($remaining > 0 && ($_ = <STDIN>)) {
-        $remaining -= length($_);
-        if ($_ =~ m/^-*$boundary/) {
-            $inheader = 1;
-            $itemname = "";
-            next;
-        }
-
-        if ($inheader) {
-            if (m/^\s*$/) {
-                $inheader = 0;
-                $::FORM{$itemname} = "";
-            }
-            if (m/^Content-Disposition:\s*form-data\s*;\s*name\s*=\s*"([^\"]+)"/i) {
-                $itemname = $1;
-                if (m/;\s*filename\s*=\s*"([^\"]+)"/i) {
-                    $::FILENAME{$itemname} = $1;
-                }
-            }
-            
-            next;
-        }
-        $::FORM{$itemname} .= $_;
-    }
-    delete $::FORM{""};
-
-    # Get rid of trailing newlines.
-    foreach my $i (keys %::FORM) {
-        chomp($::FORM{$i});
-        $::FORM{$i} =~ s/\r$//;
-    }
-}
-        
-
-sub FormData {
-    my ($field) = (@_);
-
-    unless (defined($::FORM{$field})) {
-         print "\n<b>Error: Form field `<tt>$field</tt>' is not defined</b>\n";
-         exit 0;
-    }
-    return $::FORM{$field};
-}
-
-
-sub CheckEmailSyntax {
-    my ($addr) = (@_);
-    if ($addr !~ /^[^@, ]*@[^@, ]*\.[^@, ]*$/) {
-        print "Content-type: text/html\n\n";
-
-        print "<H1>Invalid e-mail address entered.</H1>\n";
-        print "The e-mail address you entered\n";
-        print "(<b>$addr</b>) didn't match our minimal\n";
-        print "syntax checking for a legal email address.  A legal\n";
-        print "address must contain exactly one '\@', and at least one\n";
-        print "'.' after the \@, and may not contain any commas or.\n";
-        print "spaces.\n";
-        print "<p>Please click <b>back</b> and try again.\n";
-        exit;
-    }
-}
-
-
-
-############# Live code below here (that is, not subroutine defs) #############
-
-
-$| = 1;
-
-# Uncommenting this next line can help debugging.
-# print "Content-type: text/html\n\nHello mom\n";
-
-# foreach my $k (sort(keys %ENV)) {
-#     print "$k $ENV{$k}<br>\n";
-# }
-
-if (defined $ENV{"REQUEST_METHOD"}) {
-    if ($ENV{"REQUEST_METHOD"} eq "GET") {
-        if (defined $ENV{"QUERY_STRING"}) {
-            $::buffer = $ENV{"QUERY_STRING"};
-        } else {
-            $::buffer = "";
-        }
-        ProcessFormFields $::buffer;
-    } else {
-        if ($ENV{"CONTENT_TYPE"} =~
-            m@multipart/form-data; boundary=\s*([^; ]+)@) {
-            ProcessMultipartFormFields($1);
-            $::buffer = "";
-        } else {
-            read STDIN, $::buffer, $ENV{"CONTENT_LENGTH"} ||
-                die "Couldn't get form data";
-            ProcessFormFields $::buffer;
-        }
-    }
-}
-
-
-if (defined $ENV{"HTTP_COOKIE"}) {
-    foreach my $pair (split(/;/, $ENV{"HTTP_COOKIE"})) {
-	$pair = trim($pair);
-	if ($pair =~ /^([^=]*)=(.*)$/) {
-	    $::COOKIE{$1} = $2;
-	} else {
-	    $::COOKIE{$pair} = "";
-	}
-    }
-}
-
-
-if (defined $::FORM{'treeid'} && $::FORM{'treeid'} ne "") {
-     $::TreeID = $::FORM{'treeid'};
-}
-
-if (defined $::FORM{'batchid'}) {
-     LoadBatchID();
-     if ($::BatchID != $::FORM{'batchid'}) {
-          $::BatchID = $::FORM{'batchid'};
-
-          # load parameters first to prevent overwriting
-          Param('readonly'); 
-          $::param{'readonly'} = 1;
-     }
-}
-
-1;

mozilla/webtools/bonsai/CHANGES

@@ -1,47 +0,0 @@
-This file contains only important changes made to Bonsai.  If you
-are updating from an older verseion, make sure that you check this file!
-
-For a more complete list of what has changed, use Bonsai itself, at
-(http://cvs-mirror.mozilla.org/webtools/bonsai/cvsqueryform.cgi) to
-query the CVS tree.  For example,
-
-    http://cvs-mirror.mozilla.org/webtools/bonsai/cvsquery.cgi?module=all&branch=HEAD&branchtype=match&dir=mozilla%2Fwebtools%2Fbonsai&file=&filetype=match&who=&whotype=match&sortby=Date&hours=2&date=week&mindate=&maxdate=&cvsroot=%2Fcvsroot 
-
-will tell you what has been changed in the last week.
-
-
-10/12/99 Apparently, newer alphas of MySQL won't allow you to have
-"when" as a column name.  So, I have had to rename a column in the
-checkins table.  You must feed the below to mysql or you won't
-work at all.
-
-	alter table checkins change column when ci_when datetime not null;
-
-
-7/9/99 Ported completely to perl!  (Due to heroic efforts by Dieter
-Weber <dieter@Compatible.COM>).  Among the things you need to do to
-get this to work are:
-
-	- Realize that this installation will clear the "hook", and will
-	  prevent you from seeing any old hooks that were created by the old
-	  TCL code.
-	- Create a treeconfig.pl, based on the tree data in your old
-	  (now obsolete) configdata.
-	- Make sure your perl contains the MailDate and libnet CPAN modules
-	  (see INSTALL for how to get these)
-	- Add a new column to the descs table (Dieter added this to speedup
-	  database rebuilds).  Feed this to mysql:
-
-		alter table descs add column hash bigint not null;
-
-	- Go visit the new editparams.cgi page, and adjust everything.
-	- Change your mail alias to point to the new handleCheckinMail.pl
-	  script (instead of handleCheckinMail.tcl)
-	- If you use the "administrator mail" feature, change its mail alias to
-	  point to the new handleAdminMail.pl (instead of handleAdminMail.tcl).
-
-
-
-4/30/99 Now uses autoconf, and comes with a configure script.  A few
-new variables can be defined in your configdata file, and probably
-need to be.  See the file configdata.in for a list of the new parameters.

mozilla/webtools/bonsai/INSTALL

@@ -1,261 +0,0 @@
-# -*- mode: indented-text -*-
-#
-# Author: Artem Belevich <abelevic@ctron.com> 
-#
-# (Changes have been made to Artem's original doc, as things evolve.)
-#
-#
-
-**********************************************************************
-
-As it's said in README "This is not very well packaged code.  It's
-not packaged at all.  Don't come here expecting something you plop in
-a directory, twiddle a few things, and you're off and using it.  Much
-work has to be done to get there." 
-
-This file is intended to make some things *easier* but not easy. You
-are still required to make some changes on your own. There is no
-guaranteed solution yet and it's unlikely that there will be one in
-the nearest future.
-
-**********************************************************************
-
-
-0. OVERVIEW
-
-Some time ago I've seen Linux Source Navigator (LSN) at
-http://sunsite.unc.edu/linux-source. I was impressed. 
-It was and is a wanderful tool to explore Linux kernel source code.
-
-Then Mozilla.org came up with a more elaborate tool that includes
-source browser with crossreferencing (LXR http://lxr.linux.no) and CVS
-tree control (Bonsai - http://www.mozilla.org/bonsai.html). 
-While LXR formatting is not as pretty as LSN's one, it has a huge
-advantage - it lets you see where the identifier is defined and used.
-And Bonsai brings nice and easy (though sometimes incompatible with
-browsers other but Netscape's own) interface to the CVS history. This
-includes getting list of changes, giffs between revisions, etc.
-
-All in all LXR+Bonsai+other stuff beneath is a useful tool capable
-of handling huge projects. 
-
-It's not that easy to make it work with other source tree but
-Mozilla's own but it's possible. And there are a lot of things to
-improve. Now I'm going to concentrate on the first goal - to make it
-work. 
-
-
-1. GETTING IT UP
-
-   First of all you have to get all the tools in mozilla's
-mozilla/webtools CVS repository. This includes lxr,bonsai,registry
-and tinderbox. You're likely will not need neither tinderbox nor
-registry but get them just in case.
-
-   To get the sources you have to follow instructions on
-http://www.mozilla.org/bonsai.html.
-
-   OK, now you've got the sources but don't rush to try it right
-away. It's likely that you will not be able to even start most of
-the scripts. There are more things you will have to get and install.
-The short list of the things you will need:
-
-   1) MySQL database server.
-   2) Perl 5.004+ with Mysql module (included with MySQL).
-   3) Date::Parse module for Perl
-   4) Some kind of HTTP server so you could use CGI scripts
-
-   You could try running the ./configure script to see what tools it
-complains about right now. Mind you, it won't check for the MySQL
-database.
-
-1.1 Getting and setting up MySQL database
-
-   Visit MySQL homepage at http://www.tcx.se and grab the latest
-stable binary release of the server. Sure, you can get sources and
-compile them yourself, but binaries are the easiest and the fastest
-way to get it up and running. Follow instructions found in
-manual. There is a section about installing binary-only
-distributions. 
-
-   You should create database bonsai. It may be a good idea to make it
-writable by all users on your machine and change access level
-later. This would save you a lot of time trying to guess whether it's
-permissions or a mistake in the script that make things fail.
-
-1.2 Perl + Mysql
-
-   You will need Perl 5.004 with DB and Mysql extensions. 
-
-   DB is required to use LXR browser and crossreferencer for storing
-its database. Mysql is used by Bonsai.
-
-   If you have Perl already installed, try to run genxref program from
-LXR suite. If it complains that it misses DB terribly then you're
-probably will have to get and install DB 1.86 distribution from one of the
-CPAN (www.cpan.org) mirrors in src/misc directory. I personally got it
-from http://www.cpan.org/src/misc/db.1.86.tar.gz. Having DB compiled
-and installed you will also have to rebuild and reinstall Perl
-itself so It would recognize and compile DB module in. This can be
-tricky if you have DB installed in some strange place as I did. 
-I've got an error during linking phase - there was a function missing
-in hash/ndbm.c file, so I just commented it out. It may potentially
-cause troubles, but I think it does not matter in our case as this
-was intended only for DBM compatibility - the feature we don't really
-use. 
-
-   Now you hopefully have Perl + DB compiled installed and working.
-Time to set up Mysql module. This one is easy. Just follow
-instructions in MySQL manual. You have to read manuals sometimes.. 
-I think I'm getting older.. 8-)
-
-   Next step is to get TimeDate module from one of the CPAN mirrors.
-Go to CPAN search page
-(http://theory.uwinnipeg.ca/search/cpan-search.html) and search for
-the "TimeDate" module. Then get it and install.
-
-You also need to get the libnet and MailTools CPAN modules.  They can
-both be found on CPAN at CPAN/modules/by-authors/id/GBARR.
-
-1.3 HTTP server
-
-You have a freedom of choice here - Apache, Netscape or any other
-server on UNIX would do. The only thing - to make configuration easier
-you'd better run HTTP daemon on the same machine that you run MySQL
-server on. Make sure that you can access 'bonsai' database with user
-id you're running the daemon with.
-
-
-2. TWEAKING THE TOOLS
-
-   Now you should have all necessary tools to be able to run LXR and
-Bonsai scripts and see why the wouldn't work for you right now.
-
-2.1 LXR
-
-   The first thing to set up is LXR tool. All it needs is the source
-tree (not CVS tree). It's relatively easy and works almost right of
-the box. Follow instructions in LXR README file. 
-
-   Having set LXR you will see that regardless what your source tree
-contains you will see that everything refers to it as Mozilla. Mozilla
-is a great thing and this tool was primarily tailored to mozilla tree
-but you'd like to control your own tree. First step is to edit your
-
-Here is the short list of changes I had to make
-
-  file: ident
-    1) change "&root=/cvsroot" to tour CVSROOT path
-    2) change "file=/mozilla/" to the directory under CVSROOT where
-       your sources are. In my case it is just "/"
-
-  file: index.html
-    Nothing vital here but probably worth changing to reflect your own
-    environment
-
-  file: lxr.conf
-    Changes to this file are described in LXR README file and are
-    quite simple.
-
-  file: source
-    You may find it useful to uncomment "$img = "/icons/..." lines if
-    you yse Explorer as it does not have internal-gopher-* images
-    built in. Actually Bonsai contains a lot of netscapism that will
-    make your IE4 unhappy anyway. You'd better stick with Netscape if
-    you are going to use LXR/Bonsai
-
-  file: template-*
-    Here you will probably want to watch closely at the places whare
-    you see the word 'mozilla' near '.cgi'. There are a lot of
-    mozilla-specific paths hardcoded
-    
-    cgange/get rid of banner that loads straight from mozilla.org that
-    may be very dangerous if you're working for micro$oft and your
-    boss comes by.. 8-) 
-
-2.2 Bonsai
-
-   This stuff sometimes gets very specific about your CVS repository
-setup. You have to make a lot of changes until more portable
-configuration mechanism is introduced. 
-
-   These steps should create a basic Bonsai install:
-
-   ./configure
-   make install
-
-   You might want to give the option --prefix=<path> to configure to
-install Bonsai in another place than /usr/local, e.g. /var/www.  It
-will make a new directory named "bonsai" in the prefix directory you specify.
-
-   Edit data/treeconfig.pl file as described in README file. Create
-appropriate data/XXX directory for each tree XXX you've configured
-in 'treeconfig.pl'.
-
-   Go to the data directory and run 
-
-   trapdoor <admin password here> >data/passwd
-
-   it will set up admin's password.
-
-That's basically it. With some luck and persistence you will have 90%
-working system at this point. A lot of these things are just asking to be
-fixed in near feature. And I hope they will be.
-
-3. Setting up database
-
-   This is quite simple but time consuming operation.
-First create database structure using maketable.sh script. You might
-want to edit it to use the user and password you want for the bonsai
-database.
-Then go to Bonsai administration page and press "Rebuild CVS history"
-button. Then you may go to the theater and watch a movie or two. It
-will talke a lot of time. It takes several seconds to process one
-file. The more revisions in file the more time it will take. My SUN
-workstation with 2x200Mhz UltraSPARC processors run about an hour to
-process about 4K files with 20K+ revisions. Your mileage may vary.
-
-Copy "dolog.pl" to your CVSROOT directory, and check it in. Add
-"dolog.pl" to CVSROOT/checkoutlist, and check it in. Then, add a line
-to your CVSROOT/loginfo file that says something like:
-
-      ALL      $CVSROOT/CVSROOT/dolog.pl -r /cvsroot bonsai-checkin-daemon@my.bonsai.machine
-
-Replace "/cvsroot" with the name of the CVS root directory, and
-"my.bonsai.machine" with the name of the machine Bonsai runs on. Now,
-on my.bonsai.machine, add a mail alias so that mail sent to
-"bonsai-checkin-daemon" will get piped to handleCheckinMail.tcl. The
-first argument to handleCheckinMail.tcl is the directory that bonsai
-is installed in. E.g. in /etc/aliases, add
-
- bonsai-checkin-daemon: "|/usr/local/bonsai/handleCheckinMail.tcl /usr/local/bonsai"
-
-or whatever is appropriate for your mail transport agent.
- 
-4. Things to do
-
-  a) There should be better way to track CVS tree changes. Now it's done
-by making CVS send e-mail about each checkin.  (See the comments at
-the top of dolog.pl for some clues.) One alternative theory would be
-to take advantage of the CVS history command, which provides
-all necessary information to get list of files recently commited, so
-there is no need to send/process email. Just set up a cron job that
-will periodically look for CVS tree changes and update database.  On
-the other hand, it's not at all clear how efficient the cvs history
-command is for large, active repositories.
-
-  b) Better configuration. One should not hardcode CVS tree <-> Source
-tree  translations. Another thing to configure - banners.
-
-  c) LXR could be improved in a number of ways. Using MySQL database
-instead of DB would probably be a good idea. It's unclear what impact
-it will have on performance though. Incremental database updates would
-be nice. It might be also nice to borrow syntax highliting from LSN.
-
-
-5. Conclusion.
-
-   OK. This may or may not work for you. But I hope you had a great
-time trying. Or just reading.
-
-   Any suggestions/additions are welcome.

mozilla/webtools/bonsai/Makefile.in

@@ -1,147 +0,0 @@
-#!gmake
-#
-# The contents of this file are subject to the Netscape Public License
-# Version 1.0 (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 Bonsai CVS 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.
-
-
-# This Makefile helps you install Bonsai.  Define PERL 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.
-
-CC = @CC@
-CFLAGS = @CFLAGS@
-# -lcrypt
-LDFLAGS = @LIBS@
-# /usr/bin/perl
-PERL = @PERL@
-# /var/www/bonsai
-PREFIX = @prefix@/bonsai
-
-CVS=@CVS@
-RLOG=@RLOG@
-CO=@CO@
-RCSDIFF=@RCSDIFF@
-
-FILES = CGI.pl			\
-	SourceChecker.cgi	\
-	SourceChecker.pm	\
-	addcheckin.pl		\
-	admin.cgi		\
-	adminfuncs.pl		\
-	adminmail.pl		\
-	branchspam.cgi		\
-	branchspammer.cgi	\
-	closemessage		\
-	contacthelp.html	\
-	countcheckins.cgi	\
-	createlegaldirs.pl	\
-	cvsblame.cgi		\
-	cvsblame.pl		\
-	cvsguess.cgi		\
-	cvsindex.pl		\
-	cvslog.cgi		\
-	cvsmenu.pl		\
-	cvsquery.cgi		\
-	cvsquery.pl		\
-	cvsqueryform.cgi	\
-	cvsregexp.html		\
-	cvsview2.cgi		\
-	defparams.pl		\
-	doadmin.cgi		\
-	doeditcheckin.cgi	\
-	doeditmessage.cgi	\
-	doeditparams.cgi	\
-	doeditwhiteboard.cgi	\
-	dolog.pl		\
-	dotweak.cgi		\
-	editcheckin.cgi		\
-	editmessage.cgi		\
-	editparams.cgi		\
-	editwhiteboard.cgi	\
-	globals.pl		\
-	handleAdminMail.pl	\
-	handleCheckinMail.pl	\
-	header.pl		\
-	index.html		\
-	indextest.pl		\
-	lloydcgi.pl		\
-	maketables.sh		\
-	moduleanalyse.cgi	\
-	modules.pl		\
-	multidiff.cgi		\
-	openmessage		\
-	processqueue.pl		\
-	rebuildcvshistory.cgi	\
-	repophook.cgi		\
-	reposfiles.pl		\
-	rview.cgi		\
-	showcheckins.cgi	\
-	switchtree.cgi		\
-	testlock.pl		\
-	toplevel.cgi		\
-	utils.pl		\
-	viewold.cgi
-
-all: trapdoor treeconfig.pl params
-
-trapdoor: trapdoor.o
-	$(CC) -o trapdoor trapdoor.o $(LDFLAGS)
-
-treeconfig.pl: treeconfig.pl.in
-	cp treeconfig.pl.in treeconfig.pl
-
-params: params.in
-	sed -e s#_CVS_#$(CVS)#g \
-	    -e s#_RLOG_#$(RLOG)#g \
-	    -e s#_CO_#$(CO)#g \
-	    -e s#_RCSDIFF_#$(RCSDIFF)#g \
-	    $< >$@
-
-install: all
-	-mkdir -p $(PREFIX)
-	@for I in $(FILES); do \
-	  echo Installing $$I && \
-          sed -e s#/usr/bonsaitools/bin/perl#$(PERL)#g \
-              -e s#/tools/ns/bin/perl5#$(PERL)#g \
-              $$I > $(PREFIX)/$$I && \
-	chmod 755 $(PREFIX)/$$I; done
-	-mkdir -p $(PREFIX)/data && chmod 755 $(PREFIX)/data
-	cp trapdoor $(PREFIX)/data
-	cp bonsai.gif $(PREFIX)
-	chmod 755 $(PREFIX)/bonsai.gif
-	@if test ! -r $(PREFIX)/data/treeconfig.pl ; then \
-	echo "Installing treeconfig.pl" && \
-	cp treeconfig.pl $(PREFIX)/data ; \
-	else \
-	echo ; \
-	echo "Not replacing existing treeconfig.pl" ;  \
-	echo "Check treeconfig.pl in build directory for new features" ; \
-	fi
-	@if test ! -r $(PREFIX)/data/params ; then \
-	echo "Installing params" && \
-	cp params $(PREFIX)/data ; \
-	else \
-	echo ; \
-	echo "Not replacing existing params" ;  \
-	fi
-	@echo
-	@echo "If you are installing a new Bonsai (not upgrading), you should"
-	@echo "run maketables.sh to create database tables, then customize the"
-	@echo "Bonsai configuration in $(PREFIX)/data/treeconfig.pl"
-
-clean:
-	rm -f trapdoor trapdoor.o treeconfig.pl params

mozilla/webtools/bonsai/README

@@ -1,586 +0,0 @@
-This is Bonsai.  See <http://www.mozilla.org/bonsai.html>.
-
-
-	==========
-	DISCLAIMER
-	==========
-
-This is not very well packaged code.  It's not packaged at all.  Don't
-come here expecting something you plop in a directory, twiddle a few
-things, and you're off and using it.  Much work has to be done to get
-there.  We'd like to get there, but it wasn't clear when that would be,
-and so we decided to let people see it first.
-
-Don't believe for a minute that you can use this stuff without first
-understanding most of the code.
-
-Check out the INSTALL file for some guidance on getting started.
-Many, many thanks to Artem Belevich <abelevic@ctron.com> for
-trailblazing his way through this and writing down all the problems he
-had.
-
-
-	============================
-	Configuration files you need
-	============================
-
-Lots of configuration files need to be placed in the data subdir.
-This is also where bonsai keeps its running state.  These two things
-ought to be split into different directories, but that hasn't happened
-yet.
-
-Some of these files are:
-treeconfig.pl: 	some Perl source that defines @::TreeList, a list of trees you
-		want to track, and %::TreeInfo, information about each of those
-		trees.  A sample treeconfig.pl:
-
-	@::TreeList = ('default', 'other');
-
-	%::TreeInfo = (
-	     default => {
-		  branch       => '',
-		  description  => 'My CVS repository',
-		  module       => 'All',
-		  repository   => '/d2/cvsroot',
-		  shortdesc    => 'Mine',
-			},
-	     other => {
-		  branch       => '',
-		  description  => 'Other CVS repository',
-		  module       => 'All',
-		  repository   => '/d2/otherroot',
-		  shortdesc    => 'Other',
-			},
-		
-
-		       );
-
-	1;
-
-
-
-params:	This file contains many operating parameters.  This can be 
-	edited using the editparams.cgi webpage; you should probably
-	not edit it directory.
-
-	The ./configure script will make a guess on the paramaters
-	that control paths for scripts to execute, and create an
-	initial params file for you.  It looks for things on your
-	PATH, so if it complains, add the directories in which these
-	commands reside to your PATH, or override the path check, for
-	example:
-
-		setenv PERL /usr/local/lib/perl5
-		./configure
-
-	or for the Bourne shell:
-
-		PERL=/usr/local/lib/perl5 ./configure
-
-
-hidelist:	A list of regexps that define filenames that we don't want
-		to let people see via the bonsai pages.  A common use is to
-		just have one line that says "CVSROOT".
-
-	=================================
-	What's What in the Bonsai sources:
-	=================================
-
-This is a rough first pass at cataloging and documenting the Bonsai
-sources.  Many hands have been in this code over the years, and it has
-accreted wildly.  There is probably quite a lot of dead code in here.
-
-THIS LIST IS PRETTY OLD AND OUT OF DATE.  In particular, we don't have
-any more TCL code; it's all either gone or ported to Perl.
-
-
-CGI.tcl			???
-
-Makefile:		builds the "trapdoor" program.  Also has a
-			"make install" that lets you specify where you store
-			perl and mysqltcl on your system.
-
-SourceChecker.cgi	scc wrote to help sanitize code.  DELETE
-			Called by: nobody
-
-SourceChecker.pm	???
-
-addcheckin.tcl		TCL. Add a checkin to a Bonsai hook. Determines
-			if the tree was open or closed at the time, shunts
-			checkin to proper tree.
-
-admin.cgi		TCL.  Select from various administrative tasks 
-			(which require a password.)
-
-			Called by: toplevel.cgi
-
-			Calls:
-				doadmin.cgi password=<text> treeid=<text>
-					command=[open|close]
-					closetimestamp=<time-text>
-					lastgood=<time-text>
-					doclear=<checkbox>
-
-				doadmin.cgi password=<text> treeid=<text>
-					command=tweaktimes
-					lastgood=<time-text>
-					lastclose=<time-text>
-
-				doadmin.cgi password=<text> treeid=<text>
-					command=editmotd
-					origmotd=<text>
-					motd=<text>
-
-				editmessage.cgi treeid=<text>
-					msgname=[openmessage|closemessage|
-						 treeopened|treeopenedsamehook|
-						 treeclosed]
-				    #### note: no password?
-
-				repophook.cgi password=<text> treeid=<text>
-					command=repophook
-					startfrom=<time-text>
-
-				rebuildtaginfo.cgi password=<text>
-					treeid=<text>
-					command=rebuildtaginfo
-
-				rebuildcvshistory.cgi password=<text>
-					treeid=<text>
-					command=rebuildcvs
-					startfrom=<time-text>
-					firstfile=<time-text>
-					subdir=<time-text>
-
-				doadmin.cgi password=<text> treeid=<text>
-					command=changepassword
-					password=<text>
-					newpassword=<text>
-					newpassword2=<text>
-					doglobal=<radio>
-
-adminfuncs.tcl		TCL. Collection of functions to administrate a Bonsai
-			hook.
-
-adminmail.tcl		TCL. Set of routines for opening and closing the
-			Bonsai hook based on receipt of e-mail.
-
-bonsai.gif		a bonsai tree.
-
-branchspam.cgi		failed attempt to web-afy branch spam too DELETE
-			Called by: nobody
-			Calls: branchspammer.cgi
-
-branchspammer.cgi	more garbage
-			Called by: branchspam.cgi
-			Calls: nobody
-
-changebar.tcl		???
-
-closemessage	 	HTML, text that gets sent to all people on the hook
-			when the tree is closed.	
-
-configure/		???
-
-contacthelp.html	???
-
-countcheckins.cgi	TCL.  Draws a graph of checkins for the various
-			Bonsai 'hooks'.
-			Called by: toplevel.cgi
-			Calls: nobody
-
-createlegaldirs.tcl	???
-
-cvsblame.cgi		Runs through a CVS file and tells you who changed what.
-			Calls:
-				rview.cgi dir= cvsroot= rev= 
-				cvsblame.cgi file= rev= root= mark=
-				cvsblame.cgi set_line= (cookie magic?)
-				cvsblame.cgi root= file= rev= use_html=
-			Called by:
-				cvsguess.cgi
-				moduleanalyse.cgi
-			Used to be called by:
-				cvslog.cgi
-
-cvsblame.pl		???
-
-cvsguess.cgi		Given a file name, try to figure out what directory 
-			it's in.  then link to cvsblame.cgi.  parameters are
-			the same.
-
-			Seems to take an exact file name (sans directory),
-			then do a redirect to cvsblame.cgi.  If there are
-			more than one file of that name, it presents a list.
-			This is (I think) redundant with LXR's file name 
-			search.
-
-			Calls:
-				cvsblame.cgi file= rev= mark= #
-			Called by: nobody
-
-cvsindex.pl		???
-
-cvslog.cgi		Web interface to "cvs log".
-			Calls:
-				rview.cgi dir= cvsroot= rev=
-				cvslog.cgi file= root= rev= 
-					sort=[revision|date|author]
-					author=
-				cvsview2.cgi 
-					command=DIFF_FRAMESET
-					diff_mode=context
-					whitespace_mode=show
-					root= subdir= file=
-					rev1= rev2=
-				cvsview2.cgi
-					command=DIRECTORY
-					subdir= files= root= branch=
-
-			Used to call:
-				cvsblame.cgi file= rev= root=
-
-cvsmenu.pl		???
-
-cvsquery.cgi		Displays the results of a query entered in cvsqueryform
-			Called by: 
-				cvsqueryform.cgi
-			Calls:
-				cvsqueryform.cgi
-				cvsview2 command=DIRECTORY
-					subdir= files= branch= root=
-				cvsview2.cgi command=DIFF_FRAMESET
-					diff_mode=context 
-					whitespace_mode=show
-					subdir= file= rev1= rev2= root=
-				multidiff.cgi name=allchanges cvsroot=
-				cvsquery.cgi sortby=
-				../registry/who.cgi email=
-				http://scopus.mcom.com/bugsplat/show_bug.cgi
-
-cvsquery.pl		???
-
-cvsqueryform.cgi	Main screen to let you query the CVS database.
-			Called by:
-				cvsblame.cgi
-				cvslog.cgi
-				cvsquery.cgi
-				toplevel.cgi
-			Calls:
-				cvsregexp.html
-				cvsquery.cgi 
-					module=[all|allrepositories|?]
-					branch=
-					branchtype=[match|regexp]
-					directory=<text>
-					file=<text>
-					who=<text>
-					whotype=[match|regexp]
-					sortby=[Date|Who|File|Change Size]
-					date=[hours|day|week|month|all|
-						explicit]
-					hours=
-					mindate=
-					maxdate=
-					cvsroot=
-
-cvsregexp.html		???
-
-cvsview2.cgi		Lets you view CVS diffs.
-			Called by:
-				cvsblame.cgi
-				cvslog.cgi
-				cvsquery.cgi
-				show2.cgi
-				showcheckins.cgi
-			Calls:
-				rview.cgi dir= cvsroot= rev=
-				cvsview2.cgi subdir= command=DIFF
-					root= file= rev1= rev2=
-				cvsview2.cgi subdir= command=DIFF_LINKS
-					root= file= rev1= rev2=
-				cvsview2.cgi subdir= command=DIFF
-					root= file= rev1= rev2= #
-				cvsview2.cgi subdir= command=DIFF_FRAMESET
-					root= file= rev1= rev2=
-				cvsview2.cgi subdir= command=DIRECTORY
-					root= files= branch= skip=
-				cvsview2.cgi subdir= command=LOG
-					root= file= rev=
-
-doadmin.cgi		TCL.  Executes admin things asked for in admin.cgi
-			Called by:
-				admin.cgi
-			Calls:
-				mailto:clienteng
-
-doeditcheckin.cgi	TCL.  Edits a checkin on the hook.
-			Called by:
-				editcheckin.cgi
-			Calls:
-				nobody
-
-doeditmessage.cgi	TCL.  Edits one of the email messages that bonsai sends
-			people.
-			Called by:
-				editmessage.cgi
-			Calls:
-				nobody
-
-doeditprofile.cgi	TCL.  Edit peoples contact info.  Left-over code from
-			before we started getting this info from LDAP.
-			Called by:
-				editprofile.cgi
-			Calls:
-				nobody
-
-doeditwhiteboard.cgi	TCL.  Edits the free-for-all whiteboard.
-			Called by:
-				editwhiteboard.cgi
-			Calls:
-				nobody
-
-dolog.pl		Perl.  Magic file that causes CVS to send mail to
-			Bonsai whenever someone makes a change.  Please read
-			the comments towards the beginning for more clues.
-
-dotweak.cgi		TCL.  Tweaks a bunch of checkins in ahook at once.
-			Called by:
-				show2.cgi
-				showcheckins.cgi
-			Calls:
-				nobody
-
-editcheckin.cgi		TCL.  Edits a checkin on the hook.
-			Called by:
-				show2.cgi
-				showcheckins.cgi
-			Calls:
-				doeditcheckin.cgi
-
-editmessage.cgi		TCL.  Edits one of the email messages that bonsai sends
-			people.
-			Called by:
-				admin.cgi
-			Calls:
-				doeditmessage.cgi
-
-editprofile.cgi		TCL.  Edit peoples contact info.  Left-over code from
-			before we started getting this info from LDAP.
-			Called by:
-				localprofile.cgi
-			Calls:
-				doeditprofile.cgi
-
-editwhiteboard.cgi	TCL.  Edits the free-for-all whiteboard.
-			Called by:
-				toplevel.cgi
-			Calls:
-				doeditwhiteboard.cgi
-
-globals.tcl		???
-
-handleAdminMail.tcl 	TCL. Mail is piped to this script and parsed.  
-			Calls:
-				adminfuncs.tcl	
-
-handleCheckinMail.tcl	TCL. Mail is piped to this script and parsed. It
-			then adds a checkin to a Bonsai hook.
-
-header.pl		???
-
-index.html		???
-
-indextest.pl		???
-
-lloydcgi.pl		parses CGI args from $QUERY_STRING and leaves them
-			in $form{$key}; and puts cookies in %cookie_jar.
-			Calls: nobody
-			Called by: everybody
-
-localprofile.cgi	TCL.  Display peoples contact info.  Left-over code
-			from before we started getting this info from LDAP.
-			Called by:
-				nobody
-			Calls:
-				editprofile.cgi
-				profile.cgi
-
-maketables.sh		???
-			Unused?
-
-moduleanalyse.cgi	Shows the directories in a module.
-			Called by:
-				nobody
-			Calls:
-				moduleanalyse.cgi module=[all|?] cvsroot=
-				rview.cgi dir= cvsroot=
-				cvsblame.cgi file= root=
-
-modules.pl		???
-			Called by:
-				branchspam.cgi
-				cvsqueryform.cgi
-				moduleanalyse.cgi
-
-multidiff.cgi		Implements the "Show me ALL the Diffs" button
-			Called by:
-				cvsquery.cgi
-				show2.cgi
-				showcheckins.cgi
-			Calls:
-				nobody
-
-myglobrecur.tcl		???
-
-openmessage		???
-
-perlifyconfig.tcl	???
-
-processqueue.pl		???
-
-profile.cgi		TCL.  Stupid interface to LDAP to show all the info
-			about a person.
-			Called by:
-				localprofile.cgi
-				show2.cgi
-			Calls:
-				profile.cgi person=
-
-rebuildcvshistory.cgi	TCL.  Admin script to go rebuild the bonsai database 
-			from CVS.
-			Called by:
-				admin.cgi
-			Calls:
-				nobody
-
-rebuilddatabase.tcl	???
-
-rebuildtaginfo.cgi	TCL.  Half-written piece of junk to try and remember 
-			things about tags.   Should probably nuke it.
-			Called by:
-				admin.cgi
-
-repophook.cgi		TCL.  Rebuilds a bonsai hook from the bonsai database.
-			Called by:
-				admin.cgi
-			Calls:
-				nobody
-
-reposfiles.pl		???
-
-rview.cgi		Lets you browse a directory in a CVS repository.
-			Called by:
-				cvsblame.cgi
-				cvslog.cgi
-				cvsview2.cgi
-				moduleanalyse.cgi
-			Calls:
-				rview.cgi dir= cvsroot= rev=
-				rview.cgi dir= cvsroot= rev= ?=chdir
-				rview.cgi dir= cvsroot= rev= ?=Set Branch
-				&make_cgi_args ???
-				../registry/file.cgi cvsroot= file= dir=
-
-show2.cgi		TCL.  This seems to be a variant on showcheckins.cgi?
-			Called by:
-				nobody
-			Calls:
-				dotweak.cgi
-				showcheckins.cgi [various funky args]
-				editcheckin.cgi id= [various funky args]w
-				profile.cgi person= [various funky args]
-				cvsview2.cgi subdir= files= command=DIRECTORY
-					branch=
-				http://w3/cgi/cvsview2.cgi subdir= files=
-					command=DIRECTORY
-				multidiff.cgi allchanges=
-
-showcheckins.cgi	TCL.  Shows some set of checkins in a bonsai hook.
-			Called by:
-				admin.cgi
-				show2.cgi
-				toplevel.cgi
-			Calls:
-				dotweak.cgi
-				showcheckins.cgi [various funky args]
-				editcheckin.cgi id= [various funky args]w
-				http://phonebook/ds/dosearch/phonebook/...
-				cvsview2.cgi root= subdir= files= 
-					command=DIRECTORY branch=
-				http://w3/cgi/cvsview2.cgi subdir= files=
-					command=DIRECTORY
-				multidiff.cgi allchanges=
-
-status/			???
-
-switchtree.cgi		TCL.  Lets you choose a different bonsai branch.
-			Called by:
-				toplevel.cgi
-			Calls:
-				nobody
-
-testlock.pl		???
-
-toplevel.cgi		TCL.  Main interface to the bonsai hook.
-			Called by:
-				CGI.tcl
-				contacthelp.html
-				index.html
-				sheriff2.html
-				switchtree.cgi
-				toplevel.cgi
-				viewold.cgi
-			Calls:
-				editwhiteboard.cgi [...]
-				http://phonebook/ds/dosearch/phonebook/...
-				showcheckins.cgi
-				http://warp/tinderbox/showbuilds.cgi
-				switchtree.cgi [...]
-				news:mcom.dev.client.build.busted
-				http://phonebook/
-				viewold.cgi [...]
-				countcheckins.cgi [...]
-				admin.cgi [...]
-				index.html
-				http://warp/client/dogbert/tree.html
-				contacthelp.html
-				http://warp/client/dogbert/buildlore/index.html
-
-trapdoor.c		???
-
-utils.pl		???
-
-viewold.cgi		TCL.  Lets you choose an old bonsai hook to view.
-			Called by:
-				toplevel.cgi
-			Calls:
-				toplevel.cgi treeid=
-
-
-	=================
-	Glossary of terms
-	=================
-
-Here are some funky terms you may find here and there:
-
-Hook			The 'hook' is actually the oldest part of the Bonsai
-			code.  The idea is, every so often (at Netscape, it was
-			every day), some build engineers will close the tree
-			and make sure that everything still builds properly.
-			If it doesn't, then the build engineers want to have a
-			list of people they can go beat up, this being the list
-			of people who changed the tree since the last time they
-			successfully built the tree.  Those people are "on the
-			hook"; they are held responsible for any probs that
-			arise.
-
-			So, it works out to: the list of people who have
-			checked in since the tree was last closed.
-
-
-	==========
-	Maintainer
-	==========
-
-The current primary maintainer of Bonsai is Terry Weissman <terry@mozilla.org>.

mozilla/webtools/bonsai/SourceChecker.cgi

@@ -1,242 +0,0 @@
-#!/usr/bonsaitools/bin/perl -w
-# -*- Mode: perl; indent-tabs-mode: nil -*-
-#
-# The contents of this file are subject to the Netscape Public License
-# Version 1.0 (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 Bonsai CVS 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.
-
-#  SourceChecker.cgi -- tools for creating or modifying the dictionary
-#  used by cvsblame.cgi.
-#
-#  Created: Scott Collins <scc@netscape.com>, 4 Feb 1998.
-#
-#  Arguments (passes via GET or POST):
-#               ...
-#
-
-use diagnostics;
-use strict;
-
-use CGI;
-use SourceChecker;
-
-
-
-        #
-        # Global
-        #
-
-my $query = new CGI;
-
-
-
-        #
-        # Subroutines
-        #
-
-
-sub print_page_header()
-        {
-                print <<'END_OF_HEADER';
-<H1>SourceChecker Dictionary Maintainance</H1>
-END_OF_HEADER
-        }
-
-
-sub print_page_trailer()
-        {
-                print <<'END_OF_TRAILER';
-<HR>
-<FONT SIZE=-1>
-Last updated 5 Feb 1998. 
-<A HREF="SourceChecker.cgi">Dictionary maintainance and help</A>.</FONT>
-Mail feedback to <A HREF="mailto:scc?subject=[SourceChecker.cgi]">&lt;scc@netscape.com&gt;</A>. 
-END_OF_TRAILER
-        }
-
-
-
-my $error_header = '<HR><H2>I couldn\'t process your request...</H2>';
-
-sub print_error($)
-        {
-                my $message = shift;
-                print "$error_header<P><EM>Error</EM>: $message</P>";
-                $error_header = '';
-        }
-
-
-sub print_query_building_form()
-        {
-                print $query->start_multipart_form;
-
-                print '<HR><H2>Build a new request</H2>';
-                print '<P>...to modify or create a remote dictionary with words from one or more local files.</P>';
-
-                print '<H3>Files on the server</H3>';
-                print '<P>...i.e., the dictionary to be created or modified.</P>';
-
-                print $query->textfield( -name=>'dictionary',
-                                      -default=>'',
-                                     -override=>1,
-                                         -size=>30 );
-                print '-- the path to dictionary.';
-
-                print '<H3>Files on your local machine</H3>';
-                print '<P>...that will be uploaded to the server, so their contents can be added to the dictionary.</P>';
-
-                print '<BR>';
-                print $query->filefield( -name=>'ignore_english', -size=>30 );
-                print '-- contains english (i.e., transformable) words to ignore.';
-
-                print '<BR>';
-                print $query->filefield( -name=>'ignore_strings', -size=>30 );
-                print '-- contains identifiers (i.e., non-transformable) words to ignore.';
-
-                print '<BR>';
-                print $query->filefield( -name=>'flag_strings', -size=>30 );
-                print '-- contains identifiers words to be flagged.';
-
-                print '<BR>';
-                print $query->filefield( -name=>'ignore_names', -size=>30 );
-                print '-- contains user names to be ignored.';
-
-                print '<BR>';
-                print $query->submit;
-
-                print $query->endform;
-        }
-
-
-sub do_add_good_words($)
-        {
-                my $file = shift;
-                
-                while ( <$file> )
-                        {
-                                next if /\#/;
-                                add_good_words($_);
-                        }
-        }
-
-
-sub do_add_bad_words($)
-        {
-                my $file = shift;
-                
-                while ( <$file> )
-                        {
-                                next if /\#/;
-                                add_bad_words($_);
-                        }
-        }
-
-
-sub do_add_good_english($)
-        {
-                my $file = shift;
-                
-                while ( <$file> )
-                        {
-                                next if /\#/;
-                                add_good_english($_);
-                        }
-        }
-
-
-sub do_add_names($)
-        {
-                my $file = shift;
-                
-                while ( <$file> )
-                        {
-                                next if /\#/;
-                                add_names($_);
-                        }
-        }
-
-
-sub handle_query()
-        {
-                my $dictionary_path = $query->param('dictionary');
-                if ( ! $dictionary_path )
-                        {
-                                print_error('You didn\'t supply a path to the dictionary file.');
-                                return;
-                        }
-
-                dbmopen %SourceChecker::token_dictionary, "$dictionary_path", 0666
-                        || print_error("The dictionary you named could not be opened.");
-
-                my $added_some_words = 0;
-
-                my ($file_of_good_english, $file_of_good_words,
-                    $file_of_bad_words, $file_of_names);
-                if ( $file_of_good_english = $query->param('ignore_english') )
-                        {
-                                do_add_good_english($file_of_good_english);
-                                $added_some_words = 1;
-                        }
-
-                if ( $file_of_good_words = $query->param('ignore_strings') )
-                        {
-                                do_add_good_words($file_of_good_words);
-                                $added_some_words = 1;
-                        }
-
-                if ( $file_of_bad_words = $query->param('flag_strings') )
-                        {
-                                do_add_bad_words($file_of_bad_words);
-                                $added_some_words = 1;
-                        }
-
-                if ( $file_of_names = $query->param('ignore_names') )
-                        {
-                                do_add_names($file_of_names);
-                                $added_some_words = 1;
-                        }
-
-                if ( ! $added_some_words )
-                        {
-                                print_error("You did not supply any words to add to the dictionary.");
-                        }
-
-                dbmclose %SourceChecker::token_dictionary;
-        }
-
-
-
-        #
-        # The main script
-        #
-
-print $query->header;
-print $query->start_html(-title=>'SourceChecker Dictionary Maintainance',
-                                                                                                -author=>'scc@netscape.com');
-
-print_page_header();
-
-if ( $query->param )
-        {
-                handle_query();
-        }
-
-print_query_building_form();
-print_page_trailer();
-
-print $query->end_html;
-
-__DATA__
-

mozilla/webtools/bonsai/SourceChecker.pm

@@ -1,192 +0,0 @@
-# -*- Mode: perl; tab-width: 4; indent-tabs-mode: nil -*-
-#
-# The contents of this file are subject to the Netscape Public License
-# Version 1.0 (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 Bonsai CVS 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.
-
-package				SourceChecker;
-require				Exporter;
-@ISA				=	qw(Exporter);
-@EXPORT			= qw(%token_dictionary add_good_english add_good_words add_bad_words add_names tokenize_line markup_line);
-@EXPORT_OK	=	qw($GOOD_TOKEN $UNKNOWN_TOKEN $BAD_TOKEN $NAME_TOKEN add_token canonical_token @markup_prefix @markup_suffix);
-
-$GOOD_TOKEN			= \-1;
-$UNKNOWN_TOKEN	= \0;
-$NAME_TOKEN			= \1;
-$BAD_TOKEN			= \2;
-
-
-@markup_prefix	= ('<FONT COLOR="green">', '<FONT COLOR="red">', '<FONT COLOR="blue">');
-@markup_suffix	= ('</FONT>', '</FONT>', '</FONT>');
-
-
-
-sub canonical_token($)
-	{
-		my $token = shift;
-
-		if ( defined $token )
-			{
-				$token =~ s/[\'Õ\&]+//g;
-				$token = length($token)>2 ? lc $token : undef;
-			}
-
-		$token;
-	}
-
-
-
-sub _push_tokens($$)
-	{
-			# Note: inherits |@exploded_phrases| and |@exploded_tokens| from caller(s)
-		push @exploded_phrases, shift;
-		push @exploded_tokens, canonical_token(shift);
-	}
-
-
-
-sub _explode_line($)
-	{
-			# Note: inherits (and returns results into) |@exploded_phrases| and |@exploded_tokens| from caller(s)
-
-		my $line = shift;
-
-		my $between_tokens = 0;
-		foreach $phrase ( split /([A-Za-z\'Õ\&]+)/, $line )
-			{
-				if ( $between_tokens = !$between_tokens )
-					{
-						_push_tokens($phrase, undef);
-						next;
-					}
-
-				for ( $_ = $phrase; $_; )
-					{
-						m/^[A-Z\'Õ\&]*[a-z\'Õ\&]*/;
-						$token = $&;
-						$_ = $';
-
-						if ( ($token =~ m/[A-Z][a-z\'Õ]+/) && $` )
-							{
-								$token = $&;
-								_push_tokens($`, $`);
-							}
-						_push_tokens($token, $token);
-					}
-			}
-
-		$#exploded_phrases;
-	}
-
-
-sub tokenize_line($)
-	{
-		my $line = shift;
-		local @exploded_tokens;
-		_explode_line($line);
-
-		my $i = -1;
-		foreach $token ( @exploded_tokens )
-			{
-				$exploded_tokens[++$i] = $token if defined $token;
-			}
-		$#exploded_tokens = $i;
-		@exploded_tokens;
-	}
-
-
-
-sub markup_line($)
-	{
-		my $line = shift;
-
-		local @exploded_phrases;
-		local @exploded_tokens;
-
-		_explode_line($line);
-
-		$i = 0;
-		foreach $phrase ( @exploded_phrases )
-			{
-				$phrase =~ s/&/&amp;/g;
-				$phrase =~ s/</&lt;/g;
-				$phrase =~ s/>/&gt;/g;
-
-				my $token = $exploded_tokens[$i];
-				if ( defined $token && ($token_kind = $token_dictionary{$token}) >= 0 )
-					{
-						$phrase = $markup_prefix[$token_kind] . $phrase . $markup_suffix[$token_kind];
-					}
-				++$i;
-			}
-
-		join '', @exploded_phrases;
-	}
-
-
-sub add_token($$)
-	{
-		(my $token, my $token_kind) = @_;
-		if ( !defined $token_dictionary{$token} || ($token_kind > $token_dictionary{$token}) )
-			{
-				$token_dictionary{$token} = $token_kind;
-			}
-	}
-
-sub add_good_english($)
-	{
-		my $line = shift;
- 
-		foreach $token ( tokenize_line($line) )
-			{
-				add_token($token, $$GOOD_TOKEN);
-
-				my $initial_char = substr($token, 0, 1);
-				(my $remainder = substr($token, 1)) =~ s/[aeiouy]+//g;
-
-				$abbreviated_length = length($remainder) + 1;
-				if ( $abbreviated_length != length($token) && $abbreviated_length > 2 )
-					{
-						add_token("$initial_char$remainder", $$GOOD_TOKEN);
-					}
-			}
-	}
-
-sub _add_tokens($$)
-	{
-		(my $line, my $token_kind) = @_;
-
-		foreach $token ( tokenize_line($line) )
-			{
-				add_token($token, $token_kind);
-			}
-	}
-
-sub add_good_words($)
-	{
-		_add_tokens(shift, $$GOOD_TOKEN);
-	}
-
-sub add_bad_words($)
-	{
-		_add_tokens(shift, $$BAD_TOKEN);
-	}
-
-sub add_names($)
-	{
-		_add_tokens(shift, $$NAME_TOKEN);
-	}
-
-1;

mozilla/webtools/bonsai/aclocal.m4

@@ -1,34 +0,0 @@
-dnl autoconf tests for bonsai
-dnl Pontus Lidman 99-05-04
-dnl
-dnl check if Perl::DB is installed
-dnl
-AC_DEFUN(AC_PERL_DB,
-[
-  AC_MSG_CHECKING(for perl DBD::mysql module)
-  $PERL -w -c -e 'use DBD::mysql' 2>/dev/null; has_dbd=$?
-  if test "x$has_dbd" = "x0" ; then
-     AC_MSG_RESULT(yes)
-     ifelse([$1], , :, [$1])
-  else
-     AC_MSG_RESULT(no)
-     echo "*** the perl MySQL module (DBD::mysql) could not be found"
-     ifelse([$2], , :, [$2])
-  fi
-])
-dnl
-dnl check if Date::Parse is installed
-dnl
-AC_DEFUN(AC_PERL_DATEPARSE,
-[
-  AC_MSG_CHECKING(for perl Date::Parse module)
-  $PERL -w -c -e 'use Date::Parse' 2>/dev/null; has_dateparse=$?
-  if test "x$has_dateparse" = "x0" ; then
-     AC_MSG_RESULT(yes)
-     ifelse([$1], , :, [$1])
-  else
-     AC_MSG_RESULT(no)
-     echo "*** the perl Date::Parse module could not be found"
-     ifelse([$2], , :, [$2])
-  fi
-])

mozilla/webtools/bonsai/addcheckin.pl

@@ -1,237 +0,0 @@
-#!/usr/bonsaitools/bin/perl -w
-# -*- Mode: perl; indent-tabs-mode: nil -*-
-#
-# The contents of this file are subject to the Netscape Public License
-# Version 1.0 (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 Bonsai CVS 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.
-
-require 'globals.pl';
-
-use vars qw($BatchID @TreeList @LegalDirs);
-
-if (@::CheckInList) {
-     die '@::CheckInList is valid ?!?';
-}
-
-my $inheader = 1;
-my $foundlogline = 0;
-my @filelist = ();
-my $log = '';
-my $appendjunk = '';
-my $repository = pickDefaultRepository();
-my %group = ();
-my $forcetreeid = '';
-my ($chtype, $date, $name, $dir, $file);
-my ($version, $sticky, $branch, $addlines, $removelines);
-my ($key, $junk, $tagtime, $tagname, @data);
-my ($mungedname, $filename, @treestocheck);
-my (@files, @fullinfo, $i, $okdir, $f, $full, $d, $info, $id);
-my ($mail, %substs, %headers, $body);
-               
-
-if (($#ARGV >= 1) && ($ARGV[0] eq '-treeid')) {
-     $forcetreeid = $ARGV[1];
-     shift; shift;
-}
-
-# Read in from remaining file arguments
-DATAFILE:
-for ( ; $#ARGV >= 0; shift) {
-     next DATAFILE
-          unless (open(FILE, $ARGV[0]));
-     
-LINE:
-     while (<FILE>) {
-          my $line = $_;
-          chop($line);
-          $line = trim($line);
-          
-          if ($inheader) {
-               $inheader = 0 if ($line =~ /^$/);
-               next LINE;
-          }
-          
-          unless ($foundlogline) {
-               if ($line =~ /^.\|/) {
-                    $appendjunk .= "$line\n";
-                    ($chtype, $date, $name, $repository, $dir, $file,
-                     $version, $sticky, $branch, $addlines, $removelines) =
-                          split(/\|/, $line);
-                    $key = "$date|$branch|$repository|$dir|$name";
-                    $group{$key} .= 
-                         "$file|$version|$addlines|$removelines|$sticky\n";
-               } elsif ($line =~ /^Tag\|/) {
-                    ($junk, $repository, $tagtime, $tagname, @data) = 
-                         split(/\|/, $line);
-                    
-                    ($mungedname = $repository) =~ s!/!_!g;
-                    $filename = "data/taginfo/$mungedname/" .
-                         MungeTagName($tagname);
-                    
-                    Lock();
-                    unless (-d "data/taginfo/$mungedname") {
-                         system("mkdir -p data/taginfo/$mungedname");
-                         system("chmod -R 777 data/taginfo/$mungedname");
-                    }
-                    if (open(TAGFILE, ">> $filename")) {
-                         print TAGFILE "$tagtime|" . join('|', @data) .  "\n";
-                         close(TAGFILE);
-                         chmod(0666, $filename);
-                    }
-                    Unlock();
-               } elsif ($line =~ /^LOGCOMMENT/) {
-                    $foundlogline = 1;
-               }
-               next LINE;
-          }
-          
-          last LINE if ($line eq ":ENDLOGCOMMENT");
-          $log .= "$line\n";
-     }
-     
-     close(FILE);
-#     unlink($ARGV[0]);
-     
-     my $plainlog = $log;
-     $log = MarkUpText(html_quote(trim($log)));
-     
-     next DATAFILE unless ($plainlog && $appendjunk);
-
-     Lock();
-     LoadTreeConfig();
-     unless ($forcetreeid) {
-          ($mungedname = $repository) =~ s!/!_!g;
-          $mungedname =~ s!^_!!;
-          $filename = "data/checkinlog/$mungedname";
-          unless (-d "data/checkinlog") {
-               system("mkdir -p data/checkinlog");
-               system("chmod -R 777 data/checkinlog");
-          }
-          if (open(TID, ">> $filename")) {
-               print TID "${appendjunk}LOGCOMMENT\n$plainlog:ENDLOGCOMMENT\n";
-               close(TID);
-               chmod(0666, $filename);
-          }
-          
-          ConnectToDatabase();
-          AddToDatabase($appendjunk, $plainlog);
-          @treestocheck = @::TreeList;
-     }
-     Unlock();
-     
-     @treestocheck = ($forcetreeid) if $forcetreeid;
-     
-     
-     foreach $key (keys(%group)) {
-          ($date, $branch, $repository, $dir, $name) = split(/\|/, $key);
-          
-          @files = ();
-          @fullinfo = ();
-          
-          foreach $i (split(/\n/, $group{$key})) {
-               ($file, $version, $addlines, $removelines) = split(/\|/, $i);
-               push @files, $file;
-               push @fullinfo, $i;
-          }
-          
-TREE:
-          foreach $::TreeID (@treestocheck) {
-               next TREE if exists($::TreeInfo{$::TreeID}{nobonsai});
-               next TREE 
-                    unless ($branch =~ /^.?$::TreeInfo{$::TreeID}{branch}$/);
-               next TREE 
-                    unless ($repository eq $::TreeInfo{$::TreeID}{repository});
-               
-               LoadDirList();
-               $okdir = 0;
-               
-FILE:
-               foreach $f (@files) {
-                    $full = "$dir/$f";
-LEGALDIR:
-                    foreach $d (sort( grep(!/\*$/, @::LegalDirs))) {
-                         if ($full =~ m!^$d\b!) {
-                              $okdir = 1;
-                              last LEGALDIR;
-                         }
-                    }
-                    last FILE if $okdir;
-               }
-               
-               next TREE unless $okdir;
-               
-               Lock();
-               undef $::BatchID;
-               undef @::CheckInList;
-               LoadCheckins();
-               $id = "::checkin_${date}_$$";
-               push @::CheckInList, $id;
-               
-               $info = eval("\\\%$id");
-               %$info = (
-                         person   => $name,
-                         date     => $date,
-                         dir      => $dir,
-                         files    => join('!NeXt!', @files),
-                         'log'    => $log,
-                         treeopen => $::TreeOpen,
-                         fullinfo => join('!NeXt!', @fullinfo)
-                        );
-               WriteCheckins();
-               Log("Added checkin $name $dir " . join(' + ', @files));
-               Unlock();
-               
-               if ($::TreeOpen) {
-                    $filename = DataDir() . "/openmessage";
-                    foreach $i (@::CheckInList) {
-                         $filename = "this file doesn't exist"
-# XXX verify...
-                              if ((eval("\$$i" . "{person}") eq $name) &&
-                                  ($i ne $id));
-                    }
-               } else {
-                    $filename = DataDir() . "/closemessage";
-               }
-               
-               if (!$forcetreeid && -f $filename && open(MAIL, "$filename")) {
-                    $mail = join("", <MAIL>);
-                    close(MAIL);
-                    
-                    %substs = (
-                               profile    => GenerateProfileHTML($name),
-                               nextclose  => "We don't remember close " .
-                                             "times any more...",
-                               name       => EmailFromUsername($name),
-                               dir        => $dir,
-                               files      => join(',', @files),
-                               'log'      => $log,
-                              );
-                    $mail = PerformSubsts($mail, \%substs);
-                    
-                    %headers = ParseMailHeaders($mail);
-                    %headers = CleanMailHeaders(%headers);
-                    $body = FindMailBody($mail);
-                    
-                    my $mail_relay = Param("mailrelay");
-                    my $mailer = Mail::Mailer->new("smtp",
-                                                   Server => $mail_relay);
-                    $mailer->open(\%headers)
-                         or warn "Can't send hook mail: $!\n";
-                    print $mailer "$body\n";
-                    $mailer->close();
-               }
-          }
-     }
-}

mozilla/webtools/bonsai/admin.cgi

@@ -1,288 +0,0 @@
-#!/usr/bonsaitools/bin/perl -w
-# -*- Mode: perl; indent-tabs-mode: nil -*-
-#
-# The contents of this file are subject to the Netscape Public License
-# Version 1.0 (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 Bonsai CVS 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.
-
-require 'CGI.pl';
-
-use diagnostics;
-use strict;
-
-sub StupidFuncToShutUpWarningsByUsingVarsAgain {
-    my $z;
-    $z = $::TreeOpen;
-    $z = $::CloseTimeStamp;
-}
-
-Lock();
-LoadCheckins();
-LoadMOTD();
-LoadTreeConfig();
-Unlock();
-
-my $BIP = BatchIdPart('?');
-my $BIP_nohook = BatchIdPart();
-
-print "Content-type: text/html\n\n";
-PutsHeader("Bonsai Administration  [`$::TreeID' Tree]",
-           "Bonsai Administration",
-           "Administrating `$::TreeID' Tree");
-
-print <<EOF ;
-<pre>
-</pre>
-<center><b>
-You realize, of course, that you have to know the magic password to do
-anything from here.
-</b></center>
-<pre>
-
-</pre>
-<hr>
-EOF
-
-
-TweakCheckins();
-CloseTree();
-TweakTimestamps();
-ChangeMOTD();
-EditEmailMessage();
-RebuildHook();
-RebuildTags();
-RebuildHistory();
-ChangePasswd();
-
-PutsTrailer();
-exit 0;
-
-
-
-sub TweakCheckins {
-     print qq(
-
-<a href="showcheckins.cgi?tweak=1$BIP_nohook">
-    Go tweak bunches of checkins at once.</a><br>
-<a href="editparams.cgi">
-    Edit Bonsai operating parameters.</a>
-<hr>
-
-);
-}
-
-
-sub CloseTree {  # Actually opens tree also
-     my $timestamp = value_quote(MyFmtClock(time));
-
-     print qq(
-
-<FORM method=get action=\"doadmin.cgi\">
-<B>Password:</B> <INPUT NAME=password TYPE=password> <BR>
-<INPUT TYPE=HIDDEN NAME=treeid VALUE=$::TreeID>
-);
-
-     if ($::TreeOpen) {
-          print qq(
-<INPUT TYPE=HIDDEN NAME=command VALUE=close>
-<B>Closing time stamp is:</B>
-<INPUT NAME=closetimestamp VALUE=\"$timestamp\"><BR>
-<INPUT TYPE=SUBMIT VALUE=\"Close the tree\">
-);
-     } else {
-          print qq(
-<INPUT TYPE=HIDDEN NAME=command VALUE=open>
-<B>The new \"good\" timestamp is:</B>
-<INPUT NAME=lastgood VALUE=\"$timestamp\"><BR>
-<INPUT TYPE=CHECKBOX NAME=doclear CHECKED>Clear the list of checkins.<BR>
-<INPUT TYPE=SUBMIT VALUE=\"Open the tree\">
-);
-     }
-
-     print qq(</FORM>\n<hr>\n\n);
-
-}
-
-
-sub TweakTimestamps {
-     my $lg_timestamp = value_quote(MyFmtClock($::LastGoodTimeStamp));
-     my $c_timestamp = value_quote(MyFmtClock($::CloseTimeStamp));
-
-     print qq(
-
-<FORM method=get action=\"doadmin.cgi\">
-<B>Password:</B> <INPUT NAME=password TYPE=password> <BR>
-<INPUT TYPE=HIDDEN NAME=treeid VALUE=$::TreeID>
-<INPUT TYPE=HIDDEN NAME=command VALUE=tweaktimes>
-<TABLE>
-<TR>
-<TD><B>Last good timestamp:</B></TD>
-<TD><INPUT NAME=lastgood VALUE=\"$lg_timestamp\"></TD>
-</TR><TR>
-
-<TD><B>Last close timestamp:</B></TD>
-<TD><INPUT NAME=lastclose VALUE=\"$c_timestamp\"></TD>
-</TR>
-</TABLE>
-<INPUT TYPE=SUBMIT VALUE=\"Tweak the timestamps\">
-</FORM>
-<hr>
-
-
-);
-}
-
-
-sub ChangeMOTD {
-     my $motd = value_quote($::MOTD);
-
-     print qq(
-
-<FORM method=get action=\"doadmin.cgi\">
-<INPUT TYPE=HIDDEN NAME=treeid VALUE=$::TreeID>
-<B>Password:</B> <INPUT NAME=password TYPE=password> <BR>
-<INPUT TYPE=HIDDEN NAME=command VALUE=editmotd>
-
-Change the message-of-the-day:<br>
-<INPUT TYPE=HIDDEN NAME=origmotd VALUE=\"$motd\">
-<TEXTAREA NAME=motd ROWS=10 COLS=50>$::MOTD</TEXTAREA><BR>
-<INPUT TYPE=SUBMIT VALUE=\"Change the MOTD\">
-</FORM>
-<hr>
-
-);
-}
-
-
-sub EditEmailMessage {
-     print qq(
-
-<FORM method=get action=\"editmessage.cgi\">
-<INPUT TYPE=HIDDEN NAME=treeid VALUE=$::TreeID>
-
-Change the e-mail message sent:
-<SELECT NAME=msgname SIZE=1>
-<OPTION VALUE=openmessage>when a checkin is made when the tree is open.
-<OPTION VALUE=closemessage>when a checkin is made when the tree is closed.
-<OPTION VALUE=treeopened>to the hook when the tree opens
-<OPTION VALUE=treeopenedsamehook>to the hook when the tree opens and the hook isn\'t cleared
-<OPTION VALUE=treeclosed>to the hook when the tree closes
-</SELECT><br>
-<INPUT TYPE=SUBMIT VALUE=\"Edit a message\">
-</FORM>
-<hr>
-
-);
-}
-
-sub RebuildHook {
-     my $lg_timestamp = value_quote(MyFmtClock($::LastGoodTimeStamp));
-
-     print qq(
-
-<FORM method=get action=\"repophook.cgi\">
-<INPUT TYPE=HIDDEN NAME=treeid VALUE=$::TreeID>
-<B>Password:</B> <INPUT NAME=password TYPE=password> <BR>
-<INPUT TYPE=HIDDEN NAME=command VALUE=repophook>
-Repopulate the hook from scratch.<p>
-<font color=red size=+2>This can be very dangerous.</font>  You should
-usually only need to do this to populate a new Bonsai branch.
-<p>
-<b>Use any checkin since:</b>
-<INPUT NAME=startfrom VALUE=\"$lg_timestamp\">
-<br>
-<INPUT TYPE=SUBMIT VALUE=\"Rebuild the hook\">
-</FORM>
-<hr>
-
-);
-}
-
-
-sub RebuildTags {
-     print qq(
-
-<FORM method=get action=\"rebuildtaginfo.cgi\">
-<INPUT TYPE=HIDDEN NAME=treeid VALUE=$::TreeID>
-<B>Password:</B> <INPUT NAME=password TYPE=password> <BR>
-<INPUT TYPE=HIDDEN NAME=command VALUE=rebuildtaginfo>
-Recreate the entire table of tags for the $::TreeInfo{$::TreeID}{repository}
-repository from scratch.
-<p>
-<font color=red size=+2>This can take a very, very long time.</font>  You
-should
-usually only need to do this when first introducing an entire CVS repository
-into Bonsai.  (And, in fact, nothing right now ever even uses that info, so
-don't bother unless you know what you're doing.)
-<br>
-<INPUT TYPE=SUBMIT VALUE=\"Rebuild tag information\">
-</FORM>
-<hr>
-
-);
-}
-
-
-sub RebuildHistory {
-     my $timestamp = value_quote(MyFmtClock(0));
-
-     print qq(
-
-<FORM method=get action=\"rebuildcvshistory.cgi\">
-<INPUT TYPE=HIDDEN NAME=treeid VALUE=$::TreeID>
-<B>Password:</B> <INPUT NAME=password TYPE=password> <BR>
-<INPUT TYPE=HIDDEN NAME=command VALUE=rebuildcvs>
-Recreate the entire list of every checkin ever done to the
-$::TreeInfo{$::TreeID}{repository} repository from scratch.
-<p>
-<font color=red size=+2>This can take an incredibly long time.</font>  You
-should
-usually only need to do this when first introducing an entire CVS repository
-into Bonsai.
-<p>
-<b>Ignore checkins earlier than:</b>
-<INPUT NAME=startfrom VALUE=\"$timestamp\">
-<br>
-<b>Ignore files before (must be full path starting 
-with $::TreeInfo{$::TreeID}{repository}; leave blank to do everything):</b>
-<INPUT NAME=firstfile VALUE=\"\" size=50>
-<br>
-<b>Only do files within the subdirectory of
- $::TreeInfo{$::TreeID}{repository} named:</b>
-<INPUT NAME=subdir VALUE=\".\" size=50>
-<br>
-<INPUT TYPE=SUBMIT VALUE=\"Rebuild cvs history\">
-</FORM>
-<hr>
-
-);
-}
-
-sub ChangePasswd {
-     print qq(
-
-<FORM method=post action=\"doadmin.cgi\">
-<INPUT TYPE=HIDDEN NAME=treeid VALUE=$::TreeID>
-<INPUT TYPE=HIDDEN NAME=command VALUE=changepassword>
-Change password.<BR>
-<B>Old password:</B> <INPUT NAME=password TYPE=password> <BR>
-<B>New password:</B> <INPUT NAME=newpassword TYPE=password> <BR>
-<B>Retype new password:</B> <INPUT NAME=newpassword2 TYPE=password> <BR>
-<INPUT TYPE=RADIO NAME=doglobal VALUE=0 CHECKED>Change password for this tree<BR>
-<INPUT TYPE=RADIO NAME=doglobal VALUE=1>Change master Bonsai password<BR>
-<INPUT TYPE=SUBMIT VALUE=\"Change the password\">
-</FORM>
-);
-}

mozilla/webtools/bonsai/adminfuncs.pl

@@ -1,117 +0,0 @@
-# -*- Mode: perl; indent-tabs-mode: nil -*-
-#
-# The contents of this file are subject to the Netscape Public License
-# Version 1.0 (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 Bonsai CVS 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.
-
-use strict;
-use diagnostics;
-
-# Shut up misguided -w warnings about "used only once".  "use vars" just
-# doesn't work for me.
-
-sub adminfuncs_pl_sillyness {
-    my $zz;
-    $zz = $::TreeID;
-}
-
-require 'globals.pl';
-
-use Mail::Internet;
-use Mail::Header;
-
-sub MakeHookList {
-     my ($checkin, $person, %people, @addrs);
-
-     # First, empty the arrays
-     undef %people; undef @addrs;
-
-     foreach $checkin (@::CheckInList) {
-          my $info = eval("\\\%$checkin");
-
-          $people{$$info{'person'}} = 1;
-     }
-
-     foreach $person (sort(keys(%people))) {
-          push @addrs, EmailFromUsername($person);
-     }
-     return @addrs;
-}
-
-
-sub SendHookMail {
-     my ($filename) = @_;
-     my $hooklist = join(', ', MakeHookList());
-     my (%substs, %headers, $body, $mail);
-     local *MAIL;
-
-     my $pathname = DataDir() . "/$filename";
-
-     return unless $hooklist;
-     return unless -f $pathname;
-     return unless open(MAIL, "< $pathname");
-     $mail = join("", <MAIL>);
-     close (MAIL);
-
-     %substs = ();
-     $substs{'hooklist'} = $hooklist;
-     $mail = PerformSubsts($mail, \%substs);
-
-     %headers = ParseMailHeaders($mail);
-     %headers = CleanMailHeaders(%headers);
-     $body = FindMailBody($mail);
-
-     my $mail_relay = Param("mailrelay");
-     my $mailer = Mail::Mailer->new("smtp", Server => $mail_relay);
-     $mailer->open(\%headers)
-          or warn "Can't send hook mail: $!\n";
-     print $mailer "$body\n";
-     $mailer->close();
-}
-
-
-sub AdminOpenTree {
-     my ($lastgood, $clearp) = @_;
-
-     return if $::TreeOpen;
-
-     $::LastGoodTimeStamp = $lastgood;
-     $::TreeOpen = 1;
-
-     PickNewBatchID();
-
-     if ($clearp) {
-          SendHookMail('treeopened');
-          @::CheckInList = ();
-     } else {
-          SendHookMail('treeopenedsamehook');
-     }
-
-     Log("Tree opened.  \$::LastGoodTimeStamp is " .
-         MyFmtClock($::LastGoodTimeStamp));
-}
-
-
-sub AdminCloseTree {
-     my ($closetime) = @_;
-
-     return unless $::TreeOpen;
-
-     $::CloseTimeStamp = $closetime;
-     $::TreeOpen = 0;
-     SendHookMail('treeclosed');
-     Log("Tree $::TreeID closed.  \$::CloseTimeStamp is " .
-         MyFmtClock($::CloseTimeStamp));
-}

mozilla/webtools/bonsai/adminmail.pl

@@ -1,69 +0,0 @@
-#!/usr/bonsaitools/bin/perl -w
-# -*- Mode: perl; indent-tabs-mode: nil -*-
-#
-# The contents of this file are subject to the Netscape Public License
-# Version 1.0 (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 Bonsai CVS 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.
-
-require 'globals.pl';
-require 'adminfuncs.pl';
-
-use strict;
-use diagnostics;
-
-
-sub GetDate {
-    my ($line) = (@_);
-    my $date;
-    if ($line =~ /([0-9].*)$/) {
-        $date = str2time($1);
-    } else {
-        $date = time();
-    }
-    return $date;
-}
-
-
-
-Lock();
-
-open(FID, "<$ARGV[0]") || die "Can't open $ARGV[0]";
-
-while (<FID>) {
-    chomp();
-    my $line = $_;
-    if ($line =~ /^([^ ]*)\s+([^ ]*)/) {
-        my $foobar = $1;
-        $::TreeID = $2;
-        $::TreeID = $2;         # Duplicate line to avoid stupid perl warning.
-        undef @::CheckInList;
-        undef @::CheckInList;   # Duplicate line to avoid stupid perl warning.
-        if ($foobar =~ /^opennoclear$/i) {
-            LoadCheckins();
-            AdminOpenTree(GetDate($line), 0);
-            WriteCheckins();
-        } elsif ($foobar =~ /^open$/i) {
-            LoadCheckins();
-            AdminOpenTree(GetDate($line), 1);
-            WriteCheckins();
-        } elsif ($foobar =~ /^close$/i) {
-            LoadCheckins();
-            AdminCloseTree(GetDate($line));
-            WriteCheckins();
-        }
-    }
-}
-
-Unlock();

mozilla/webtools/bonsai/bonsai_faq.txt

@@ -1,201 +0,0 @@
-So you want to run Bonsai?  It's better that you know how Bonsai works
-since your obviously going to be hacking around in the code to change
-it to your individual site configuration.
-
-o What Bonsai can do for you:
-
-Bonsai allows you to query the contents of your CVS tree, figuring out
-the differences between arbitrary versions and/or branches of a file
-and allows you to watch those changes over time.
-
-One of the problems with CVS is that although it allows you to define
-logical groups of directories into a module, it has no way to define a
-module that represents a specific branch within one or more of those
-directories.  Bonsai allows you to define a module that represents
-both a directory and a branch within that directory in your CVS
-repository.
-
-Bonsai is tree control.
-
----------------------
-
-o How does it work?
-
-To do all this, Bonsai requires access to the source of your CVS
-repository.  This means that it will actually read the source files in
-their ,v format.  It is not enough that you have access to a checked
-out copy of an arbitrary CVS tree.  Bonsai also reads the modules that
-you have defined in the modules file in the CVSROOT directory of your
-CVS repository.  The logical mappings that you set up in that file
-define the base Bonsai modules that Bonsai will use to set up your
-queries.
-
-In order to keep track of these changes in a format that is easily
-queried Bonsai also requires access to a relational database, in this
-case MySQL.  Once your CVS tree is in place and Bonsai has been
-installed, you will import the important data from your CVS repository
-into the Bonsai database.  This doesn't import the entire repository
-verbatim, it only reads and stores the information that it needs
-including information about users, dates, file names, versions and
-branch information.
-
-To keep track of changes over time, Bonsai also requires notification
-through some kind of asynchronous method to know that you have updated
-a file.  It keeps track of these changes through email.  In CVS
-every time that you make a check-in, any scripts that are defined in the
-loginfo file in the CVSROOT directory of your CVS repository will be
-run and the information about that check-in will be passed to that
-script.  Bonsai requires that you add a script to that file that will
-automatically generate a specially formatted email.  That email will
-then be sent to a special account and, in turn, a script.  That script
-will then parse the email and update the Bonsai database with the
-check-in information.
-
-This method, while seemingly roundabout, provides a few advantages.
-It keeps you from constantly polling your CVS tree to check for
-changes.  This can be a very intensive operation on large
-repositories.  This method is pretty reliable.  Mail messages are
-rarely lost on systems.
-
-Bonsai requires that it always have read access to the CVS repository.
-It does not ever need to write to the repository so this means you can
-use a read-only nfs setup or some other mirroring strategy.
-
-The last part of Bonsai is the web based interface.  This interface is
-where you do most of the day-to-day administration and querying.  The
-interface uses the backend database and the configuration files that
-you set up.
-
----------------
-
-o How do I set up my administration password?
-
-When you build bonsai, the program "trapdoor" is built and installed
-into the data directory in your Bonsai installation tree.  Change to
-the data directory in your installation and run the command:
-
-trapdoor <your admin password> > passwd
-
-If you look at the file you will see your admin password in standard
-unix crypt() format.
-
----------------
-
-o Ok, I've installed the files.  What do I do now?
-
-First, you need to define logical Bonsai modules on top of the modules
-that you have already defined in CVS.  Any CVS modules that you do not
-define here will still show up in the Bonsai query interface.
-However, defining Bonsai modules allows you access to the most
-commonly used modules and allows you fast access to the branches of a
-particular module.  Also, to import a directory from CVS into Bonsai
-it must be included as part of one of the Bonsai modules.
-
-To set up the Bonsai modules you need to edit the configdata script in
-the data/ directory of your Bonsai installation.  The first part of
-this file contains a list of the Bonsai modules that you want to
-define and looks something like this:
-
-set treelist {default module_a module_b module_c}
-
-Please note the "default" module.  You can define this module to be
-any of the modules in your CVS tree.  It is probably best that you
-define it as your most used.  It _must_ be defined.
-
-For each of the Bonsai modules you need to define the information that
-describes that module.  For example, for you default module you can
-define the following information:
-
-set treeinfo(default,module) XYZSource
-set treeinfo(default,branch) {}
-set treeinfo(default,repository) {/cvsroot}
-set treeinfo(default,description) {XYZ Sourcecode}
-set treeinfo(default,shortdesc) {XYZ}
-
-Each of the treeinfo settings describes the following things:
-
-module: This is the logical module as defined in your modules file on
-the CVS repository.
-
-branch: This is the branch within that module.  As above, you don't
-have to have one of these defined.  If you don't it's the same as the
-HEAD branch.
-
-repository: This is the directory that contains the repository.
-
-description: This is the long description for the module, used
-throughout the web interface.
-
-shortdesc: This is a shorter version of the description.
-
-Here is another example using a branch:
-
-set treeinfo(module_a,module) ABCSource
-set treeinfo(module_a,branch) {ACB_MERGE_1_0_BRANCH}
-set treeinfo(module_a,repository) {/cvsroot}
-set treeinfo(module_a,description) {ABC Sourcecode}
-set treeinfo(module_a,shortdesc) {ABC}
-
-Also in the configdata file you need to define the absolute paths to
-some more commonly used commands and configuration information.  These
-are pretty self explanatory:
-
-set cvscommand /usr/local/bin/cvs
-set rlogcommand /usr/bin/rlog
-set rcsdiffcommand /usr/bin/rcsdiff
-set cocommand /usr/bin/co
-set lxr_base http://www.abc.com/webtools/lxr/source
-set mozilla_lxr_kludge TRUE
-
-Once you have set up these configuration items you also need to make a
-directory in your data directory that has the same name as each of the
-modules above.  For example, for the default module defined above you
-would need to create a directory called "ABCSource".
-
------------------
-
-o How do I import data?
-
-You can do this from the administration menu in Bonsai.  Go to the
-toplevel of Bonsai and choose the module that you want to import by
-using the pull down menu.  Then click on the link near the bottom of
-the page for administration.  This will take you to the administration
-page for that module.  If this is the first time importing data, find
-the section that has a button labeled "Rebuild CVS history".  When you
-fill in your administration password and click on the button, all of
-the history information for that Bonsai module will be rebuilt.
-
-You need to do this once for all of the modules that you have defined.
-Unfortunately, there is no way to import an entire CVS tree from the
-root.
-
-------------------
-
-o How do I set up mail for bonsai?
-
-There are three things that you need to do to to set up email for
-bonsai.
-
-o You need to set up an account that will accept the email from Bonsai
-and process it.  When you have set up that user's .forward file to run
-the script that handles the email.  This is what a sample .forward
-file looks like, please note that the script takes one argument which
-is the directory where all of your bonsai data resides:
-
-"|/home/httpd/html/webtools/bonsai/handleCheckinMail.tcl /home/httpd/html/webtools/bonsai"
-
-o You need to set up an alias for "bonsai-checkin-daemon" to the
-account that will process the email.  This is where the mail will be
-sent to when checking into CVS.  Also create an alias called
-"bonsai-daemon" for error mail.
-
-o You need to add the script that creates the email to the loginfo
-file in CVS.  To do this you can add a line to the loginfo file that
-looks like this:
-
-# For bonsai
-ALL /home/httpd/html/webtools/bonsai/dolog.pl -r /usr/local/cvsroot bonsai-checkin-daemon@your-bonsai-host.your-company.com
-#
-
-This will generate a piece of email every time someone checks in code
-and should be handled with the setup above.

mozilla/webtools/bonsai/closemessage

@@ -1,23 +0,0 @@
-From: bonsai-daemon
-To: %name%
-Subject: [Bonsai] Hey!  You checked in while the tree was closed!
-Mime-Version: 1.0
-Content-Type: text/html
-
-<HTML>
-
-<H1>Boy, you better have had permission!</H1>
-
-You just checked into <tt>%dir%</tt> the files <tt>%files%</tt>.  The
-tree is currently frozen.  You better have had permission from the build group
-to make a checkin; otherwise, you're in deep doo-doo.
-
-<P>
-
-Your contact info and other vital data is listed below.  Please 
-<a href=http://warp/bonsai/profile.cgi?person=%name%>update</a> 
-this info <b>immediately</b> if it is at all inaccurate or incorrect.
-
-<hr>
-
-%profile%

mozilla/webtools/bonsai/configure.in

@@ -1,28 +0,0 @@
-dnl Process this file with autoconf to produce a configure script.
-AC_INIT(trapdoor.c)
-
-dnl Checks for programs.
-AC_PROG_CC
-AC_PATH_PROG(PERL,perl)
-AC_PERL_DB
-AC_PERL_DATEPARSE
-
-AC_PATH_PROG(CO,co)
-AC_PATH_PROG(CVS,cvs)
-AC_PATH_PROG(RLOG,rlog)
-AC_PATH_PROG(RCSDIFF,rcsdiff)
-
-
-dnl Checks for libraries.
-dnl Replace `main' with a function in -lcrypt:
-AC_CHECK_LIB(crypt, crypt)
-
-dnl Checks for header files.
-
-dnl Checks for typedefs, structures, and compiler characteristics.
-
-dnl Checks for library functions.
-
-AC_OUTPUT(Makefile)
-AC_OUTPUT_COMMANDS([echo type 'make install' to install bonsai])
-

mozilla/webtools/bonsai/contacthelp.html

@@ -1,27 +0,0 @@
-<html> <head>
-<title>Changing other people's contact info.</title>
-</head>
-
-<body>
-<h1>Changing other people's contact info.</h1>
-
-Occasionally, you need to change the "contact info" listed for some
-other person.  (Like, they just called you on their celphone from the
-horrible traffic accident they just got in, and need you to go on the
-hook for them.)  Well, it's easy.  Go ahead onto their contact page,
-change the contact info field, and type your own username and UNIX
-password to the form.  It'll work.
-<P>
-Note that you're only allowed to change the "Current Contact Info"
-field this way.  It won't let you change anything else.
-
-<hr>
-
-<a href="toplevel.cgi" target=_top>Back to the top of Bonsai</a>
-
-<hr>
-<address><a href="http://home.netscape.com/people/terry/">Terry Weissman &lt;terry@netscape.com&gt;</a></address>
-<!-- hhmts start -->
-Last modified: Wed Oct 30 13:03:35 1996
-<!-- hhmts end -->
-</body> </html>

mozilla/webtools/bonsai/countcheckins.cgi

@@ -1,90 +0,0 @@
-#!/usr/bonsaitools/bin/perl -w
-# -*- Mode: perl; indent-tabs-mode: nil -*-
-#
-# The contents of this file are subject to the Netscape Public License
-# Version 1.0 (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 Bonsai CVS 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.
-
-use diagnostics;
-use strict;
-
-require 'CGI.pl';
-
-use vars qw($CloseTimeStamp);
-
-print "Content-type: text/html\n\n";
-LoadCheckins();
-
-my $maxsize = 400;
-
-PutsHeader("Beancounter central", "Meaningless checkin statistics");
-
-print "
-<TABLE BORDER CELLSPACING=2><TR>
-<TH>Tree closed</TH>
-<TH>Number<BR>of<BR>people<BR>making<BR>changes</TH>
-<TH COLSPAN=2>Number of checkins</TH>
-</TR>\n";
-
-my @list = ();
-my $globstr = DataDir() . '/batch-*[0-9].pl';
-
-foreach my $i (glob($globstr )) {
-     if ($i =~ /(\d+)/) {
-          push @list, $1;
-     }
-}
-
-@list = sort { $b <=> $a } @list;
-my $first = 1;
-my $biggest = 1;
-my %minfo;  # meaninglesss info
-
-foreach my $i (@list) {
-     my $batch = DataDir() . "/batch-$i.pl";
-     require $batch;
-
-     $minfo{$i}{num} = scalar @::CheckInList;
-     $biggest = $minfo{$i}{num} if ($minfo{$i}{num} > $biggest);
-     if ($first) {
-          $minfo{$i}{donetime} = "Current hook";
-          $first = 0;
-     } else {
-          $minfo{$i}{donetime} = MyFmtClock($::CloseTimeStamp);
-     }
-
-     my %people = ();
-     foreach my $checkin (@::CheckInList) {
-          my $info = eval("\\\%$checkin");
-          $people{$$info{'person'}} = 1;
-     }
-     $minfo{$i}{numpeople} = scalar keys(%people);
-}
-
-
-foreach my $i (@list) {
-     print "<tr>\n";
-     print "<TD>$minfo{$i}{donetime}</TD>\n";
-     print "<TD ALIGN=RIGHT>$minfo{$i}{numpeople}</TD>\n";
-     print "<TD ALIGN=RIGHT>$minfo{$i}{num}</TD>\n";
-     printf "<TD><table WIDTH=%d bgcolor=green>\n",
-           ($minfo{$i}{num} * $maxsize) / $biggest;
-     print "<tr><td>&nbsp;</td></tr></table></TD>\n";
-     print "</TR>\n";
-}
-
-print "</table>\n";
-PutsTrailer();
-exit;

mozilla/webtools/bonsai/createlegaldirs.pl

@@ -1,124 +0,0 @@
-#!/usr/bonsaitools/bin/perl
-#
-# The contents of this file are subject to the Netscape Public License
-# Version 1.0 (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 Bonsai CVS 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.
-
-require 'globals.pl';
-
-sub add_module {
-     my ($str) = @_;
-     my $module;
-
-     $str =~ s/^\s*(\S+)\s*(-\S*\s*)?//;
-     $module = $1;
-
-     $::Modules{$module} = $str;
-}
-
-sub init_modules {
-     my ($cvsroot, $curline);
-     my $cvscommand = Param('cvscommand');
-     
-     undef %::Modules;
-     $cvsroot = $::TreeInfo{$::TreeID}{'repository'};
-     
-     $::CVSCOMMAND = "$cvscommand -d $cvsroot checkout -c";
-     open(MODULES, "$::CVSCOMMAND |") ||
-          die "Unable to read modules list from CVS\n";
-     
-     $curline = "";
-     while (<MODULES>) {
-          chop;
-          
-          if (/^\s+/) {
-               $curline .= $_;
-          } else {
-               add_module($curline) if ($curline);
-               $curline = $_;
-          }
-     }
-     add_module($curline) if ($curline);
-     close(MODULES);
-}
-
-sub init {
-     $::TreeID = $ARGV[0];
-     die "Must specify a treeid...\n"
-          unless ($::TreeID);
-
-     LoadTreeConfig();
-
-     $::ModuleName = $::TreeInfo{$::TreeID}{'module'};
-     init_modules();
-     die "modules file no longer includes `$::ModuleName' ???
-      Used `$::CVSCOMMAND' to try to find it\n"
-          unless (exists($::Modules{$::ModuleName}));
-
-     $::DataDir = DataDir();
-}
-
-sub find_dirs {
-     my ($oldlist, $list, $i);
-     
-     $oldlist = '';
-     $list = $::ModuleName;
-
-     until ($list eq $oldlist) {
-          $oldlist = $list;
-          $list = '';
-          foreach $i (split(/\s+/, $oldlist)) {
-               if (exists($::Modules{$i})) {
-                    $list .= "$::Modules{$i} ";
-                    # Do an undef to prevent infinite recursion.
-                    undef($::Modules{$i});
-               } else {
-                    $list .= "$i ";
-               }
-          }
-
-          $list =~ s/\s+$//;
-     }
-
-     return ($list);
-}
-
-sub create_legal_dirs {
-     my ($dirs);
-     
-     $list = find_dirs();
-     Lock();
-     unless (open(LDIR, "> $::DataDir/legaldirs")) {
-          Unlock();
-          die "Couldn't create $::DataDir/legaldirs";
-     }
-     chmod(0666,"$::DataDir/legaldirs");
-     
-     foreach $i (split(/\s+/, $list)) {
-          print LDIR "$i\n";
-          print LDIR "$i/*\n";
-     }
-     close(LDIR);
-     Unlock();
-}
-
-##
-## Main program...
-##
-Log("Attempting to recreate legaldirs...");
-init();
-create_legal_dirs();
-Log("...legaldirs recreated.");
-exit(0);

mozilla/webtools/bonsai/cvsblame.cgi

@@ -1,707 +0,0 @@
-#!/usr/bonsaitools/bin/perl -w
-#  cvsblame.cgi -- cvsblame with logs as popups and allowing html in comments.
-
-# -*- Mode: perl; indent-tabs-mode: nil -*-
-#
-# The contents of this file are subject to the Netscape Public License
-# Version 1.0 (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 Bonsai CVS 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.
-
-
-#  Created: Steve Lamm <slamm@netscape.com>, 12-Sep-97.
-#  Modified: Marc Byrd <byrd@netscape.com> , 19971030.
-#
-#  Arguments (passed via GET or POST):
-#    file - path to file name (e.g. ns/cmd/xfe/Makefile)
-#    root - cvs root (e.g. /warp/webroot)
-#         - default includes /m/src/ and /h/rodan/cvs/repository/1.0
-#    rev  - revision (default is the latest version)
-#    line_nums - boolean for line numbers on/off (use 1,0).
-#                (1,on by default)
-#    use_html - boolean for html comments on/off (use 1,0).
-#                (0,off by default)
-#    sanitize - path to sanitization dictionary
-#               (e.g. /warp2/webdoc/projects/bonsai/dictionary/sanitization.db)
-#    mark - highlight a line
-#
-
-use diagnostics;
-use strict;
-
-# Shut up misguided -w warnings about "used only once".  "use vars" just
-# doesn't work for me.
-
-sub sillyness {
-    my $zz;
-    $zz = $::progname;
-    $zz = $::revision_ctime;
-    $zz = $::revision_log;
-}
-
-require 'CGI.pl';
-require 'cvsblame.pl';
-use SourceChecker;
-
-
-
-$| = 1;
-
-# Cope with the cookie and print the header, first thing.  That way, if
-# any errors result, they will show up for the user.
-
-print "Content-Type:text/html\n";
-if ($ENV{"REQUEST_METHOD"} eq 'POST' && defined($::FORM{'set_line'})) {
-    # Expire the cookie 5 months from now
-    print "Set-Cookie: line_nums=$::FORM{'set_line'}; expires="
-        . toGMTString(time + 86400 * 152) . "; path=/\n";
-}     
-print "\n";
-
-
-# Some Globals
-#
-my $Head = 'CVS Blame';
-my $SubHead = '';
-
-my @src_roots = getRepositoryList();
-
-# Do not use layers if the client does not support them.
-my $useLayers = 1;
-my $user_agent = $ENV{HTTP_USER_AGENT};
-if (not $user_agent =~ m@^Mozilla/4.@ or $user_agent =~ /MSIE/) {
-  $useLayers = 0;
-}
-
-# Init sanitiazation source checker
-#
-my $sanitization_dictionary = $::FORM{'sanitize'};
-my $opt_sanitize = defined $sanitization_dictionary;
-if ( $opt_sanitize )
-{
-    dbmopen %SourceChecker::token_dictionary, "$sanitization_dictionary", 0664;
-}
-
-# Init byrd's 'feature' to allow html in comments
-#
-my $opt_html_comments = &html_comments_init();
-
-
-# Handle the "file" argument
-#
-my $filename = '';
-$filename = $::FORM{'file'} if defined($::FORM{'file'});
-if ($filename eq '') 
-{
-    &print_usage;
-    exit;
-}
-my ($file_head, $file_tail) = $filename =~ m@(.*/)?(.+)@;
-
-# Handle the "rev" argument
-#
-$::opt_rev = '';
-$::opt_rev = $::FORM{'rev'} if defined($::FORM{'rev'} && $::FORM{'rev'} ne 'HEAD');
-my $browse_revtag = "HEAD";
-$browse_revtag = $::opt_rev if ($::opt_rev =~ /[A-Za-z]/);
-my $revision = '';
-
-
-# Handle the "root" argument
-#
-my $root = $::FORM{'root'};
-if (defined $root && $root ne '') {
-    $root =~ s|/$||;
-    validateRepository($root);
-    if (-d $root) {
-        unshift(@src_roots, $root);
-    } else {
-        &print_top;
-        print "Error:  Root, $root, is not a directory.<BR><BR>\n";
-        print "</BODY></HTML>\n";
-        &print_bottom;
-        exit;
-    }
-}
-
-
-# Find the rcs file
-#
-my $rcs_filename;
-foreach (@src_roots) {
-    $root = $_;
-    $rcs_filename = "$root/$filename,v";
-    $rcs_filename = Fix_BonsaiLink($rcs_filename);
-    goto found_file if -r $rcs_filename;
-    $rcs_filename = "$root/${file_head}Attic/$file_tail,v";
-    goto found_file if -r $rcs_filename;
-}
-# File not found
-&print_top;
-print "Rcs file, $filename, does not exist.<pre>rcs_filename => '$rcs_filename'\nroot => '$root'</pre><BR><BR>\n";
-print "</BODY></HTML>\n";
-&print_bottom;
-exit;
-
-found_file:
-
-    my $rcs_path;
-    ($rcs_path) = $rcs_filename =~ m@$root/(.*)/.+?,v@;
-
-CheckHidden($rcs_filename);
-
-
-# Parse the rcs file ($::opt_rev is passed as a global)
-#
-$revision = &parse_cvs_file($rcs_filename);
-my $file_rev = $revision;
-
-# Handle the "line_nums" argument
-#
-my $opt_line_nums = 1;
-if (exists($::COOKIE{'line_nums'})) {
-    $opt_line_nums = 1 if $::COOKIE{'line_nums'} eq 'on';
-}
-if (exists($::FORM{'line_nums'})) {
-     $opt_line_nums = 0 if $::FORM{'line_nums'} =~ /off|no|0/i;
-     $opt_line_nums = 1 if $::FORM{'line_nums'} =~ /on|yes|1/i;
-}
-
-# Option to make links to included files
-my $opt_includes = 0;
-$opt_includes = 1 if (exists($::FORM{'includes'}) && 
-                      $::FORM{'includes'} =~ /on|yes|1/i);
-$opt_includes = 1 if $opt_includes && $file_tail =~ /(.c|.h|.cpp)$/;
-
-my @text = &extract_revision($revision);
-die "$::progname: Internal consistency error" if ($#text != $#::revision_map);
-
-my $use_html = 0;
-$use_html = 1 if exists($::FORM{'use_html'}) && $::FORM{'use_html'} eq '1';
-
-# Handle the "mark" argument
-#
-my %mark_line;
-my $mark_arg = '';
-$mark_arg = $::FORM{'mark'} if defined($::FORM{'mark'});
-foreach my $mark (split(',',$mark_arg)) {
-    my ($begin, $end);
-    if (($begin, $end) = $mark =~ /(\d*)\-(\d*)/) {
-        $begin = 1 if $begin eq '';
-        $end = $#text + 1 if $end eq '' || $end > $#text + 1;
-        next if $begin >= $end;
-        $mark_line{$begin} = 'begin';
-        $mark_line{$end} = 'end';
-    } else {
-        $mark_line{$mark} = 'single';
-    }
-}
-
-# Start printing out the page
-#
-&print_top;
-print Param('bannerhtml', 1);
-
-# Print link at top for directory browsing
-#
-print q(
-<TABLE BORDER=0 CELLPADDING=5 CELLSPACING=0 WIDTH="100%">
- <TR>
-  <TD ALIGN=LEFT VALIGN=CENTER>
-   <NOBR><FONT SIZE="+2"><B>
-    CVS Blame
-   </B></FONT></NOBR>
-   <BR><B>
-);
-
-my $link_path;
-foreach my $path (split('/',$rcs_path)) {
-
-    # Customize this translation
-    $link_path .= url_encode2($path).'/';
-    my $lxr_path = Fix_LxrLink($link_path);
-    print "<A HREF='$lxr_path'>$path</a>/ ";
-}
-print "<A HREF='$link_path$file_tail'>$file_tail</a> ";
-
-print " (<A HREF='cvsblame.cgi?file=$filename&rev=$revision&root=$root'";
-print " onmouseover='return log(event,\"$::prev_revision{$revision}\",\"$revision\");'" if $useLayers;
-print ">";
-print "$browse_revtag:" unless $browse_revtag eq 'HEAD';
-print $revision if $revision;
-print "</A>)";
-
-my $lxr_path = Fix_LxrLink("$link_path$file_tail");
-print qq(
-</B>
-  </TD>
-  <TD ALIGN=RIGHT VALIGN=TOP WIDTH="1%">
-   <TABLE BORDER CELLPADDING=10 CELLSPACING=0>
-    <TR>
-     <TD NOWRAP BGCOLOR="#FAFAFA">
-      <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0>
-       <TR>
-        <TD NOWRAP>
-         <A HREF="$lxr_path">LXR: Cross Reference</A>
-        </TD>
-       </TR><TR>
-        <TD NOWRAP>
-         <A HREF="cvslog.cgi?file=$filename">Full Change Log</A>
-        </TD>
-       </TR>
-      </TABLE>
-     </TD>
-    </TR>
-   </TABLE>
-  </TD>
- </TR>
-</TABLE>
-);
-
-my $open_table_tag =
-    '<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH="100%">';
-print "$open_table_tag<TR><TD colspan=3><PRE>";
-
-# Print each line of the revision, preceded by its annotation.
-#
-my $count = $#::revision_map;
-if ($count == 0) {
-    $count = 1;
-}
-my $line_num_width = int(log($count)/log(10)) + 1;
-my $revision_width = 3;
-my $author_width = 5;
-my $line = 0;
-my %usedlog;
-$usedlog{$revision} = 1;
-my $old_revision = 0;
-my $row_color = '';
-my $lines_in_table = 0;
-my $inMark = 0;
-my $rev_count = 0;
-foreach $revision (@::revision_map)
-{
-    my $text = $text[$line++];
-    $usedlog{$revision} = 1;
-    $lines_in_table++;
-
-    if ($opt_html_comments) {
-        # Don't escape HTML in C/C++ comments
-        $text = &leave_html_comments($text);
-    } elsif ( $opt_sanitize ){
-        # Mark filty words and Escape HTML meta-characters
-        $text = markup_line($text);
-    } else {
-        $text =~ s/&/&amp;/g;
-        $text =~ s/</&lt;/g;
-        $text =~ s/>/&gt;/g;
-    }
-    # Add a link to traverse to included files
-    $text = &link_includes($text) if $opt_includes;
-
-    my $output = '';
-
-    # Highlight lines
-    my $mark_cmd;
-    if (defined($mark_cmd = $mark_line{$line})
-        && $mark_cmd ne 'end') {
-	$output .= '</TD></TR><TR><TD BGCOLOR=LIGHTGREEN WIDTH="100%"><PRE>';
-	$inMark = 1;
-    }
-
-    if ($old_revision ne $revision and $line != 1) {
-      if ($row_color eq '') {
-	$row_color=' BGCOLOR="#e7e7e7"';
-      } else {
-	$row_color='';
-      }
-      if (not $inMark) {
-	if ($lines_in_table > 100) {
-	  $output .= "</TD></TR></TABLE>$open_table_tag<TR><TD colspan=3$row_color><PRE>";
-	  $lines_in_table=0;
-	} else {
-	  $output .= "</TD></TR><TR><TD colspan=3$row_color><PRE>";
-	}
-      }
-    } elsif ($lines_in_table > 200 and not $inMark) {
-      $output .= "</TD></TR></TABLE>$open_table_tag<TR><TDcolspan=3$row_color><PRE>";
-      $lines_in_table=0;
-    }
-
-    $output .= "<A NAME=$line></A>";
-
-    $output .= sprintf("%${line_num_width}s ", $line) if $opt_line_nums;
-
-    if ($old_revision ne $revision or $rev_count > 20) {
-
-        $revision_width = max($revision_width,length($revision));
-
-#        $output .= "<A HREF=\"cvsblame.cgi?file=$filename&rev=$revision&root=$root\"";
-	if (defined $::prev_revision{$revision}) {
-	  $output .= "<A HREF=\"cvsview2.cgi?diff_mode=context&whitespace_mode=show&root=$root&subdir=$rcs_path&command=DIFF_FRAMESET&file=$file_tail&rev2=$revision&rev1=$::prev_revision{$revision}\"";
-	} else {
-	  $output .= "<A HREF=\"cvsview2.cgi?root=$root&subdir=$rcs_path&command=DIRECTORY&files=$file_tail\"";
-          $::prev_revision{$revision} = '';
-	}
-	$output .= " onmouseover='return log(event,\"$::prev_revision{$revision}\",\"$revision\");'" if $useLayers;
-        $output .= ">";
-	my $author = $::revision_author{$revision};
-	$author =~ s/%.*$//;
-        $author_width = max($author_width,length($author));
-        $output .= sprintf("%-${author_width}s ", $author);
-	$output .= "$revision</A> ";
-        $output .= ' ' x ($revision_width - length($revision));
-
-        $old_revision = $revision;
-        $rev_count = 0;
-    } else {
-        $output .= '  ' . ' ' x ($author_width + $revision_width);
-    }
-    $rev_count++;
-
-    $output .= "$text";
-    
-    # Close the highlighted section
-    if (defined($mark_cmd) and $mark_cmd ne 'begin') {
-        chop($output);
-        #if( defined($::prev_revision{$file_rev})) {
-        #    $output .= "</TD><TD ALIGN=RIGHT$row_color><A HREF=\"cvsblame.cgi?file=$filename&rev=$::prev_revision{$file_rev}&root=$root&mark=$mark_arg\">Previous&nbsp;Revision&nbsp;($::prev_revision{$file_rev})</A></TD><TD BGCOLOR=LIGHTGREEN>&nbsp;";
-        #}
-        $output .= "</TD></TR><TR><TD colspan=3$row_color><PRE>";
-	$inMark = 0;
-    }
-
-    print $output;
-}
-print "</TD></TR></TABLE>\n";
-
-if ($useLayers) {
-  # Write out cvs log messages as a JS variables
-  #
-  print "<SCRIPT>";
-  while (my ($revision, $junk) = each %usedlog) {
-    
-    # Create a safe variable name for a revision log
-    my $revisionName = $revision;
-    $revisionName =~ tr/./_/;
-    
-    my $log = $::revision_log{$revision};
-    $log =~ s/([^\n\r]{80})([^\n\r]*)/$1\n$2/g;
-    $log = MarkUpText($log);
-    $log =~ s/\n|\r|\r\n/<BR>/g;
-    $log =~ s/"/\\"/g;
-    
-    # Write JavaScript variable for log entry (e.g. log1_1 = "New File")
-    my $author = $::revision_author{$revision};
-    $author =~ tr/%/@/;
-    my $author_email = EmailFromUsername($author);
-    print "log$revisionName = \""
-      ."<b>$revision</b> &lt;<a href='mailto:$author_email'>$author</a>&gt;"
-	." <b>$::revision_ctime{$revision}</b><BR>"
-	  ."<SPACER TYPE=VERTICAL SIZE=5>$log\";\n";
-  }
-  print "</SCRIPT>";
-}
-
-&print_bottom;
-
-if ( $opt_sanitize )
-{
-    dbmclose %SourceChecker::token_dictionary;
-}
-
-## END of main script
-
-sub max {
-    my ($a, $b) = @_;
-    return ($a > $b ? $a : $b);
-}
-
-sub print_top {
-    my ($title_text) = "for $file_tail (";
-    $title_text .= "$browse_revtag:" unless $browse_revtag eq 'HEAD';
-    $title_text .= $revision if $revision;
-    $title_text .= ")";
-    $title_text =~ s/\(\)//;
-
-    print "<HTML><HEAD><TITLE>CVS Blame $title_text</TITLE>";
-
-    print <<__TOP__ if $useLayers;
-<SCRIPT>
-var event = 0;	// Nav3.0 compatibility
-document.loaded = false;
-
-function finishedLoad() {
-    if (parseInt(navigator.appVersion) < 4 ||
-        navigator.userAgent.toLowerCase().indexOf("msie") != -1) {
-        return true;
-    }
-    document.loaded = true;
-    document.layers['popup'].visibility='hide';
-    
-    return true;
-}
-
-function revToName (rev) {
-    revName = rev + "";
-    revArray = revName.split(".");
-    return revArray.join("_");
-}
-
-function log(event, prev_rev, rev) {
-    if (parseInt(navigator.appVersion) < 4 ||
-        navigator.userAgent.toLowerCase().indexOf("msie") != -1) {
-        return true;
-    }
-
-    var l = document.layers['popup'];
-    var guide = document.layers['popup_guide'];
-
-    if (event.target.text.length > max_link_length) {
-      max_link_length = event.target.text.length;
-
-      guide.document.write("<PRE>" + event.target.text);
-      guide.document.close();
-
-      popup_offset = guide.clip.width;
-    }
-
-    if (document.loaded) {
-        l.document.write("<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=3><TR><TD BGCOLOR=#F0A000>");
-        l.document.write("<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=6><TR><TD BGCOLOR=#FFFFFF><tt>");
-        l.document.write(eval("log" + revToName(rev)) + "</TD></TR></TABLE>");
-	l.document.write("</td></tr></table>");
-        l.document.close();
-    }
-
-    if(event.target.y > window.innerHeight + window.pageYOffset - l.clip.height) { 
-         l.top = (window.innerHeight + window.pageYOffset - (l.clip.height + 15));
-    } else {
-         l.top = event.target.y - 9;
-    }
-    l.left = event.target.x + popup_offset;
-
-    l.visibility="show";
-
-    return true;
-}
-
-file_tail = "$file_tail";
-popup_offset = 5;
-max_link_length = 0;
-
-initialLayer = "<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=3><TR><TD BGCOLOR=#F0A000><TABLE BORDER=0 CELLSPACING=0 CELLPADDING=6><TR><TD BGCOLOR=#FFFFFF><B>Page loading...please wait.</B></TD></TR></TABLE></td></tr></table>";
-
-</SCRIPT>
-</HEAD>
-<BODY onLoad="finishedLoad();" BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#0000EE" VLINK="#551A8B" ALINK="#F0A000">
-<LAYER SRC="javascript:initialLayer" NAME='popup' onMouseOut="this.visibility='hide';" LEFT=0 TOP=0 BGCOLOR='#FFFFFF' VISIBILITY='hide'></LAYER>
-<LAYER SRC="javascript:initialLayer" NAME='popup_guide' onMouseOut="this.visibility='hide';" LEFT=0 TOP=0 VISIBILITY='hide'></LAYER>
-__TOP__
-  print '<BODY BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#0000EE" VLINK="#551A8B" ALINK="#F0A000">' if not $useLayers;
-} # print_top
-
-sub print_usage {
-    my ($linenum_message) = '';
-    my ($new_linenum, $src_roots_list);
-    my ($title_text) = "Usage";
-
-    if ($ENV{"REQUEST_METHOD"} eq 'POST' && defined($::FORM{'set_line'})) {
-  
-        # Expire the cookie 5 months from now
-        my $set_cookie = "Set-Cookie: line_nums=$::FORM{'set_line'}; expires="
-            .&toGMTString(time + 86400 * 152)."; path=/";
-	# XXX Hey, nothing is done with this handy cookie string! ### XXX
-    }
-    if (!defined($::COOKIE{'line_nums'}) && !defined($::FORM{'set_line'})) {
-        $new_linenum = 'on';
-    } elsif ($::COOKIE{'line_nums'} eq 'off' || $::FORM{'set_line'} eq 'off') {
-        $linenum_message = 'Line numbers are currently <b>off</b>.';
-        $new_linenum = 'on';
-    } else {
-        $linenum_message = 'Line numbers are currently <b>on</b>.';
-        $new_linenum = 'off';
-    }
-    $src_roots_list = join('<BR>', @src_roots);
-
-    print <<__USAGE__;
-<HTML>
-<HEAD>
-<TITLE>CVS Blame $title_text</TITLE>
-</HEAD><BODY>
-<H2>CVS Blame Usage</H2>
-Add parameters to the query string to view a file.
-<P>
-<TABLE BORDER CELLPADDING=3>
-<TR ALIGN=LEFT>
-  <TH>Param</TH>
-  <TH>Default</TH>
-  <TH>Example</TH>
-  <TH>Description</TH>
-</TR><TR>
-  <TD>file</TD>
-  <TD>--</TD>
-  <TD>ns/cmd/Makefile</TD>
-  <TD>path to file name</TD>
-</TR><TR>
-  <TD>root</TD>
-  <TD>$src_roots_list</TD>
-  <TD>/warp/webroot</TD>
-  <TD>cvs root</TD>
-</TR><TR>
-  <TD>rev</TD>
-  <TD>HEAD</TD>
-  <TD>1.3
-    <BR>ACTRA_branch</TD>
-  <TD>revision</TD>
-</TR><TR>
-  <TD>line_nums</TD>
-  <TD>on *</TD>
-  <TD>on
-    <BR>off</TD>
-  <TD>line numbers</TD>
-</TR><TR>
-  <TD>#&lt;line_number&gt;</TD>
-  <TD>--</TD>
-  <TD>#111</TD>
-  <TD>jump to a line</TD>
-</TR>
-</TABLE>
-
-<P>Examples:
-<TABLE><TR><TD>&nbsp;</TD><TD>
-<A HREF="cvsblame.cgi?file=ns/cmd/Makefile">
-         cvsblame.cgi?file=ns/cmd/Makefile</A>
-</TD></TR><TR><TD>&nbsp;</TD><TD>
-<A HREF="cvsblame.cgi?file=ns/cmd/xfe/mozilla.c&rev=Dogbert4xEscalation_BRANCH">
-         cvsblame.cgi?file=ns/cmd/xfe/mozilla.c&amp;rev=Dogbert4xEscalation_BRANCH</A>
-</TD></TR><TR><TD>&nbsp;</TD><TD>
-<A HREF="cvsblame.cgi?file=projects/bonsai/cvsblame.cgi&root=/warp/webroot">
-         cvsblame.cgi?file=projects/bonsai/cvsblame.cgi&root=/warp/webroot</A>
-</TD></TR><TR><TD>&nbsp;</TD><TD>
-<A HREF="cvsblame.cgi?file=ns/config/config.mk&line_nums=on">
-         cvsblame.cgi?file=ns/config/config.mk&amp;line_nums=on</A>
-</TD></TR><TR><TD>&nbsp;</TD><TD>
-<A HREF="cvsblame.cgi?file=ns/cmd/xfe/dialogs.c#2384">
-         cvsblame.cgi?file=ns/cmd/xfe/dialogs.c#2384</A>
-</TD></TR></TABLE>            
-
-<P>
-You may also begin a query with the <A HREF="cvsqueryform.cgi">CVS Query Form</A>.
-<FORM METHOD='POST' ACTION='cvsblame.cgi'>
-
-<TABLE CELLPADDING=0 CELLSPACING=0>
-<TR>
-   <TD>*<SPACER TYPE=HORIZONTAL SIZE=6></TD>
-   <TD>Instead of the <i>line_nums</i> parameter, you can
-       <INPUT TYPE=submit value='set a cookie to turn $new_linenum'>
-       line numbers.</TD>
-</TR><TR>
-   <TD></TD>
-   <TD>$linenum_message</TD>
-</TR></TABLE>
-
-<INPUT TYPE=hidden NAME='set_line' value='$new_linenum'>
-</FORM>
-__USAGE__
-    &print_bottom;
-} # sub print_usage
-
-sub print_bottom {
-     my $maintainer = Param('maintainer');
-
-     print <<__BOTTOM__;
-<HR WIDTH="100%">
-<FONT SIZE=-1>
-<A HREF="cvsblame.cgi">Page configuration and help</A>.
-Mail feedback to <A HREF="mailto:$maintainer?subject=About the cvsblame script">&lt;$maintainer&gt;</A>. 
-</FONT></BODY>
-</HTML>
-__BOTTOM__
-} # print_bottom
-
-
-sub link_includes {
-    my ($text) = $_[0];
-
-    if ($text =~ /\#(\s*)include(\s*)"(.*?)"/) {
-        foreach my $trial_root (($rcs_path, 'ns/include', 
-                              "$rcs_path/Attic", "$rcs_path/..")) {
-            if (-r "$root/$trial_root/$3,v") {
-                $text = "$`#$1include$2\"<A HREF='cvsblame.cgi"
-                    ."?root=$root&file=$trial_root/$3&rev=".$browse_revtag
-                    ."&use_html=$use_html'>$3</A>\";$'";
-                last;
-            }
-        }
-    }
-    return $text;
-}
-
-my $in_comments = 0;
-my $open_delim;
-my $close_delim;
-my $expected_delim;
-
-sub html_comments_init {
-    return 0 unless $use_html;
-                                                      
-    # Initialization for C comment context switching
-    $in_comments = 0;
-    $open_delim = '\/\*';
-    $close_delim = '\*\/';
-
-    # Initialize the next expected delim
-    $expected_delim = $open_delim;
-
-    return 1;
-}
-
-sub leave_html_comments {
-    my ($text) = $_[0];
-    # Allow HTML in the comments.
-    #
-    my $newtext = "";
-    my $oldtext = $text;
-    while ($oldtext =~ /(.*$expected_delim)(.*\n)/) {
-        $a = $1;
-        $b = $2;
-        # pay no attention to C++ comments within C comment context
-        if ($in_comments == 0) {
-            $a =~ s/</&lt;/g;
-            $a =~ s/>/&gt;/g;
-            $expected_delim = $close_delim;
-            $in_comments = 1;
-        }
-        else {
-            $expected_delim = $open_delim;
-            $in_comments = 0;
-        }
-        $newtext = $newtext . $a;
-        $oldtext = $b;
-    }
-    # Handle thre remainder
-    if ($in_comments == 0){
-      $oldtext =~ s/</&lt;/g;
-      $oldtext =~ s/>/&gt;/g;
-    }
-    $text = $newtext . $oldtext;
-
-    # Now fix the breakage of <username> stuff on xfe. -byrd
-    if ($text =~ /(.*)<(.*@.*)>(.*\n)/) {
-        $text = $1 . "<A HREF=mailto:$2?subject=$filename>$2</A>" . $3;
-    }
-
-    return $text;
-}

mozilla/webtools/bonsai/cvsblame.pl

@@ -1,879 +0,0 @@
-#!/usr/bonsaitools/bin/perl --
-# -*- Mode: perl; indent-tabs-mode: nil -*-
-#
-# The contents of this file are subject to the Netscape Public License
-# Version 1.0 (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 Bonsai CVS 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.
-
-##############################################################################
-#
-# cvsblame.pl - Shamelessly adapted from Scott Furman's cvsblame script
-#                 by Steve Lamm (slamm@netscape.com)
-#             - Annotate each line of a CVS file with its author,
-#               revision #, date, etc.
-# 
-# Report problems to Steve Lamm (slamm@netscape.com)
-#
-##############################################################################
-
-use diagnostics;
-use strict;
-
-# Shut up misguided -w warnings about "used only once".  "use vars" just
-# doesn't work for me.
-
-sub cvsblame_pl_sillyness {
-    my $zz;
-    $zz = $::file_description;
-    $zz = $::opt_A;
-    $zz = $::opt_d;
-    $zz = $::principal_branch;
-    $zz = %::lines_added;
-    $zz = %::lines_removed;
-};
-
-use Time::Local qw(timegm);         # timestamps
-use Date::Format;             # human-readable dates
-
-my $debug = 0;
-$::opt_m = 0 unless (defined($::opt_m));
-
-# Extract base part of this script's name
-($::progname = $0) =~ /([^\/]+)$/;
-
-&cvsblame_init;
-
-my $SECS_PER_DAY;
-my $time;
-
-sub cvsblame_init {
-    # Use default formatting options if none supplied
-    if (!$::opt_A && !$::opt_a && !$::opt_d && !$::opt_v) {
-        $::opt_a = 1;
-        $::opt_v = 1;
-    }
-
-    $time = time;
-    $SECS_PER_DAY = 60 * 60 * 24;
-
-    # Timestamp threshold at which annotations begin to occur, if -m option present.
-    $::opt_m_timestamp = $time;
-    if (defined $::opt_m) {
-        $::opt_m_timestamp -= $::opt_m * $SECS_PER_DAY;
-    }
-}
-
-# Generic traversal of a CVS tree.  Invoke callback function for
-# individual directories that contain CVS files.
-sub traverse_cvs_tree {
-    my ($dir, $nlink);
-    local *callback;
-    ($dir, *callback, $nlink) = @_;
-    my ($dev, $ino, $mode, $subcount);
-
-    # Get $nlink for top-level directory
-    ($dev, $ino, $mode, $nlink) = stat($dir) unless $nlink;
-
-    # Read directory
-    opendir(DIR, $dir) || die "Can't open $dir\n";
-    my (@filenames) = readdir(DIR);
-    closedir(DIR);
-
-    return if ! -d "$dir/CVS";
-
-    &callback($dir);
-
-    # This dir has subdirs
-    if ($nlink != 2) {
-        $subcount = $nlink - 2; # Number of subdirectories
-        for (@filenames) {
-            last if $subcount == 0;
-            next if $_ eq '.';
-            next if $_ eq '..';
-            next if $_ eq 'CVS';
-            my $name = "$dir/$_";
-
-            ($dev, $ino, $mode, $nlink) = lstat($name);
-            next unless -d _;
-            if (-x _ && -r _) {
-                print STDERR "$::progname: Entering $name\n";
-                &traverse_cvs_tree($name, *callback, $nlink);
-            } else {
-                warn("Couldn't chdir to $name");
-            }
-            --$subcount;
-        }
-    }
-}
-
-# Consume one token from the already opened RCSFILE filehandle.
-# Unescape string tokens, if necessary.
-
-my $line_buffer;
-
-sub get_token {
-    # Erase all-whitespace lines.
-    $line_buffer = '' unless (defined($line_buffer));
-    while ($line_buffer =~ /^$/) {
-        die ("Unexpected EOF") if eof(RCSFILE);
-        $line_buffer = <RCSFILE>;
-        $line_buffer =~ s/^\s+//; # Erase leading whitespace
-    }
-    
-    # A string of non-whitespace characters is a token ...
-    return $1 if ($line_buffer =~ s/^([^;@][^;\s]*)\s*//o);
-
-    # ...and so is a single semicolon ...
-    return ';' if ($line_buffer =~ s/^;\s*//o);
-
-    # ...or an RCS-encoded string that starts with an @ character.
-    $line_buffer =~ s/^@([^@]*)//o;
-    my $token = $1;
-
-    # Detect single @ character used to close RCS-encoded string.
-    while ($line_buffer !~ /@/o || # Short-circuit optimization
-           $line_buffer !~ /([^@]|^)@([^@]|$)/o) {
-        $token .= $line_buffer;
-        die ("Unexpected EOF") if eof(RCSFILE);
-        $line_buffer = <RCSFILE>;
-    }
-           
-    # Retain the remainder of the line after the terminating @ character.
-    my $i = rindex($line_buffer, '@');
-    $token .= substr($line_buffer, 0, $i);
-    $line_buffer = substr($line_buffer, $i + 1);
-
-    # Undo escape-coding of @ characters.
-    $token =~ s/@@/@/og;
-        
-    # Digest any extra blank lines.
-    while (($line_buffer =~ /^$/) && !eof(RCSFILE)) {
-	$line_buffer = <RCSFILE>;
-    }
-    return $token;
-}
-
-my $rcs_pathname;
-
-# Consume a token from RCS filehandle and ensure that it matches
-# the given string constant.
-sub match_token {
-    my ($match) = @_;
-
-    my ($token) = &get_token;
-    die "Unexpected parsing error in RCS file $rcs_pathname.\n",
-        "Expected token: $match, but saw: $token\n"
-            if ($token ne $match);
-}
-
-# Push RCS token back into the input buffer.
-sub unget_token {
-    my ($token) = @_;
-    $line_buffer = $token . " " . $line_buffer;
-}
-
-# Parses "administrative" header of RCS files, setting these globals:
-# 
-# $::head_revision          -- Revision for which cleartext is stored
-# $::principal_branch
-# $::file_description
-# %::revision_symbolic_name -- maps from numerical revision # to symbolic tag
-# %::tag_revision           -- maps from symbolic tag to numerical revision #
-#
-sub parse_rcs_admin {
-    my ($token, $tag, $tag_name, $tag_revision);
-
-    # Undefine variables, because we may have already read another RCS file
-    undef %::tag_revision;
-    undef %::revision_symbolic_name;
-
-    while (1) {
-        # Read initial token at beginning of line
-        $token = &get_token();
-
-        # We're done once we reach the description of the RCS tree
-        if ($token =~ /^\d/o) {
-            &unget_token($token);
-            return;
-        }
-        
-#       print "token: $token\n";
-
-        if ($token eq "head") {
-            $::head_revision = &get_token;
-            &get_token;         # Eat semicolon
-        } elsif ($token eq "branch") {
-            $::principal_branch = &get_token;
-            &get_token;         # Eat semicolon
-        } elsif ($token eq "symbols") {
-
-            # Create an associate array that maps from tag name to
-            # revision number and vice-versa.
-            while (($tag = &get_token) ne ';') {
-                ($tag_name, $tag_revision) = split(':', $tag);
-                
-                $::tag_revision{$tag_name} = $tag_revision;
-                $::revision_symbolic_name{$tag_revision} = $tag_name;
-            }
-        } elsif ($token eq "comment") {
-            $::file_description = &get_token;
-            &get_token;         # Eat semicolon
-
-        # Ignore all these other fields - We don't care about them.         
-        } elsif (($token eq "locks")  ||
-                 ($token eq "strict") ||
-                 ($token eq "expand") ||
-                 ($token eq "access")) {
-            (1) while (&get_token ne ';');
-        } else {
-            warn ("Unexpected RCS token: $token\n");
-        }
-    }
-
-    die "Unexpected EOF";
-}
-
-# Construct associative arrays that represent the topology of the RCS tree
-# and other arrays that contain info about individual revisions.
-#
-# The following associative arrays are created, keyed by revision number:
-#   %::revision_date     -- e.g. "96.02.23.00.21.52"
-#   %::timestamp         -- seconds since 12:00 AM, Jan 1, 1970 GMT
-#   %::revision_author   -- e.g. "tom"
-#   %::revision_branches -- descendant branch revisions, separated by spaces,
-#                         e.g. "1.21.4.1 1.21.2.6.1"
-#   %::prev_revision     -- revision number of previous *ancestor* in RCS tree.
-#                         Traversal of this array occurs in the direction
-#                         of the primordial (1.1) revision.
-#   %::prev_delta        -- revision number of previous revision which forms
-#                         the basis for the edit commands in this revision.
-#                         This causes the tree to be traversed towards the
-#                         trunk when on a branch, and towards the latest trunk
-#                         revision when on the trunk.
-#   %::next_delta   -- revision number of next "delta".  Inverts %::prev_delta.
-#
-# Also creates %::last_revision, keyed by a branch revision number, which
-# indicates the latest revision on a given branch,
-#   e.g. $::last_revision{"1.2.8"} == 1.2.8.5
-#
-
-
-my %revision_age;
-
-sub parse_rcs_tree {
-    my ($revision, $date, $author, $branches, $next);
-    my ($branch, $is_trunk_revision);
-
-    # Undefine variables, because we may have already read another RCS file
-    undef %::timestamp;
-    undef %revision_age;
-    undef %::revision_author;
-    undef %::revision_branches;
-    undef %::revision_ctime;
-    undef %::revision_date;
-    undef %::prev_revision;
-    undef %::prev_delta;
-    undef %::next_delta;
-    undef %::last_revision;
-
-    while (1) {
-        $revision = &get_token;
-
-        # End of RCS tree description ?
-        if ($revision eq 'desc') {
-            &unget_token($revision);
-            return;
-        }
-
-        $is_trunk_revision = ($revision =~ /^[0-9]+\.[0-9]+$/);
-        
-        $::tag_revision{$revision} = $revision;
-        ($branch) = $revision =~ /(.*)\.[0-9]+/o;
-        $::last_revision{$branch} = $revision;
-
-        # Parse date
-        &match_token('date');
-        $date = &get_token;
-        $::revision_date{$revision} = $date;
-        &match_token(';');
-
-        # Convert date into timestamp
-        my @date_fields = reverse(split(/\./, $date));
-        $date_fields[4]--;      # Month ranges from 0-11, not 1-12
-        $::timestamp{$revision} = timegm(@date_fields);
-
-        # Pretty print the date string
-        my @ltime = localtime($::timestamp{$revision});
-        my $formated_date = strftime("%d %b %Y %H:%M", @ltime);
-        $::revision_ctime{$revision} = $formated_date;
-
-        # Save age
-        $revision_age{$revision} =
-            ($time - $::timestamp{$revision}) / $SECS_PER_DAY;
-
-        # Parse author
-        &match_token('author');
-        $author = &get_token;
-        $::revision_author{$revision} = $author;
-        &match_token(';');
-
-        # Parse state;
-        &match_token('state');
-        while (&get_token ne ';') { }
-
-        # Parse branches
-        &match_token('branches');
-        $branches = '';
-        my $token;
-        while (($token = &get_token) ne ';') {
-            $::prev_revision{$token} = $revision;
-            $::prev_delta{$token} = $revision;
-            $branches .= "$token ";
-        }
-        $::revision_branches{$revision} = $branches;
-
-        # Parse revision of next delta in chain
-        &match_token('next');
-        $next = '';
-        if (($token = &get_token) ne ';') {
-            $next = $token;
-            &get_token;         # Eat semicolon
-            $::next_delta{$revision} = $next;
-            $::prev_delta{$next} = $revision;
-            if ($is_trunk_revision) {
-                $::prev_revision{$revision} = $next;
-            } else {
-                $::prev_revision{$next} = $revision;
-            }
-        }
-
-        if ($debug >= 3) {
-            print "<pre>revision = $revision\n";
-            print "date     = $date\n";
-            print "author   = $author\n";
-            print "branches = $branches\n";
-            print "next     = $next</pre>\n\n";
-        }
-    }
-}
-
-sub parse_rcs_description {
-    &match_token('desc');
-    my $rcs_file_description = &get_token;
-}
-
-# Construct associative arrays containing info about individual revisions.
-#
-# The following associative arrays are created, keyed by revision number:
-#   %::revision_log        -- log message
-#   %::revision_deltatext  -- Either the complete text of the revision,
-#                           in the case of the head revision, or the
-#                           encoded delta between this revision and another.
-#                           The delta is either with respect to the successor
-#                           revision if this revision is on the trunk or
-#                           relative to its immediate predecessor if this
-#                           revision is on a branch.
-sub parse_rcs_deltatext {
-    undef %::revision_log;
-    undef %::revision_deltatext;
-
-    while (!eof(RCSFILE)) {
-        my $revision = &get_token;
-        print "Reading delta for revision: $revision\n" if ($debug >= 3);
-        &match_token('log');
-        $::revision_log{$revision} = &get_token;
-        &match_token('text');
-        $::revision_deltatext{$revision} = &get_token;
-    }
-}
-
-
-# Reads and parses complete RCS file from already-opened RCSFILE descriptor.
-sub parse_rcs_file {
-    print "Reading RCS admin...\n" if ($debug >= 2);
-    &parse_rcs_admin();
-    print "Reading RCS revision tree topology...\n" if ($debug >= 2);
-    &parse_rcs_tree();
-
-    if( $debug >= 3 ){
-        print "<pre>Keys:\n\n";
-        for my $i (keys %::tag_revision ){
-            my $k = $::tag_revision{$i};
-            print "yoyuo $i: $k\n";            
-        }
-        print "</pre>\n";
-    }
-
-    &parse_rcs_description();
-    print "Reading RCS revision deltas...\n" if ($debug >= 2);
-    &parse_rcs_deltatext();
-    print "Done reading RCS file...\n" if ($debug >= 2);
-}
-
-# Map a tag to a numerical revision number.  The tag can be a symbolic
-# branch tag, a symbolic revision tag, or an ordinary numerical
-# revision number.
-sub map_tag_to_revision {
-    my ($tag_or_revision) = @_;
-
-    my ($revision) = $::tag_revision{$tag_or_revision};
-    
-    # Is this a branch tag, e.g. xxx.yyy.0.zzz
-    if ($revision =~ /(.*)\.0\.([0-9]+)/o) {
-        my $branch = $1 . '.' . $2;
-        # Return latest revision on the branch, if any.
-        return $::last_revision{$branch} if (defined($::last_revision{$branch}));
-        return $1;              # No revisions on branch - return branch point
-    } else {
-        return $revision;
-    }
-}
-
-# Construct an ordered list of ancestor revisions to the given
-# revision, starting with the immediate ancestor and going back
-# to the primordial revision (1.1).
-#
-# Note: The generated path does not traverse the tree the same way
-#       that the individual revision deltas do.  In particular,
-#       the path traverses the tree "backwards" on branches.
-
-sub ancestor_revisions {
-    my ($revision) = @_;
-    my (@ancestors);
-     
-    $revision = $::prev_revision{$revision};
-    while ($revision) {
-        push(@ancestors, $revision);
-        $revision = $::prev_revision{$revision};
-    }
-
-    return @ancestors;
-}
-
-# Extract the given revision from the digested RCS file.
-# (Essentially the equivalent of cvs up -rXXX)
-sub extract_revision {
-    my ($revision) = @_;
-    my (@path);
-    my $add_lines_remaining = 0;
-    my ($start_line, $count);
-    # Compute path through tree of revision deltas to most recent trunk revision
-    while ($revision) {
-        push(@path, $revision);
-        $revision = $::prev_delta{$revision};
-    }
-    @path = reverse(@path);
-    shift @path;                # Get rid of head revision
-
-    # Get complete contents of head revision
-    my (@text) = split(/^/, $::revision_deltatext{$::head_revision});
-
-    # Iterate, applying deltas to previous revision
-    foreach $revision (@path) {
-        my $adjust = 0;
-        my @diffs = split(/^/, $::revision_deltatext{$revision});
-
-        my ($lines_added) = 0;
-        my ($lines_removed) = 0;
-
-        foreach my $command (@diffs) {
-            if ($add_lines_remaining > 0) {
-                # Insertion lines from a prior "a" command.
-                splice(@text, $start_line + $adjust,
-                       0, $command);
-                $add_lines_remaining--;
-                $adjust++;
-            } elsif ($command =~ /^d(\d+)\s(\d+)/) {
-                # "d" - Delete command
-                ($start_line, $count) = ($1, $2);
-                splice(@text, $start_line + $adjust - 1, $count);
-                $adjust -= $count;
-                $lines_removed += $count;
-            } elsif ($command =~ /^a(\d+)\s(\d+)/) {
-                # "a" - Add command
-                ($start_line, $count) = ($1, $2);
-                $add_lines_remaining = $count;
-                $lines_added += $lines_added;
-            } else {
-                die "Error parsing diff commands";
-            }
-        }
-        $::lines_removed{$revision} += $lines_removed;
-        $::lines_added{$revision} += $lines_added;
-    }
-
-    return @text;
-}
-
-sub parse_cvs_file {
-    ($rcs_pathname) = @_;
-
-    # Args in:  $::opt_rev - requested revision
-    #           $::opt_m - time since modified
-    # Args out: @::revision_map
-    #           %::timestamp
-    #           (%::revision_deltatext)
-
-    my @diffs;
-    my $revision;
-    my $skip;
-    my ($start_line, $count);
-    my @temp;
-
-    @::revision_map = ();
-    CheckHidden($rcs_pathname);
-
-    die "$::progname: error: This file appeared to be under CVS control, " . 
-        "but the RCS file is inaccessible.\n(Couldn't open '$rcs_pathname')\n"
-            if !open (RCSFILE, "< $rcs_pathname");
-    &parse_rcs_file();
-    close(RCSFILE);
-
-    if (!defined($::opt_rev) || $::opt_rev eq '' || $::opt_rev eq 'HEAD') {
-        # Explicitly specified topmost revision in tree
-        $revision = $::head_revision;
-    } else {
-        # Symbolic tag or specific revision number specified.
-        $revision = &map_tag_to_revision($::opt_rev);
-        die "$::progname: error: -r: No such revision: $::opt_rev\n"
-            if ($revision eq '');
-    }
-
-    # The primordial revision is not always 1.1!  Go find it.
-    my $primordial = $revision;
-    while (exists($::prev_revision{$primordial}) &&
-           $::prev_revision{$primordial} ne "") {
-        $primordial = $::prev_revision{$primordial};
-    }
-
-    # Don't display file at all, if -m option is specified and no
-    # changes have been made in the specified file.
-    if ($::opt_m && $::timestamp{$revision} < $::opt_m_timestamp) {
-        return '';
-    }
-
-    # Figure out how many lines were in the primordial, i.e. version 1.1,
-    # check-in by moving backward in time from the head revision to the
-    # first revision.
-    my $line_count = 0;
-    if (exists ($::revision_deltatext{$::head_revision}) && 
-        $::revision_deltatext{$::head_revision}) {
-         my @tmp_array =  split(/^/, $::revision_deltatext{$::head_revision});
-         $line_count = @tmp_array;
-    }
-    $skip = 0 unless (defined($skip));
-    my $rev;
-    for ($rev = $::prev_revision{$::head_revision}; $rev;
-         $rev = $::prev_revision{$rev}) {
-        @diffs = split(/^/, $::revision_deltatext{$rev});
-        foreach my $command (@diffs) {
-            if ($skip > 0) {
-                # Skip insertion lines from a prior "a" command.
-                $skip--;
-            } elsif ($command =~ /^d(\d+)\s(\d+)/) {
-                # "d" - Delete command
-                ($start_line, $count) = ($1, $2);
-                $line_count -= $count;
-            } elsif ($command =~ /^a(\d+)\s(\d+)/) {
-                # "a" - Add command
-                ($start_line, $count) = ($1, $2);
-                $skip = $count;
-                $line_count += $count;
-            } else {
-                die "$::progname: error: illegal RCS file $rcs_pathname\n",
-                "  error appears in revision $rev\n";
-            }
-        }
-    }
-
-    # Now, play the delta edit commands *backwards* from the primordial
-    # revision forward, but rather than applying the deltas to the text of
-    # each revision, apply the changes to an array of revision numbers.
-    # This creates a "revision map" -- an array where each element
-    # represents a line of text in the given revision but contains only
-    # the revision number in which the line was introduced rather than
-    # the line text itself.
-    #
-    # Note: These are backward deltas for revisions on the trunk and
-    # forward deltas for branch revisions.
-
-    # Create initial revision map for primordial version.
-    while ($line_count--) {
-        push(@::revision_map, $primordial);
-    }
-
-    my @ancestors = &ancestor_revisions($revision);
-    unshift (@ancestors, $revision); # 
-    pop @ancestors;             # Remove "1.1"
-    $::last_revision = $primordial;
-    foreach $revision (reverse @ancestors) {
-        my $is_trunk_revision = ($revision =~ /^[0-9]+\.[0-9]+$/);
-
-        if ($is_trunk_revision) {
-            @diffs = split(/^/, $::revision_deltatext{$::last_revision});
-
-            # Revisions on the trunk specify deltas that transform a
-            # revision into an earlier revision, so invert the translation
-            # of the 'diff' commands.
-            foreach my $command (@diffs) {
-                if ($skip > 0) {
-                    $skip--;
-                } else {
-                    if ($command =~ /^d(\d+)\s(\d+)$/) { # Delete command
-                        ($start_line, $count) = ($1, $2);
-
-                        $#temp = -1;
-                        while ($count--) {
-                            push(@temp, $revision);
-                        }
-                        splice(@::revision_map, $start_line - 1, 0, @temp);
-                    } elsif ($command =~ /^a(\d+)\s(\d+)$/) { # Add command
-                        ($start_line, $count) = ($1, $2);
-                        splice(@::revision_map, $start_line, $count);
-                        $skip = $count;
-                    } else {
-                        die "Error parsing diff commands";
-                    }
-                }
-            }
-        } else {
-            # Revisions on a branch are arranged backwards from those on
-            # the trunk.  They specify deltas that transform a revision
-            # into a later revision.
-            my $adjust = 0;
-            @diffs = split(/^/, $::revision_deltatext{$revision});
-            foreach my $command (@diffs) {
-                if ($skip > 0) {
-                    $skip--;
-                } else {
-                    if ($command =~ /^d(\d+)\s(\d+)$/) { # Delete command
-                        ($start_line, $count) = ($1, $2);
-                        splice(@::revision_map, $start_line + $adjust - 1, $count);
-                        $adjust -= $count;
-                    } elsif ($command =~ /^a(\d+)\s(\d+)$/) { # Add command
-                        ($start_line, $count) = ($1, $2);
-
-                        $skip = $count;
-                        $#temp = -1;
-                        while ($count--) {
-                            push(@temp, $revision);
-                        }
-                        splice(@::revision_map, $start_line + $adjust, 0, @temp);
-                        $adjust += $skip;
-                    } else {
-                        die "Error parsing diff commands";
-                    }
-                }
-            }
-        }
-        $::last_revision = $revision;
-    }    
-    return $revision;
-}
-
-1;
-
-__END__
-#
-# The following are parts of the original cvsblame script that are not
-#   used for cvsblame.pl
-#
-
-# Read CVS/Entries and CVS/Repository files.
-#
-# Creates these associative arrays, keyed by the CVS file pathname
-#
-#  %cvs_revision         -- Revision # present in working directory
-#  %cvs_date
-#  %cvs_sticky_revision  -- Sticky tag, if any
-#  
-#  Also, creates %cvs_files, keyed by the directory path, which contains
-#  a space-separated list of the files under CVS control in the directory
-sub read_cvs_entries
-{
-    my ($directory) = @_;
-    my ($filename, $rev, $date, $idunno, $sticky, $pathname);
-
-    $cvsdir = $directory . '/CVS';
-
-    CheckHidden($cvsdir);
-
-    return if (! -d $cvsdir);
-
-    return if !open(ENTRIES, "< $cvsdir/Entries");
-    
-    while(<ENTRIES>) {
-        chop;
-        ($filename, $rev, $date, $idunno, $sticky) = split("/", substr($_, 1));
-        ($pathname) = $directory . "/" . $filename;
-        $cvs_revision{$pathname} = $rev;
-        $cvs_date{$pathname} = $date;
-        $cvs_sticky_revision{$pathname} = $sticky;
-        $cvs_files{$directory} .= "$filename\\";
-    }
-    close(ENTRIES);
-
-    return if !open(REPOSITORY, "< $cvsdir/Repository");
-    $repository = <REPOSITORY>;
-    chop($repository);
-    close(REPOSITORY);
-    $repository{$directory} = $repository;
-}
-
-# Given path to file in CVS working directory, compute path to RCS
-# repository file.  Cache that info for future use.
-
-
-sub rcs_pathname {
-    ($pathname) = @_;
-
-    if ($pathname =~ m@/@) {
-        ($directory,$filename) = $pathname =~ m@(.*)/([^/]+)$@;
-    } else {
-        ($directory,$filename) = ('.',$pathname);
-        $pathname = "./" . $pathname;
-    }
-    if (!defined($repository{$directory})) {
-        &read_cvs_entries($directory);
-    }
-       
-    if (!defined($cvs_revision{$pathname})) {
-        die "$::progname: error: File '$pathname' does not appear to be under" .
-            " CVS control.\n"
-    }
-
-    print STDERR "file: $filename\n" if $debug;
-    my ($rcs_path) = $repository{$directory} . '/' . $filename . ',v';
-    return $rcs_path if (-r $rcs_path);
-
-    # A file that exists only on the branch, not on the trunk, is found
-    # in the Attic subdir.
-    return $repository{$directory} . '/Attic/' . $filename . ',v';
-}
-
-sub show_annotated_cvs_file {
-    my ($pathname) = @_;
-    my (@output) = ();
-
-    my $revision = &parse_cvs_file($pathname);
-
-    @text = &extract_revision($revision);
-    die "$::progname: Internal consistency error" if ($#text != $#::revision_map);
-
-    # Set total width of line annotation.
-    # Warning: field widths here must match format strings below.
-    $annotation_width = 0;
-    $annotation_width +=  8 if $::opt_a; # author
-    $annotation_width +=  7 if $::opt_v; # revision
-    $annotation_width +=  6 if $::opt_A; # age
-    $annotation_width += 12 if $::opt_d; # date
-    $blank_annotation = ' ' x $annotation_width;
-
-    if ($multiple_files_on_command_line) {
-        print "\n", "=" x (83 + $annotation_width);
-        print "\n$::progname: Listing file: $pathname\n"
-    }
-
-    # Print each line of the revision, preceded by its annotation.
-    $line = 0;
-    foreach $revision (@::revision_map) {
-        $text = $text[$line++];
-        $annotation = '';
-
-        # Annotate with revision author
-        $annotation .= sprintf("%-8s", $::revision_author{$revision}) if $::opt_a;
-
-        # Annotate with revision number
-        $annotation .= sprintf(" %-6s", $revision) if $::opt_v;
-
-        # Date annotation
-        $annotation .= " $::revision_ctime{$revision}" if $::opt_d;
-
-        # Age annotation ?
-        $annotation .= sprintf(" (%3s)",
-                               int($revision_age{$revision})) if $::opt_A;
-
-        # -m (if-modified-since) annotion ?
-        if ($::opt_m && ($::timestamp{$revision} < $::opt_m_timestamp)) {
-            $annotation = $blank_annotation;
-        }
-
-        # Suppress annotation of whitespace lines, if requested;
-        $annotation = $blank_annotation if $::opt_w && ($text =~ /^\s*$/);
-
-#       printf "%4d ", $line if $::opt_l;
-#       print "$annotation - $text";
-        push(@output, sprintf("%4d ", $line)) if $::opt_l;
-        push(@output, "$annotation - $text");
-    }
-    @output;
-}
-
-sub usage {
-    die
-"$::progname: usage: [options] [file|dir]...\n",
-"   Options:\n",
-"      -r <revision>      Specify CVS revision of file to display\n",
-"                         <revision> can be any of:\n",
-"                           + numeric tag, e.g. 1.23,\n",
-"                           + symbolic branch or revision tag, e.g. CHEDDAR,\n",
-"                           + HEAD keyword (most recent revision on trunk)\n",
-"      -a                 Annotate lines with author (username)\n",
-"      -A                 Annotate lines with age, in days\n",
-"      -v                 Annotate lines with revision number\n", 
-"      -d                 Annotate lines with date, in local time zone\n",
-"      -l                 Annotate lines with line number\n",
-"      -w                 Don't annotate all-whitespace lines\n",
-"      -m <# days>        Only annotate lines modified within last <# days>\n",
-"      -h                 Print help (this message)\n\n",
-"   (-a -v assumed, if none of -a, -v, -A, -d supplied)\n"
-;
-}
-
- 
-&usage if (!&Getopts('r:m:Aadhlvw'));
-&usage if ($::opt_h);             # help option
-
-$multiple_files_on_command_line = 1 if ($#ARGV != 0);
-
-&cvsblame_init;
-
-sub annotate_cvs_directory
-{
-    my ($dir) = @_;
-    &read_cvs_entries($dir);
-    foreach $file (split(/\\/, $cvs_files{$dir})) {
-        &show_annotated_cvs_file("$dir/$file");
-    }
-}
-
-# No files on command-line ?  Use current directory.
-push(@ARGV, '.') if ($#ARGV == -1);
- 
-# Iterate over files/directories on command-line
-while ($#ARGV >= 0) {
-    $pathname = shift @ARGV;
-    # Is it a directory ?
-    if (-d $pathname) {
-        &traverse_cvs_tree($pathname, *annotate_cvs_directory);
-
-    # No, it must be a file.
-    } else {
-        &show_annotated_cvs_file($pathname);
-    }
-}
-
-
-1;

mozilla/webtools/bonsai/cvsguess.cgi

@@ -1,75 +0,0 @@
-#!/usr/bonsaitools/bin/perl -w
-# -*- Mode: perl; indent-tabs-mode: nil -*-
-#
-# The contents of this file are subject to the Netscape Public License
-# Version 1.0 (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 Bonsai CVS 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.
-
-use diagnostics;
-use strict;
-
-require 'CGI.pl';
-
-my $file= $::FORM{'file'};
-my $mark= $::FORM{'mark'};
-my $ln = ($mark > 10 ? $mark-10 : 1 );
-my $rev = $::FORM{'rev'};
-my $debug = $::FORM{'debug'};
-
-print "Content-Type: text/html\n\n";
-
-my $CVS_ROOT = $::FORM{'root'};
-if( $CVS_ROOT eq '' ){ 
-    $CVS_ROOT = pickDefaultRepository();
-}
-validateRepository($CVS_ROOT);
-
-my $CVS_REPOS_SUFIX = $CVS_ROOT;
-$CVS_REPOS_SUFIX =~ s/\//_/g;
-    
-ConnectToDatabase();
-
-my $f = SqlQuote($file);
-my $qstring = "select distinct dirs.dir from checkins,dirs,files,repositories where dirs.id=dirid and files.id=fileid and repositories.id=repositoryid and repositories.repository='$CVS_ROOT' and files.file=$f order by dirs.dir";
-
-if ($debug) {
-    print "<pre wrap>$qstring</pre>\n";
-}
-
-my (@row, $d, @fl, $s);
-
-SendSQL($qstring);
-while(@row = FetchSQLData()){
-    $d = $row[0];
-    push @fl, "$d/$file";
-}
-
-if( @fl == 0 ){
-    print "<h3>No files matched this file name.  It may have been added recently.</h3>";
-}
-elsif( @fl == 1 ){
-    $s = $fl[0];
-    print "<head>
-    <meta http-equiv=Refresh
-      content=\"0; URL=cvsblame.cgi?file=$s&rev=$rev&root=$CVS_ROOT&mark=$mark#$ln\">
-    </head>
-    ";    
-}
-else {
-    print "<h3>Pick the file that best matches the one you are looking for:</h3>\n";
-    for $s (@fl) {
-        print "<dt><a href=cvsblame.cgi?file=$s&rev=$rev&mark=$mark#$ln>$s</a>";
-    }
-}

mozilla/webtools/bonsai/cvsindex.pl

@@ -1,91 +0,0 @@
-#!/usr/bonsaitools/bin/perl --
-# -*- Mode: perl; indent-tabs-mode: nil -*-
-#
-# The contents of this file are subject to the Netscape Public License
-# Version 1.0 (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 Bonsai CVS 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.
-
-
-# Figure out which directory bonsai is in by looking at argv[0]
-
-$bonsaidir = $0;
-$bonsaidir =~ s:/[^/]*$::;      # Remove last word, and slash before it.
-if ($bonsaidir eq "") {
-    $bonsaidir = ".";
-}
-
-chdir $bonsaidir || die "Couldn't chdir to $bonsaidir";
-require "utils.pl";
-
-if( $ARGV[0] eq '' ){
-    $::CVS_ROOT = pickDefaultRepository();
-}
-else {
-    $::CVS_ROOT = $ARGV[0];
-}
-
-$CVS_REPOS_SUFIX = $::CVS_ROOT;
-$CVS_REPOS_SUFIX =~ s:/:_:g;
-
-
-$CHECKIN_DATA_FILE = "$bonsaidir/data/checkinlog${CVS_REPOS_SUFIX}";
-$CHECKIN_INDEX_FILE = "$bonsaidir/data/index${CVS_REPOS_SUFIX}";
-
-&build_index;
-&print_keys;
-
-sub build_index {
-    open(CI, "<$CHECKIN_DATA_FILE") || die "could not open checkin data file\n";
-
-    $file_pos = 0;
-    $lastlog = 0;
-    $last_date = 0;
-    $index = {};
-    $now = time;
-    while( <CI> ){
-        if( /^LOGCOMMENT/ ){
-            $done = 0;
-            $file_pos += length;
-            while( !$done && ($line = <CI>) ){
-                if( $line =~ /^:ENDLOGCOMMENT/ ){
-                    $done = 1;
-                }
-                $file_pos += length($line);
-            }
-        }
-        else {
-            #print $_ . "\n";
-            $ci = [split(/\|/)];
-            $d = $ci->[1];
-
-            if( $d < $now && $d > ($last_date + 60*60*4) ){
-                $index->{$d} = $file_pos;
-                $last_date = $d;
-            }
-            $file_pos += length;
-        }
-    }
-    close( CI );
-}
-
-sub print_keys {
-    Lock();
-    open(INDEX , ">$CHECKIN_INDEX_FILE");
-    for $i (sort {$b <=> $a} keys %{$index}) {
-        print INDEX "$index->{$i}|$i\n";
-    }
-    close(INDEX);
-    Unlock();
-}

mozilla/webtools/bonsai/cvslog.cgi

@@ -1,527 +0,0 @@
-#!/usr/bonsaitools/bin/perl -w
-# -*- Mode: perl; indent-tabs-mode: nil -*-
-#
-# The contents of this file are subject to the Netscape Public License
-# Version 1.0 (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 Bonsai CVS 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.
-
-#  cvslog.cgi -- cvslog with logs as popups and allowing html in comments.
-#
-#  Created: Steve Lamm <slamm@netscape.com>, 31-Mar-98.
-#
-#  Arguments (passed via GET or POST):
-#    file - path to file name (e.g. ns/cmd/xfe/Makefile)
-#    root - cvs root (e.g. /warp/webroot)
-#    rev  - revision (default is the latest version)
-#    mark - highlight a revision
-#    author - filter based on author
-#
-
-use diagnostics;
-use strict;
-
-# Shut up misguided -w warnings about "used only once".  "use vars" just
-# doesn't work for me.
-
-sub sillyness {
-    my $zz;
-    $zz = $::CVS_ROOT;
-    $zz = $::head_revision;
-    $zz = $::revision_ctime;
-    $zz = $::revision_log;
-}
-
-require 'CGI.pl';
-require 'cvsblame.pl';
-use SourceChecker;
-
-# Some Globals
-#
-$| = 1;
-
-print "Content-Type:text/html\n\n";
-
-my @src_roots = getRepositoryList();
-
-
-# Handle the "file" argument
-#
-my $filename = '';
-$filename = $::FORM{'file'} if defined($::FORM{'file'});
-if ($filename eq '') 
-{
-    &print_usage;
-    exit;
-}
-my ($file_head, $file_tail) = $filename =~ m@(.*/)?(.+)@;
-
-
-# Handle the "rev" argument
-#
-$::opt_rev = "";
-$::opt_rev = $::FORM{'rev'} if defined($::FORM{'rev'} && $::FORM{'rev'} ne 'HEAD');
-my $browse_revtag = 'HEAD';
-$browse_revtag = $::opt_rev if ($::opt_rev =~ /[A-Za-z]/);
-my $revision = '';
-
-
-# Handle the "root" argument
-#
-my $root = $::FORM{'root'};
-if (defined $root && $root ne '') {
-    $root =~ s|/$||;
-    validateRepository($root);
-    if (-d $root) {
-        unshift(@src_roots, $root);
-    } else {
-        &print_top;
-        print "Error:  Root, $root, is not a directory.<BR><BR>\n";
-        print "</BODY></HTML>\n";
-        &print_bottom;
-        exit;
-    }
-}
-
-
-
-# Find the rcs file
-#
-my $rcs_filename;
-foreach (@src_roots) {
-    $root = $_;
-    $rcs_filename = "$root/$filename,v";
-    $rcs_filename = Fix_BonsaiLink($rcs_filename);
-    goto found_file if -r $rcs_filename;
-    $rcs_filename = "$root/${file_head}Attic/$file_tail,v";
-    goto found_file if -r $rcs_filename;
-}
-# File not found
-&print_top;
-print "Rcs file, $filename, does not exist.<BR><BR>\n";
-print "</BODY></HTML>\n";
-&print_bottom;
-exit;
-
-found_file:
-
-my $rcs_path;
-($rcs_path) = $rcs_filename =~ m@$root/(.*)/.+?,v@;
-
-
-# Parse the rcs file ($::opt_rev is passed as a global)
-#
-$revision = &parse_cvs_file($rcs_filename);
-my $file_rev = $revision;
-
-
-# Handle the "mark" argument
-#
-my %mark;
-my $mark_arg = '';
-$mark_arg = $::FORM{'mark'} if defined($::FORM{'mark'});
-foreach my $rev (split(',',$mark_arg)) {
-    $mark{$rev} = 1;
-}
-
-
-# Handle the "author" argument
-#
-my %use_author;
-my $author_arg = '';
-$author_arg = $::FORM{'author'} if defined($::FORM{'author'});
-foreach my $author (split(',',$author_arg)) {
-    $use_author{$author} = 1;
-}
-
-
-# Handle the "sort" argument
-my $opt_sort = '';
-$opt_sort = $::FORM{'sort'} if defined $::FORM{'sort'};
-
-
-# Start printing out the page
-#
-&print_top;
-print Param('bannerhtml', 1);
-
-
-# Print link at top for directory browsing
-#
-print q(
-<TABLE BORDER=0 CELLPADDING=5 CELLSPACING=0 WIDTH="100%">
- <TR>
-  <TD ALIGN=LEFT VALIGN=CENTER>
-   <NOBR><FONT SIZE="+2"><B>
-    CVS Log
-   </B></FONT></NOBR>
-   <BR><B>
-);
-
-my $link_path;
-my $lxr_path;
-foreach my $path (split('/',$rcs_path)) {
-    $link_path .= url_encode2($path).'/';
-    $lxr_path = Fix_LxrLink($link_path);
-    print "<A HREF='$lxr_path'>$path</a>/ ";
-}
-$lxr_path = Fix_LxrLink("$link_path$file_tail");
-print "<A HREF='$lxr_path'>$file_tail</a> ";
-
-print " (";
-print "$browse_revtag:" unless $browse_revtag eq 'HEAD';
-print $revision if $revision;
-print ")";
-
-print qq(
-</B>
-  </TD>
-
-  <TD ALIGN=RIGHT VALIGN=TOP WIDTH="1%">
-   <TABLE BORDER CELLPADDING=10 CELLSPACING=0>
-    <TR>
-     <TD NOWRAP BGCOLOR="#FAFAFA">
-      <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0>
-       <TR>
-        <TD>
-         <A HREF="$lxr_path">lxr</A>
-        </TD><TD NOWRAP>
-         Browse the source code as hypertext.
-        </TD>
-       </TR><TR>
-        <TD>
-         <A HREF="cvsview2.cgi?command=DIRECTORY&subdir=$rcs_path&files=$file_tail">diff</A>
-        </TD><TD NOWRAP>
-         Compare any two version.
-        </TD>
-       </TR><TR>
-        <TD>
-         <A HREF="cvsblame.cgi?file=$filename">blame</A>&nbsp;
-        </TD><TD NOWRAP>
-         Annotate the author of each line.
-        </TD>
-       </TR>
-      </TABLE>
-     </TD>
-    </TR>
-   </TABLE>
-  </TD>
- </TR>
-</TABLE>
-      );
-
-#&print_useful_links($filename);
- 
-# Create a table with header links to sort by column.
-#
-my $table_tag = "<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=3 WIDTH='100%'>";
-my $table_header_tag = "";
-if ($opt_sort eq 'author') {
-    $table_header_tag .= "<TH ALIGN=LEFT><A HREF='cvslog.cgi?file=$filename&root=$root&rev=$browse_revtag&sort=revision&author=$author_arg'>Rev</A><TH ALIGN=LEFT>Author<TH ALIGN=LEFT><A HREF='cvslog.cgi?file=$filename&root=$root&rev=$browse_revtag&sort=date&author=$author_arg'>Date</A><TH><TH ALIGN=LEFT>Log";
-} else {
-    $table_header_tag .= "<TH ALIGN=LEFT>Rev<TH ALIGN=LEFT><A HREF='cvslog.cgi?file=$filename&root=$root&rev=$browse_revtag&sort=author&author=$author_arg'>Author</A><TH ALIGN=LEFT>Date<TH><TH ALIGN=LEFT>Log";
-}
-
-$table_header_tag = &url_encode3($table_header_tag);
-print "$table_tag$table_header_tag";
-
-# Print each line of the revision, preceded by its annotation.
-#
-my $start_rev;
-if ($browse_revtag eq 'HEAD') {
-    $start_rev = $::head_revision;  # $::head_revision is a global from cvsblame.pl
-} else {
-    $start_rev = map_tag_to_revision($browse_revtag);
-}
-my $row_count = 0;
-my $max_rev_length = length($start_rev);
-my $max_author_length = 8;
-my @revisions = ($start_rev, ancestor_revisions($start_rev));
-@revisions = sort by_author @revisions if $opt_sort eq 'author';
-#@revisions = sort by_author @revisions if $opt_sort eq 'date' && $rev eq 'all';
-my $bgcolor;
-foreach $revision (@revisions)
-{
-    my $author = $::revision_author{$revision};
-    next unless $author_arg eq '' || $use_author{$author};
-
-    my $log = $::revision_log{$revision};
-    $log =~ s/&/&amp;/g;
-    $log =~ s/</&lt;/g;
-    $log =~ s/>/&gt;/g;
-    $log = MarkUpText($log);
-    $log =~ s/\n|\r|\r\n/<BR>/g;
-
-    if (!defined $bgcolor || $bgcolor eq '') {
-        #$bgcolor = ' BGCOLOR="#EEEEEE"';# My browser translates this to white.
-        $bgcolor = ' BGCOLOR="#E7E7E7"'; # Pick a grey that shows up on 8-bit.
-    } else {
-        $bgcolor = '';
-    }
-    
-    my $output = '';
-    $row_count++;
-    if ($row_count > 20) {
-        $output .= "</TABLE>\n$table_tag";
-        $row_count = 0;
-    }
-
-    $output .= "<TR$bgcolor VALIGN=TOP><TD>"
-        ."<A NAME=$revision>";
-
-    my $anchor = "<A HREF=cvsview2.cgi";
-
-    if (defined($::prev_revision{$revision})) {
-        $anchor .= "?diff_mode=context&whitespace_mode=show&file=$file_tail"
-            ."&root=$root&subdir=$rcs_path&command=DIFF_FRAMESET"
-            ."&rev1=$::prev_revision{$revision}&rev2=$revision";
-    } else {
-        $anchor .= "?files=$file_tail"
-            ."&root=$root&subdir=$rcs_path\&command=DIRECTORY\&rev2=$revision";
-        $anchor .= "&branch=$browse_revtag" unless $browse_revtag eq 'HEAD';
-    }
-
-    $anchor = &url_encode3($anchor);
-
-    $output .= $anchor;
-
-    $output .= ">$revision</A>"
-        .'&nbsp' x ($max_rev_length - length($revision)).'</TD>';
-
-    $output .= "<TD>".$author
-        .'&nbsp' x ($max_author_length - length($author)).'</TD>';
-    my $rev_time = $::revision_ctime{$revision};
-#    $rev_time =~ s/(19\d\d) (.\d:\d\d)/$1<BR><FONT SIZE=-2>$2<\/FONT>/;
-
-    # jwz: print the date the way "ls" does.
-    #
-    # What ls does is actually: print "Mmm DD HH:MM" unless the file is
-    # more than six months old, or more than 1 hour in the future, in
-    # which case, print "Mmm DD YYYY".
-    #
-    # What the following does is: "Mmm DD HH:MM" unless the year is not
-    # the current year; else print "Mmm DD YYYY".
-    #
-    # If we had $rev_time as an actual time_t instead of as a string,
-    # it would be easy to do the "ls" thing (see the code I wrote for
-    # this in "lxr/source").  -jwz, 15-Jun-98.
-    #
-    {
-        my $current_time = time;
-        my @t = gmtime($current_time);
-        my ($csec, $cmin, $chour, $cmday, $cmon, $cyear) = @t;
-        $cyear += 1900;
-
-        $_ = $rev_time;
-        my ($rday, $rmon, $ryear, $rhour, $rmin) =
-            m/([0-9]+) ([A-Z][a-z]+) ([0-9][0-9]+) +([0-9]+):([0-9]+)/;
-        $rmon =~ s/^(...).*$/$1/;
-
-        if (!$rday) {
-            # parse error -- be annoying so somebody complains.
-            $rev_time = "<BLINK>\"$rev_time\"</BLINK>";
-        } elsif ($cyear ne $ryear) {
-            $rev_time = sprintf("%s %2d  %04d", $rmon, $rday, $ryear);
-        } else {
-            $rev_time = sprintf("%s %2d %02d:%02d",
-                                $rmon, $rday, $rhour, $rmin);
-        }
-
-        $rev_time = "<FONT SIZE=\"-1\">$rev_time</FONT>";
-    }
-
-    $output .= "<TD NOWRAP ALIGN=RIGHT>$rev_time</TD>";
-    $output .= "<TD>&nbsp;</TD><TD WIDTH=99%>$log</TD>";
-    
-    $output .= "</TR>\n";
-
-    print $output;
-}
-print "</TABLE>";
-&print_bottom;
-
-## END of main script
-
-sub by_revision {
-    my (@a_parts) = split(/\./,$a);
-    my (@b_parts) = split(/\./,$b);
-    while(1) {
-        my ($aa) = shift @a_parts;
-        my ($bb) = shift @b_parts;
-        return  1 if $aa eq '';
-        return -1 if $bb eq '';
-        return $bb <=> $aa if $aa ne $bb;
-    }
-}
-
-sub by_author {
-    my ($a_author) = $::revision_author{$a};
-    my ($b_author) = $::revision_author{$b};
-
-    return $a_author cmp $b_author if $a_author ne $b_author;
-    return by_revision;
-}
-
-sub revision_pad {
-    my ($revision) = @_;
-    return '&nbsp' x ($max_rev_length - length($revision));
-}
-
-sub sprint_author {
-    my ($revision) = @_;
-    my ($author) = $::revision_author{$revision};
-
-    return 
-}
-
-
-sub print_top {
-    my ($title_text) = "for $file_tail (";
-    $title_text .= "$browse_revtag:" unless $browse_revtag eq 'HEAD';
-    $title_text .= $revision if $revision;
-    $title_text .= ")";
-    $title_text =~ s/\(\)//;
-
-    print <<__TOP__;
-<HTML>
-<HEAD>
-  <TITLE>CVS Log $title_text</TITLE>
-</HEAD>
-<BODY BGCOLOR=WHITE TEXT=BLACK>
-
-__TOP__
-} # print_top
-
-sub print_usage {
-    my ($linenum_message) = '';
-    my ($new_linenum, $src_roots_list);
-    my ($title_text) = "Usage";
-
-    $src_roots_list = join('<BR>', @src_roots);
-
-    print <<__USAGE__;
-<HTML>
-<HEAD>
-<TITLE>CVS Log $title_text</TITLE>
-</HEAD><BODY>
-<H2>CVS Log Usage</H2>
-Add parameters to the query string to view a file.
-<P>
-<TABLE BORDER CELLPADDING=3>
-<TR ALIGN=LEFT>
-  <TH>Param</TH>
-  <TH>Default</TH>
-  <TH>Example</TH>
-  <TH>Description</TH>
-</TR><TR>
-  <TD>file</TD>
-  <TD>--</TD>
-  <TD>ns/cmd/Makefile</TD>
-  <TD>Path to file name</TD>
-</TR><TR>
-  <TD>root</TD>
-  <TD>$src_roots_list</TD>
-  <TD>/warp/webroot</TD>
-  <TD>CVS root</TD>
-</TR><TR>
-  <TD>rev</TD>
-  <TD>HEAD</TD>
-  <TD>1.3
-    <BR>ACTRA_branch</TD>
-  <TD>Revision</TD>
-</TR><TR>
-  <TD>author</TD>
-  <TD>--</TD>
-  <TD>slamm,mtoy</TD>
-  <TD>Filter out these authors</TD>
-</TR>
-</TR><TR>
-  <TD>#&lt;rev_number&gt;</TD>
-  <TD>--</TD>
-  <TD>#1.2</TD>
-  <TD>Jump to a revision</TD>
-</TR>
-</TABLE>
-
-<P>Examples:
-<TABLE><TR><TD>&nbsp;</TD><TD>
-<A HREF="cvslog.cgi?file=ns/cmd/Makefile">
-         cvslog.cgi?file=ns/cmd/Makefile</A>
-</TD></TR><TR><TD>&nbsp;</TD><TD>
-<A HREF="cvslog.cgi?file=ns/cmd/xfe/mozilla.c&rev=Dogbert4xEscalation_BRANCH">
-         cvslog.cgi?file=ns/cmd/xfe/mozilla.c&amp;rev=Dogbert4xEscalation_BRANCH</A>
-</TD></TR><TR><TD>&nbsp;</TD><TD>
-<A HREF="cvslog.cgi?file=projects/bonsai/cvslog.cgi&root=/warp/webroot">
-         cvslog.cgi?file=projects/bonsai/cvslog.cgi&root=/warp/webroot</A>
-</TD></TR><TR><TD>&nbsp;</TD><TD>
-<A HREF="cvslog.cgi?file=ns/cmd/xfe/dialogs.c#1.19">
-         cvslog.cgi?file=ns/cmd/xfe/dialogs.c#1.19</A>
-</TD></TR></TABLE>            
-<P>
-You may also begin a query with the <A HREF="cvsqueryform.cgi">CVS Query Form</A>.
-</P>
-__USAGE__
-    &print_bottom;
-} # sub print_usage
-
-sub print_bottom {
-     my $maintainer = Param('maintainer');
-
-     print <<__BOTTOM__;
-<HR WIDTH="100%">
-<FONT SIZE=-1>
-<A HREF="cvslog.cgi">Page configuration and help</A>.
-Mail feedback to <A HREF="mailto:$maintainer?subject=About the cvslog script">&lt;$maintainer&gt;</A>. 
-</FONT></BODY>
-</HTML>
-__BOTTOM__
-} # print_bottom
-
-sub print_useful_links {
-    my ($path) = @_;
-    my ($dir, $file) = $path =~ m@(.*/)?(.+)@;
-    $dir =~ s@/$@@;
-
-    my $diff_base = "cvsview2.cgi";
-    my $blame_base = "cvsblame.cgi";
-
-    my $lxr_path = $path;
-    my $lxr_link = Fix_LxrLink($lxr_path);
-    my $diff_link = "$diff_base?command=DIRECTORY\&subdir=$dir\&files=$file";
-    my $blame_link = "$blame_base?root=$::CVS_ROOT\&file=$path";
-
-print "<DIV ALIGN=RIGHT>
- <TABLE BORDER CELLPADDING=10 CELLSPACING=0>
-  <TR>
-   <TD>
-    <TABLE BORDER=0 CELLPADDING=1 CELLSPACING=0>
-     <TR>
-      <TD VALIGN=TOP ALIGN=RIGHT><A HREF=\"$lxr_link\"><B>lxr:</B></A> </TD>
-      <TD>browse the source code as hypertext.</TD>
-     </TR>
-     <TR>
-      <TD VALIGN=TOP ALIGN=RIGHT><A HREF=\"$diff_link\"><B>diff:</B></A> </TD>
-      <TD>compare any two versions.</TD>
-     </TR>
-     <TR>
-      <TD VALIGN=TOP ALIGN=RIGHT><A HREF=\"$blame_link\"><B>blame:</B></A> </TD>
-      <TD>annotate the author of each line.</TD>
-     </TR>
-    </TABLE>
-   </TD>
-  </TR>
- </TABLE>
-</DIV>
-";
-}

mozilla/webtools/bonsai/cvsmenu.pl

@@ -1,64 +0,0 @@
-# -*- Mode: perl; indent-tabs-mode: nil -*-
-#
-# The contents of this file are subject to the Netscape Public License
-# Version 1.0 (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 Bonsai CVS 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.
-
-1;
-
-require 'utils.pl';
-
-sub cvsmenu {
-my($extra) = @_;
-loadConfigData();
-print "
-<table border=1 bgcolor=#ffffcc $extra><tr><th>Menu</tr><tr><td>
-<p><dl>";
-
-my $pass;
-my $i;
-foreach $pass ("cvsqueryform|Query",
-               "rview|Browse",
-               "moduleanalyse|Examine Modules") {
-    ($page, $title) = split(/\|/, $pass);
-    print "<b>$title</b><br><ul>\n";
-    foreach $i (@treelist) {
-        my $branch = $treeinfo{$i}->{'branch'};
-        if ($branch ne "") {
-            $branch = "&branch=" . $branch;
-        }
-        $desc = $treeinfo{$i}->{'shortdesc'};
-        if ($desc eq "") {
-            $desc = $treeinfo{$i}->{'description'};
-        }
-        print "<li><a href=$page.cgi?cvsroot=$treeinfo{$i}->{'repository'}&module=$treeinfo{$i}->{'module'}$branch>$desc</a>\n";
-    };
-    print "</ul>\n";
-};
-
-if (open(EXTRA, "<data/cvsmenuextra")) {
-    while (<EXTRA>) {
-        print $_;
-    }
-    close EXTRA;
-}
-
-print "</dl>
-<p></tr><tr><td><font size=-1> Questions, Comments, Feature requests? mail <a href=mailto:terry\@netscape.com>terry</a>
-</tr></table>
-";
-
-}
-

mozilla/webtools/bonsai/cvsquery.cgi

@@ -1,652 +0,0 @@
-#!/usr/bonsaitools/bin/perl -w
-# -*- Mode: perl; indent-tabs-mode: nil -*-
-#
-# The contents of this file are subject to the Netscape Public License
-# Version 1.0 (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 Bonsai CVS 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.
-
-use diagnostics;
-use strict;
-
-# Shut up misguided -w warnings about "used only once".  "use vars" just
-# doesn't work for me.
-
-sub sillyness {
-    my $zz;
-    $zz = $::CI_BRANCH;
-    $zz = $::CI_REPOSITORY;
-    $zz = $::lines_added;
-    $zz = $::lines_removed;
-    $zz = $::query_begin_tag;
-    $zz = $::query_branchtype;
-    $zz = $::query_date_max;
-    $zz = $::query_debug;
-    $zz = $::query_end_tag;
-    $zz = $::query_filetype;
-    $zz = $::query_logexpr;
-    $zz = $::query_whotype;
-}
-
-
-
-require 'CGI.pl';
-
-$::CVS_ROOT = $::FORM{'cvsroot'};
-$::CVS_ROOT = pickDefaultRepository() unless $::CVS_ROOT;
-$::TreeID = $::FORM{'module'} 
-     if (!exists($::FORM{'treeid'}) && 
-         exists($::FORM{'module'}) &&
-         exists($::TreeInfo{$::FORM{'module'}}{'repository'}));
-$::TreeID = 'default'
-     if (!exists($::TreeInfo{$::TreeID}{'repository'}) ||
-         exists($::TreeInfo{$::TreeID}{'nobonsai'}));
-
-LoadTreeConfig();
-
-require 'cvsquery.pl';
-
-my $userdomain = Param('userdomain');
-$| = 1;
-
-my $sm_font_tag = "<font face='Arial,Helvetica' size=-2>";
-
-my $generateBackoutCVSCommands = 0;
-if (defined $::FORM{'generateBackoutCVSCommands'}) {
-    $generateBackoutCVSCommands = 1;
-}
-
-if (!$generateBackoutCVSCommands) {
-    print "Content-type: text/html
-
-";
-
-    print setup_script();
-}
-
-#print "<pre>";
-
-
-my $CVS_REPOS_SUFIX = $::CVS_ROOT;
-$CVS_REPOS_SUFIX =~ s/\//_/g;
-
-my $CHECKIN_DATA_FILE = "data/checkinlog${CVS_REPOS_SUFIX}";
-my $CHECKIN_INDEX_FILE = "data/index${CVS_REPOS_SUFIX}";
-
-
-my $SORT_HEAD="bgcolor=\"#DDDDDD\"";
-
-#
-# Log the query
-Log("Query [$ENV{'REMOTE_ADDR'}]: $ENV{'QUERY_STRING'}");
-
-#
-# build a module map
-#
-$::query_module = $::FORM{'module'};
-
-#
-# allow ?file=/a/b/c/foo.c to be synonymous with ?dir=/a/b/c&file=foo.c
-#
-$::FORM{'file'} = "" unless defined $::FORM{'file'};
-unless ($::FORM{'dir'}) {
-    $::FORM{'file'} = Fix_BonsaiLink($::FORM{'file'});
-    if ($::FORM{'file'} =~ m@(.*?/)([^/]*)$@) {
-        $::FORM{'dir'} = $1;
-        $::FORM{'file'} = $2;
-    } else {
-        $::FORM{'dir'} = "";
-    }
-}
-
-#
-# build a directory map
-#
-@::query_dirs = split(/[;, \t]+/, $::FORM{'dir'});
-
-$::query_file = $::FORM{'file'};
-$::query_filetype = $::FORM{'filetype'};
-$::query_logexpr = $::FORM{'logexpr'};
-
-#
-# date
-#
-$::query_date_type = $::FORM{'date'};
-if( $::query_date_type eq 'hours' ){
-    $::query_date_min = time - $::FORM{'hours'}*60*60;
-}
-elsif( $::query_date_type eq 'day' ){
-    $::query_date_min = time - 24*60*60;
-}
-elsif( $::query_date_type eq 'week' ){
-    $::query_date_min = time - 7*24*60*60;
-}
-elsif( $::query_date_type eq 'month' ){
-    $::query_date_min = time - 30*24*60*60;
-}
-elsif( $::query_date_type eq 'all' ){
-    $::query_date_min = 0;
-}
-elsif( $::query_date_type eq 'explicit' ){
-    if ($::FORM{'mindate'}) {
-        $::query_date_min = parse_date($::FORM{'mindate'});
-    }
-
-    if ($::FORM{'maxdate'}) {
-        $::query_date_max = parse_date($::FORM{'maxdate'});
-    }
-}
-else {
-    $::query_date_min = time-60*60*2;
-}
-
-#
-# who
-#
-$::query_who = $::FORM{'who'};
-$::query_whotype = $::FORM{'whotype'};
-
-
-my $show_raw = 0;
-if ($::FORM{'raw'}) {
-    $show_raw = 1;
-}
-
-#
-# branch
-#
-$::query_branch = $::FORM{'branch'};
-if (!defined $::query_branch) {
-    $::query_branch = 'HEAD';
-}
-$::query_branchtype = $::FORM{'branchtype'};
-
-
-#
-# tags
-#
-$::query_begin_tag = $::FORM{'begin_tag'};
-$::query_end_tag = $::FORM{'end_tag'};
-
-
-#
-# Get the query in english and print it.
-#
-my ($t, $e);
-$t = $e = &query_to_english;
-$t =~ s/<[^>]*>//g;
-
-$::query_debug = $::FORM{'debug'};
-
-my %mod_map = ();
-my $result= &query_checkins( %mod_map );
-
-my %w;
-
-for my $i (@{$result}) {
-    $w{"$i->[$::CI_WHO]\@$userdomain"} = 1;
-}
-
-my @p = sort keys %w;
-my $pCount = @p;
-my $s = join(",%20", @p);
-
-$e =~ s/Checkins in/In/;
-
-my $menu = "
-<p align=center>$e
-<p align=left>
-<a href=cvsqueryform.cgi?$ENV{QUERY_STRING}>Modify Query</a>
-<br><a href=mailto:$s>Mail everyone on this page</a>
-<NOBR>($pCount people)</NOBR>
-<br><a href=cvsquery.cgi?$ENV{QUERY_STRING}&generateBackoutCVSCommands=1>Show commands which could be used to back out these changes</a>
-";
-
-if (defined $::FORM{'generateBackoutCVSCommands'}) {
-    print "Content-type: text/plain
-
-# This page can be saved as a shell script and executed.  It should be
-# run at the top of your CVS work area.  It will update your workarea to
-# backout the changes selected by your query.
-
-";
-    foreach my $ci (@{$result}) {
-        if ($ci->[$::CI_REV] eq "") {
-            print "echo 'Changes made to $ci->[$::CI_DIR]/$ci->[$::CI_FILE] need to be backed out by hand'\n";
-            next;
-        }
-        my $prev_revision = PrevRev($ci->[$::CI_REV]);
-        print "cvs update -j$ci->[$::CI_REV] -j$prev_revision $ci->[$::CI_DIR]/$ci->[$::CI_FILE]\n";
-    }
-    exit;
-}
-
-
-PutsHeader($t, "CVS Checkins", "$menu");
-
-#
-# Test code to print the results
-#
-
-$|=1;
-
-my $head_who = '';
-my $head_file = '';
-my $head_directory = '';
-my $head_delta = '';
-my $head_date = '';
-
-if( !$show_raw ) {
-
-    $::FORM{"sortby"} ||= "";
-
-    if( $::FORM{"sortby"} eq "Who" ){
-        $result = [sort {
-                   $a->[$::CI_WHO] cmp $b->[$::CI_WHO]
-                || $b->[$::CI_DATE] <=> $a->[$::CI_DATE]
-            } @{$result}] ;
-        $head_who = $SORT_HEAD;
-    }
-    elsif( $::FORM{"sortby"} eq "File" ){
-        $result = [sort {
-                   $a->[$::CI_FILE] cmp $b->[$::CI_FILE]
-                || $b->[$::CI_DATE] <=> $a->[$::CI_DATE]
-                || $a->[$::CI_DIRECTORY] cmp $b->[$::CI_DIRECTORY]
-            } @{$result}] ;
-        $head_file = $SORT_HEAD;
-    }
-    elsif( $::FORM{"sortby"} eq "Directory" ){
-        $result = [sort {
-                   $a->[$::CI_DIRECTORY] cmp $b->[$::CI_DIRECTORY]
-                || $a->[$::CI_FILE] cmp $b->[$::CI_FILE]
-                || $b->[$::CI_DATE] <=> $a->[$::CI_DATE]
-            } @{$result}] ;
-        $head_directory = $SORT_HEAD;
-    }
-    elsif( $::FORM{"sortby"} eq "Change Size" ){
-        $result = [sort {
-
-                        ($b->[$::CI_LINES_ADDED]- $b->[$::CI_LINES_REMOVED])
-                    <=> ($a->[$::CI_LINES_ADDED]- $a->[$::CI_LINES_REMOVED])
-                #|| $b->[$::CI_DATE] <=> $a->[$::CI_DATE]
-            } @{$result}] ;
-        $head_delta = $SORT_HEAD;
-    }
-    else{
-        $result = [sort {$b->[$::CI_DATE] <=> $a->[$::CI_DATE]} @{$result}] ;
-        $head_date = $SORT_HEAD;
-    }
-
-    &print_result($result);
-}
-else {
-    print "<pre>";
-    for my $ci (@$result) {
-        $ci->[$::CI_LOG] = '';
-        $s = join("|",@$ci);
-        print "$s\n";
-    }
-}
-
-#
-#
-#
-sub print_result {
-    my ($result) = @_;
-    my ($ci,$i,$k,$j,$max, $l, $span);
-
-    &print_head;
-
-    $i = 20;
-    $k = 0;
-    $max = @{$result};
-
-    while( $k < $max ){
-        $ci = $result->[$k];
-        $span = 1;
-        if( ($l = $ci->[$::CI_LOG]) ne '' ){
-            #
-            # Calculate the number of consequitive logs that are
-            #  the same and nuke them
-            #
-            $j = $k+1;
-            while( $j < $max && $result->[$j]->[$::CI_LOG] eq $l ){
-                $result->[$j]->[$::CI_LOG] = '';
-                $j++;
-            }
-
-            #
-            # Make sure we don't break over a description block
-            #
-            $span = $j-$k;
-            if( $span-1 > $i ){
-                $i = $j-$k;
-            }
-        }
-
-        &print_ci( $ci, $span );
-
-
-        if( $i <= 0 ){
-            $i = 20;
-            print "</TABLE><TABLE border cellspacing=2>\n";
-        }
-        else {
-            $i--;
-        }
-        $k++;
-    }
-
-    &print_foot;
-}
-
-my $descwidth;
-
-sub print_ci {
-    my ($ci, $span) = @_;
-
-    my ($sec,$minute,$hour,$mday,$mon,$year) = localtime( $ci->[$::CI_DATE] );
-    my $t = sprintf("%02d/%02d/%04d&nbsp;%02d:%02d",$mon+1,$mday,$year+1900,$hour,$minute);
-
-    my $log = &html_log($ci->[$::CI_LOG]);
-    my $rev = $ci->[$::CI_REV];
-
-    print "<tr>\n";
-    print "<TD width=2%>${sm_font_tag}$t</font>";
-    print "<TD width=2%><a href='../registry/who.cgi?email=$ci->[$::CI_WHO]' "
-          . "onClick=\"return js_who_menu('$ci->[$::CI_WHO]','',event);\" >"
-          . "$ci->[$::CI_WHO]</a>\n";
-    print "<TD width=45%><a href='cvsview2.cgi?subdir=$ci->[$::CI_DIR]&files=$ci->[$::CI_FILE]\&command=DIRECTORY&branch=$::query_branch&root=$::CVS_ROOT'\n"
-          . " onclick=\"return js_file_menu('$::CVS_ROOT', '$ci->[$::CI_DIR]','$ci->[$::CI_FILE]','$ci->[$::CI_REV]','$::query_branch',event)\">\n";
-#     if( (length $ci->[$::CI_FILE]) + (length $ci->[$::CI_DIR])  > 30 ){
-#         $d = $ci->[$::CI_DIR];
-#         if( (length $ci->[$::CI_DIR]) > 30 ){
-#             $d =~ s/([^\n]*\/)(classes\/)/$1classes\/<br>&nbsp;&nbsp/;
-#                               # Insert a <BR> before any directory named
-#                               # 'classes.'
-#         }
-#         print "   $d/<br>&nbsp;&nbsp;$ci->[$::CI_FILE]<a>\n";
-#     }
-#     else{
-#         print "   $ci->[$::CI_DIR]/$ci->[$::CI_FILE]<a>\n";
-#     }
-    my $d = "$ci->[$::CI_DIR]/$ci->[$::CI_FILE]";
-    if (defined $::query_module && $::query_module eq 'allrepositories') {
-        $d = "$ci->[$::CI_REPOSITORY]/$d";
-    }
-    $d =~ s:/:/ :g;             # Insert a whitespace after any slash, so that
-                                # we'll break long names at a reasonable place.
-    print "$d\n";
-
-    if( $rev ne '' ){
-        my $prevrev = &PrevRev( $rev );
-        print "<TD width=2%>${sm_font_tag}<a href='cvsview2.cgi?diff_mode=".
-              "context\&whitespace_mode=show\&subdir=".
-              $ci->[$::CI_DIR] . "\&command=DIFF_FRAMESET\&file=" .
-              $ci->[$::CI_FILE] . "\&rev1=$prevrev&rev2=$rev&root=$::CVS_ROOT'>$rev</a></font>\n";
-    }
-    else {
-        print "<TD width=2%>\&nbsp;\n";
-    }
-
-    if( !$::query_branch_head ){
-        print "<TD width=2%><TT><FONT SIZE=-1>$ci->[$::CI_BRANCH]&nbsp</FONT></TT>\n";
-    }
-
-    print "<TD width=2%>${sm_font_tag}$ci->[$::CI_LINES_ADDED]/$ci->[$::CI_LINES_REMOVED]</font>&nbsp\n";
-    if( $log ne '' ){
-        $log = MarkUpText($log);
-                    # Makes numbers into links to bugsplat.
-
-        $log =~ s/\n/<BR>/g;
-                    # Makes newlines into <BR>'s
-
-        if( $span > 1 ){
-            print "<TD WIDTH=$descwidth% VALIGN=TOP ROWSPAN=$span>$log\n";
-        }
-        else {
-            print "<TD WIDTH=$descwidth% VALIGN=TOP>$log\n";
-        }
-    }
-    print "</tr>\n";
-}
-
-sub print_head {
-
-if ($::versioninfo) {
-    print "<FORM action='multidiff.cgi' method=post>";
-    print "<INPUT TYPE='HIDDEN' name='allchanges' value = '$::versioninfo'>";
-    print "<INPUT TYPE='HIDDEN' name='cvsroot' value = '$::CVS_ROOT'>";
-    print "<INPUT TYPE=SUBMIT VALUE='Show me ALL the Diffs'>";
-    print "</FORM>";
-    print "<tt>(+$::lines_added/$::lines_removed)</tt> Lines changed.";
-}
-
-my $anchor = $ENV{QUERY_STRING};
-$anchor =~ s/\&sortby\=[A-Za-z\ \+]*//g;
-$anchor = "<a href=cvsquery.cgi?$anchor";
-
-print "<TABLE border cellspacing=2>\n";
-print "<b><TR ALIGN=LEFT>\n";
-print "<TH width=2% $head_date>$anchor>When</a>\n";
-print "<TH width=2% $head_who>${anchor}&sortby=Who>Who</a>\n";
-print "<TH width=45% $head_file>${anchor}&sortby=File>File</a>\n";
-print "<TH width=2%>Rev\n";
-
-$descwidth = 47;
-if( !$::query_branch_head ){
-    print "<TH width=2%>Branch\n";
-    $descwidth -= 2;
-}
-
-print "<TH width=2% $head_delta>${anchor}&sortby=Change+Size>+/-</a>\n";
-print "<TH WIDTH=$descwidth%>Description\n";
-print "</TR></b>\n";
-}
-
-
-sub print_foot {
-    print "</TABLE>";
-    print "<br><br>";
-}
-
-sub html_log {
-    my ( $log ) = @_;
-    $log =~ s/&/&amp;/g;
-    $log =~ s/</&lt;/g;
-    return $log;
-}
-
-sub PrevRev {
-    my( $rev ) = @_;
-    my( $i, $j, $ret, @r );
-
-    @r = split( /\./, $rev );
-
-    $i = @r-1;
-
-    $r[$i]--;
-    if( $r[$i] == 0 ){
-        $i -= 2;
-    }
-
-    $j = 0;
-    while( $j < $i ){
-        $ret .= "$r[$j]\.";
-        $j++
-    }
-    $ret .= $r[$i];
-}
-
-
-sub parse_date {
-    my($d) = @_;
-
-    my($result) = str2time($d);
-    if (defined $result) {
-        return $result;
-    } elsif ($d  > 7000000) {
-        return $d;
-    }
-    return 0;
-}
-
-
-
-sub setup_script {
-
-    my $script_str =<<'ENDJS';
-<script>
-var event = 0;	// Nav3.0 compatibility
-
-function js_who_menu(n,extra,d) {
-    if( parseInt(navigator.appVersion) < 4 ||
-        navigator.userAgent.toLowerCase().indexOf("msie") != -1 ){
-        return true;
-    }
-    l = document.layers['popup'];
-    l.src="../registry/who.cgi?email="+n+extra;
-
-    if(d.target.y > window.innerHeight + window.pageYOffset - l.clip.height) {
-         l.top = (window.innerHeight + window.pageYOffset - l.clip.height);
-    } else {
-         l.top = d.target.y - 6;
-    }
-    l.left = d.target.x - 6;
-
-    l.visibility="show";
-    return false;
-}
-
-function js_file_menu(repos,dir,file,rev,branch,d) {
-    var fileName="";
-    if( parseInt(navigator.appVersion) < 4 ||
-        navigator.userAgent.toLowerCase().indexOf("msie") != -1 ){
-        return true;
-    }
-    for (var i=0;i<d.target.text.length;i++)
-    {
-        if (d.target.text.charAt(i)!=" ") {
-            fileName+=d.target.text.charAt(i);
-        }
-    }
-    l = document.layers['popup'];
-    l.src="../registry/file.cgi?cvsroot="+repos+"&file="+file+"&dir="+dir+"&rev="+rev+"&branch="+branch+"&linked_text="+fileName;
-
-    l.top = d.target.y - 6;
-    l.left = d.target.x - 6;
-    if( l.left + l.clipWidth > window.width ){
-        l.left = window.width - l.clipWidth;
-    }
-    l.visibility="show";
-    return false;
-}
-
-
-</script>
-
-<layer name="popup"  onMouseOut="this.visibility='hide';" left=0 top=0 bgcolor="#ffffff" visibility="hide">
-</layer>
-
-ENDJS
-
-    return $script_str;
-}
-
-#
-# Actually do the query
-#
-sub query_to_english {
-    my $english = 'Checkins ';
-
-    $::query_module = 'all' unless defined $::query_module;
-    if( $::query_module eq 'allrepositories' ){
-        $english .= "to <i>All Repositories</i> ";
-    }
-    elsif( $::query_module ne 'all' && @::query_dirs == 0 ){
-        $english .= "to module <i>$::query_module</i> ";
-    }
-    elsif( $::FORM{dir} ne "" ) {
-        my $word = "directory";
-        if (@::query_dirs > 1) {
-            $word = "directories";
-        }
-        $english .= "to $word <i>$::FORM{dir}</i> ";
-    }
-
-    if ($::query_file ne "") {
-        if ($english ne 'Checkins ') {
-            $english .= "and ";
-        }
-        $english .= "to file $::query_file ";
-    }
-
-    if( ! ($::query_branch =~ /^[ ]*HEAD[ ]*$/i) ){
-        if($::query_branch eq '' ){
-            $english .= "on all branches ";
-        }
-        else {
-            $english .= "on branch <i>$::query_branch</i> ";
-        }
-    }
-
-    if( $::query_who) {
-        $english .= "by $::query_who ";
-    }
-
-    $::query_date_type = $::FORM{'date'};
-    if( $::query_date_type eq 'hours' ){
-        $english .="in the last $::FORM{hours} hours";
-    }
-    elsif( $::query_date_type eq 'day' ){
-        $english .="in the last day";
-    }
-    elsif( $::query_date_type eq 'week' ){
-        $english .="in the last week";
-    }
-    elsif( $::query_date_type eq 'month' ){
-        $english .="in the last month";
-    }
-    elsif( $::query_date_type eq 'all' ){
-        $english .="since the beginning of time";
-    }
-    elsif( $::query_date_type eq 'explicit' ){
-        my ($w1, $w2);
-        if ( $::FORM{mindate} && $::FORM{maxdate}) {
-            $w1 = "between";
-            $w2 = "and" ;
-        }
-        else {
-            $w1 = "since";
-            $w2 = "before";
-        }
-
-        if( $::FORM{'mindate'}){
-            my $dd = &parse_date($::FORM{'mindate'});
-            my ($sec,$minute,$hour,$mday,$mon,$year) = localtime( $dd );
-            my $t = sprintf("%02d/%02d/%04d&nbsp;%02d:%02d",$mon+1,$mday,$year+1900,$hour,$minute);
-            $english .= "$w1 <i>$t</i> ";
-        }
-
-        if( $::FORM{'maxdate'}){
-            my $dd = &parse_date($::FORM{'maxdate'});
-            my ($sec,$minute,$hour,$mday,$mon,$year) = localtime( $dd );
-            my $t = sprintf("%02d/%02d/%04d&nbsp;%02d:%02d",$mon+1,$mday,$year+1900,$hour,$minute);
-            $english .= "$w2 <i>$t</i> ";
-        }
-    }
-    return $english . ":";
-}
-
-PutsTrailer();

mozilla/webtools/bonsai/cvsquery.pl

@@ -1,432 +0,0 @@
-# -*- Mode: perl; indent-tabs-mode: nil -*-
-#
-# The contents of this file are subject to the Netscape Public License
-# Version 1.0 (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 Bonsai CVS 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.
-
-require 'globals.pl';
-require 'get_line.pl';
-
-use diagnostics;
-use strict;
-
-# Shut up misguided -w warnings about "used only once".  "use vars" just
-# doesn't work for me.
-
-sub cvsquery_pl_sillyness {
-    my $zz;
-    $zz = $::CI_BRANCH;
-    $zz = $::CI_CHANGE;
-    $zz = $::CI_DATE;
-    $zz = $::CI_STICKY;
-    $zz = $::TreeID;
-    $zz = $::query_debug;
-    $zz = $::query_filetype;
-    $zz = $::versioninfo;
-};
-
-#
-# Constants
-#
-$::CI_CHANGE=0;
-$::CI_DATE=1;
-$::CI_WHO=2;
-$::CI_REPOSITORY=3;
-$::CI_DIR=4;
-$::CI_FILE=5;
-$::CI_REV=6;
-$::CI_STICKY=7;
-$::CI_BRANCH=8;
-$::CI_LINES_ADDED=9;
-$::CI_LINES_REMOVED=10;
-$::CI_LOG=11;
-
-my $NOT_LOCAL = 1;
-my $IS_LOCAL = 2;
-
-chomp($::CVS_ROOT) if defined($::CVS_ROOT);
-if (!defined($::CVS_ROOT) || $::CVS_ROOT eq "" ){
-    $::CVS_ROOT = pickDefaultRepository();
-}
-
-#global variables
-
-$::lines_added = 0;
-$::lines_removed = 0;
-
-$::modules = {};
-
-my $CVS_MODULES="$::CVS_ROOT/CVSROOT/modules";
-
-open( MOD, "<$CVS_MODULES") || die "can't open ${CVS_MODULES}";
-&parse_modules;
-close( MOD );
-
-1;
-
-#
-# Actually do the query
-#
-sub query_checkins {
-    my (%mod_map) = @_;
-    my ($ci,$result,$lastlog,$rev,$begin_tag,$end_tag);
-    my $have_mod_map;
-
-    $::query_module = 'all' unless defined $::query_module;
-    if( $::query_module ne 'all' && $::query_module ne 'allrepositories' && @::query_dirs == 0 ){
-        $have_mod_map = 1;
-        %mod_map = &get_module_map( $::query_module );
-    }
-    else {
-        $have_mod_map = 0;
-        %mod_map = ();
-    }
-
-    for my $i (@::query_dirs ){
-        $i =~ s:^/::;           # Strip leading slash.
-        $i =~ s:/$::;           # Strip trailing slash.
-
-        if( !$have_mod_map ){
-            %mod_map = ();
-            $have_mod_map = 1;
-        }
-        $mod_map{$i} = $NOT_LOCAL;
-    }
-
-    if( $::query_branch =~ /^[ ]*HEAD[ ]*$/i ){
-        $::query_branch_head = 1;
-    }
-
-    $begin_tag = "";
-    $end_tag = "";
-
-    if (defined($::query_begin_tag) && $::query_begin_tag ne '') {
-        $begin_tag = load_tag($::query_begin_tag);
-    }
-
-    if (defined($::query_end_tag) &&  $::query_end_tag ne '') {
-        $end_tag = load_tag($::query_end_tag);
-    }
-
-
-    $result = [];
-
-    ConnectToDatabase();
-
-    my $qstring = "select type, UNIX_TIMESTAMP(ci_when), people.who, repositories.repository, dirs.dir, files.file, revision, stickytag, branches.branch, addedlines, removedlines, descs.description from checkins,people,repositories,dirs,files,branches,descs where people.id=whoid and repositories.id=repositoryid and dirs.id=dirid and files.id=fileid and branches.id=branchid and descs.id=descid";
-
-    if( $::query_module ne 'allrepositories' ){
-        $qstring .= " and repositories.repository = '$::CVS_ROOT'";
-    }
-
-    if ($::query_date_min) {
-        my $t = formatSqlTime($::query_date_min);
-        $qstring .= " and ci_when >= '$t'";
-    }
-    if ($::query_date_max) {
-        my $t = formatSqlTime($::query_date_max);
-        $qstring .= " and ci_when <= '$t'";
-    }
-    if ($::query_branch_head) {
-        $qstring .= " and branches.branch = ''";
-    } elsif ($::query_branch ne '') {
-        my $q = SqlQuote($::query_branch);
-        if ($::query_branchtype eq 'regexp') {
-            $qstring .=
-                " and branches.branch regexp $q";
-        } elsif ($::query_branchtype eq 'notregexp') {
-            $qstring .=
-                " and not (branches.branch regexp $q) ";
-        } else {
-            $qstring .=
-                " and (branches.branch = $q or branches.branch = ";
-            $qstring .= SqlQuote("T$::query_branch") . ")";
-        }
-    }
-
-    if (defined $::query_file && $::query_file ne '') {
-        my $q = SqlQuote($::query_file);
-        if ($::query_filetype eq 'regexp') {
-            $qstring .= " and files.file regexp $q";
-        } else {
-            $qstring .= " and files.file = $q";
-        }
-    }
-    if (defined $::query_who && $::query_who ne '') {
-        my $q = SqlQuote($::query_who);
-        $::query_whotype ||= "exact";
-        if ($::query_whotype eq 'regexp') {
-            $qstring .= " and people.who regexp $q";
-        }
-        elsif ($::query_whotype eq 'notregexp') {
-            $qstring .= " and not (people.who regexp $q)";
-
-        } else {
-            $qstring .= " and people.who = $q";
-        }
-    }
-
-    if (defined($::query_logexpr) && $::query_logexpr ne '') {
-        my $q = SqlQuote($::query_logexpr);
-        $qstring .= " and descs.description regexp $q";
-    }
-    
-    if ($::query_debug) {
-        print "<pre wrap> Query: $qstring\nTreeID is $::TreeID\n";
-        if ($have_mod_map) {
-            print "Dump of module map:\n";
-            foreach my $k (sort(keys %mod_map)) {
-                print value_quote("$k => $mod_map{$k}") . "\n";
-            }
-            print "\n\nDump of parsed module file:\n";
-            foreach my $k(sort(keys %$::modules)) {
-                print value_quote("$k => " .
-                                  join(",", @{$::modules->{$k}})) . "\n";
-            }
-        }
-        print "</pre>\n";
-    }
-
-    SendSQL($qstring);
-
-    $lastlog = 0;
-    my @row;
-    while (@row = FetchSQLData()) {
-#print "<pre>";
-        $ci = [];
-        for (my $i=0 ; $i<=$::CI_LOG ; $i++) {
-            $ci->[$i] = $row[$i];
-#print "$row[$i] ";
-        }
-#print "</pre>";
-
-
-        my $key = "$ci->[$::CI_DIR]/$ci->[$::CI_FILE]";
-        if (IsHidden("$ci->[$::CI_REPOSITORY]/$key")) {
-            next;
-        }
-
-        if( $have_mod_map &&
-           !&in_module(\%mod_map, $ci->[$::CI_DIR], $ci->[$::CI_FILE] ) ){
-            next;
-        }
-
-        if( $begin_tag) {
-            $rev = $begin_tag->{$key};
-            print "<BR>$key begintag is $rev<BR>\n";
-            if ($rev == "" || rev_is_after($ci->[$::CI_REV], $rev)) {
-                next;
-            }
-        }
-
-        if( $end_tag) {
-            $rev = $end_tag->{$key};
-            print "<BR>$key endtag is $rev<BR>\n";
-            if ($rev == "" || rev_is_after($rev, $ci->[$::CI_REV])) {
-                next;
-            }
-        }
-
-        if (defined($::query_logexpr) && 
-            $::query_logexpr ne '' &&
-            !($ci->[$::CI_LOG] =~ /$::query_logexpr/i) ){
-            next;
-        }
-
-        push( @$result, $ci );
-    }
-
-    for $ci (@{$result}) {
-        $::lines_added += $ci->[$::CI_LINES_ADDED];
-        $::lines_removed += $ci->[$::CI_LINES_REMOVED];
-        $::versioninfo .= "$ci->[$::CI_WHO]|$ci->[$::CI_DIR]|$ci->[$::CI_FILE]|$ci->[$::CI_REV],";
-    }
-    return $result;
-}
-
-sub load_tag {
-    my ($tagname) = @_;
-
-    my $tagfile;
-    my $cvssuffix;
-    my $s;
-    my @line;
-    my $time;
-    my $cmd;
-    my $dir;
-
-    $cvssuffix = $::CVS_ROOT;
-    $cvssuffix =~ s/\//_/g;
-
-    $s = $tagname;
-
-    $s =~ s/ /\%20/g;
-    $s =~ s/\%/\%25/g;
-    $s =~ s/\//\%2f/g;
-    $s =~ s/\?/\%3f/g;
-    $s =~ s/\*/\%2a/g;
-
-    $tagfile = "data/taginfo/$cvssuffix/$s";
-
-    open(TAG, "<$tagfile") || die "Unknown tag $tagname";
-    my $result = {};
-
-
-print "<br>parsing tag $tagname</br>\n";
-    while ( <TAG> ) {
-        chop;
-        @line = split(/\|/);
-        $time = shift @line;
-        $cmd = shift @line;
-        if ($cmd != "add") {
-            # We ought to be able to cope with these... XXX
-            next;
-        }
-        $dir = shift @line;
-        $dir =~ s@^$::CVS_ROOT/@@;
-        $dir =~ s:^\./::;
-        
-        while (@line) {
-            my $file = shift @line;
-            $file = "$dir/$file";
-            my $version = shift @line;
-            $result->{$file} = $version;
-print "<br>Added ($file,$version) for tag $tagname<br>\n";
-        }
-    }
-
-    return $result;
-}
-
-
-
-sub rev_is_after {
-    my $r1 = shift @_;
-    my $r2 = shift @_;
-
-    my @a = split /:/, $r1;
-    my @b = split /:/, $r2;
-
-    if (@b > @a) {
-        return 1;
-    }
-
-    if (@b < @a) {
-        return 0;
-    }
-
-    for (my $i=0 ; $i<@a ; $i++) {
-        if ($a[$i] > $b[$i]) {return 1;}
-        if ($a[$i] < $b[$i]) {return 0;}
-    }
-    return 0;
-}
-    
-
-
-sub in_module {
-    my ($mod_map, $dirname, $filename ) = @_;
-    my ( @path );
-    my ( $i, $fp, $local );
-
-    #
-    #quick check if it is already in there.
-    #
-    if( $$mod_map{$dirname} ){
-        return 1;
-    }
-
-    @path = split(/\//, $dirname);
-
-    $fp = '';
-
-    for( $i = 0; $i < @path; $i++){
-
-        $fp .= ($fp ne '' ? '/' : '') . $path[$i];
-
-        if( $local = $$mod_map{$fp} ){
-            if( $local == $IS_LOCAL ){
-                if( $i == (@path-1) ){
-                    return 1;
-                }
-            }
-            else {
-                # Add directories to the map as we encounter them so we go
-                #  faster
-                 if (!exists($$mod_map{$dirname}) || 
-                     $$mod_map{$dirname} == 0) {
-                   $$mod_map{$dirname} = $IS_LOCAL;
-                }
-                return 1;
-            }
-        }
-    }
-    if( $$mod_map{ $fp . '/' .  $filename} ) {
-        return 1;
-    }
-    else {
-        return 0;
-    }
-}
-
-
-sub get_module_map {
-    my($name) = @_;
-    my(%mod_map);
-    &build_map( $name, \%mod_map );
-    return %mod_map;
-}
-
-
-sub parse_modules {
-    my $l;
-    while( $l = &get_line ){
-        my ($mod_name, $flag, @params) = split(/[ \t]+/,$l);
-
-        if ( $#params eq -1 ) {
-            @params = $flag;
-            $flag = "";
-        }
-	elsif( $flag eq '-d' ){
-            my $dummy;
-	    ($mod_name, $dummy, $dummy, @params) = split(/[ \t]+/,$l);
-	}
-        elsif( $flag ne '-a' ){
-            next;
-        }
-        $::modules->{$mod_name} = [@params];
-    }
-}
-
-
-sub build_map {
-    my ($name,$mod_map) = @_;
-    my ($bFound, $local);
-
-    $local = $NOT_LOCAL;
-    $bFound = 0;
-
-    for my $i ( @{$::modules->{$name}} ){
-        $bFound = 1;
-        if( $i eq '-l' ){
-            $local = $IS_LOCAL;
-        }
-        elsif( !build_map($i, $mod_map )){
-            $mod_map->{$i} = $local;   
-        }
-    }
-    return $bFound;
-}
-

mozilla/webtools/bonsai/cvsqueryform.cgi

@@ -1,362 +0,0 @@
-#!/usr/bonsaitools/bin/perl -w
-# -*- Mode: perl; indent-tabs-mode: nil -*-
-#
-# The contents of this file are subject to the Netscape Public License
-# Version 1.0 (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 Bonsai CVS 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.
-
-# Query the CVS database.
-#
-
-use diagnostics;
-use strict;
-
-require 'CGI.pl';
-
-$|=1;
-
-print "Content-type: text/html\n\n";
-
-LoadTreeConfig();
-$::CVS_ROOT = $::FORM{'cvsroot'};
-$::CVS_ROOT = pickDefaultRepository() unless $::CVS_ROOT;
-if (exists $::FORM{'module'}) {
-    if (exists($::TreeInfo{$::FORM{'module'}}{'repository'})) {
-        $::TreeID = $::FORM{'module'} 
-    }
-}
-
-$::modules = {};
-require 'modules.pl';
-
-PutsHeader("Bonsai - CVS Query Form", "CVS Query Form",
-           "$::CVS_ROOT - $::TreeInfo{$::TreeID}{shortdesc}");
-
-print "
-<p>
-<FORM METHOD=GET ACTION='cvsquery.cgi'>
-<INPUT TYPE=HIDDEN NAME=treeid VALUE=$::TreeID>
-<p>
-<TABLE BORDER CELLPADDING=8 CELLSPACING=0>
-";
-
-
-#
-# module selector
-#
-print "
-<TR><TH ALIGN=RIGHT>Module:</TH>
-<TD>
-<SELECT name='module' size=5>
-";
-
-
-#
-# check to see if there are multple repositories
-#
-my @reposList = &getRepositoryList();
-my $bMultiRepos = (@reposList > 1);
-
-#
-# This code sucks, I should rewrite it to be shorter
-#
-my $Module = 'default';
-
-if (!exists $::FORM{module} || $::FORM{module} eq 'all' ||
-      $::FORM{module} eq '') {
-    print "<OPTION SELECTED VALUE='all'>All Files in the Repository\n";
-    if( $bMultiRepos ){
-        print "<OPTION VALUE='allrepositories'>All Files in all Repositories\n";
-    }
-}
-elsif( $::FORM{module} eq 'allrepositories' ){
-    print "<OPTION VALUE='all'>All Files in the Repository\n";
-    if( $bMultiRepos ){
-        print "<OPTION SELECTED VALUE='allrepositories'>All Files in all Repositories\n";
-    }
-}
-else {
-    $Module = $::FORM{module};
-    print "<OPTION VALUE='all'>All Files in the Repository\n";
-    if( $bMultiRepos ){
-        print "<OPTION VALUE='allrepositories'>All Files in all Repositories\n";
-    }
-    print "<OPTION SELECTED VALUE='$::FORM{module}'>$::FORM{module}\n";
-}
-
-#
-# Print out all the Different Modules
-#
-for my $k  (sort( keys( %$::modules ) ) ){
-    print "<OPTION value='$k'>$k\n";
-}
-
-
-print "</SELECT></td>\n";
-print "<td rowspan=2>";
-cvsmenu();
-print "</td></tr>";
-
-#
-# Branch
-#
-if( defined $::FORM{branch} ){
-    $b = $::FORM{branch};
-}
-else {
-    $b = "HEAD";
-}
-print "<tr>
-<th align=right>Branch:</th>
-<td> <input type=text name=branch value='$b' size=25><br>\n" .
-regexpradio('branchtype') .
-      "<br>(leaving this field empty will show you checkins on both
-<tt>HEAD</tt> and branches)
-</td></tr>";
-
-#
-# Query by directory
-#
-
-$::FORM{dir} ||= "";
-
-print "
-<tr>
-<th align=right>Directory:</th>
-<td colspan=2>
-<input type=text name=dir value='$::FORM{dir}' size=45><br>
-(you can list multiple directories)
-</td>
-</tr>
-";
-
-$::FORM{file} ||= "";
-
-print "
-<tr>
-<th align=right>File:</th>
-<td colspan=2>
-<input type=text name=file value='$::FORM{file}' size=45><br>" .
-regexpradio('filetype') . "
-</td>
-</tr>
-";
-
-
-#
-# Who
-#
-
-$::FORM{who} ||= "";
-
-print "
-<tr>
-<th align=right>Who:</th>
-<td colspan=2> <input type=text name=who value='$::FORM{who}' size=45><br>" .
-regexpradio('whotype') . "
-</td>
-</tr>";
-
-
-#
-# Log contains
-#
-#print "
-#<br>
-#<nobr><b>Log contains:</b>
-#<input type=text name=logexpr size=45></nobr>(you can use <a href=cvsregexp.html>regular expressions</a>)\n";
-
-
-#
-# Sort order
-#
-print "
-<tr>
-<th align=right>Sort By:</th>
-<td colspan=2>
-<SELECT name='sortby'>
-<OPTION" . &sortTest("Date") . ">Date
-<OPTION" . &sortTest("Who") . ">Who
-<OPTION" . &sortTest("File") . ">File
-<OPTION" . &sortTest("Change Size") . ">Change Size
-</SELECT>
-</td>
-</tr>
-";
-
-#
-# Print the date selector
-#
-
-my $startdate = fetchCachedStartDate($::CVS_ROOT);
-
-if (!defined($::FORM{date}) || $::FORM{date} eq "") {
-    $::FORM{date} = "hours";
-}
-
-$::FORM{mindate} = '' unless defined($::FORM{mindate});
-$::FORM{maxdate} = '' unless defined($::FORM{maxdate});
-
-print "
-<tr>
-<th align=right valign=top><br>Date:</th>
-<td colspan=2>
-<table BORDER=0 CELLSPACING=0 CELLPADDING=0>
-<tr>
-<td><input type=radio name=date " . &dateTest("hours") . "></td>
-<td>In the last <input type=text name=hours value=2 size=4> hours</td>
-</tr><tr>
-<td><input type=radio name=date " . &dateTest("day") . "></td>
-<td>In the last day</td>
-</tr><tr>
-<td><input type=radio name=date " . &dateTest("week") . "></td>
-<td>In the last week</td>
-</tr><tr>
-<td><input type=radio name=date " . &dateTest("month") . "></td>
-<td>In the last month</td>
-</tr><tr>
-<td><input type=radio name=date " . &dateTest("all") . "></td>
-<td>Since the beginning of time (which happens to be <TT><NOBR>$startdate</NOBR></TT> currently)</td>
-</tr><tr>
-<td><input type=radio name=date " . &dateTest("explicit") . "></td>
-<td><table BORDER=0 CELLPADDING=0 CELLPSPACING=0>
-<tr>
-<TD VALIGN=TOP ALIGN=RIGHT NOWRAP>
-Between <input type=text name=mindate value='$::FORM{mindate}' size=25></td>
-<td valign=top rowspan=2>You can use the form
-<B><TT><NOBR>mm/dd/yyyy hh:mm:ss</NOBR></TT></B> or a Unix <TT>time_t</TT>
-(seconds since the Epoch.)
-</td>
-</tr>
-<tr>
-<td VALIGN=TOP ALIGN=RIGHT NOWRAP>
- and <input type=text name=maxdate '$::FORM{maxdate}' size=25></td>
-</tr>
-</table>
-</td>
-</tr>
-</table>
-</tr>
-";
-
-print "
-<tr>
-<th><BR></th>
-<td colspan=2>
-<INPUT TYPE=HIDDEN NAME=cvsroot VALUE='$::CVS_ROOT'>
-<INPUT TYPE=SUBMIT VALUE='Run Query'>
-</td>
-</tr>
-</table>
-</FORM>";
-
-
-PutsTrailer();
-
-sub sortTest {
-     return ""
-          unless (exists($::FORM{sortby}) && defined($_[0]) &&
-                 ($_[0] ne $::FORM{sortby}));
-
-     return " SELECTED";
-}
-
-refigureStartDateIfNecessary($::CVS_ROOT);
-
-sub dateTest {
-    if( $_[0] eq $::FORM{date} ){
-        return " CHECKED value=$_[0]";
-    }
-    else {
-        return "value=$_[0]";
-    }
-}
-
-sub regexpradio {
-    my ($name) = @_;
-    my ($c1, $c2, $c3);
-
-    $c1 = $c2 = $c3 = "";
-
-    my $n = $::FORM{$name} || "";
-
-    if( $n eq 'regexp'){
-        $c2 = "checked";
-    }
-    elsif( $n eq 'notregexp'){
-        $c3 = "checked";
-    }
-    else {
-        $c1 = "checked";
-    }
-    return "
-<input type=radio name=$name value=match $c1>Exact match
-&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
-<input type=radio name=$name value=regexp $c2><a href=cvsregexp.html>Regular&nbsp;expression</a>
-&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
-<input type=radio name=$name value=notregexp $c3>Doesn't&nbsp;match&nbsp;<a href=cvsregexp.html>Reg&nbsp;Exp</a>";
-}
-
-
-my $rememberedcachedate;
-
-sub fetchCachedStartDate {
-    my ($repository) = @_;
-    open(CACHE, "<data/cachedstartdates") || return "unknown";
-    while (<CACHE>) {
-        chop();
-        my($rep,$date,$cachedate) = split(/\|/);
-        if ($rep eq $repository) {
-            $rememberedcachedate = $cachedate;
-            return $date;
-        }
-    }
-    return "unknown";
-}
-
-sub refigureStartDateIfNecessary {
-    my ($repository) = @_;
-    my $now = time();
-    if ((defined $rememberedcachedate) &&
-        $now - $rememberedcachedate < 24*60*60 &&
-        $rememberedcachedate < $now) {
-        return;
-    }
-
-    ConnectToDatabase();
-    SendSQL("select min(ci_when) 
-               from checkins,repositories 
-               where repositories.id = repositoryid and 
-                     repository = '$::CVS_ROOT'");
-
-    my $startdate = FetchOneColumn();
-    if ($startdate eq "") {
-        $startdate = "nonexistant";
-    }
-    open(OUTCACHE, ">data/cachedstartdates.$$") || die "Can't open output date cache file";
-    if (open(INCACHE, "<data/cachedstartdates")) {
-        while (<INCACHE>) {
-            chop();
-            my($rep,$date,$cachedate) = split(/\|/);
-            if ($rep ne $repository) {
-                print OUTCACHE "$_\n";
-            }
-        }
-        close INCACHE;
-    }
-    print OUTCACHE "$repository|$startdate|$now\n";
-    close OUTCACHE;
-    rename "data/cachedstartdates.$$", "data/cachedstartdates";
-}

mozilla/webtools/bonsai/cvsregexp.html

@@ -1,257 +0,0 @@
-<HTML>
-<HEAD>
-   <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
-   <META NAME="Author" CONTENT="lloyd tabb">
-   <META NAME="GENERATOR" CONTENT="Mozilla/4.0 [en] (WinNT; I) [Netscape]">
-   <TITLE>Regular expressions in the cvs query tool</TITLE>
-</HEAD>
-<BODY>
-
-<H1>
-Description of MySQL regular expression syntax.</H1>
-Regular expressions are a powerful way of specifying complex searches.
-
-<P><B>MySQL</B> uses regular Henry Spencers inplementation of regular expressions.
-And that is aimed to conform to POSIX 1003.2. <B>MySQL</B> uses the extended
-version.
-
-<P>To get more exact information see Henry Spencers regex.7 manual.
-
-<P>This is a simplistic reference that skips the details. From here on
-a regualr expressions is called a regexp.
-
-<P>A regular expression describes a set of strings. The simplest case is
-one that has no special characters in it. For example the regexp <TT>hello</TT>
-matches <TT>hello</TT> and nothing else.
-
-<P>Nontrivial regular expressions use certain special constructs so that
-they can match more than one string. For example, the regexp <TT>hello|word</TT>
-matches either the string <TT>hello</TT> or the string <TT>word</TT>.
-
-<P>And a more comples example regexp <TT>B[an]*s</TT> matches any of the
-strings <TT>Bananas</TT>, <TT>Baaaaas</TT>, <TT>Bs</TT> and all other string
-starting with a <TT>B</TT> and continuing with any number of <TT>a</TT>
-<TT>n</TT> and ending with a <TT>s</TT>.
-
-<P>The following special characters/constructs are known.
-<DL COMPACT>
-<DT>
-<TT>^</TT></DT>
-
-<DD>
-Start of whole string.</DD>
-
-<PRE>mysql> select "fo\nfo" regexp "^fo$";&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -> 0
-mysql> select "fofo" regexp "^fo";&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -> 1</PRE>
-
-<DT>
-<TT>$</TT></DT>
-
-<DD>
-End of whole string.</DD>
-
-<PRE>mysql> select "fo\no" regexp "^fo\no$";&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -> 1
-mysql> select "fo\no" regexp "^fo$";&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -> 0</PRE>
-
-<DT>
-<TT>.</TT></DT>
-
-<DD>
-Any character (including newline).</DD>
-
-<PRE>mysql> select "fofo" regexp "^f.*";&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -> 1
-mysql> select "fo\nfo" regexp "^f.*";&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -> 1</PRE>
-
-<DT>
-<TT>a*</TT></DT>
-
-<DD>
-Any sequence of zero or more a's.</DD>
-
-<PRE>mysql> select "Ban" regexp "^Ba*n";&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -> 1
-mysql> select "Baaan" regexp "^Ba*n";&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -> 1
-mysql> select "Bn" regexp "^Ba*n";&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -> 1</PRE>
-
-<DT>
-<TT>a+</TT></DT>
-
-<DD>
-Any sequence of one or more a's.</DD>
-
-<PRE>mysql> select "Ban" regexp "^Ba+n";&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -> 1
-mysql> select "Bn" regexp "^Ba+n";&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -> 0</PRE>
-
-<DT>
-<TT>a?</TT></DT>
-
-<DD>
-Either zero or one a.</DD>
-
-<PRE>mysql> select "Bn" regexp "^Ba?n";&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -> 1
-mysql> select "Ban" regexp "^Ba?n";&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -> 1
-mysql> select "Baan" regexp "^Ba?n";&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -> 0</PRE>
-
-<DT>
-<TT>de|abc</TT></DT>
-
-<DD>
-Either the sequence <TT>de</TT> or <TT>abc</TT>.</DD>
-
-<PRE>mysql> select "pi" regexp "pi|apa";&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -> 1
-mysql> select "axe" regexp "pi|apa";&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -> 0
-mysql> select "apa" regexp "pi|apa";&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -> 1
-mysql> select "apa" regexp "^(pi|apa)$";&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -> 1
-mysql> select "pi" regexp "^(pi|apa)$";&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -> 1
-mysql> select "pix" regexp "^(pi|apa)$";&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -> 0</PRE>
-
-<DT>
-<TT>(abc)*</TT></DT>
-
-<DD>
-Zero or more times the sequence <TT>abc</TT>.</DD>
-
-<PRE>mysql> select "pi" regexp "^(pi)+$";&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -> 1
-mysql> select "pip" regexp "^(pi)+$";&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -> 0
-mysql> select "pipi" regexp "^(pi)+$";&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -> 1</PRE>
-
-<DT>
-<TT>{1}</TT></DT>
-
-<DT>
-<TT>{2,3}</TT></DT>
-
-<DD>
-The is a more general way of writing regexps that match many occurences.</DD>
-
-<DL COMPACT>
-<DT>
-<TT>a*</TT></DT>
-
-<DD>
-Can be written as <TT>a{0,}</TT>.</DD>
-
-<DT>
-<TT>+</TT></DT>
-
-<DD>
-Can be written as <TT>a{1,}</TT>.</DD>
-
-<DT>
-<TT>?</TT></DT>
-
-<DD>
-Can be written as <TT>a{0,1}</TT>.</DD>
-</DL>
-To be more precice an atom followed by a bound containing one integer <TT>i</TT>
-and no comma matches a sequence of exactly <TT>i</TT> matches of the atom.
-An atom followed by a bound containing one integer <TT>i</TT> and a comma
-matches a sequence of <TT>i</TT> or more matches of the atom. An atom followed
-by a bound containing two integers <TT>i</TT> and <TT>j</TT> matches a
-sequence of <TT>i</TT> through <TT>j</TT> (inclusive) matches of the atom.
-Both arguments must <TT>0 >= value &lt;= RE_DUP_MAX (default 255)</TT>,
-and if there are two of them, the second must be bigger or equal to the
-first.
-<DT>
-<TT>[a-dX]</TT></DT>
-
-<DT>
-<TT>[^a-dX]</TT></DT>
-
-<DD>
-Any character which is (not if ^ is used) either <TT>a</TT>, <TT>b</TT>,
-<TT>c</TT>, <TT>d</TT> or <TT>X</TT>. To include <TT>]</TT> it has to be
-written first. To include <TT>-</TT> it has to be written first or last.
-So <TT>[0-9]</TT> matches any decimal digit. All character that does not
-have a defined mening inside a <TT>[]</TT> pair has no special meaning
-and matches only itself.</DD>
-
-<PRE>mysql> select "aXbc" regexp "[a-dXYZ]";&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -> 1
-mysql> select "aXbc" regexp "^[a-dXYZ]$";&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -> 0
-mysql> select "aXbc" regexp "^[a-dXYZ]+$";&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -> 1
-mysql> select "aXbc" regexp "^[^a-dXYZ]+$";&nbsp;&nbsp;&nbsp;&nbsp; -> 0
-mysql> select "gheis" regexp "^[^a-dXYZ]+$";&nbsp;&nbsp;&nbsp; -> 1
-mysql> select "gheisa" regexp "^[^a-dXYZ]+$";&nbsp;&nbsp; -> 0</PRE>
-
-<DT>
-<TT>[[.characters.]]</TT></DT>
-
-<DD>
-The sequence of characters of that collating element. The sequence is a
-single element of the bracket expression's list. A bracket expression containing
-a multi-character collating element can thus match more than one character,
-e.g. if the collating sequence includes a <TT>ch</TT> collating element,
-then the RE <TT>[[.ch.]]*c</TT> matches the first five characters of <TT>chchcc</TT>.</DD>
-
-<DT>
-<TT>[=character-class=]</TT></DT>
-
-<DD>
-An equivalence class, standing for the sequences of characters of all collating
-elements equivalent to that one, including itself. For example, if <TT>o</TT>
-and <TT>(+)</TT> are the members of an equivalence class, then <TT>[[=o=]]</TT>,
-<TT>[[=(+)=]]</TT>, and <TT>[o(+)]</TT> are all synonymous. An equivalence
-class may not be an endpoint of a range.</DD>
-
-<DT>
-<TT>[:character_class:]</TT></DT>
-
-<DD>
-Within a bracket expression, the name of a character class enclosed in
-<TT>[:</TT> and <TT>:]</TT> stands for the list of all characters belonging
-to that class. Standard character class names are:</DD>
-
-<TABLE BORDER WIDTH="100%" NOSAVE >
-<TR>
-<TD>alnum&nbsp;</TD>
-
-<TD>digit&nbsp;</TD>
-
-<TD>punct&nbsp;</TD>
-</TR>
-
-<TR>
-<TD>alpha&nbsp;</TD>
-
-<TD>graph&nbsp;</TD>
-
-<TD>space&nbsp;</TD>
-</TR>
-
-<TR>
-<TD>blank&nbsp;</TD>
-
-<TD>lower&nbsp;</TD>
-
-<TD>upper&nbsp;</TD>
-</TR>
-
-<TR>
-<TD>cntrl&nbsp;</TD>
-
-<TD>print&nbsp;</TD>
-
-<TD>xdigit&nbsp;</TD>
-</TR>
-</TABLE>
-These stand for the character classes defined in ctype(3). A locale may
-provide others. A character class may not be used as an endpoint of a range.
-<PRE>mysql> select "justalnums" regexp "[[:alnum:]]+";&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -> 1
-mysql> select "!!" regexp "[[:alnum:]]+";&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -> 0</PRE>
-
-<LI>
-[[:&lt;:]]</LI>
-
-<LI>
-[[:>:]] These match the null string at the beginning and end of a word
-respectively. A word is defined as a sequence of word characters which
-is neither preceded nor followed by word characters. A word character is
-an alnum character (as defined by ctype(3)) or an underscore.</LI>
-
-<PRE>mysql> select "a word a" regexp "[[:&lt;:]]word[[:>:]]";&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -> 1
-mysql> select "a xword a" regexp "[[:&lt;:]]word[[:>:]]";&nbsp;&nbsp;&nbsp;&nbsp; -> 0</PRE>
-</DL>
-
-<PRE>mysql> select "weeknights" regexp "^(wee|week)(knights|nights)$"; -> 1</PRE>
-&nbsp;
-</BODY>
-</HTML>

mozilla/webtools/bonsai/defparams.pl

@@ -1,315 +0,0 @@
-# -*- Mode: perl; indent-tabs-mode: nil -*-
-#
-# The contents of this file are subject to the Mozilla Public License
-# Version 1.0 (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/MPL/
-# 
-# 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 Bonsai Bug Tracking System.
-# 
-# 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): Terry Weissman <terry@mozilla.org>
-
-
-# This file defines all the parameters that we have a GUI to edit within
-# Bonsai.
-
-use diagnostics;
-use strict;
-
-
-sub WriteParams {
-    foreach my $i (@::param_list) {
-	if (!defined $::param{$i}) {
-	    $::param{$i} = $::param_default{$i};
-            if (!defined $::param{$i}) {
-                die "No default parameter ever specified for $i";
-            }
-	}
-    }
-    mkdir("data", 0777);
-    chmod 0777, "data";
-    my $tmpname = "data/params.$$";
-    open(PARAM_FID, ">$tmpname") || die "Can't create $tmpname";
-    my $v = $::param{'version'};
-    delete $::param{'version'};  # Don't write the version number out to
-                                # the params file.
-    print PARAM_FID GenerateCode('%::param');
-    $::param{'version'} = $v;
-    print PARAM_FID "1;\n";
-    close PARAM_FID;
-    rename $tmpname, "data/params" || die "Can't rename $tmpname to data/params";
-    chmod 0666, "data/params";
-}
-    
-
-sub DefParam {
-    my ($id, $desc, $type, $default, $checker) = (@_);
-    push @::param_list, $id;
-    $::param_desc{$id} = $desc;
-    $::param_type{$id} = $type;
-    $::param_default{$id} = $default;
-    if (defined $checker) {
-	$::param_checker{$id} = $checker;
-    }
-}
-
-
-sub check_numeric {
-    my ($value) = (@_);
-    if ($value !~ /^[0-9]+$/) {
-	return "must be a numeric value";
-    }
-    return "";
-}
-    
-
-sub check_urlbase {
-    my ($url) = (@_);
-    if ($url !~ m:^(http|/).*/$:) {
-	return "must be a legal URL, that starts with either 'http' or a slash, and ends with a slash.";
-    }
-    return "";
-}
-
-
-@::param_list = ();
-
-
-
-# OK, here are the definitions themselves.
-#
-# The type of parameters (the third parameter to DefParam) can be one
-# of the following:
-#
-# t -- A short text entry field (suitable for a single line)
-# l -- A long text field (suitable for many lines)
-# b -- A boolean value (either 1 or 0)
-# i -- An integer.
-# defenum -- This param defines an enum that defines a column in one of
-#	     the database tables.  The name of the parameter is of the form
-#	     "tablename.columnname".
-
-DefParam("maintainer",
-	 "The email address of the person who maintains this installation of Bonsai.",
-	 "t",
-         'THE MAINTAINER HAS NOT YET BEEN SET');
-
-DefParam("userdomain",
-         "The default domain of the people who don't have an \@ in their email address.",
-         "t",
-         "");
-
-DefParam("urlbase",
-	 "The URL that is the common initial leading part of all Bonsai URLs.",
-	 "t",
-	 "http://www.mozilla.org/webtools/bonsai/",
-	 \&check_urlbase);
-
-DefParam("toplevel",
-         "What is the top level of bonsai called.  Links to
-         the toplevel.cgi script will be named this.",
-         "t",
-         "hooklist");
-
-DefParam("cvsadmin",
-	 "The email address of the person responsible for cvs.",
-	 "t",
-         '%maintainer%');
-
-DefParam("mysqluser",
-         "The username of the bonsai database user.",
-         "t",
-         "nobody");
-
-DefParam("mysqlpassword",
-         "The password of the bonsai database user.",
-         "t",
-         "");
-
-DefParam("dbiparam",
-         "The first parameter to pass to the DBI->connect() method.  This may need to be changed to be simply 'bonsai' for older versions of the perl MySQL libraries.",
-         "t",
-         "DBI:mysql:database=bonsai;");
-
-DefParam("readonly",
-         "Are the hook files readonly.  (This value gets changed on the fly,
-so it is ok to leave the way it is.)",
-         "b",
-         0);
-
-
-##
-## Page configuration (look and feel)
-##
-DefParam("headerhtml",
-         "Additional HTML to add to the HEAD area of documents, eg. links to stylesheets.",
-         "l",
-         '');
-
-
-DefParam("bannerhtml",
-         "The html that gets emitted at the head of every Bonsai page. 
-Anything of the form %<i>word</i>% gets replaced by the defintion of that 
-word (as defined on this page).",
-         "l",
-         q{<TABLE BGCOLOR="#FFFFFF" WIDTH="100%" BORDER=0 CELLPADDING=0 CELLSPACING=0>
-<TR><TD><!-- insert imagery here --></TD></TR></TABLE>
-<CENTER><FONT SIZE=-1>Bonsai version %version%
-</FONT></CENTER>});
-
-DefParam("blurbhtml",
-         "A blurb that appears as part of the header of every Bonsai page.  This is a place to put brief warnings, pointers to one or two related pages, etc.",
-         "l",
-
-         "This is <B>Bonsai</B>: a query interface to the CVS source repository");
-
-
-
-##
-## Command addresses/locations
-##
-DefParam("mailrelay",
-         "This is the default mail relay (SMTP Server) that we use to transmit email messages.",
-         "t",
-         'localhost');
-
-DefParam("cvscommand",
-         "This is the location of the CVS command.",
-         "t",
-         '/usr/bin/cvs');
-
-DefParam("rlogcommand",
-         "This is the location of the rlog command.",
-         "t",
-         '/usr/bin/rlog');
-
-DefParam("rcsdiffcommand",
-         "This is the location of the rcsdiff command.",
-         "t",
-         '/usr/bin/rcsdiff');
-
-DefParam("cocommand",
-         "This is the location of the RCS co command.",
-         "t",
-         '/usr/bin/co');
-
-
-##
-## Things that we link to on the fly
-##
-DefParam("lxr_base",
-	 "The URL that is the common initial leading part of all LXR URLs.",
-	 "t",
-	 "http://lxr.mozilla.org/",
-	 \&check_urlbase);
-
-DefParam("lxr_mungeregexp",
-         'A regexp to use to munge a pathname from the $CVSROOT into a valid LXR pathname.  So, for example, if we tend to have a lot of pathnames that start with "mozilla/", and the LXR URLs should not contain that leading mozilla/, then you would use something like:  s@^mozilla/@@',
-         "t",
-         "");
-
-DefParam("bugs_base",
-	 "The URL that is the common initial leading part of all Bugzilla URLs.",
-	 "t",
-	 "http://bugzilla.mozilla.org/",
-	 \&check_urlbase);
-
-DefParam("bugsmatch",
-         'Bugsmatch defines the number of consecutive digits that identify a bug to link to.',
-         't',
-         2);
-
-DefParam("bugsystemexpr",
-         'Bugsystemexpr defines what to replace a number found in log
-         messages with.  It is used to generate an HTML reference to
-         the bug database in the displayed text.  The number of the
-         bug found can be inserted using the %bug_id% substition.',
-         "t",
-         '<A HREF="%bugs_base%show_bug.cgi?id=%bug_id%">%bug_id%</A>');
-
-
-##
-## Email Addresses that get sent messages automatically when certain
-## events happen
-##
-DefParam("bonsai-hookinterest",
-         "The email address of the build team interested in the status of the hook.",
-         "t",
-         "bonsai-hookinterest");
-
-DefParam("bonsai-daemon",
-         "The email address of the sender of Bonsai related mail.",
-         "t",
-         "bonsai-daemon");
-
-DefParam("bonsai-messageinterest",
-         "The email address of those interested in the status of Bonsai itself.",
-         "t",
-         "bonsai-messageinterest");
-
-DefParam("bonsai-treeinterest",
-         "The email address of those interested in the status of development trees.",
-         "t",
-         "bonsai-treeinterest");
-
-DefParam("software",
-         "The email address list of those doing development on the trees.",
-         "t",
-         "software");
-
-
-##
-##  LDAP configuration
-##
-DefParam("ldapserver",
-         "The address ofthe LDAP server containing name information,
-         leave blank if you don't have an LDAP server.",
-         "t", 
-         '');
-
-DefParam("ldapport",
-         "The port of the LDAP server.",
-         "t", 
-         389);
-
-
-##
-##  Other URLs
-##
-DefParam("tinderboxbase",
-         "The base URL of the tinderbox build pages.  Leave blank if
-         you don't want to use tinderbox.",
-         "t",
-         "");
-
-DefParam("other_ref_urls",
-         "A list of pointers to other documentation, displayed on main bonsai menu",
-         "l",
-         '<a href=http://www.mozilla.org/hacking/bonsai.html>Mozilla\'s Introduction to Bonsai.</a><br>');
-
-
-DefParam("phonebookurl",
-         'A URL used to generate lookups for usernames.  The following
-         parameters are substituted: %user_name% for the user\'s name
-         in bonsai; %email_name% for the user\'s email address; and
-         %account_name% for the user\'s account name on their email
-         system (ie account_name@some.domain).',
-         "t",
-#         '<a href="http://phonebook/ds/dosearch/phonebook/uid=%account_name%,ou=People,o= Netscape Communications Corp.,c=US">%user_name%</a>'
-         '<a href="mailto:%email_name%">%user_name%</a>'
-        );
-
-
-
-
-1;
-

mozilla/webtools/bonsai/doadmin.cgi

@@ -1,166 +0,0 @@
-#!/usr/bonsaitools/bin/perl -w
-# -*- Mode: perl; indent-tabs-mode: nil -*-
-#
-# The contents of this file are subject to the Netscape Public License
-# Version 1.0 (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 Bonsai CVS 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.
-
-
-use strict;
-use diagnostics;
-
-require 'CGI.pl';
-require 'adminfuncs.pl';
-
-print "Content-type: text/html\n\n";
-
-CheckPassword(FormData('password'));
-
-Lock();
-LoadCheckins();
-
-my $cmd = FormData('command');
-
-if ($cmd eq 'close') {
-     close_tree();
-} elsif ($cmd eq 'open') {
-     open_tree();
-} elsif ($cmd eq 'tweaktimes') {
-     edit_tree();
-} elsif ($cmd eq 'editmotd') {
-     edit_motd();
-} elsif ($cmd eq 'changepassword') {
-     change_passwd();
-} else {
-     error_screen('Invalid Command',
-                  "<b>Invalid Command '<tt>$cmd</tt>'</b>");
-}
-
-PutsTrailer();
-WriteCheckins();
-Unlock();
-exit 0;
-
-
-
-sub error_screen {
-     my ($title, $err_str) = @_;
-
-     PutsHeader($title);
-     print "\n<hr>\n$err_str\n\n";
-     PutsTrailer();
-     exit 0;
-}
-
-
-sub close_tree {
-     my $sw = Param("software", 1);
-     my $ti = Param("bonsai-treeinterest", 1);
-     my $href = ConstructMailTo(EmailFromUsername($sw),
-                                "The tree is now closed.");
-
-     AdminCloseTree(ParseTimeAndCheck(FormData('closetimestamp')));
-
-     PutsHeader("Clang!", "Clang!", "The tree is now closed.");
-     print "
-Mail has been sent notifying \"the hook\" and anyone subscribed to $ti.<p>
-
-$href about the closure.<p>
-";
-}
-
-sub open_tree {
-     my $sw = Param("software", 1);
-     my $ti = Param("bonsai-treeinterest", 1);
-     my $href = ConstructMailTo(EmailFromUsername($sw),
-                                "The tree is now open.");
-
-     AdminOpenTree(ParseTimeAndCheck(FormData('lastgood')),
-                   exists($::FORM{'doclear'}));
-
-     PutsHeader("The floodgates are open.", "The floodgates are open.");
-     print "
-Mail has been sent notifying \"the hook\" and anyone subscribed to $ti.<p>
-
-$href about the new status of the tree.<p>
-";
-}
-
-sub edit_tree {
-     $::LastGoodTimeStamp = ParseTimeAndCheck(FormData('lastgood'));
-     $::CloseTimeStamp = ParseTimeAndCheck(FormData('lastclose'));
-
-     PutsHeader("Let's do the time warp again...",
-                "Times have been tweaked.");
-
-     Log("Times tweaked: \$::LastGoodTimeStamp is " .
-         MyFmtClock($::LastGoodTimeStamp) .
-         ", closetime is " .
-         MyFmtClock($::CloseTimeStamp));
-}
-
-
-sub edit_motd {
-     LoadMOTD();
-
-     unless (FormData('origmotd') eq $::MOTD) {
-          error_screen("Oops!",
-"<H1>Someone else has been here!</H1>
-
-It looks like somebody else has changed the message-of-the-day.
-Terry was too lazy to implement anything beyond detecting this
-condition.  You'd best go start over -- go back to the top of Bonsai,
-look at the current message-of-the-day, and decide if you still
-want to make your edits.");
-     }
-
-     MailDiffs("message-of-the-day", $::MOTD, FormData('motd'));
-     $::MOTD = FormData('motd');
-     PutsHeader("New MOTD", "New MOTD",
-                "The Message Of The Day has been changed.");
-     WriteMOTD();
-     Log("New motd: $::MOTD");
-}
-
-sub change_passwd {
-     my ($outfile, $encoded);
-     local *PASSWD;
-
-     unless (FormData('newpassword') eq FormData('newpassword2')) {
-          error_screen("Oops -- Mismatch!",
-"The two passwords you typed didn't match.  Click <b>Back</b> and try again.");
-     }
-
-     if ($::FORM{'doglobal'}) {
-          CheckGlobalPassword($::FORM{'password'});
-          $outfile = 'data/passwd';
-     } else {
-          $outfile = DataDir() . '/treepasswd';
-     }
-
-     $encoded = trim(`./data/trapdoor $::FORM{'newpassword'}`);
-     unless (open(PASSWD, ">$outfile")) {
-          error_screen("Oops -- Couldn't write password file!",
-                       "Couldn't open `<tt>$outfile</tt>': $!.");
-     }
-     print PASSWD "$encoded\n";
-     close(PASSWD);
-     chmod(0777, $outfile);
-
-     PutsHeader('Locksmithing complete.', 'Password Changed.',
-                'The new password is now in effect.');
-     PutsTrailer();
-     exit 0;
-}

mozilla/webtools/bonsai/doeditcheckin.cgi

@@ -1,94 +0,0 @@
-#!/usr/bonsaitools/bin/perl -w
-# -*- Mode: perl; indent-tabs-mode: nil -*-
-#
-# The contents of this file are subject to the Netscape Public License
-# Version 1.0 (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 Bonsai CVS 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.
-
-use diagnostics;
-use strict;
-
-require 'CGI.pl';
-
-print "Content-type: text/html
-
-<HTML>";
-
-CheckPassword($::FORM{'password'});
-
-Lock();
-LoadCheckins();
-
-my $busted = 0;
-
-my $info;
-
-if (!exists $::FORM{'id'}) {
-    set busted 1
-} else {
-    $info = eval("\\%" . $::FORM{'id'});
-    
-    if (!exists $info->{'notes'}) {
-        $info->{'notes'} = "";
-    }
-    
-    foreach my $i (sort(keys(%$info))) {
-        if (FormData("orig$i") ne $info->{$i}) {
-            $busted = 1;
-            last;
-        }
-    }
-}
-
-if ($busted) {
-    Unlock();
-    print "
-<TITLE>Oops!</TITLE>
-<H1>Someone else has been here!</H1>
-
-It looks like somebody else has changed or deleted this checkin.
-Terry was too lazy to implement anything beyond detecting this
-condition.  You'd best go start over -- go back to the list of
-checkins, look for this checkin again, and decide if you still want to
-make your edits.";
-
-    PutsTrailer();
-    exit();
-}
-
-if (exists $::FORM{'nukeit'}) {
-    Log("A checkin for $info->{person} has been nuked.");
-} else {
-    Log("A checkin for $info->{person} has been modified.");
-}
-
-$info->{date} = ParseTimeAndCheck(FormData('datestring'));
-foreach my $i ('person', 'dir', 'files', 'notes', 'treeopen', 'log') {
-    $info->{$i} = FormData($i);
-}
-
-if (exists $::FORM{'nukeit'}) {
-    my $w = lsearch(\@::CheckInList, $::FORM{'id'});
-    if ($w >= 0) {
-        splice(@::CheckInList, $w, 1);
-    }
-}
-
-WriteCheckins();
-
-print "OK, the checkin has been changed.";
-
-PutsTrailer();
-

mozilla/webtools/bonsai/doeditmessage.cgi

@@ -1,70 +0,0 @@
-#!/usr/bonsaitools/bin/perl -w
-# -*- Mode: perl; indent-tabs-mode: nil -*-
-#
-# The contents of this file are subject to the Netscape Public License
-# Version 1.0 (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 Bonsai CVS 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.
-
-use diagnostics;
-use strict;
-
-# Shut up misguided -w warnings about "used only once".  "use vars" just
-# doesn't work for me.
-
-sub sillyness {
-    my $zz;
-    $zz = $::TreeID;
-    $zz = $::TreeInfo;
-}
-
-require 'CGI.pl';
-
-print "Content-type: text/html\n\n";
-
-CheckPassword(FormData('password'));
-my $Filename = FormData('msgname');
-my $RealFilename = DataDir() . "/$Filename";
-Lock();
-
-my $Text = '';
-$Text = `cat $RealFilename` if -f $RealFilename;
-
-unless (FormData('origtext') eq $Text) {
-     PutsHeader("Oops!", "Oops!", "Someone else has been here!");
-     print "
-It looks like somebody else has changed this message while you were editing it.
-Terry was too lazy to implement anything beyond detecting this
-condition.  You'd best go start over -- go back to the top of Bonsai,
-work your way back to editing the message, and decide if you still
-want to make your edits.";
-
-     PutsTrailer();
-     exit 0;
-}
-
-$Text = FormData('text');
-open(FILE, "> $RealFilename")
-     or warn "Unable to open: $RealFilename: $!\n";
-print FILE $Text;
-chmod(0666, $RealFilename);
-close(FILE);
-Log("$RealFilename set to $Text");
-Unlock();
-
-LoadTreeConfig();
-PutsHeader("New $Filename", "New $Filename",
-           "$Filename - $::TreeInfo{$::TreeID}{shortdesc}");
-print "The file <b>$Filename</b> has been changed.";
-PutsTrailer();

mozilla/webtools/bonsai/doeditparams.cgi

@@ -1,67 +0,0 @@
-#!/usr/bonsaitools/bin/perl -w
-# -*- Mode: perl; indent-tabs-mode: nil -*-
-#
-# The contents of this file are subject to the Mozilla Public License
-# Version 1.0 (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/MPL/
-# 
-# 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 Bugzilla Bug Tracking System.
-# 
-# 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): Terry Weissman <terry@mozilla.org>
-
-use diagnostics;
-use strict;
-
-require "CGI.pl";
-require "defparams.pl";
-
-# Shut up misguided -w warnings about "used only once":
-use vars %::param,
-    %::param_default,
-    @::param_list;
-
-
-print "Content-type: text/html\n\n";
-
-CheckPassword(FormData('password'));
-
-PutsHeader("Saving new parameters");
-
-foreach my $i (@::param_list) {
-#    print "Processing $i...<BR>\n";
-    if (exists $::FORM{"reset-$i"}) {
-        $::FORM{$i} = $::param_default{$i};
-    }
-    $::FORM{$i} =~ s/\r\n/\n/;     # Get rid of windows-style line endings.
-    if ($::FORM{$i} ne Param($i)) {
-        if (defined $::param_checker{$i}) {
-            my $ref = $::param_checker{$i};
-            my $ok = &$ref($::FORM{$i});
-            if ($ok ne "") {
-                print "New value for $i is invalid: $ok<p>\n";
-                print "Please hit <b>Back</b> and try again.\n";
-                exit;
-            }
-        }
-        print "Changed $i.<br>\n";
-        $::param{$i} = $::FORM{$i}
-    }
-}
-
-
-WriteParams();
-
-print "OK, done.<p>\n";
-print "<a href=editparams.cgi>Edit the params some more.</a><p>\n";
-print "<a href=index.html>Go back to the top.</a>\n";
-    

mozilla/webtools/bonsai/doeditwhiteboard.cgi

@@ -1,79 +0,0 @@
-#!/usr/bonsaitools/bin/perl -w
-# -*- Mode: perl; indent-tabs-mode: nil -*-
-#
-# The contents of this file are subject to the Netscape Public License
-# Version 1.0 (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 Bonsai CVS 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.
-
-use diagnostics;
-use strict;
-
-require 'CGI.pl';
-print "Content-type: text/html\n\n";
-
-Lock();
-LoadWhiteboard();
-
-my $oldvalue = FormData('origwhite');
-unless ($oldvalue eq $::WhiteBoard) {
-     Unlock();
-
-     print "
-<TITLE>Error -- pen stolen.</TITLE>
-<H1>Someone else just changed the whiteboard.</H1>
-
-Somebody else has changed what's on the whiteboard.  Your changes will
-stomp over theirs.
-<P>
-The whiteboard now reads:
-<hr>
-<PRE VARIABLE>$::WhiteBoard</PRE>
-<hr>
-If you really want to change the whiteboard to your text, click the button
-below.  Or maybe you want to tweak your text first.  Or you can forget it and
-go back to the beginning.
-
-<FORM method=get action=\"doeditwhiteboard.cgi\">
-<INPUT TYPE=HIDDEN NAME=origwhite VALUE=\"" . value_quote($::WhiteBoard). "\">
-
-Change the free-for-all whiteboard:<br>
-<TEXTAREA NAME=whiteboard ROWS=10 COLS=70>" . FormData('whiteboard') .
-"</TEXTAREA><BR>
-<INPUT TYPE=SUBMIT VALUE=\"Change the Whiteboard\">
-</FORM>
-";
-    PutsTrailer();
-    exit;
-}
-
-
-my $newwhiteboard = trim(FormData('whiteboard'));
-
-MailDiffs("whiteboard", $::WhiteBoard, $newwhiteboard);
-
-$::WhiteBoard = $newwhiteboard;
-WriteWhiteboard();
-Unlock();
-
-print "<TITLE>Where's my blue marker?</TITLE>
-<H1>The whiteboard has been changed.</H1>
-The whiteboard now reads:
-<hr>
-<PRE VARIABLE>$::WhiteBoard</PRE>
-";
-
-Log("Whiteboard changed to be: $::WhiteBoard");
-PutsTrailer();
-exit;

mozilla/webtools/bonsai/dolog.pl

@@ -1,303 +0,0 @@
-#! /tools/ns/bin/perl5
-# -*- Mode: perl; indent-tabs-mode: nil -*-
-#
-# The contents of this file are subject to the Netscape Public License
-# Version 1.0 (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 Bonsai CVS 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.
-
-
-# You need to put this in your CVSROOT directory, and check it in.  (Change the
-# first line above to point to a real live perl5.)  Add "dolog.pl" to
-# CVSROOT/checkoutlist, and check it in. Then, add a line to your
-# CVSROOT/loginfo file that says something like:
-#
-#      ALL      $CVSROOT/CVSROOT/dolog.pl -r /cvsroot bonsai-checkin-daemon@my.bonsai.machine
-#
-# Replace "/cvsroot" with the name of the CVS root directory, and
-# "my.bonsai.machine" with the name of the machine Bonsai runs on.
-# Now, on my.bonsai.machine, add a mail alias so that mail sent to 
-# "bonsai-checkin-daemon" will get piped to handleCheckinMail.tcl.
-# The first argument to handleCheckinMail.tcl is the directory that
-# bonsai is installed in.
-
-use Socket;
-
-$username = $ENV{"CVS_USER"} || getlogin || (getpwuid($<))[0] || "nobody";
-$envcvsroot = $ENV{'CVSROOT'};
-$cvsroot = $envcvsroot;
-$flag_debug = 0;
-$flag_tagcmd = 0;
-$repository = '';
-$repository_tag = '';
-$mailhost = 'localhost';
-$rlogcommand = '/usr/bin/rlog';
-
-@mailto=();
-@changed_files = ();
-@added_files = ();
-@removed_files = ();
-@log_lines = ();
-@outlist = ();
-
-$STATE_NONE    = 0;
-$STATE_CHANGED = 1;
-$STATE_ADDED   = 2;
-$STATE_REMOVED = 3;
-$STATE_LOG     = 4;
-
-&process_args;
-
-if ($flag_debug ){
-    print STDERR "----------------------------------------------\n";
-    print STDERR "LOGINFO:\n";
-    print STDERR " pwd:" . `pwd` . "\n";
-    print STDERR " Args @ARGV\n";
-    print STDERR " CVSROOT: $cvsroot\n";                      
-    print STDERR " who: $username\n";                      
-    print STDERR " Repository: $repository\n";                      
-    print STDERR " mailto: @mailto\n";
-    print STDERR "----------------------------------------------\n";
-}
-
-if ($flag_tagcmd) {
-    &process_tag_command;
-} else {
-    &get_loginfo;
-    &process_cvs_info;
-}
-
-if( $flag_debug){
-    print STDERR "----------------------------------------------\n";
-    print STDERR @outlist;
-    print STDERR "----------------------------------------------\n";
-}
-
-&mail_notification;
-
-0;
-
-sub process_args {
-    while (@ARGV) {
-        $arg = shift @ARGV;
-
-        if ($arg eq '-d') {
-            $flag_debug = 1;
-            print STDERR "Debug turned on...\n";
-	} elsif ($arg eq '-r') {
-	    $cvsroot = shift @ARGV;
-        } elsif ($arg eq '-t') {
-	    $flag_tagcmd = 1;
-	    last;		# Keep the rest in ARGV; they're handled later.
-	} elsif ($arg eq '-h') {
-	    $mailhost = shift @ARGV;
-	} else {
-            push(@mailto, $arg);
-        }
-    }
-    if( $repository eq '' ){
-	open( REP, "<CVS/Repository");
-	$repository = <REP>;
-	chop($repository);
-	close(REP);
-    }
-    $repository =~ s:^$cvsroot/::;
-    $repository =~ s:^$envcvsroot/::;
-    
-    if (!$flag_tagcmd) {
-	if( open( REP, "<CVS/Tag") ) {
-	    $repository_tag = <REP>;
-	    chop($repository_tag);
-	    close(REP);
-	}
-    }
-}
-
-sub get_loginfo {
-
-    if( $flag_debug){
-        print STDERR "----------------------------------------------\n";
-    }
-
-    # Iterate over the body of the message collecting information.
-    #
-    while (<STDIN>) {
-        chop;			# Drop the newline
-
-        if( $flag_debug){
-            print STDERR "$_\n";
-        }
-
-        if (/^In directory/) {
-            next;
-        }
-
-        if (/^Modified Files/) { $state = $STATE_CHANGED; next; }
-        if (/^Added Files/)    { $state = $STATE_ADDED;   next; }
-        if (/^Removed Files/)  { $state = $STATE_REMOVED; next; }
-        if (/^Log Message/)    { $state = $STATE_LOG;     next; }
-
-        s/^[ \t\n]+//;		# delete leading whitespace
-        s/[ \t\n]+$//;		# delete trailing whitespace
-        
-        if ($state == $STATE_CHANGED) { push(@changed_files, split); }
-        if ($state == $STATE_ADDED)   { push(@added_files,   split); }
-        if ($state == $STATE_REMOVED) { push(@removed_files, split); }
-        if ($state == $STATE_LOG)     { push(@log_lines,     $_); }
-    }
-    
-    if( $flag_debug){
-        print STDERR "----------------------------------------------\n"
-                     . "changed files: @changed_files\n"
-                     . "added files: @added_files\n"
-                     . "removed files: @removed_files\n";
-        print STDERR "----------------------------------------------\n";
-    }
-
-}
-
-sub process_cvs_info {
-    local($d,$fn,$rev,$mod_time,$sticky,$tag,$stat,@d,$l,$rcsfile);
-    if (!open(ENT, "<CVS/Entries.Log" )) {
-	open(ENT, "<CVS/Entries");
-    }
-    $time = time;
-    while( <ENT> ){
-        chop;
-        ($d,$fn,$rev,$mod_time,$sticky,$tag) = split(/\//);
-        $stat = 'C';
-        for $i (@changed_files, "BEATME.NOW", @added_files ) {
-            if( $i eq "BEATME.NOW" ){ $stat = 'A'; }
-            if($i eq $fn ){
-                $rcsfile = "$envcvsroot/$repository/$fn,v";
-                if( ! -r $rcsfile ){
-                    $rcsfile = "$envcvsroot/$repository/Attic/$fn,v";
-                }
-                open(LOG, "$rlogcommand -N -r$rev $rcsfile |") 
-                        || print STDERR "dolog.pl: Couldn't run rlog\n";
-                while(<LOG>){
-                    if (/^date:.* author: ([^;]*);.*/) {
-                        $username = $1;
-                        if (/lines: \+([0-9]*) -([0-9]*)/) {
-                            $lines_added = $1;
-                            $lines_removed = $2;
-                        }
-                    }
-                }
-                close( LOG );
-                push(@outlist, ("$stat|$time|$username|$cvsroot|$repository|$fn|$rev|$sticky|$tag|$lines_added|$lines_removed\n"));
-            }
-        }
-    }
-    close(ENT);
-
-    for $i (@removed_files) {
-        push( @outlist, ("R|$time|$username|$cvsroot|$repository|$i|||$repository_tag\n"));
-    }
-
-    push (@outlist, "LOGCOMMENT\n");
-    push (@outlist, join("\n",@log_lines));
-    push (@outlist, "\n:ENDLOGCOMMENT\n");
-}
-
-
-sub process_tag_command {
-    local($str,$part,$time);
-    $time = time;
-    $str = "Tag|$cvsroot|$time";
-    while (@ARGV) {
-	$part = shift @ARGV;
-	$str .= "|" . $part;
-    }
-    push (@outlist, ("$str\n"));
-}
-	
-
-
-sub do_commitinfo {
-}
-
-
-
-
-sub get_response_code {
-    my ($expecting) = @_;
-#     if ($flag_debug) {
-# 	print STDERR "SMTP: Waiting for code $expecting\n";
-#     }
-    while (1) {
-	my $line = <S>;
-# 	if ($flag_debug) {
-# 	    print STDERR "SMTP: $line";
-# 	}
-	if ($line =~ /^[0-9]*-/) {
-	    next;
-	}
-	if ($line =~ /(^[0-9]*) /) {
-	    my $code = $1;
-	    if ($code == $expecting) {
-# 		if ($flag_debug) {
-# 		    print STDERR "SMTP: got it.\n";
-# 		}
-		return;
-	    }
-	    die "Bad response from SMTP -- $line";
-	}
-    }
-}
-	    
-    
-
-
-sub mail_notification {
-    chop(my $hostname = `hostname`);
-
-    my ($remote,$port, $iaddr, $paddr, $proto, $line);
-
-    $remote  = $mailhost;
-    $port    = 25;
-    if ($port =~ /\D/) { $port = getservbyname($port, 'tcp') }
-    die "No port" unless $port;
-    $iaddr   = inet_aton($remote)               || die "no host: $remote";
-    $paddr   = sockaddr_in($port, $iaddr);
-
-    $proto   = getprotobyname('tcp');
-    socket(S, PF_INET, SOCK_STREAM, $proto)  || die "socket: $!";
-    connect(S, $paddr)    || die "connect: $!";
-    select(S); $| = 1; select(STDOUT);
-
-    get_response_code(220);
-    print S "EHLO $hostname\n";
-    get_response_code(250);
-    print S "MAIL FROM: bonsai-daemon\@$hostname\n";
-    get_response_code(250);
-    foreach $i (@mailto) {
-	print S "RCPT TO: $i\n";
-	get_response_code(250);
-    }
-    print S "DATA\n";
-    get_response_code(354);
-    # Get one line starting with "354 ".
-    if ($flag_tagcmd) {
-	print S "Subject:  cvs tag in $repository\n";
-    } else {
-	print S "Subject:  cvs commit to $repository\n";
-    }
-    print S "\n";
-    print S @outlist, "\n";
-    print S ".\n";
-    get_response_code(250);
-    print S "QUIT\n";
-    close(S);
-}

mozilla/webtools/bonsai/dotweak.cgi

@@ -1,137 +0,0 @@
-#!/usr/bonsaitools/bin/perl -w
-# -*- Mode: perl; indent-tabs-mode: nil -*-
-#
-# The contents of this file are subject to the Netscape Public License
-# Version 1.0 (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 Bonsai CVS 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.
-
-use diagnostics;
-use strict;
-
-# Shut up misguided -w warnings about "used only once".  "use vars" just
-# doesn't work for me.
-
-sub sillyness {
-    my $zz;
-    $zz = $::BatchID;
-}
-require 'CGI.pl';
-
-print "Content-type: text/html
-
-<HTML>";
-
-CheckPassword($::FORM{'password'});
-
-Lock();
-LoadCheckins();
-
-if (!exists $::FORM{'command'}) {
-    $::FORM{'command'} = 'nocommand';
-}
-
-
-my @list;
-
-foreach my $i (keys %::FORM) {
-    my $j = url_decode($i);
-    if ($j =~ m/^\:\:checkin_/) {
-        if (lsearch(\@::CheckInList, $j) >= 0) {
-            push(@list, $j);
-        }
-    }
-}
-
-
-my $origtree = $::TreeID;
-
-my $what = "";
-
-my $i;
-
-SWITCH: for ($::FORM{'command'}) {
-    /^nuke$/ && do {
-        foreach $i (@list) {
-            my $w = lsearch(\@::CheckInList, $i);
-            if ($w >= 0) {
-                splice(@::CheckInList, $w, 1);
-            }
-        }
-        $what = "deleted.";
-        last SWITCH;
-    };
-    /^setopen$/ && do {
-        foreach $i (@list) {
-            my $info = eval("\\%" . $i);
-            $info->{'treeopen'} = 1;
-        }
-        $what = "modified to be open.";
-        last SWITCH;
-    };
-
-    /^setclose$/ && do {
-        foreach $i (@list) {
-            my $info = eval("\\%" . $i);
-            $info->{'treeopen'} = 0;
-        }
-        $what = "modified to be closed.";
-        last SWITCH;
-    };
-    /^movetree$/ && do {
-        if ($::TreeID eq $::FORM{'desttree'}) {
-            print "<H1>Pick a different tree</H1>\n";
-            print "You attempted to move checkins into the tree that\n";
-            print "they're already in.  Hit <b>Back</b> and try again.\n";
-            PutsTrailer();
-            exit();
-        }
-        foreach $i (@list) {
-            my $w = lsearch(\@::CheckInList, $i);
-            if ($w >= 0) {
-                splice(@::CheckInList, $w, 1);
-            }
-        }
-        WriteCheckins();
-        undef @::CheckInList;
-        $::TreeID = $::FORM{'desttree'};
-        undef $::BatchID;
-        LoadCheckins();
-        LoadTreeConfig();
-        foreach $i (@list) {
-            push(@::CheckInList, $i);
-        }
-        $what = "moved to the $::TreeInfo{$::TreeID}->{'description'} tree.";
-        last SWITCH;
-    };
-    # DEFAULT
-    print "<h1>No command selected</h1>\n";
-    print "You need to select one of the radio command buttons at the\n";
-    print "bottom.  Hit <b>Back</b> and try again.\n";
-    PutsTrailer();
-    exit();
-}
-
-WriteCheckins();
-Unlock();
-
-print "
-<H1>OK, done.</H1>
-The selected checkins have been $what
-";
-
-$::TreeInfo = $origtree;
-
-PutsTrailer();
-

mozilla/webtools/bonsai/editcheckin.cgi

@@ -1,110 +0,0 @@
-#!/usr/bonsaitools/bin/perl -w
-# -*- Mode: perl; indent-tabs-mode: nil -*-
-#
-# The contents of this file are subject to the Netscape Public License
-# Version 1.0 (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 Bonsai CVS 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.
-
-use diagnostics;
-use strict;
-
-# Shut up misguided -w warnings about "used only once".  "use vars" just
-# doesn't work for me.
-
-sub sillyness {
-    my $zz;
-    $zz = $::TreeID;
-}
-
-require 'CGI.pl';
-
-LoadCheckins();
-
-my $info = eval("\\%" . $::FORM{'id'});
-
-print "Content-type: text/html
-
-<HTML>
-<TITLE>Say the magic word.</TITLE>
-<H1>Edit a checkin.</H1>
-
-Congratulations, you have found the hidden edit-a-checkin feature.  Of course,
-you need to know the magic word to do anything from here.
-
-<P>
-
-<FORM method=get action=\"doeditcheckin.cgi\">
-<TABLE>
-<tr>
-<td align=right><B>Password:</B></td>
-<td><INPUT NAME=password TYPE=password></td>
-</tr><tr>
-<td align=right><B>When:</B></td>
-<td><INPUT NAME=datestring VALUE=\"" .
-value_quote(MyFmtClock($info->{'date'})) . "\">
-</td></tr>
-";
-
-if (!exists $info->{'notes'}) {
-    $info->{'notes'} = "";
-}
-
-foreach my $i ('person', 'dir', 'files', 'notes') {
-    print "<tr><td align=right><B>$i:</B></td>";
-    print "<td><INPUT NAME=$i VALUE=\"" . value_quote($info->{$i}) .
-    "\"></td></tr>";
-}
-
-sub CheckString {
-    my ($value) = (@_);
-    if ($value) {
-        return "CHECKED";
-    } else {
-        return "";
-    }
-}
-
-my $isopen = CheckString($info->{'treeopen'});
-my $isclosed = CheckString(!$info->{'treeopen'});
-
-print qq{
-<tr><td align=right><b>Tree state:</b></td>
-<td><INPUT TYPE=radio NAME=treeopen VALUE=1 $isopen>Open
-</td></tr><tr><td></td>
-<td><INPUT TYPE=radio NAME=treeopen VALUE=0 $isclosed>Closed
-</td></tr><tr>
-<td align=right valign=top><B>Log message:</B></td>
-<td><TEXTAREA NAME=log ROWS=10 COLS=80>$info->{'log'}</TEXTAREA></td></tr>
-</table>
-<INPUT TYPE=CHECKBOX NAME=nukeit>Check this box to blow away this checkin entirely.<br>
-
-<INPUT TYPE=SUBMIT VALUE=Submit>
-};
-
-foreach my $i (sort(keys(%$info))) {
-    my $q = value_quote($info->{$i});
-    print qq{<INPUT TYPE=HIDDEN NAME=orig$i VALUE="$q">\n};
-}
-
-print "<INPUT TYPE=HIDDEN NAME=id VALUE=\"$::FORM{'id'}\">";
-
-print "<INPUT TYPE=HIDDEN NAME=treeid VALUE=\"" . value_quote($::TreeID) . "\">";
-
-
-
-print "</TABLE></FORM>";
-
-PutsTrailer();
-

mozilla/webtools/bonsai/editmessage.cgi

@@ -1,95 +0,0 @@
-#!/usr/bonsaitools/bin/perl -w
-# -*- Mode: perl; indent-tabs-mode: nil -*-
-#
-# The contents of this file are subject to the Netscape Public License
-# Version 1.0 (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 Bonsai CVS 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.
-
-use diagnostics;
-use strict;
-
-# Shut up misguided -w warnings about "used only once".  "use vars" just
-# doesn't work for me.
-
-sub sillyness {
-    my $zz;
-    $zz = $::TreeInfo;
-}
-
-require 'CGI.pl';
-
-print "Content-type: text/html\n\n";
-
-my $Filename = FormData('msgname');
-my $RealFilename = DataDir() . "/$Filename";
-
-my $Text = '';
-$Text = `cat $RealFilename` if -f $RealFilename;
-
-LoadTreeConfig();
-PutsHeader("Message Editor", "Message Editor",
-           "$Filename - $::TreeInfo{$::TreeID}{shortdesc}");
-
-print "
-Below is the template for the <b>$Filename</b> message.  Type the
-magic word and edit at will, but be careful to not break anything,
-especially around the headers.
-
-The following magic symbols exist:
-
-<table>
-";
-
-
-sub PutDoc {
-     my ($name, $desc) = @_;
-
-     print "\n<tr>\n<td align=right><tt><b>%$name%</b></tt></td>
-<td>Replaced by the $desc</td>\n</tr>\n";
-}
-
-if (($Filename eq 'openmessage') || ($Filename eq 'closemessage')) {
-     PutDoc('name', "username of the person getting mail");
-     PutDoc('dir', "directory for this checkin");
-     PutDoc('files', "list of files for this checkin");
-     PutDoc('log', "log message for this checkin");
-     PutDoc('profile', "profile for this user");
-} elsif (($Filename eq 'treeopened') || ($Filename eq 'treeopenedsamehook') ||
-         ($Filename eq 'treeclosed')) {
-     PutDoc('hooklist', "comma-separated list of e-mail address of people on the hook");
-} else {
-     print "</table><P><font color=red>
-Uh, hey, this isn't a legal file for you to be editing here!</font>\n";
-     PutsTrailer();
-     exit 0;
-}
-
-print "
-</TABLE>
-<FORM method=get action=\"doeditmessage.cgi\">
-<INPUT TYPE=HIDDEN NAME=treeid VALUE=$::TreeID>
-<B>Password:</B> <INPUT NAME=password TYPE=password> <BR>
-<INPUT TYPE=HIDDEN NAME=msgname VALUE=$Filename>
-<INPUT TYPE=HIDDEN NAME=origtext VALUE=\"" . value_quote($Text) . "\">
-<TEXTAREA NAME=text ROWS=40 COLS=80>$Text</TEXTAREA><BR>
-<INPUT TYPE=SUBMIT VALUE=\"Change this message\">
-</FORM>
-
- ";
-
-
-PutsTrailer();
-exit 0;
-

mozilla/webtools/bonsai/editparams.cgi

@@ -1,98 +0,0 @@
-#!/usr/bonsaitools/bin/perl -w
-# -*- Mode: perl; indent-tabs-mode: nil -*-
-#
-# The contents of this file are subject to the Mozilla Public License
-# Version 1.0 (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/MPL/
-# 
-# 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 Bugzilla Bug Tracking System.
-# 
-# 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): Terry Weissman <terry@mozilla.org>
-
-
-use diagnostics;
-use strict;
-
-require "CGI.pl";
-require "defparams.pl";
-
-# Shut up misguided -w warnings about "used only once":
-use vars @::param_desc,
-    @::param_list;
-
-print "Content-type: text/html\n\n";
-
-PutsHeader("Edit parameters");
-
-print "This lets you edit the basic operating parameters of bonsai.\n";
-print "Be careful!\n";
-print "<p>\n";
-print "Any item you check Reset on will get reset to its default value.\n";
-
-print "<form method=post action=doeditparams.cgi><table>\n";
-
-my $rowbreak = "<tr><td colspan=2><hr></td></tr>";
-print $rowbreak;
-
-foreach my $i (@::param_list) {
-    print "<tr><th align=right valign=top>$i:</th><td>$::param_desc{$i}</td></tr>\n";
-    print "<tr><td valign=top><input type=checkbox name=reset-$i>Reset</td><td>\n";
-    my $value = Param($i);
-    SWITCH: for ($::param_type{$i}) {
-	/^t$/ && do {
-            print "<input size=80 name=$i value=\"" .
-                value_quote($value) . "\">\n";
-            last SWITCH;
-	};
-	/^l$/ && do {
-            print "<textarea wrap=hard name=$i rows=10 cols=80>" .
-                value_quote($value) . "</textarea>\n";
-            last SWITCH;
-	};
-        /^b$/ && do {
-            my $on;
-            my $off;
-            if ($value) {
-                $on = "checked";
-                $off = "";
-            } else {
-                $on = "";
-                $off = "checked";
-            }
-            print "<input type=radio name=$i value=1 $on>On\n";
-            print "<input type=radio name=$i value=0 $off>Off\n";
-            last SWITCH;
-        };
-        # DEFAULT
-        print "<font color=red><blink>Unknown param type $::param_type{$i}!!!</blink></font>\n";
-    }
-    print "</td></tr>\n";
-    print $rowbreak;
-}
-
-print "<tr><th align=right valign=top>version:</th><td>
-What version of Bonsai this is.  This can't be modified here, but
-<tt>%version%</tt> can be used as a parameter in places that understand
-such parameters</td></tr>
-<tr><td></td><td>" . Param('version') . "</td></tr>";
-
-print "</table>\n";
-
-print "<hr><B>Enter password to change parameters:</B>
-       <INPUT NAME=password TYPE=password> <BR>";
-print "<input type=reset value=\"Reset form\"><br>\n";
-print "<input type=submit value=\"Submit changes\">\n";
-
-print "</form>\n";
-
-print "<p><a href=toplevel.cgi>Skip all this, and go back to the main bonsai page</a>\n";

mozilla/webtools/bonsai/editwhiteboard.cgi

@@ -1,56 +0,0 @@
-#!/usr/bonsaitools/bin/perl -w
-# -*- Mode: perl; indent-tabs-mode: nil -*-
-#
-# The contents of this file are subject to the Netscape Public License
-# Version 1.0 (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 Bonsai CVS 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.
-
-use diagnostics;
-use strict;
-
-# Shut up misguided -w warnings about "used only once".  "use vars" just
-# doesn't work for me.
-
-sub sillyness {
-    my $zz;
-    $zz = $::TreeID;
-}
-
-require 'CGI.pl';
-
-print "Content-type: text/html\n\n";
-LoadWhiteboard();
-
-PutsHeader("Scritch, scritch.", "Edit Whiteboard");
-
-print "
-<FORM method=post action=\"doeditwhiteboard.cgi\">
-<INPUT TYPE=HIDDEN NAME=treeid VALUE=$::TreeID>
-<INPUT TYPE=HIDDEN NAME=origwhite VALUE=\"" . value_quote($::WhiteBoard) . "\">
-
-The free-for-all whiteboard is a fine place to put notes of general
-and temporary interest about the tree.  (Like, \"I'm checking in a bunch
-of nasty stuff; stay out of the tree until 3:30pm\".)
-
-<P>
-
-Change the free-for-all whiteboard:<br>
-<TEXTAREA NAME=whiteboard ROWS=10 COLS=70>$::WhiteBoard</TEXTAREA><BR>
-<INPUT TYPE=SUBMIT VALUE=\"Change the Whiteboard\">
-</FORM>
-";
-
-PutsTrailer();
-exit;

mozilla/webtools/bonsai/get_line.pl

@@ -1,60 +0,0 @@
-# -*- Mode: perl; indent-tabs-mode: nil -*-
-#
-# The contents of this file are subject to the Netscape Public License
-# Version 1.0 (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 Bonsai CVS 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.
-
-# Get a line, dealing with '\'.  Returns 'undef' when no more lines to return;
-# removes blank lines as it goes.
-# Allows spaces after a '\'.  This is naughty but will probably not matter
-# *too* much, and I'm not changing it now.
-sub get_line {
-    my($l, $save);
-    $l='';
-    $save='';
-
-    my $bContinue = 1;
-
-    while( $bContinue && ($l = <MOD>) ){
-        chop($l);
-        if( $l =~ /^[ \t]*\#/
-                || $l =~ /^[ \t]*$/ ){
-            $l='';              # Starts with a "#", or is only whitespace.
-        }
-        if( $l =~ /\\[ \t]*$/ ){
-            # Ends with a slash, so append it to the last line.
-            chop ($l);
-            $save .= $l . ' ';
-            $l='';
-        }
-        elsif( $l eq '' && $save eq ''){
-            # ignore blank lines
-        }
-        else {
-            $bContinue = 0;
-        }
-    }
-    if(!defined($l)) {
-        if($save ne '') {
-            return $save;
-        } else {
-            return $l;
-        }
-    } else {
-        return $save . $l;
-    }
-}
-
-1;

mozilla/webtools/bonsai/handleAdminMail.pl

@@ -1,49 +0,0 @@
-#!/usr/bonsaitools/bin/perl -w
-# -*- Mode: perl; indent-tabs-mode: nil -*-
-#
-# The contents of this file are subject to the Netscape Public License
-# Version 1.0 (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 Bonsai CVS 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.
-
-
-use strict;
-
-if (($#ARGV >= 0) && (-d $ARGV[0])) {
-     chdir($ARGV[0]);
-} else {
-    my $bonsaidir = $0;
-    $bonsaidir =~ s:/[^/]*$::;      # Remove last word, and slash before it.
-    if ($bonsaidir eq "") {
-        $bonsaidir = ".";
-    }
-    chdir($bonsaidir);
-}
-
-my $filename = "data/admin.$$";
-unlink($filename);
-
-die "Cannot Open data file: $!\n"
-     unless (open(FILE, "> $filename"));
-
-while (<STDIN>) {
-     print FILE $_;
-}
-close(FILE);
-chmod(0666, $filename);
-system("./adminmail.pl $filename");
-
-# unlink($filename);
-
-exit;

mozilla/webtools/bonsai/handleCheckinMail.pl

@@ -1,49 +0,0 @@
-#!/usr/bonsaitools/bin/perl -w
-# -*- Mode: perl; indent-tabs-mode: nil -*-
-#
-# The contents of this file are subject to the Netscape Public License
-# Version 1.0 (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 Bonsai CVS 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.
-
-
-use strict;
-
-if (($#ARGV >= 0) && (-d $ARGV[0])) {
-     chdir($ARGV[0]);
-} else {
-    my $bonsaidir = $0;
-    $bonsaidir =~ s:/[^/]*$::;      # Remove last word, and slash before it.
-    if ($bonsaidir eq "") {
-        $bonsaidir = ".";
-    }
-    chdir($bonsaidir);
-}
-
-my $filename = "data/temp.$$";
-unlink($filename);
-
-die "Cannot Open data file: $!\n"
-     unless (open(FILE, "> $filename"));
-
-while (<STDIN>) {
-     print FILE $_;
-}
-close(FILE);
-chmod(0666, $filename);
-system("./addcheckin.pl $filename");
-
-# unlink($filename);
-
-exit;

mozilla/webtools/bonsai/header.pl

@@ -1,61 +0,0 @@
-# -*- Mode: perl; indent-tabs-mode: nil -*-
-#
-# The contents of this file are subject to the Netscape Public License
-# Version 1.0 (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 Bonsai CVS 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.
-
-
-sub EmitHtmlTitleAndHeader {
-    my($doctitle,$heading,$subheading) = @_;
-    
-    print "<HTML><HEAD><TITLE>$doctitle</TITLE></HEAD>";
-    print "<BODY   BGCOLOR=\"#FFFFFF\" TEXT=\"#000000\"";
-    print "LINK=\"#0000EE\" VLINK=\"#551A8B\" ALINK=\"#FF0000\">";
-
-    if (open(BANNER, "<data/banner.html")) {
-        while (<BANNER>) { print; }
-        close BANNER;
-    } elsif (open(BANNER, "<../bonsai/data/banner.html")) {
-        while (<BANNER>) { print; }
-        close BANNER;
-    }
-
-    print "<TABLE BORDER=0 CELLPADDING=12 CELLSPACING=0 WIDTH=\"100%\">";
-    print " <TR>\n";
-    print "  <TD>\n";
-    print "   <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=2>\n";
-    print "    <TR><TD VALIGN=TOP ALIGN=CENTER NOWRAP>\n";
-    print "     <FONT SIZE=\"+3\"><B><NOBR>$heading</NOBR></B></FONT>\n";
-    print "    </TD></TR><TR><TD VALIGN=TOP ALIGN=CENTER>\n";
-    print "     <B>$subheading</B>\n";
-    print "    </TD></TR>\n";
-    print "   </TABLE>\n";
-    print "  </TD>\n";
-    print "  <TD>\n";
-
-    if (open(BLURB, "<data/blurb")) {
-        while (<BLURB>) { print; }
-        close BLURB;
-    }
-
-    print "</TD></TR></TABLE>\n";
-}
-
-sub EmitHtmlHeader {
-    my($heading,$subheading) = @_;
-    EmitHtmlTitleAndHeader($heading,$heading,$subheading);
-}
-
-1;

mozilla/webtools/bonsai/index.html

@@ -1,12 +0,0 @@
-<html>
-<head>
-<meta http-equiv="Refresh"
-  content="0; URL=cvsqueryform.cgi">
-</head>
-<body>
-Going to<br>
-<br>
-  <a href="cvsqueryform.cgi">cvsqueryform.cgi</a>
-<br>
-</body>
-</html>

mozilla/webtools/bonsai/indextest.pl

@@ -1,47 +0,0 @@
-# -*- Mode: perl; indent-tabs-mode: nil -*-
-#
-# The contents of this file are subject to the Netscape Public License
-# Version 1.0 (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 Bonsai CVS 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.
-
-use diagnostics;
-use strict;
-
-if( $ARGV[0] eq '' ){
-    $::CVS_ROOT = '/m/src';
-}
-else {
-    $::CVS_ROOT = $ARGV[0];
-}
-
-$CVS_REPOS_SUFIX = $::CVS_ROOT;
-$CVS_REPOS_SUFIX =~ s/\//_/g;
-
-my $CHECKIN_DATA_FILE = "data/checkinlog${CVS_REPOS_SUFIX}";
-my $CHECKIN_INDEX_FILE = "data/index${CVS_REPOS_SUFIX}";
-
-
-    open(INDEX , "<$CHECKIN_INDEX_FILE");
-    open(CI, "<$CHECKIN_DATA_FILE") || die "could not open checkin data file\n";
-
-    while( <INDEX> ){
-        chop;
-        ($o,$d) = split(/\|/);
-        seek(CI, $o, 0);
-        $line = <CI>;
-        ($j,$d1) = split(/\|/);
-        print "$d|$d1\n";
-    }
-

mozilla/webtools/bonsai/lloydcgi.pl

@@ -1,100 +0,0 @@
-# -*- Mode: perl; indent-tabs-mode: nil -*-
-#
-# The contents of this file are subject to the Netscape Public License
-# Version 1.0 (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 Bonsai CVS 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.
-
-%form = ();
-&split_cgi_args;
-1;
-
-sub split_cgi_args {
-    local (@args, $pair, $key, $value, $s);
-
-    if ($ENV{"REQUEST_METHOD"} eq 'POST') {
-        $s .= $_ while (<>);
-    }
-    else {
-        $s = $ENV{"QUERY_STRING"};
-    }
-
-    $s =~ tr/+/ /;
-    @args= split(/\&/, $s );
-
-    for $pair (@args) {
-        ($key, $value) = split(/=/, $pair);
-        $key   =~ s/%([a-fA-F0-9]{2})/pack("C", hex($1))/eg;
-        $value =~ s/%([a-fA-F0-9]{2})/pack("C", hex($1))/eg;
-        $form{$key} = $value;
-    }
-
-    # extract the cookies from the HTTP_COOKIE environment 
-    %cookie_jar = split('[;=] *',$ENV{'HTTP_COOKIE'});
-}
-
-sub make_cgi_args {
-    local($k,$v,$ret);
-    for $k (sort keys %form){
-        $ret .= ($ret eq "" ? '?' : '&');
-        $v = $form{$k};
-        $ret .= &url_encode2($k);
-        $ret .= '=';
-        $ret .= &url_encode2($v);
-    }
-    return $ret;
-}
-
-sub url_encode2 {
-    local( $s ) = @_;
-
-    $s =~ s/\%/\%25/g;
-    $s =~ s/\=/\%3d/g;
-    $s =~ s/\?/\%3f/g;
-    $s =~ s/ /\%20/g;
-    $s =~ s/\n/\%0a/g;
-    $s =~ s/\r//g;
-    $s =~ s/\"/\%22/g;
-    $s =~ s/\'/\%27/g;
-    $s =~ s/\|/\%7c/g;
-    $s =~ s/\&/\%26/g;
-    $s =~ s/\+/\%2b/g;
-    return $s;
-}
-
-sub url_encode3 {
-    local( $s ) = @_;
-
-    $s =~ s/\n/\%0a/g;
-    $s =~ s/\r//g;
-    $s =~ s/\"/\%22/g;
-    $s =~ s/\+/\%2b/g;
-    return $s;
-}
-
-
-@weekdays = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');
-@months = ('Jan','Feb','Mar','Apr','May','Jun',
-           'Jul','Aug','Sep','Oct','Nov','Dec');
-
-sub toGMTString {
-    local ($seconds) = $_[0];
-
-    local ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)
-        = gmtime($seconds);
-    $year += 1900;
-
-    sprintf('%s, %02d-%s-%d %02d:%02d:%02d GMT',
-            $weekdays[$wday],$mday,$months[$mon],$year,$hour,$min,$sec);
-}

mozilla/webtools/bonsai/maketables.sh

@@ -1,167 +0,0 @@
-#!/bin/sh
-#
-# The contents of this file are subject to the Netscape Public License
-# Version 1.0 (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 Bonsai CVS 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.
-
-USER=nobody
-PASSWORD=
-
-if test x$PASSWORD = x ; then
-  MYSQL="mysql -u $USER"
-else
-  MYSQL="mysql -u $USER -p $PASSWORD"
-fi
-
-echo
-echo "Will use user=\"$USER\" and password=\"$PASSWORD\" for bonsai database."
-echo "If you have a previous bonsai install, this script will drop all"
-echo "bonsai tables. Press ctrl-c to bail out now or return to continue."
-
-read dummy
-
-echo Dropping old tables
-
-$MYSQL << OK_ALL_DONE
-
-use bonsai;
-
-drop table descs;
-drop table checkins;
-drop table people;
-drop table repositories;
-drop table dirs;
-drop table files;
-drop table branches;
-drop table tags;
-OK_ALL_DONE
-
-echo creating new tables
-
-$MYSQL << OK_ALL_DONE
-use bonsai;
-create table descs (
-    id mediumint not null auto_increment primary key,
-    description text,
-    hash bigint not null,
-
-    index(hash)
-);
-
-show columns from descs;
-show index from descs;
-	
-create table people (
-    id mediumint not null auto_increment primary key,
-    who varchar(32) not null,
-
-    unique(who)
-);
-
-show columns from people;
-show index from people;
-	
-	
-create table repositories (
-    id mediumint not null auto_increment primary key,
-    repository varchar(64) not null,
-
-    unique(repository)
-);
-
-show columns from repositories;
-show index from repositories;
-
-
-
-create table dirs (
-    id mediumint not null auto_increment primary key,
-    dir varchar(128) not null,
-
-    unique(dir)
-);
-
-show columns from dirs;
-show index from dirs;
-
-
-create table files (
-    id mediumint not null auto_increment primary key,
-    file varchar(128) not null,
-
-    unique(file)
-);
-
-show columns from files;
-show index from files;
-
-	
-
-create table branches (
-    id mediumint not null auto_increment primary key,
-    branch varchar(64) not null,
-
-    unique(branch)
-);
-
-show columns from branches;
-show index from branches;
-
-	
-
-create table checkins (
-	type enum('Change', 'Add', 'Remove'),
-	ci_when datetime not null,
-	whoid mediumint not null,
-	repositoryid mediumint not null,
-	dirid mediumint not null,
-	fileid mediumint not null,
-	revision varchar(32) not null,
-	stickytag varchar(255) not null,
-	branchid mediumint not null,
-	addedlines int not null,
-	removedlines int not null,
-	descid mediumint,
-
-	unique (repositoryid,dirid,fileid,revision),
-	index(ci_when),
-	index(whoid),
-	index(repositoryid),
-	index(dirid),
-	index(fileid),
-	index(branchid)
-);
-
-show columns from checkins;
-show index from checkins;
-
-
-create table tags (
-	repositoryid mediumint not null,
-	branchid mediumint not null,
-	dirid mediumint not null,
-	fileid mediumint not null,
-	revision varchar(32) not null,
-
-	unique(repositoryid,dirid,fileid,branchid,revision),
-	index(repositoryid),
-	index(dirid),
-	index(fileid),
-	index(branchid)
-);
-	
-
-
-OK_ALL_DONE

mozilla/webtools/bonsai/moduleanalyse.cgi

@@ -1,142 +0,0 @@
-#!/usr/bonsaitools/bin/perl -w
-# -*- Mode: perl; indent-tabs-mode: nil -*-
-#
-# The contents of this file are subject to the Netscape Public License
-# Version 1.0 (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 Bonsai CVS 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.
-
-#
-# Unroll a module
-#
-
-use diagnostics;
-use strict;
-
-# Shut up misguided -w warnings about "used only once".  "use vars" just
-# doesn't work for me.
-
-sub sillyness {
-    my $zz;
-    $zz = $::TreeID;
-    $zz = $::TreeInfo;
-}
-
-require 'CGI.pl';
-
-$|=1;
-
-print "Content-type: text/html\n\n";
-
-my $CVS_ROOT = $::FORM{'cvsroot'};
-$CVS_ROOT = pickDefaultRepository() unless $CVS_ROOT;
-
-PutsHeader("CVS Module Analyzer", $CVS_ROOT);
-
-cvsmenu("align=right width=20%");
-
-print "
-<p><b>This tool will show you the directories and files that make up a given
-cvs module.</b>
-";
-
-
-print "
-<p>
-<FORM METHOD=GET ACTION='moduleanalyse.cgi'>
-";
-
-
-#
-# module selector
-#
-print "
-
-<nobr><b>Module:</b>
-<SELECT name='module' size=5>
-";
-
-my $Module = 'default';
-if( $::FORM{module} eq 'all' || $::FORM{module} eq '' ){
-    print "<OPTION SELECTED VALUE='all'>All Files in the Repository\n";
-}
-else {
-    print "<OPTION VALUE='all'>All Files in the Repository\n";
-    print "<OPTION SELECTED VALUE='$::FORM{module}'>$::FORM{module}\n";
-    $Module = $::FORM{module};
-}
-
-#
-# Print out all the Different Modules
-#
-$::TreeID = $Module if (exists($::TreeInfo{$Module}{'repository'}));
-LoadDirList();
-for my $k  (sort( grep(!/\*$/, @::LegalDirs) ) ){
-    print "<OPTION value='$k'>$k\n" if ($k ne $Module);
-}
-
-print "</SELECT></NOBR>\n";
-
-
-print "
-<br>
-<br>
-<INPUT TYPE=HIDDEN NAME=cvsroot VALUE='$CVS_ROOT'>
-<INPUT TYPE=SUBMIT VALUE='Examine Module'>
-</FORM>";
-
-
-if( $::FORM{module} ne ''  ){
-    my $mod = $::FORM{module};
-    print "<h1>Examining Module '$mod'</h1>\n\n";
-
-    for my $i (sort( grep(!/\*$/, @::LegalDirs) ) ){
-        if( -d "$CVS_ROOT/$i"){
-            print "<dt><tt>Dir:&nbsp;&nbsp;&nbsp;</tt>";
-            print "<a href=rview.cgi?dir=$i&cvsroot=$CVS_ROOT>$i</a>";
-        }
-        elsif ( -r "$CVS_ROOT/$i,v" ){
-            print "<dt><font color=blue><tt>File:&nbsp;&nbsp;</tt></font>";
-            print "<a href=cvsblame.cgi?file=$i&root=$CVS_ROOT>$i</a>";
-        }
-        else {
-            print "<dt><font color=red><tt>Error: </tt></font>";
-            print "$i : Not a file or a directory.";
-        }
-
-#          if( $mod_map->{$i} == $IS_LOCAL ){
-#              print "<font color=blue><tt> LOCAL</tt></font>";
-#          }
-        print "\n";
-    }
-}
-
-
-sub sortTest {
-    if( $_[0] eq $::FORM{sortby} ){
-        return " SELECTED";
-    }
-    else {
-        return "";
-    }
-}
-
-sub dateTest {
-    if( $_[0] eq $::FORM{date} ){
-        return " CHECKED value=$_[0]";
-    }
-    else {
-        return "value=$_[0]";
-    }
-}

mozilla/webtools/bonsai/modules.pl

@@ -1,149 +0,0 @@
-# -*- Mode: perl; indent-tabs-mode: nil -*-
-#
-# The contents of this file are subject to the Netscape Public License
-# Version 1.0 (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 Bonsai CVS 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.
-
-use diagnostics;
-use strict;
-
-require 'get_line.pl';
-
-my $NOT_LOCAL = 1;
-my $IS_LOCAL = 2;
-
-$::modules = {};
-
-if( $::CVS_ROOT eq "" ){
-    $::CVS_ROOT = pickDefaultRepository();
-}
-
-my $CVS_MODULES;
-
-if( defined($ENV{"OS"}) && $ENV{"OS"} eq "Windows_NT" ){
-    $CVS_MODULES='modules';
-}
-else {
-    $CVS_MODULES="$::CVS_ROOT/CVSROOT/modules";
-}
-
-open( MOD, "<$CVS_MODULES") || die "can't open $CVS_MODULES";
-&parse_modules;
-close( MOD );
-
-1;
-
-sub in_module {
-    my($mod_map, $dirname, $filename ) = @_;
-    my( @path );
-    my( $i, $fp, $local );
-
-    #
-    #quick check if it is already in there.
-    #
-    if( $mod_map->{$dirname} ){
-        return 1;
-    }
-
-
-    @path = split(/\//, $dirname);
-
-    $fp = '';
-
-    for( $i = 0; $i < @path; $i++){
-
-        $fp .= ($fp ne '' ? '/' : '') . $path[$i];
-
-        if( $local = $mod_map->{$fp} ){
-            if( $local == $IS_LOCAL ){
-                if( $i == (@path-1) ){
-                    return 1;
-                }
-            }
-            else {
-                # Add directories to the map as we encounter them so we go
-                #  faster
-                if( $mod_map->{$dirname} == 0 ){
-                    $mod_map->{$dirname} = $IS_LOCAL;
-                }
-                return 1;
-            }
-        }
-    }
-    if( $mod_map->{ $fp . '/' .  $filename} ) {
-        return 1;
-    }
-    else {
-        return 0;
-    }
-}
-
-
-sub get_module_map {
-    my($name) = @_;
-    my($mod_map);
-    $mod_map = {};
-    &build_map( $name, $mod_map );
-    return $mod_map;
-}
-
-sub parse_modules {
-    my @finaloptions=();
-    my $l;
-    while( $l = &get_line ){
-        @finaloptions=();
-
-        my ($mod_name, $flag, @params) = split(/[ \t]+/,$l);
-        while ( $flag =~ /^-.$/){
-            if( $flag eq '-a' ){
-                $flag="";
-                last;
-            }
-            if ( $flag eq '-l' ){ # then keep it
-                push @finaloptions, ($flag, shift @params);
-                $flag= @params ? shift @params : "";
-                next;
-            }
-            if( $flag =~ /^-.$/ ){ 
-                shift @params; # skip parameter's argument 
-                $flag= @params ? shift @params : "";
-                next;
-            }
-            last; # No options found...
-        }
-        unshift @params, $flag if ( $flag ne "" );
-        $::modules->{$mod_name} = [(@finaloptions,@params)];
-    }
-}
-
-sub build_map {
-    my ($name,$mod_map) = @_;
-    my ($bFound, $local);
-
-    $local = $NOT_LOCAL;
-    $bFound = 0;
-
-#    printf "looking for $name in %s<br>\n",join(",", @{$::modules->{$name}});
-    for my $i ( @{$::modules->{$name}} ){
-        $bFound = 1;
-        if( $i eq '-l' ){
-            $local = $IS_LOCAL;
-        } 
-        elsif( ($i eq $name) || !build_map($i, $mod_map )){
-            $mod_map->{$i} = $local;   
-        }
-    }
-    return $bFound;
-}

mozilla/webtools/bonsai/multidiff.cgi

@@ -1,142 +0,0 @@
-#!/usr/bonsaitools/bin/perl -w
-# -*- Mode: perl; indent-tabs-mode: nil -*-
-#
-# The contents of this file are subject to the Netscape Public License
-# Version 1.0 (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 Bonsai CVS 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.
-
-
-#
-# Multi file diff cgi
-#
-
-use diagnostics;
-use strict;
-
-require 'globals.pl';
-
-$|=1;
-
-my %form;
-
-print "Content-type: text/html
-
-<PRE><FONT FACE='Lucida Console'>
-";
-
-my @revs = ();
-
-#if( $ENV{"QUERY_STRING"} eq "" ){
-#    $ENV{"QUERY_STRING"}="brendan%2Cns%2Fjs%2Fsrc%2Cjsapi.c%2C-1=on&brendan%2Cns%2Fjs%2Fsrc%2Cjsapi.h%2C-1=on&brendan%2Cns%2Fjs%2Fsrc%2Cjsarray.c%2C-106=on&brendan%2Cns%2Fjs%2Fsrc%2Cjsarray.h%2C-0=on&brendan%2Cns%2Fjs%2Fsrc%2Cjsatom.c%2C-9=on";
-#}
-
-&split_cgi_args;
-
-#while( ($k,$v) = each(%ENV) ){
-#    print "$k='$v'\n";
-#}
-
-my $cvsroot;
-if( $form{"cvsroot"} ){
-    $cvsroot = $form{"cvsroot"};
-}
-else {
-    $cvsroot = pickDefaultRepository();
-}
-
-if( $form{"allchanges"} ){
-    @revs = split(/,/, $form{"allchanges"} );
-}
-else {
-    while( my ($k, $v) = each( %form ) ){
-        push( @revs, $k );
-    }
-}
-
-my $didone = 0;
-
-my $rcsdiffcommand = Param('rcsdiffcommand');
-for my $k (@revs) {
-    my ($who,$dir,$file,$rev) = split(/\|/, $k );
-    if ($rev eq "") {
-        next;
-    }
-    my $prevrev = &PrevRev($rev);
-    
-    # this doesn't handle files in the attic
-    my $fullname = "$cvsroot/$dir/$file,v";
-    if (IsHidden($fullname)) {
-        next;
-    }
-    open( DIFF, "$rcsdiffcommand -c -r$prevrev -r$rev $fullname 2>&1|" );
-    while(<DIFF>){
-        $_ =~ s/&/&amp;/g;
-        $_ =~ s/</&lt;/g;
-        $_ =~ s/>/&gt;/g;
-        print "$who:  $_";
-    }
-    $didone = 1;
-}
-
-if ($didone == 0) {
-    print "No changes were selected.  Please press <b>Back</b> and try again.\n";
-}
-
-
-
-sub split_cgi_args {
-    my ($i,$var,$value, $s);
-
-    if( $ENV{"REQUEST_METHOD"} eq 'POST'){
-        while(<> ){
-            $s .= $_;
-        }
-    }
-    else {
-        $s = $ENV{"QUERY_STRING"};
-    }
-
-    my @args= split(/\&/, $s );
-
-    for my $i (@args) {
-        my ($var, $value) = split(/=/, $i);
-        $var =~ tr/+/ /;
-        $var =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
-        $value =~ tr/+/ /;
-        $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
-        $form{$var} = $value;
-    }
-}
-
-sub PrevRev {
-    my( $rev ) = @_;
-    my( $i, $j, $ret, @r );
-
-    @r = split( /\./, $rev );
-
-    $i = @r-1;
-    
-    $r[$i]--;
-    if( $r[$i] == 0 ){
-        $i -= 2;
-    }
-
-    $j = 0;
-    while( $j < $i ){
-        $ret .= "$r[$j]\.";
-        $j++
-    }
-    $ret .= $r[$i];
-}

mozilla/webtools/bonsai/openmessage

@@ -1,35 +0,0 @@
-From: bonsai-daemon
-To: %name%
-Subject: [Bonsai] You're on the hook now!
-Mime-Version: 1.0
-Content-Type: text/html
-
-<HTML>
-
-<H1>You are responsible to make sure the build works.</H1>
-
-You just checked into <tt>%dir%</tt> the files <tt>%files%</tt>.  At
-about <tt>%nextclose%</tt>, the tree will be frozen.  From about
-an hour later on, you are to be available for the build team to pester
-in case of any problems.
-
-<P>
-
-Any further checkins you make before the tree closes will <i>not</i>
-cause you to receive more copies of this mail, but you'll be held
-responsible for them too.
-
-<P>
-
-For more info on the current state of the tree, see the 
-<a href=http://warp/bonsai/toplevel.cgi>Bonsai main page</a>.
-
-<P>
-
-Your contact info and other vital data is listed below.  Please 
-<a href=http://warp/bonsai/profile.cgi?person=%name%>update</a> 
-this info <b>immediately</b> if it is at all inaccurate or incorrect.
-
-<hr>
-
-%profile%

mozilla/webtools/bonsai/params.in

@@ -1,5 +0,0 @@
-$::param{'cocommand'} = '_CO_';
-$::param{'cvscommand'} = '_CVS_';
-$::param{'rcsdiffcommand'} = '_RCSDIFF_';
-$::param{'rlogcommand'} = '_RLOG_';
-1;

mozilla/webtools/bonsai/processqueue.pl

@@ -1,35 +0,0 @@
-#!/usr/bonsaitools/bin/perl --
-# -*- Mode: perl; indent-tabs-mode: nil -*-
-#
-# The contents of this file are subject to the Netscape Public License
-# Version 1.0 (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 Bonsai CVS 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.
-
-# This takes a bunch of files that have been put into the 'bonsai
-# queue' (the 'queue' subdirectory) and processes them as checkins.
-# This is to work around worlds where we can't send mail from inside
-# the CVS loginfo file.
-#
-# Each file is expected to have the CVSROOT in the first line, any args in the 
-# second line (currently unused), and the data fed to loginfo as the remaining
-# lines.
-
-$inprocess = "data/queue/processing-$$";
-
-foreach $file (sort(glob("data/queue/*.q"))) {
-    rename $file, $inprocess || die "Couldn't rename queue file.";
-    system "./dolog.pl < $inprocess";
-    rename $inprocess, "$file.done";
-}

mozilla/webtools/bonsai/rebuildcvshistory.cgi

@@ -1,272 +0,0 @@
-#!/usr/bonsaitools/bin/perl -w
-#
-# The contents of this file are subject to the Netscape Public License
-# Version 1.0 (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 Bonsai CVS 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.
-
-use diagnostics;
-use strict;
-
-# Shut up misguided -w warnings about "used only once".  "use vars" just
-# doesn't work for me.
-
-sub sillyness {
-    my $zz;
-    $zz = $::RepositoryID;
-    $zz = $::StartingDir;
-}
-
-use File::Basename;
-
-require "CGI.pl";
-
-sub ProcessOneFile {
-     my ($filename) = @_;
-     my $rlog = Param('rlogcommand') . " $filename |";
-     my $doingtags = 0;
-     my $filehead = dirname($filename);
-     my (%branchname, $filerealname, $filetail, $line, $trimmed);
-     my ($tag, $version, $branchid, $dirid, $fileid, $indesc, $desc);
-     my ($author, $revision, $datestr, $date, $pluscount, $minuscount);
-     my ($branch);
-
-     print "$filename\n";
-
-     die "Unable to run rlog command '$rlog': $!\n" 
-          unless (open(RLOG_PROC, "$rlog"));
-     undef (%branchname);
-
-     ($filerealname = $filename) =~ s/,v$//g;
-     $filehead =~ s!^$::Repository/*!!;
-     $filehead = '.'
-          unless ($filehead);
-     $filetail = basename($filerealname);
-
-     while (<RLOG_PROC>) {
-          chop;
-          $line = $_;
-          $trimmed = trim($line);
-
-          if ($doingtags) {
-               if ($line !~ /^\t/) {
-                    $doingtags = 0;
-               } else {
-                    $trimmed =~ /^([^:]*):([^:]*)/;
-                    $tag = trim($1);
-                    $version = trim($2);
-
-                    next
-                         unless (length($tag) && length($version));
-
-                    $branchid = GetId('branches', 'branch', $tag);
-                    $dirid    = GetId('dirs', 'dir', $filehead);
-                    $fileid   = GetId('files', 'file', $filetail);
-#
-# Don't touch the tags database for now.  Nothing uses it, and it just takes
-# up too much damn space.
-#
-#                SendSQL "replace into tags (branchid, repositoryid,
-#                dirid, fileid, revision) values ($branchid,
-#                $repositoryid, $dirid, $fileid, '$version')"
-#
-
-                    # Aha!  Second-to-last being a zero is CVS's special way
-                    # of remembering a branch tag.
-                    $version =~ /(.*)\.(\d+)(\.\d+)$/;
-                    $branchname{"$1$3"} = $tag
-                         if ($2 eq '0');
-                    next;
-               }
-          }
-
-          if ($line =~ /^symbolic names/) {
-               $doingtags = 1;
-               next;
-          } elsif ($line =~ /^revision ([0-9.]*)$/) {
-               $pluscount = ($minuscount = ($date = ($indesc = 0)));
-               $desc = ($branch = ($author = ($datestr = ($revision = ''))));
-
-               while (1) {
-                    # Dealing with descriptions in rlog output for a
-                    # revision...
-                    if ($indesc) {
-                         if (($line =~ /^-{27,30}$/) ||
-                             ($line =~ /^={75,80}$/)) {
-                              # OK, we're done.  Write it out.
-                              if ($author && $datestr && $revision) {
-                                   $datestr =~ s!^(\d+)/(\d+/\d+)!$2/$1!;
-                                   $date = str2time($datestr, "GMT");
-                                   if ($date >= $::StartFrom) {
-                                        AddToDatabase("C|$date|$author|$::Repository|$filehead|$filetail|$revision||$branch|+$pluscount|-$minuscount", $desc);
-                                   }
-                              }
-                              $indesc = 0;
-                         } else {
-                              $desc .= $line . "\n";
-                         }
-                    }
-
-                    # Dealing with revision information for a specific
-                    # revision...
-                    else {
-                         if ($line =~ /^revision ([0-9.]*)$/) {
-                              $pluscount = ($minuscount = 0);
-                              $date = ($indesc = 0);
-                              $datestr = ($desc = ($branch = ($author = "")));
-                              $revision = $1;
-
-                              $revision =~ /(.*)\.\d*$/;
-                              $branch = $branchname{$1}
-                                   if (exists($branchname{$1}));
-                         }
-
-                         elsif ($line =~ /^date:/) {
-                              $line =~ s!^date: ([0-9 /:]*);\s+!!;
-                              $datestr = $1;
-
-                              $line =~ s!^author: ([^;]*);\s+!!;
-                              $author = $1;
-
-                              if ($line =~ /lines: \+(\d+) -(\d+)/) {
-                                   $pluscount = $1;
-                                   $minuscount = $2;
-                              }
-                         }
-
-                         elsif ($line =~ /^branches: [0-9 .;]*$/) {
-                              # Ignore these lines; make sure they don't
-                              # become part of the desciption.
-                         }
-
-                         else {
-                              $indesc = 1;
-                              $desc = "$line\n";
-                         }
-                    }
-
-		    $line = <RLOG_PROC>;
-		    if (!defined $line) {
-			last;
-		    }
-                    chop($line);
-               }
-          }
-     }
-
-     close(RLOG_PROC);
-}
-
-
-sub ProcessDirectory {
-     my ($dir) = @_;
-     my ($file, @files);
-
-     die "$dir: not a directory" unless (-d $dir);
-     die "$dir: Couldn't open for reading: $!"
-          unless (opendir(DIR, $dir));
-     @files = readdir(DIR);
-     closedir (DIR);
-
-     foreach $file (@files) {
-          next if $file eq '.';
-          next if $file eq '..';
-
-          $file = "$dir/$file";
-          if (-d $file) {
-               &ProcessDirectory($file);
-          } else {
-               next unless ($file =~ /,v$/);
-
-               if ($::FirstFile && ($::FirstFile ne $file)) {
-                    print "Skipping $file...\n";
-                    next;
-               }
-               $::FirstFile = 0;
-               ProcessOneFile($file);
-          }
-     }
-}
-
-
-$| = 1;
-
-if ($#ARGV == 4) {
-     $::TreeID                   = $ARGV[0];
-     $::FORM{'startfrom'}        = $ARGV[1];
-     $::FORM{'firstfile'}        = $ARGV[2];
-     $::FORM{'subdir'}           = $ARGV[3];
-     $::FORM{'modules'}          = $ARGV[4];
-} else {
-     print "Content-type: text/html
-
-<HTML>";
-     CheckPassword(FormData('password'));
-     print "
-<title>Rebuilding CVS history database... please be patient...</title>
-<body>
-<pre>\n";
-}
-
-$::StartFrom   = ParseTimeAndCheck(FormData('startfrom'));
-$::FirstFile   = trim(FormData('firstfile'));
-$::SubDir      = trim(FormData('subdir'));
-$::Modules     = '';
-
-if (defined($::FORM{'modules'})) {
-     $::Modules = trim(FormData('modules'));
-}
-
-Lock();
-LoadTreeConfig();
-Unlock();
-
-ConnectToDatabase();
-
-$::Repository    = $::TreeInfo{$::TreeID}{'repository'};
-$::Description   = $::TreeInfo{$::TreeID}{'description'};
-$::RepositoryID  = GetId('repositories', 'repository', $::Repository);
-$::StartingDir   = 0;
-
-print "
-Rebuilding entire checkin history in $::Description, (`$::TreeID' tree) ...
-";
-
-Log("Rebuilding cvs history in $::Description, (`$::TreeID' tree)...");
-
-LoadDirList();
-my @Dirs = grep(!/\*$/, @::LegalDirs);
-@Dirs = split(/,\s*/, $::Modules) if $::Modules;
-my $StartingDir;
-($StartingDir = "$::Repository/$::SubDir") =~ s!/.?$!! if $::SubDir;
-
-
-print "Doing directories: @Dirs ...\n";
-foreach my $Dir (@Dirs) {
-     my $dir = "$::Repository/$Dir";
-
-     unless (grep $Dir, @::LegalDirs) {
-          print "$Dir: is invalid, skipping...\n";
-     }
-
-     if (-f $dir) {
-          ProcessOneFile($dir);
-     } elsif (-d $dir) {
-          ProcessDirectory($dir);
-     } else {
-          print "$Dir: not a file or directory, skipping...\n";
-     }
-}
-
-exit 0;

mozilla/webtools/bonsai/repophook.cgi

@@ -1,134 +0,0 @@
-#!/usr/bonsaitools/bin/perl -w
-# -*- Mode: perl; indent-tabs-mode: nil -*-
-#
-# The contents of this file are subject to the Netscape Public License
-# Version 1.0 (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 Bonsai CVS 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.
-
-require 'CGI.pl';
-
-use diagnostics;
-use strict;
-
-print "Content-type: text/html
-
-<HTML>";
-
-CheckPassword($::FORM{'password'});
-
-my $startfrom = ParseTimeAndCheck(FormData('startfrom'));
-
-Lock();
-LoadTreeConfig();
-LoadCheckins();
-@::CheckInList = ();
-WriteCheckins();
-Unlock();
-
-
-$| = 1;
-
-print "<TITLE> Rebooting, please wait...</TITLE>
-
-<H1>Recreating the hook</H1>
-
-<h3>$::TreeInfo{$::TreeID}->{'description'}</h3>
-
-<p>
-Searching for first checkin after " . MyFmtClock($startfrom) . "...<p>\n";
-
-
-my $mungedname = $::TreeInfo{$::TreeID}->{'repository'};
-$mungedname =~ s@/@_@g;
-$mungedname =~ s/^_//;
-
-my $filename = "data/checkinlog/$mungedname";
-
-open(FID, "<$filename") || die "Can't open $filename";
-
-my $foundfirst = 0;
-
-my $buffer = "";
-
-
-my $tempfile = "data/repophook.$$";
-
-my $count = 0;
-my $lastdate = 0;
-
-sub FlushBuffer {
-    if (!$foundfirst || $buffer eq "") {
-        return;
-    }
-    open(TMP, ">$tempfile") || die "Can't open $tempfile";
-    print TMP "junkline\n\n$buffer\n";
-    close(TMP);
-    system("./addcheckin.pl -treeid $::TreeID $tempfile");
-#    unlink($tempfile);
-    $buffer = "";
-    $count++;
-    if ($count % 100 == 0) {
-        print "$count scrutinized...<br>\n";
-    }
-}
-
-my $now = time();
-
-while (<FID>) {
-    chomp();
-    my $line = $_;
-    if ($line =~ /^.\|/) {
-        my ($chtype, $date) = (split(/\|/, $line));
-        if ($date < $lastdate) {
-            print "Ick; dates out of order!<br>\n";
-            print "<pre>" . value_quote($line) . "</pre><p>\n";
-        }
-        $lastdate = $date;
-        if ($foundfirst) {
-            $buffer .= "$line\n";
-        } else {
-            if ($date >= $startfrom) {
-                if ($date >= $now) {
-                    print "Found a future date! (ignoring):<br>\n";
-                    print "<pre>" . value_quote($line) . "</pre><p>\n";
-                } else {
-                    $foundfirst = 1;
-                    print "Found first line: <br>\n";
-                    print "<pre>" . value_quote($line) . "</pre><p>\n";
-                    print "OK, now processing checkins...<p>";
-                    $buffer = "$line\n";
-                    $count = 0;
-                }
-            } else {
-                $count++;
-                if ($count % 2000 == 0) {
-                    print "Skipped $count lines...<p>\n";
-                }
-            }
-        }
-    } elsif ($line =~ /^:ENDLOGCOMMENT$/) {
-        $buffer .= "$line\n";
-        FlushBuffer();
-    } else {
-        $buffer .= "$line\n";
-    }
-}
-
-FlushBuffer();
-        
-                
-print "OK, done. \n";
-
-PutsTrailer();

mozilla/webtools/bonsai/reposfiles.pl

@@ -1,61 +0,0 @@
-#!/usr/bonsaitools/bin/perl --
-# -*- Mode: perl; indent-tabs-mode: nil -*-
-#
-# The contents of this file are subject to the Netscape Public License
-# Version 1.0 (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 Bonsai CVS 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.
-
-
-use diagnostics;
-use strict;
-
-if( $ARGV[0] eq '' ){
-    $::CVS_ROOT = '/m/src';
-}
-else {
-    $::CVS_ROOT = $ARGV[0];
-}
-
-$CVS_REPOS_SUFIX = $::CVS_ROOT;
-$CVS_REPOS_SUFIX =~ s/\//_/g;
-    
-
-$FILE_LIST = "/d/webdocs/projects/bonsai/data/reposfiles${CVS_REPOS_SUFIX}";
-
-open FL, ">$FILE_LIST";
-
-GoDir($::CVS_ROOT);
-
-sub GoDir {
-    local($dir) = @_;
-    local(@dirs, $i);
-
-    chdir "$dir";
-
-    while(<*> ){
-        if( $_ ne '.' && $_ ne '..' ){
-            if( -d $_ ) {
-                push @dirs, $_;
-            }
-            else {
-                print FL "$dir/$_\n";
-            }
-        }
-    }
-
-    for $i (@dirs) {
-        GoDir( "$dir/$i");
-    }
-}

mozilla/webtools/bonsai/rview.cgi

@@ -1,274 +0,0 @@
-#!/usr/bonsaitools/bin/perl -w
-# -*- Mode: perl; indent-tabs-mode: nil -*-
-#
-# The contents of this file are subject to the Netscape Public License
-# Version 1.0 (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 Bonsai CVS 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.
-
-
-#
-# Query the CVS database.
-#
-
-use diagnostics;
-use strict;
-
-# Shut up misguided -w warnings about "used only once".  "use vars" just
-# doesn't work for me.
-
-sub sillyness {
-    my $zz;
-    $zz = $::Setup_String;
-}
-
-require 'CGI.pl';
-
-$|=1;
-
-my $CVS_ROOT = $::FORM{"cvsroot"};
-$CVS_ROOT = pickDefaultRepository() unless $CVS_ROOT;
-
-LoadTreeConfig();
-$::TreeID = $::FORM{'module'} 
-     if (!exists($::FORM{'treeid'}) &&
-         exists($::FORM{'module'}) &&
-         exists($::TreeInfo{$::FORM{'module'}}{'repository'}));
-$::TreeID = 'default'
-     if (!exists($::TreeInfo{$::TreeID}{'repository'}) ||
-         exists($::TreeInfo{$::TreeID}{'nobonsai'}));
-
-
-# get dir, remove leading and trailing slashes
-
-my $dir = $::FORM{"dir"};
-$dir = "" unless defined $dir;
-$dir =~ s/^\/([^:]*)/$1/;
-$dir =~ s/([^:]*)\/$/$1/;
-
-my $rev = $::FORM{"rev"};
-
-if(!defined($rev)) {
-    $rev='';
-}
-
-print "Content-type: text/html\n\n";
-
-
-my $script_str;
-
-&setup_script;
-$::Setup_String = $script_str;
-
-
-if( $CVS_ROOT eq ""  ){
-    $CVS_ROOT = pickDefaultRepository();
-}
-
-validateRepository($CVS_ROOT);
-
-my $s = "";
-
-if ($rev) {
-    $s = "for branch <i>$rev</i>";
-}
-
-CheckHidden("$CVS_ROOT/$dir");
-
-my $revstr = '';
-$revstr = "&rev=$rev" unless $rev eq '';
-my $rootstr = '';
-$rootstr .= "&cvsroot=$::FORM{'cvsroot'}" if defined $::FORM{'cvsroot'};
-$rootstr .= "&module=$::TreeID";
-my $module = $::TreeInfo{$::TreeID}{'module'};
-
-my $toplevel = Param('toplevel');
-
-my $output = "<DIV ALIGN=LEFT>";
-$output .= "<A HREF='toplevel.cgi" . BatchIdPart('?') . "'>$toplevel</a>/ ";
-
-my ($dir_head, $dir_tail) = $dir =~ m@(.*/)?(.+)@;
-$dir_head = "" unless defined $dir_head;
-$dir_tail = "" unless defined $dir_tail;
-my $link_path = "";
-foreach my $path (split('/',$dir_head)) {
-    $link_path .= $path;
-    $output .= "<A HREF='rview.cgi?dir=$link_path$rootstr$revstr'>$path</A>/ ";
-    $link_path .= '/';
-}
-chop ($output);
-$output .= " $dir_tail/ $s ";
-$output .= "</DIV>";
-
-PutsHeader("Repository Directory $toplevel/$dir $s", $output);
-
-cvsmenu("align=right width=30%");
-
-my $other_dir;
-
-($other_dir = $dir) =~ s!^$module/?!!;
-my $other_dir_used = 1;
-
-LoadDirList();
-if (-d "$CVS_ROOT/$dir") {
-     chdir "$CVS_ROOT/$dir";
-     $other_dir_used = 0;
-} elsif (-d "$CVS_ROOT/$other_dir") {
-     chdir "$CVS_ROOT/$other_dir";
-} else {
-     chdir "$CVS_ROOT";
-}
-
-print "
-<TABLE CELLPADDING=0 CELLSPACING=0>
-<FORM action=rview.cgi method=get><TR><TD>
-Goto Directory:
-</TD><TD><INPUT name=dir value='$dir' size=30>
-<INPUT name=rev value='$rev' type=hidden>
-<INPUT name=module value='$::TreeID' type=hidden>
-<INPUT name=cvsroot value='$CVS_ROOT' type=hidden>
-<INPUT type=submit value='chdir'>
-</TD></TR></FORM>
-<FORM action=rview.cgi method=get><TR><TD>
-Branch:
-</TD><TD><INPUT name=rev value='$rev' size=30>
-<INPUT name=dir value='$dir' type=hidden>
-<INPUT name=module value='$::TreeID' type=hidden>
-<INPUT name=cvsroot value='$CVS_ROOT' type=hidden>
-<INPUT type=submit value='Set Branch'>
-</TR></FORM>
-</TABLE>
-
-";
-
-my @dirs = ();
-
-
-DIR:
-while( <*> ){
-    if( -d $_ ){
-        push @dirs, $_;
-    }
-}
-
-
-
-my $j;
-my $split;
-
-if( @dirs != 0 ){
-    $j = 1;
-    $split = int(@dirs/4)+1;
-    print "<P><FONT SIZE=+1><B>Directories:</B></FONT><table><TR VALIGN=TOP><td>";
-
-
-    for my $i (@dirs){
-        $::FORM{"dir"} = ($dir ne "" ? "$dir/$i" : $i);
-        my $anchor = &make_cgi_args;
-        print "<dt><a href=rview.cgi${anchor}>$i</a>\n";
-        if( $j % $split == 0 ){
-            print "\n<td>\n";
-        }
-        $j++;
-    }
-    $::FORM{"dir"} = $dir;
-    print "\n</tr></table>\n";
-}
-
-
-print "<P><FONT SIZE=+1><B>Files:</B></FONT>";
-print "<table><TR VALIGN=TOP><td>";
-my @files = <*,v>;
-$j = 1;
-$split = int(@files/4)+1;
-
-for $_ (@files){
-    $_ =~ s/\,v//;
-    print "<a href=../registry/file.cgi?cvsroot=$CVS_ROOT&file=$_&dir=$dir"
-          . " onclick=\"return js_file_menu('$dir','$_','$rev','$CVS_ROOT',event)\">\n";
-    print "<dt>$_</a>\n";
-    if( $j % $split == 0 ){
-        print "\n<td>\n";
-    }
-    $j++;
-}
-print "\n</tr></table>\n";
-
-PutsTrailer();
-
-
-sub setup_script {
-
-$script_str =<<'ENDJS';
-<script>
-
-var event = new Object;
-
-function js_who_menu(n,extra,d) {
-    if( parseInt(navigator.appVersion) < 4 ||
-        navigator.userAgent.toLowerCase().indexOf("msie") != -1 ){
-        return true;
-    }
-    l = document.layers['popup'];
-    l.src="../registry/who.cgi?email="+n+extra;
-
-    if(d.target.y > window.innerHeight + window.pageYOffset - l.clip.height) { 
-         l.top = (window.innerHeight + window.pageYOffset - l.clip.height);
-    } else {
-         l.top = d.target.y - 6;
-    }
-
-    l.left = d.target.x - 6;
-
-    if( l.left + l.clipWidth > window.width ){
-        l.left = window.width - l.clipWidth;
-    }
-    l.visibility="show";
-    return false;
-}
-
-function js_file_menu(dir,file,rev,root,d) {
-    if( parseInt(navigator.appVersion) < 4 ||
-        navigator.userAgent.toLowerCase().indexOf("msie") != -1 ){
-        return true;
-    }
-    l = document.layers['popup'];
-    l.src="../registry/file.cgi?file="+file+"&dir="+dir+"&rev="+rev+"&cvsroot="+root+"&linked_text="+d.target.text;
-    
-    if(d.target.y > window.innerHeight + window.pageYOffset - l.clip.height) { 
-         l.top = (window.innerHeight + window.pageYOffset - l.clip.height);
-    } else {
-         l.top = d.target.y - 6;
-    }
-
-    l.left = d.target.x - 6;
-
-    if( l.left + l.clipWidth > window.width ){
-        l.left = window.width - l.clipWidth;
-    }
-
-    l.visibility="show";
-    return false;
-}
-
-
-</script>
-
-<layer name="popup"  onMouseOut="this.visibility='hide';" left=0 top=0 bgcolor="#ffffff" visibility="hide">
-</layer>
-
-ENDJS
-
-}
-

mozilla/webtools/bonsai/showcheckins.cgi

@@ -1,306 +0,0 @@
-#!/usr/bonsaitools/bin/perl -w
-# -*- Mode: perl; indent-tabs-mode: nil -*-
-#
-# The contents of this file are subject to the Netscape Public License
-# Version 1.0 (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 Bonsai CVS 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.
-
-use diagnostics;
-use strict;
-
-require 'CGI.pl';
-use vars qw(@TreeList);
-
-print "Content-type: text/html\n\n";
-
-Lock();
-LoadCheckins();
-LoadTreeConfig();
-Unlock();
-
-my %peoplearray = ();
-my @list = ();
-my $versioninfo = '';
-my $tweak = $::FORM{'tweak'};
-my $delta_size = 1;
-my ($title, $head, $subhead) = ('', '', '');
-my ($checkin, $info);
-
-sub BreakBig {
-     my ($str) = @_;
-     my $result = '';
-
-     while (length($str) > 20) {
-          my $head = substr($str, 0, 19);
-          my $w = rindex($head, "/");
-
-          $w = 19 if ($w < 0);
-          $result .= substr($str, 0, $w++) . "<br>";
-          $str = substr($str, $w);
-     }
-     return $result . $str;
-}
-
-
-if (exists($::FORM{'person'})) {
-     $title = $head = "Checkins for $::FORM{'person'}";
-
-     foreach $checkin (@::CheckInList) {
-          $info = eval("\\\%$checkin");
-          push @list, $checkin
-               if ($$info{'person'} eq $::FORM{'person'});
-     }
-} elsif (exists($::FORM{'mindate'}) || exists($::FORM{'maxdate'})) {
-     my ($min, $max) = (0, 1<<30);
-
-     $title = "Checkins";
-     if (exists($::FORM{'mindate'})) {
-          $title .= " since " . MyFmtClock($min = $::FORM{'mindate'});
-          $title .= " and" if (exists($::FORM{'maxdate'}));
-     }
-     $title .= " before" . MyFmtClock($max = $::FORM{'maxdate'})
-          if (exists($::FORM{'maxdate'}));
-     $head = $title;
-
-     foreach $checkin (@::CheckInList) {
-          $info = eval("\\\%$checkin");
-          push @list, $checkin
-               if (($$info{'date'} >= $min) && ($$info{'date'} <= $max));
-     }
-} else {
-     $title = $head = "All Checkins";
-     @list = @::CheckInList;
-}
-
-
-$subhead .= "<br><font color=red>
-Be aware that you are looking at an old hook!</font>"
-     if (Param('readonly'));
-
-PutsHeader($title, $head, $subhead);
-
-$::FORM{'sort'} = 'date' unless $::FORM{'sort'};
-
-print "
-(Current sort is by <tt>$::FORM{'sort'}</tt>; click on a column header
-to sort by that column.)";
-
-my @fields = split(/,/, $::FORM{'sort'});
-
-sub Compare {
-     my $rval = 0;
-     my $key;
-     my $aref = eval("\\\%$a");
-     my $bref = eval("\\\%$b");
-
-     foreach $key (@fields) {
-         if ($key eq 'date') {
-             $rval = $$bref{$key} cmp $$aref{$key};
-         } else {
-             $rval = $$aref{$key} cmp $$bref{$key};
-         }
-         return $rval unless ($rval == 0);
-     }
-     return $rval;
-}
-
-my $total_added = 0;
-my $total_removed = 0;
-
-#
-# Calculate delta information
-#
-CHECKIN:
-foreach my $infoname (@list) {
-     $info = eval("\\\%$infoname");
-     $$info{added} = 0;
-     $$info{removed} = 0;
-
-     if (exists($$info{'fullinfo'})) {
-          my @fullinfos = split(/!NeXt!/, $$info{'fullinfo'});
-INFO:
-          foreach my $fullinfo (@fullinfos) {
-               my ($file, $version, $addlines, $removelines, $sticky)
-                    = split(/\|/, $fullinfo);
-
-               # Skip binary files
-               next INFO if (($file =~ /\.gif$/) ||
-                             ($file =~ /\.bmp$/) ||
-                             ($sticky =~ /-kb/));
-
-               if ($addlines) {
-                   $$info{added} += $addlines;
-               }
-               if ($removelines) {
-                   $$info{removed} += $removelines;
-               }
-          }
-     }
-
-     $$info{'lines_changed'} =
-          sprintf("%7d", 1000000 - ($$info{added} - $$info{removed}));
-
-     $total_added += $$info{added};
-     $total_removed += $$info{removed};
-}
-
-
-# Sort that puppy...
-@list = sort Compare @list;
-
-# $::buffer contains the arguments that we were called with, it is
-# initialized by CGI.pl
-my $otherparams;
-($otherparams = $::buffer) =~ s/[&?]sort=[^&]*//g;
-
-sub NewSort {
-     my ($key) = @_;
-     my @sort_keys = grep(!/^$key$/, split(/,/, $::FORM{'sort'}));
-     unshift(@sort_keys, $key);
-
-     return $otherparams . "&sort=" . join(',', @sort_keys);
-}
-
-
-
-#
-# Print the table...
-#
-
-print "<FORM method=get action=\"dotweak.cgi\">\n" if $tweak;
-print "<TABLE border cellspacing=2>\n<TR ALIGN=LEFT>\n\n";
-print "<TH></TH>\n" if $tweak;
-
-print "
-<TH><A HREF=\"showcheckins.cgi?${otherparams}&sort=date\">When</A>
-<TH><A HREF=\"showcheckins.cgi?" . NewSort('treeopen') . "\">Tree state</A>
-<TH><A HREF=\"showcheckins.cgi?" . NewSort('person') . "\">Who</A>
-<TH><A HREF=\"showcheckins.cgi?" . NewSort('dir') . "\">Directory</A>
-<TH><A HREF=\"showcheckins.cgi?" . NewSort('files') . "\">Files</A>
-<TH><A HREF=\"showcheckins.cgi?" . NewSort('lines_changed') . 
-     "\"><tt>+/-</tt></A>
-<TH WIDTH=100%>Description
-</TR>\n\n";
-
-
-my $count = 0;
-my $maxcount = 100;
-my $branchpart = '';
-
-$branchpart = "&branch=$::TreeInfo{$::TreeID}{branch}"
-     if ($::TreeInfo{$::TreeID}{branch});
-
-foreach $checkin (@list) {
-     $info = eval("\\\%$checkin");
-
-     # Don't make tables too big, or toy computers will break.
-     if ($count++ > $maxcount) {
-          $count = 0;
-          print "</TABLE>\n\n<TABLE border cellspacing=2>\n";
-     }
-
-     print "<TR>\n";
-     print "<TD><INPUT TYPE=CHECKBOX NAME=\"$checkin\"></TD>\n" if $tweak;
-     print "<TD><a href=editcheckin.cgi?id=$checkin" . BatchIdPart(). ">\n";
-     print time2str("<font size=-1>%m/%d/%Y %H:%M</font>" , $$info{date}) .
-          "</a></TD>\n";
-     print "<TD>" . (($$info{treeopen})? "open": "CLOSED") . "\n";
-     print "<br>$$info{notes}\n" if $$info{notes};
-
-     $peoplearray{$$info{person}} = 1;
-     print "<TD>". GenerateUserLookUp($$info{person}) . "</TD>\n";
-     print "<TD><a href=\"cvsview2.cgi?" . 
-           "root=$::TreeInfo{$::TreeID}{repository}&" .
-           "subdir=$$info{dir}&" .
-           "files=" . join('+', split(/!NeXt!/, $$info{files})) . "&" .
-           "command=DIRECTORY$branchpart\">" .
-           BreakBig($$info{dir}) .
-           "</a></TD>\n";
-     print "<TD>\n";
-     foreach my $file (split(/!NeXt!/, $$info{files})) {
-          print "  <a href=\"cvsview2.cgi?" .
-                "root=$::TreeInfo{$::TreeID}{repository}&" .
-                "subdir=$$info{dir}&" .
-                "files=$file&" .
-                "command=DIRECTORY$branchpart\">" .
-                "$file</a>\n";
-     }
-     print "</td>\n";
-
-     print "<TD><tt>+$$info{added}/-". abs($$info{removed}). "</tt></td>\n";
-     foreach my $fullinfo (split(/!NeXt!/, $$info{'fullinfo'})) {
-          my ($file, $version) = split(/\|/, $fullinfo);
-          $versioninfo .= "$$info{person}|$$info{dir}|$file|$version,";
-     }
-     print "<TD WIDTH=100%>$$info{'log'}</td>\n";
-     print "</tr>\n\n";
-}
-print "</table>\n";
-
-print scalar @list  . " checkins listed.
-&nbsp;&nbsp;&nbsp; Lines changed <tt>($total_added/$total_removed)</tt>.\n";
-
-sub IsSelected {
-     my ($value) = @_;
-
-     return "SELECTED" if ($value eq  $::TreeID);
-     return "";
-}
-
-if ($tweak) {
-     print "
-<hr>
-Check the checkins you wish to affect.  Then select one of the below options.
-And type the magic word.  Then click on submit.
-<P>
-<INPUT TYPE=HIDDEN NAME=treeid VALUE=$::TreeID>
-<INPUT TYPE=radio NAME=command VALUE=nuke>Delete these checkins.<BR>
-<INPUT TYPE=radio NAME=command VALUE=setopen>Set the tree state on these checkins to be <B>Open</B>.<BR>
-<INPUT TYPE=radio NAME=command VALUE=setclose>Set the tree state on these checkins to be <B>Closed</B>.<BR>
-<INPUT TYPE=radio NAME=command VALUE=movetree>Move these checkins over to this tree:
-<SELECT NAME=desttree SIZE=1>\n";
-
-     foreach my $tree (@::TreeList) {
-          print "<OPTION ". IsSelected($tree).
-               " VALUE=$tree>$::TreeInfo{$tree}{description}\n"
-                    unless $::TreeInfo{$tree}{nobonsai};
-     }
-
-     print "
-</SELECT><P>
-<B>Password:</B><INPUT NAME=password TYPE=password></td>
-<BR>
-<INPUT TYPE=SUBMIT VALUE=Submit>
-</FORM>\n";
-} else {
-     print "
-&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
-<a href=showcheckins.cgi?$::buffer&tweak=1>Tweak some of these checkins.</a>
-<br><br>
-<FORM action='multidiff.cgi' method=post>
-<INPUT TYPE='HIDDEN' name='allchanges' value = '$versioninfo'>
-<INPUT TYPE=SUBMIT VALUE='Show me ALL the Diffs'>
-</FORM>\n";
-}
-
-if (exists $::FORM{ltabbhack}) {
-     print "<!-- StupidLloydHack " . join(',', sort(keys(%peoplearray))) .
-          " -->\n";
-     print "<!-- LloydHack2 $versioninfo -->\n";
-}
-
-PutsTrailer();
-
-

mozilla/webtools/bonsai/switchtree.cgi

@@ -1,60 +0,0 @@
-#!/usr/bonsaitools/bin/perl -w
-# -*- Mode: perl; indent-tabs-mode: nil -*-
-#
-# The contents of this file are subject to the Netscape Public License
-# Version 1.0 (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 Bonsai CVS 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.
-
-use diagnostics;
-use strict;
-
-# Shut up misguided -w warnings about "used only once".  "use vars" just
-# doesn't work for me.
-
-sub sillyness {
-    my $zz;
-    $zz = $::TreeID;
-    $zz = $::TreeList;
-}
-
-require 'CGI.pl';
-print "Content-type: text/html\n\n";
-LoadTreeConfig();
-
-sub IsChecked {
-     my ($value) = @_;
-     my $rval = '';
-
-     $rval = "CHECKED" if ($value eq $::TreeID);
-     return $rval;
-}
-
-my $title = "George, George, George of the jungle...";
-PutsHeader($title, "Switch-o-Matic");
-
-print "
-<b>Which tree would you like to see?</b>
-<FORM method=get action=\"toplevel.cgi\">\n";
-
-foreach my $i (@::TreeList) {
-     next if (exists($::TreeInfo{$i}{nobosai}));
-
-     print "<INPUT TYPE=radio NAME=treeid VALUE=$i " . IsChecked($i) . ">\n";
-     print "$::TreeInfo{$i}{description}<BR>\n";
-}
-
-print "<INPUT TYPE=SUBMIT Value=\"Submit\"></FORM>\n";
-PutsTrailer();
-exit;

mozilla/webtools/bonsai/testlock.pl

@@ -1,12 +0,0 @@
-#!/usr/bonsaitools/bin/perl --
-# -*- Mode: perl; indent-tabs-mode: nil -*-
-
-require 'utils.pl';
-
-Lock();
-
-print "Got lock.\n";
-
-sleep 10;
-
-Unlock();

mozilla/webtools/bonsai/toplevel.cgi

@@ -1,284 +0,0 @@
-#!/usr/bonsaitools/bin/perl -w
-# -*- Mode: perl; indent-tabs-mode: nil -*-
-#
-# The contents of this file are subject to the Netscape Public License
-# Version 1.0 (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 Bonsai CVS 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.
-
-require 'CGI.pl';
-
-use diagnostics;
-use strict;
-
-sub StupidFuncToShutUpWarningsByUsingVarsAgain {
-    my $z;
-    $z = $::CloseTimeStamp;
-    $z = $::LastGoodTimeStamp;
-    $z = $::MOTD;
-    $z = $::WhiteBoard;
-    $z = $::TreeList;
-}
-
-print "Content-type: text/html\nRefresh: 300\n\n";
-
-PutsHeader("Bonsai -- the art of effectively controlling trees",
-           "Bonsai", "CVS Tree Control");
-
-print "<IMG ALIGN=right SRC=bonsai.gif>";
-
-
-Lock();
-LoadCheckins();
-LoadMOTD();
-LoadWhiteboard();
-LoadTreeConfig();
-Unlock();
-
-
-my $openword;
-if ($::TreeOpen) {
-    $openword = '<b><FONT SIZE=+2>OPEN</FONT></B>';
-} else {
-    $openword = '<b><FONT SIZE=+3 COLOR=RED>CLOSED</FONT></B>';
-}
-
-
-print "
-
-<FORM name=treeform>
-<H3>
-<SELECT name=treeid size=1 onchange='submit();'>
-";
-
-
-foreach my $tree (@::TreeList) {
-     unless (exists $::TreeInfo{$tree}{nobonsai}) {
-          my $c = ($tree eq $::TreeID) ? 'Selected' : '';
-          print "<OPTION VALUE=\"$tree\" $c>$::TreeInfo{$tree}{description}\n";
-    }
-}
-
-print "</SELECT></H3></FORM>\n";
-
-
-if (Param('readonly')) {
-    print "<h2><font color=red>
-Be aware that you are looking at an old hook!</font></h2>\n";
-}
-
-print "<tt>" . time2str("%m/%d/%Y %T %Z", time()) .
-      "</tt>: The tree is currently $openword<br>\n";
-unless ($::TreeOpen) {
-    print "The tree has been closed since <tt>" .
-         MyFmtClock($::CloseTimeStamp) . "</tt>.<BR>\n";
-}
-
-print "The last known good tree had a timestamp of <tt>";
-print time2str("%m/%d/%Y %T %Z", $::LastGoodTimeStamp) . "</tt>.<br>";
-print "<hr><pre variable>$::MOTD</pre><hr>";
-print "<br clear=all>";
-
-my $bid_part = BatchIdPart('?');
-print "<b><a href=editwhiteboard.cgi$bid_part>
-Free-for-all whiteboard:</a></b>
-<pre>" . html_quote($::WhiteBoard) . "</pre><hr>\n";
-
-
-my %username;
-my %checkincount;
-my %closedcheckin;
-my %fullname;
-my %curcontact;
-
-foreach my $checkin (@::CheckInList) {
-    my $info = eval("\\\%$checkin");
-    my $addr = EmailFromUsername($info->{'person'});
-
-    $username{$addr} = $info->{'person'};
-    if (!exists $checkincount{$addr}) {
-        $checkincount{$addr} = 1;
-    } else {
-        $checkincount{$addr}++;
-    }
-    if (!$info->{'treeopen'}) {
-        if (!defined $closedcheckin{$addr}) {
-            $closedcheckin{$addr} = 1;
-        } else {
-            $closedcheckin{$addr}++;
-        }
-    }
-}
-
-
-my $ldaperror = 0;
-
-if (%checkincount) {
-     my (@peoplelist, @list, $p, $i, $end, $checkins);
-     my $ldapserver = Param('ldapserver');
-     my $ldapport = Param('ldapport');
-
-     print  "
-The following people are on \"the hook\", since they have made
-checkins to the tree since it last opened: <p>\n";
-
-     @peoplelist = sort(keys %checkincount);
-     
-     @list = @peoplelist;
-     while (1) {
-          last if ($#list < 0);
-          $end = 19;
-          $end = $#list if ($end >= $#list);
-          GetInfoForPeople(splice(@list, 0, $end + 1));
-     }
-
-     if ($ldaperror) {
-         print "<font color=red>
-Can't contact the directory server at $ldapserver:$ldapport</font>\n";
-     }
-
-     print "
-<table border cellspacing=2>
-<th colspan=2>Who</th><th>What</th>\n";
-     print "<th>How to contact</th>\n" if $ldapserver;
-
-     foreach $p (@peoplelist) {
-          my ($uname, $namepart, $extra) = ('', '', '');
-
-          if (exists($closedcheckin{$p})) {
-               $extra = " <font color=red>($closedcheckin{$p} while tree closed!)</font>";
-          }
-
-          $uname = $username{$p};
-          ($namepart = $p) =~ s/\@.*//;
-          $checkins = $checkincount{$p};
-
-          print "<tr>\n";
-          print "<td>$fullname{$p}</td>\n";
-          print "<td>" . GenerateUserLookUp($uname, $namepart, $p) . "</td>\n";
-          print "<td><a href=\"showcheckins.cgi?person=" . url_quote($uname);
-          print BatchIdPart() . "\"> $checkins ";
-          print Pluralize('change', $checkins) . "</a>$extra</td>\n";
-          print "<td>$curcontact{$p}\n" if $ldapserver;
-          print "</tr>\n\n";
-     }
-
-     print "</table>\n\n";
-
-     
-     $checkins = @::CheckInList;
-     print Pluralize("$checkins checkin", $checkins) . ".<p>\n";
-
-     my $mailaddr =
-         join(',', @peoplelist) . "?subject=Hook%3a%20Build%20Problem";
-     $mailaddr .= "&cc=$::TreeInfo{$::TreeID}{cchookmail}"
-          if (exists($::TreeInfo{$::TreeID}{cchookmail}));
-
-
-     print "
-<a href=showcheckins.cgi" . BatchIdPart('?') . ">Show all checkins.</a><br>
-<a href=\"mailto:$mailaddr\">Send mail to \"the hook\".</a><br>\n";
-
-} else {
-   print "Nobody seems to have made any changes since the tree opened.";
-}
-
-
-my $cvsqueryurl = "cvsqueryform.cgi?" .
-    "cvsroot=$::TreeInfo{$::TreeID}{repository}" .
-    "&module=$::TreeInfo{$::TreeID}{module}";
-$cvsqueryurl.= "&branch=$::TreeInfo{$::TreeID}{branch}"
-     if ($::TreeInfo{$::TreeID}{branch});
-my $bip = BatchIdPart('?');
-my $tinderboxbase = Param('tinderboxbase');
-my $tinderboxlink = '';
-$tinderboxlink = "<a href=\"$tinderboxbase/showbuilds.cgi\">Tinderbox
-        continuous builds</a><br>" if ($tinderboxbase);
-
-my $otherrefs = Param('other_ref_urls');
-
-print "
-<hr>
-<table>
-<tr>
-<th>Useful links </th><th width=10%></th><th>Help and Documentation</th>
-</tr>
-<tr>
-<td valign=top>
-<a href=\"$cvsqueryurl\"><b>CVS Query Tool</b></a><br>
-<a href=\"switchtree.cgi$bip\">Switch to look at a different tree or branch</a><br>
-$tinderboxlink
-<a href=\"viewold.cgi$bip\">Time warp -- view a different day's hook.</a><br>
-<a href=\"countcheckins.cgi$bip\">See some stupid statistics about recent checkins.</a><br>
-<a href=\"admin.cgi$bip\">Administration menu.</a><br>
-</td><td>
-</td><td valign=top>
-$otherrefs
-</td>
-</tr></table>
-" ;
-
-exit 0;
-
-
-
-sub GetInfoForPeople {
-     my (@peoplelist) = @_;
-     my ($p, $query, $isempty);
-     my $ldapserver = Param('ldapserver');
-     my $ldapport = Param('ldapport');
-     my $ldapcmd;
-
-     $query = "(| ";
-     $isempty = 1;
-
-     foreach $p (@peoplelist) {
-          $query .= "(mail=$p) ";
-          $fullname{$p} = "";
-          $curcontact{$p} = "";
-     }
-
-     $query .= ")";
-     return if ($ldaperror || ($ldapserver eq ''));
-
-     $ldapcmd = "./data/ldapsearch -b \"dc=netscape,dc=com\" " .
-                "-h $ldapserver -p $ldapport -s sub " .
-                "-S mail \"$query\" mail cn nscpcurcontactinfo";
-     unless (open(LDAP, "$ldapcmd |")) {
-          $ldaperror = 1;
-     } else {
-          my $doingcontactinfo = 0;
-          my $curperson;
-          while (<LDAP>) {
-               chop;
-               if ($doingcontactinfo) {
-                    if (/^ (.*)$/) {
-                         $curcontact{$curperson} .= "$1\n";
-                         next;
-                    }
-                    $doingcontactinfo = 0;
-               }
-               if (/^mail: (.*\@.*)$/) {
-                    $curperson = $1;
-               } elsif (/^cn: (.*)$/) {
-                    $fullname{$curperson} = $1;
-               } elsif (/^nscpcurcontactinfo: (.*)$/) {
-                    $curcontact{$curperson} = "$1\n";
-                    $doingcontactinfo = 1;
-               }
-          }
-          close(LDAP);
-     }
-}
-

mozilla/webtools/bonsai/trapdoor.c

@@ -1,9 +0,0 @@
-#include <stdio.h>
-#ifndef __bsdi__
-#include <crypt.h>
-#endif
-
-main(int argc, char** argv) {
-    printf("%s\n", crypt(argv[1], "aa"));
-    return 0;
-}

mozilla/webtools/bonsai/treeconfig.pl.in

@@ -1,23 +0,0 @@
-# Example configuration file for Bonsai
-
-# The Bonsai modules and their relation to cvs
-
-# @::TreeList is a list of all configured Bonsai modules
-# to add a module, add its name to @::TreeList
-# then duplicate the "default" entry in @::TreeInfo and
-# change the values appropriately
-
-@::TreeList = ('default');
-
-%::TreeInfo = (
-     default => {
-          branch       => '',
-          description  => 'My CVS repository',
-          module       => 'All',
-          repository   => '/cvsroot',
-          shortdesc    => 'Mine',
-                },
-,
-	       );
-
-1;

mozilla/webtools/bonsai/utils.pl

@@ -1,173 +0,0 @@
-# -*- Mode: perl; indent-tabs-mode: nil -*-
-#
-# The contents of this file are subject to the Netscape Public License
-# Version 1.0 (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 Bonsai CVS 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.
-
-use DBD::mysql;
-
-require 'header.pl';
-
-$lockcount = 0;
-
-1;
-
-
-sub Lock {
-    if ($lockcount <= 0) {
-        $lockcount = 0;
-        if (!open(LOCKFID, ">>data/lockfile")) {
-            mkdir "data", 0777;
-            chmod 0777, "data";
-            open(LOCKFID, ">>data/lockfile") || die "Can't open lockfile.";
-        }
-        my $val = flock(LOCKFID,2);
-        if (!$val) { # '2' is magic 'exclusive lock' const.
-            print "Lock failed: $val\n";
-        }
-        chmod 0666, "data/lockfile";
-    }
-    $lockcount++;
-}
-
-sub Unlock {
-    $lockcount--;
-    if ($lockcount <= 0) {
-        flock(LOCKFID,8);       # '8' is magic 'unlock' const.
-        close LOCKFID;
-    }
-}
-
-
-sub loadConfigData {
-    if (@treelist > 0) {return;}
-    local($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
-     $atime,$pmtime,$ctime,$blksize,$blocks) = stat("data/configdata.pl");
-    local $tmtime;
-    ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
-     $atime,$tmtime,$ctime,$blksize,$blocks) = stat("data/configdata");
-
-    if ($pmtime eq "" || $pmtime < $tmtime) {
-        system "./perlifyconfig.tcl";
-    }
-
-    open(CONFIGDATA, "<data/configdata.pl") || die "Can't open configdata.pl";
-    while (<CONFIGDATA>) {
-        eval;
-    }
-    close CONFIGDATA;
-}
-
-
-sub pickDefaultRepository {
-    loadConfigData();
-    return $treeinfo{$treelist[0]}->{'repository'};
-}
-
-
-sub getRepositoryList {
-    loadConfigData();
-    my @result = ();
-    TREELOOP: foreach my $i (@treelist) {
-        my $r = $treeinfo{$i}->{'repository'};
-        foreach my $j (@result) {
-            if ($j eq $r) {
-                next TREELOOP;
-            }
-        }
-        push @result, $r;
-    }
-    return @result;
-}
-
-
-sub validateRepository {
-    my ($root) = @_;
-    my @list = getRepositoryList();
-    foreach my $r (@list) {
-        if ($r eq $root) {
-            return;
-        }
-    }
-    print "Invalid repository $root selected.  Send mail to $cvsadmin if you think this should have worked.\n";
-    exit;
-}
-
-sub ConnectToDatabase {
-    if ($dbh == "") {
-        $dbh = DBI->connect("bonsai","$mysqluser","$mysqlpassword","mysql") || die "Can't connect to database server -- $DBD::mysql::db_errstr";
-    }
-    return $dbh;
-}
-
-    
-sub formatSqlTime {
-    my $when = @_[0];
-    my($sec,$minute,$hour,$mday,$mon,$year) = localtime( $when );
-    return sprintf("%04d-%02d-%02d %02d:%02d:%02d",
-                   $year + 1900, $mon + 1, $mday,
-                   $hour, $minute, $sec);
-}
-
-
-sub SqlQuote {
-    $_ = @_[0];
-    s/'/''/g;
-    s/\\/\\\\/g;
-    return $_;
-}
-
-
-# Returns true if the given directory or filename is one of the hidden ones
-# that we don't want to show users.
-
-sub IsHidden {
-    my ($name) = (@_);
-    $name =~ s:///*:/:g;        # Remove any multiple slashes.
-    if (!defined @hidelist) {
-        if (open(HIDE, "<data/hidelist")) {
-            while (<HIDE>) {
-                chop;
-                s/^\s*//g;      # Strip leading whitespace
-                s/\s*$//g;      # Strip trailing whitespace
-                if ( /^#/ || /^$/) {
-                    next;
-                }
-                
-                push(@hidelist, $_);
-            }
-            close HIDE;
-        } else {
-            @hidelist = ();
-        }
-    }
-    foreach my $item (@hidelist) {
-        if ($name =~ m/$item/) {
-            return 1;
-        }
-    }
-    return 0;
-}
-
-sub CheckHidden {
-    my ($name) = (@_);
-    if (IsHidden($name)) {
-        $| = 1;
-        print "";
-        die "Security violation; not allowed to access $name.";
-    }
-}
-    
-        

mozilla/webtools/bonsai/viewold.cgi

@@ -1,77 +0,0 @@
-#!/usr/bonsaitools/bin/perl -w
-# -*- Mode: perl; indent-tabs-mode: nil -*-
-#
-# The contents of this file are subject to the Netscape Public License
-# Version 1.0 (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 Bonsai CVS 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.
-
-require 'CGI.pl';
-
-use diagnostics;
-use strict;
-
-LoadCheckins();
-
-sub IsChecked {
-    my ($value) = (@_);
-    if ($value == $::BatchID) {
-        return "CHECKED"
-    } else {
-        return ""
-    }
-}
-
-print "Content-type: text/html
-
-<HTML>
-<TITLE>Let's do the time warp again...</TITLE>
-
-Which hook would you like to see?
-";
-
-my @list;
-
-
-foreach my $i (glob(DataDir() . "/batch-*\[0-9\].pl")) {
-    if ($i =~ /batch-([0-9]*)\.pl/) {
-        push(@list, $1);
-    }
-}
-
-@list = sort {$b <=> $a} @list;
-
-print "<FORM method=get action=\"toplevel.cgi\">\n";
-print "<INPUT TYPE=HIDDEN NAME=treeid VALUE=$::TreeID>\n";
-print "<INPUT TYPE=SUBMIT Value=\"Submit\"><BR>\n";
-
-my $value = shift(@list);
-
-print "<INPUT TYPE=radio NAME=batchid VALUE=$value " . IsChecked($value). ">";
-print "The current hook.<BR>\n";
-
-my $count = 1;
-foreach my $i (@list) {
-    print "<INPUT TYPE=radio NAME=batchid VALUE=$i " . IsChecked($i) .
-        ">\n";
-    my $name = DataDir() . "/batch-$i.pl";
-    require "$name";
-    print "Hook for tree that closed on " . MyFmtClock($::CloseTimeStamp) .
-        "<BR>\n";
-}
-
-print "<INPUT TYPE=SUBMIT Value=\"Submit\">\n";
-print "</FORM>\n";
-
-PutsTrailer();

mozilla/webtools/bonsai/whohastouchedwhat.cgi

@@ -1,78 +0,0 @@
-#!/usr/bonsaitools/bin/perl -w
-# -*- Mode: perl; indent-tabs-mode: nil -*-
-#
-# The contents of this file are subject to the Netscape Public License
-# Version 1.0 (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 Bonsai CVS 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.
-
-require 'lloydcgi.pl';
-require 'utils.pl';
-
-# use diagnostics;
-# use strict;
-
-my $db = ConnectToDatabase();
-
-$| = 1;
-
-if (!defined $form{'repositoryid'}) {
-    print "Content-type: text/html
-
-This will create a cryptic report of all the people who have ever
-touched each file within a directory heirarchy.
-
-<P>
-
-<form>
-Repository: <select name='repositoryid'>
-";
-
-    my $query = $db->Query("select id, repository from repositories order by id");
-    my @row;
-    while (@row = $query->fetchrow()) {
-        my ($id, $name) = (@row);
-        print "<option value=$id>$name\n";
-    }
-    print "</select><br>
-Directory: <input size=60 name=dir>
-<input type=submit value='Submit'>
-</form>
-";
-    exit;
-}
-
-
-print "Content-type: text/plain\n\n";
-
-my $qstr = "select distinct who, dir, file from checkins, people, dirs, files where repositoryid = $form{'repositoryid'} and dirid=dirs.id and dir like '$form{'dir'}%' and fileid=files.id and whoid=people.id order by dir, file";
-my $query = $db->Query($qstr);
-
-if (!$query) {
-    die "Bad query: $qstr \n\n $::db_errstr";
-}
-
-
-my @row;
-my $last = "";
-while (@row = $query->fetchrow()) {
-    my ($who, $dir, $file) = (@row);
-    my $cur = "$dir/$file";
-    if ($cur ne $last) {
-        print "\n$cur\n";
-        $last = $cur;
-    }
-    print "$who\n";
-}
-