This commit was manufactured by cvs2svn to create branch 'src'.

git-svn-id: svn://10.0.0.236/branches/src@33658 18797224-902f-48f8-a5cc-f745e15eee43

mozilla/webtools/tinderbox/Backwards.pm

@@ -1,216 +0,0 @@
-# Backwards.pm
-
-# Copyright (C) 1999 Uri Guttman. All rights reserved.
-# mail bugs, comments and feedback to uri@sysarch.com
-
-
-use strict ;
-
-package Backwards ;
-
-use Symbol ;
-use Fcntl ;
-use Carp ;
-use integer ;
-
-#my $max_read_size = 3 ;
-
-my $max_read_size = 1 << 13 ;
-
-# support tied handles. the tied calls map directly to the object methods
-
-*TIEHANDLE = \&new ;
-*READLINE = \&readline ;
-
-# create a new Backwards object
-
-sub new {
-
-	my( $class, $filename ) = @_ ;
-
-	my( $handle, $seek_pos, $read_size, $self ) ;
-
-# get a new handle symbol and the real file handle
-
-	$handle = gensym() ;
-
-# open the file for reading
-
-	unless( sysopen( $handle, $filename, O_RDONLY ) ) {
-		carp "Can't open $filename $!" ;
-		return ;
-	}
-
-# seek to the end of the file
-
-	seek( $handle, 0, 2 ) ;
-	$seek_pos = tell( $handle ) ;
-
-# get the size of the first block to read,
-# either a trailing partial one (the % size) or full sized one (max read size)
-
-	$read_size = $seek_pos % $max_read_size || $max_read_size ;
-
-# create the hash for the object, bless and return it
-
-	$self = {
-			'file_name'	=> $filename,
-			'handle'	=> $handle,
-			'read_size'	=> $read_size,
-			'seek_pos'	=> $seek_pos,
-			'lines'		=> [],
-	} ;
-
-	return( bless( $self, $class ) ) ;
-}
-
-sub readline {
-
-	my( $self, $line_ref ) = @_ ;
-
-	my( $handle, $lines_ref, $seek_pos, $read_cnt, $read_buf,
-	    $file_size, $read_size, $text ) ;
-
-# get the buffer of lines
-
-	$lines_ref = $self->{'lines'} ;
-
-	while( 1 ) {
-
-# see if there is more than 1 line in the buffer
-
-		if ( @{$lines_ref} > 1 ) {
-
-# we have a complete line so return it
-
-			return( pop @{$lines_ref} ) ;
-		}
-
-# we don't have a complete, so have to read blocks until we do
-
-		$seek_pos = $self->{'seek_pos'} ;
-
-# see if we are at the beginning of the file
-
-		if ( $seek_pos == 0 ) {
-
-# the last read never made more lines, so return the last line in the buffer
-# if no lines left then undef will be returned
-
-			return( pop @{$lines_ref} ) ;
-		}
-
-#print "c size $read_size\n" ;
-
-# we have to read more text so get the handle and the current read size
-
-		$handle = $self->{'handle'} ;
-		$read_size = $self->{'read_size'} ;
-
-# after the first read, always read the maximum size
-
-		$self->{'read_size'} = $max_read_size ;
-
-# seek to the beginning of this block and save the new seek position
-
-		$seek_pos -= $read_size ;
-		$self->{'seek_pos'} = $seek_pos ;
-		seek( $handle, $seek_pos, 0 ) ;
-
-#print "seek $seek_pos\n" ;
-
-# read in the next (previous) block of text
-
-		$read_cnt = sysread( $handle, $read_buf, $read_size ) ;
-
-#print "Read <$read_buf>\n" ;
-
-#   if ( $read_cnt != $read_size ) {
-#   	print "bad read cnt $read_cnt != size $read_size\n" ;
-#	return( undef ) ;
-#   }
-
-# prepend the read buffer to the leftover (possibly partial) line
-
-		$text = $read_buf . ( pop @{$lines_ref} || '' ) ;
-
-# split the buffer into a list of lines
-# this may want to be $/ but reading files backwards assumes plain text and
-# newline separators
-
-		@{$lines_ref} = $text =~ m[(^.*\n|^.+)]mg ;
-
-#print "Lines \n=>", join( "<=\n=>", @{$lines_ref} ), "<=\n" ;
-	}
-}
-
-__END__
-
-
-=head1 NAME
-
-Backwards.pm -- Read a file backwards by lines.
- 
-
-=head1 SYNOPSIS
-
-	use Backwards ;
-
-	# Object interface
-
-	$bw = Backwards->new( 'log_file' ) ;
-
-	while( $log_line = $bw->readline ) {
-		print $log_line ;
-	}
-
-	# Tied Handle Interface
-
-	tie *BW, 'log_file' ;
-
-	while( <BW> ) {
-		print ;
-	}
-
-=head1 DESCRIPTION
- 
-
-This module reads a file backwards line by line. It is simple to use,
-memory efficient and fast. It supports both an object and a tied handle
-interface.
-
-It is intended for processing log and other similar text files which
-typically have new entries appended. It uses newline as the separator
-and not $/ since it is only meant to be used for text.
-
-It works by reading large (8kb) blocks of text from the end of the file,
-splits them on newlines and stores the other lines until the buffer runs
-out. Then it seeks to the previous block and splits it. When it reaches
-the beginning of the file, it stops reading more blocks.  All boundary
-conditions are handled correctly. If there is a trailing partial line
-(no newline) it will be the first line returned. Lines larger than the
-read buffer size are ok.
-
-=head2 Object Interface
- 
-
-There are only 2 methods in Backwards' object interface, new and
-readline.
-
-=head2 new
-
-New takes just a filename for an argument and it either returns the
-object on a successful open on that file or undef.
-
-=head2 readline
-
-Readline takes no arguments and it returns the previous line in the file
-or undef when there are no more lines in the file.
-
-
-=head2 Tied Handle Interface
-
-The only tied handle calls supported are TIEHANDLE and READLINE and they
-are typeglobbed to new and readline respectively. All other tied handle
-operations will generate an unknown method error. Do not seek, write or
-do any other operation other than <> on the handle.

mozilla/webtools/tinderbox/Empty.html

@@ -1 +0,0 @@
-<font size=+2>Click on the <b>filename and line number</b> in the log and the source will appear in this window.</font>

mozilla/webtools/tinderbox/Makefile

@@ -1,77 +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 Tinderbox build tool.
-#
-# The Initial Developer of the Original Code is Netscape Communications
-# Corporation. Portions created by Netscape are Copyright (C) 1998
-# Netscape Communications Corporation. All Rights Reserved.
-
-
-# This Makefile helps you install Tinderbox.  Define PERL and MYSQLTCL to
-# the full pathnames of where you have these utilities.  Define PREFIX
-# to where you will install the running Tinderbox.  Then "make install" should
-# copy things for you.
-
-#BONSAI = /home/httpd/html/bonsai
-#CVSROOT = /cvsroot
-#GZIP = /usr/bin/gzip
-#PERL = /usr/bin/perl
-#PREFIX = /home/httpd/html/tinderbox
-#UUDECODE = /usr/bin/uudecode
-
-FILES = addimage.cgi	\
-addnote.cgi	\
-admintree.cgi	\
-buildwho.pl	\
-clean.pl	\
-copydata.pl	\
-doadmin.cgi	\
-ep_mac.pl	\
-ep_unix.pl	\
-ep_windows.pl	\
-fixupimages.pl	\
-globals.pl	\
-handlemail.pl	\
-imagelog.pl	\
-processbuild.pl	\
-showbuilds.cgi	\
-showimages.cgi	\
-showlog.cgi	\
-Empty.html	\
-faq.html	\
-index.html	\
-examples/mozilla-unix.pl \
-examples/mozilla-windows.pl
-
-PICS = \
-1afi003r.gif	\
-reledanim.gif	\
-star.gif
-
-install:
-	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 \
-              -e s#/m/src#$(CVSROOT)#g \
-              -e s#/usr/local/bin/gzip#$(GZIP)#g \
-              -e s#/tools/ns/bin/uudecode#$(UUDECODE)#g \
-              -e s#/d/webdocs/projects/bonsai#$(BONSAI)#g \
-              $$I > $(PREFIX)/$$I && \
-	chmod 755 $(PREFIX)/$$I; done && \
-	for I in $(PICS); do \
-	  echo Installing $$I && \
-	  cp -f $$I $(PREFIX) && \
-	  chmod 755 $(PREFIX)/$$I; done
-

mozilla/webtools/tinderbox/README

@@ -1,287 +0,0 @@
-This is Tinderbox.  See <http://www.mozilla.org/tinderbox.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.
-
-
-	============
-	DEPENDENCIES
-	============
-
-To use tinderbox, you must first have bonsai up and running.
-See <http://www.mozilla.org/bonsai.html>.
-
-Be warned now that bonsai is not easily installed.
-
-
-	====================================
-	What's What in the Tinderbox sources:
-	====================================
-
-This is a rough first pass at cataloging and documenting the Tinderbox
-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.
-
-
-PROGRAMS
-========
-
-handlemail.pl   This is the mail deliverty agent (MDA) for tinderbox,
-                the local message transfer agent (MTA) calls this
-                program to deliver the tinderbox mail into the system.
-                It is a wrapper for processbuild.pl.
-
-processbuild.pl Update the "$tbx{tree}/build.dat" database as new
-                mail comes in then run "./buildwho.pl $tree" and
-                "./showbuilds.cgi" (to build static versions of 
-                tinderbox data.
-
-buildwho.pl     Update the who.dat file with the list of authors who
-                checked in in the last two days.  This is run from
-                processbuild.pl, always, and from showbuild.cgi when
-                'rebuildguilty' is clicked
-
-
-Conceptually, the three programs, handlemail.pl, processbuild.pl, and
-buildwho.pl, make up the MDA for tinderbox.
-
-
-showbuilds.cgi  Create the Tinderbox web page.  
-
-showlog.cgi     Show a build log (brief and full) update the brief_log if
-                necessary. Requires the ep_$form{errorparser}.pl error
-                parser.
-
-ep_unix.pl      Knows how to parse Unix build error logs.  Used by
-                processbuild.pl There needs to be one ep_* file for
-                each distinct parsing algorithm used, typically this
-                is per platform.  This file defines the regular
-                expressions which locate error lines: has_error()
-                has_warning() and the function has_errorline() which
-                parses the line into the global variables:
-                $error_file, $error_file_ref, $error_line, $error_guess,
-
-admintree.cgi   Displays the admin cgi which depends on:
-                $message_of_day, $ignore_builds
-
-doadmin.cgi     Actually do the work to admin a tinderbox tree 
-                (change message of the day, turn off displays for a
-                channel)
-
-clean.pl        Run `find . -name \"*.gz\" -mtime +7 -print ` and 
-                unlink those files.  Does not appear to be run from
-                other tools.  It is a good candidate for a cron job.
-
-
-
-OPTIONS to showbuilds.cgi
-=========================
-
-Options to showbuilds are specified in the URL and are undocumented
-elsewhere.
-
-If called with no 'tree' option display the possible build trees to
-pick from.  The 'tree' picks the build to display.  An additional tree
-can be specified with 'tree2'.
-
-Interesting visual params are:
-
-current state monitoring mode:
-          express=1
-        or
-          panel=1
-text mode state monitoring:
-        quickparse=1
-
-These modes do not show on my browser:
-        flash=1
-        rdf=1
-        static=1 
-
-These are self explanatory:
-        nocrap=1;  
-        hours=n; 
-
-
-EMAIL FORMAT
-============
-
-Each tinderbox client mails status updates to the tinderbox server.
-These mails contain special tinderbox data lines describing the
-progress of the build it may also contain the log of the build process
-and could contain a uuencoded binary.
-
-
-The email to the tinderbox server looks like:
-
-tinderbox: tree: Mozilla
-tinderbox: builddate: 900002087
-tinderbox: status: building
-tinderbox: build: IRIX 6.3 Depend
-tinderbox: errorparser: unix
-
-If binaryname is set then the mail message is run through uudecode to
-create a file called "$binaryname" on the tinderbox server.
-
-# NOT USED tinderbox: buildfamily: unix
-
-
-DATA STRUCTURES IN showbuilds.cgi 
-=================================
-
-load_buildlog() creates build_list a list of hash refernces of this
-type
-      $buildrec = {    
-         mailtime => $mailtime,
-         buildtime => $buildtime,
-         buildname => ($tree2 ne '' ? $t->{name} . ' ' : '' ) . $buildname,
-         errorparser => $errorparser,
-         buildstatus => $buildstatus,
-         logfile => $logfile,
-         binaryname => $binaryname,
-         td => $t
-      };
-
-the $buildrec->{rowspan} variable holds the number of rows that the build
-should occupy on the table and is not stored in the build.dat file.
-
-These are other add ons to the data structure
-$buildrec->{hasnote}=1;
-$buildrec->{noteid} = (0+@note_array);
-
-commonly  buildrec's are accessed through:
-$build_table->[$build_time][$build_name] = $buildrec;
-
-The list of users who updated this build is stored as:
-$who_list->[$checkin_time]->{$author} = 1;
-
-There are numerous duplicate data structures which hold partial
-information:
-
-        hashes which hold all indices:
-            $build_name_index->{$br->{buildname}} = 1;
-            $build_time_index->{$br->{buildtime}} = 1;
-        other access into $build_table:
-            $build_name_names->[$i] = $n;
-            $build_time_times->[$i] = $n;
-
-
-loadquickparseinfo creates these references
-      $build->{$buildname} = $buildstatus;
-      $times->{$buildname} = $buildtime;
-
-    
-
-DATA FILES
-==========
-
-These files are used to store data structures.  They are a persistent
-store of data between executions of the same program and they pass the
-data between cooperating program.  This data is often databases with
-rows separated by "\n" and columns by '|'.
-
-
-$tree/${logfile}
-$tree/${logfile}.brief.html
-$tree/ignorebuilds.pl
-$tree/mod.pl
-$tree/notes.txt
-$tree/treedata.pl
-$tree/who.dat
-$treename/build.dat
-
-The logfile that the tinderbox client sent stored in gziped format.
-The filename is ${tree}/$builddate.$$.gz so its quite random and does
-not depend on the clients$build string and multiple logs are kept for
-each build, one for each mail message sent.
-
-The brief.html file is a cache of the error log summary for this log
-file and is recreated when the logfile gets updated.
-
-ignorebuilds.pl is a file which specifies builds that should not be
-performed.  It is valid perl code which sets the hash reference
-$ignore_builds, each key is a tree name.
-
-mod.pl stores the tree specific message of the day.  This is not to be
-       confused with mod perl the CGI library. Its contents looks like:
-        $message_of_day = 'message';
-
-notes.txt store the database of notes:
-$buildtime|$buildname||$author|$time_now|$note 
-
-
-treedata.pl stores the cvs information pertaining to this tree and
-                looks like this:
-        $cvs_module='$modulename';
-        $cvs_branch='$branchname';
-        $cvs_root='$repository';
-
-who.dat file has lines like:
-            $checkin_time|$author
-        This gets stored in the data structure, where checkin_time
-        gets fudged up so that is is a time already in the
-        build_table:
-                      $who_list->[$checkin_time]->{$author} = 1;
- 
-build.dat stores the build results table.  It is a flat file
-                representation of $build_table
-
-build.dat is a database file each row is a build and has pipe
-separated columns: 
-
-1) the time stamp of the tinderbox server 
-2) time stamp of the build machine 
-3) the official build name (should include build machine name)
-   ( note: that 2 & 3 together uniquely identify the build 
-        and all relevant build data)
-4) the architecture dependent error parser to use on the log files
-5) status of the build (success|busted|building|testfailed)
-6) The log file for this build (if completed)
-7) the name of the binary (if any) that came from the build
-
-
-Other Files
-====================
-1afi003r.gif	The "flames" animation used by showbuilds.cgi
-
-Empty.html	Document used for an empty frame by ???
-
-addimage.cgi	The form that lets you add a new image to the list of
-		images that Tinderbox picks from randomly.
-
-addnote.cgi	Add a note to a build log.
-
-admintree.cgi	Lets you perform various admin tasks on a Tinderbox tree.
-		This just prompts for a password and posts to doadmin.cgi.
-
-clean.pl	???
-copydata.pl	???
-
-doadmin.cgi	Actually do the work to admin a tinderbox tree 
-
-ep_mac.pl	Knows how to parse Mac build error logs.  Used by ???
-ep_unix.pl	Knows how to parse Unix build error logs.  Used by ???
-ep_windows.pl	Knows how to parse Windows build error logs.  Used by ???
-
-faq.html	Wildly out of date.
-
-fixupimages.pl	???
-globals.pl	???
-imagelog.pl	???
-index.html	???
-reledanim.gif	???
-
-showimages.cgi	Show all the images in the Tinderbox list.  Password-protected.
-
-star.gif	The "star" image used to annotate builds by ???

mozilla/webtools/tinderbox/addimage.cgi

@@ -1,404 +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 Tinderbox build tool.
-#
-# The Initial Developer of the Original Code is Netscape Communications
-# Corporation. Portions created by Netscape are Copyright (C) 1998
-# Netscape Communications Corporation. All Rights Reserved.
-
-use Socket;
-
-use lib "../bonsai";
-require 'header.pl';
-
-print "Content-type: text/html\n\n";
-
-EmitHtmlTitleAndHeader("tinderbox: add images", "add images");
-
-$| = 1;
-
-require "globals.pl";
-require "imagelog.pl";
-
-&split_cgi_args;
-
-
-sub Error {
-    my ($msg) = @_;
-    print "<BR><BR><BR>";
-    print "<UL><FONT SIZE='+1'><B>Something went wrong:</B><P>";
-    print "<UL>";
-    print $msg;
-    print "</UL>";
-    print "<P>";
-    print "Hit <B>\`Back'</B> and try again.";
-    print "</UL>";
-    exit 1;
-}
-
-
-if( $url = $form{"url"} ){
-    $quote = $form{"quote"};
-
-    $quote =~ s/[\r\n]/ /g;
-    $url =~ s/[\r\n]/ /g;
-
-    $width = "";
-    $height = "";
-# I think we don't want to allow this --jwz
-#    $width = $form{"width"};
-#    $height = $form{"height"};
-
-    if ($width eq "" || $height eq "") {
-        $size = &URLsize($url);
-        if ($size =~ /WIDTH=([0-9]*)/) {
-            $width = $1;
-        }
-        if ($size =~ /HEIGHT=([0-9]*)/) {
-            $height = $1;
-        }
-        if ($width eq "" || $height eq "") {
-            Error "Couldn't get image size for \"$url\".\n";
-        }
-    }
-
-    print " 
-    
-<P><center><img border=2 src='$url' width=$width height=$height><br>
-<i>$quote</i><br><br>
-";
-
-    if( $form{"submit"} ne "Yes" ){
-        my $u2 = $url;
-        my $q2 = $quote;
-        $u2 =~ s@&@&amp;@g; $u2 =~ s@<@&lt;@g; $u2 =~ s@\"@&quot;@g;
-        $q2 =~ s@&@&amp;@g; $q2 =~ s@<@&lt;@g; $q2 =~ s@\"@&quot;@g;
-
-        print "
-<form action='addimage.cgi' METHOD='get'>
-<input type=hidden name=url value=\"$u2\">
-<input type=hidden name=quote value=\"$q2\">
-<HR>
-<TABLE>
- <TR>
-  <TH ALIGN=RIGHT NOWRAP>Image URL:</TH>
-  <TD><TT><B>$u2</B></TT></TD>
- </TR><TR>
-  <TH ALIGN=RIGHT>Caption:</TH>
-  <TD><TT><B>$q2</B></TT></TD>
- </TR>
- <TR>
-  <TD></TD>
-  <TD>
-   <FONT SIZE=+2><B>
-   Does that look right?
-   <SPACER SIZE=10>
-   <INPUT Type='submit' name='submit' value='Yes'>
-   </B><BR>(If not, hit \`Back' and fix it.)
-   </FONT>
- </TD>
-</TABLE>
-</form>
-";
-    }
-    else {
-        &add_imagelog( $url, $quote, $width, $height );
-        print "<br><br>
-        <font size=+2>Has been added</font><br><br>
-        <a href=showbuilds.cgi>Return to Log</a>";
-    }
-
-}
-else {
-    print "
-<h2>Add an image and a funny caption.</h2>
-
-<ul>
-<p>This is about fun, and making your daily excursion to 
-<A HREF=http://www.mozilla.org/tinderbox.html>Tinderbox</A> a
-novel experience.  Engineers spend a lot of time here; it might as well
-have some entertainment value.
-
-<p>Please play nice. We don't have the time or inclination to look at
-everything you people submit, but if we get nastygrams or legalgrams
-and have to take something down, we will curse your IP address, and you
-might even make it so the whole thing goes away forever. Please don't
-make us go there. You might also avoid links to big images or slow
-servers.  
-
-<p><ul><B>Thank you for playing nice.</B></UL>
-
-<p>If you really find an image offensive, please
-<A HREF=mailto:terry\@netscape.com?Subject=offensive%20tinderbox%20image>tell us</A>
-nicely before someone causes a stink.  Be sure to include the URL of
-the image.  Remember, we don't screen these submissions and may not
-have even seen it.
-
-<p><ul><B>P.S. Please, no more pictures of Bill Gates.</B></UL>
-</ul>
-
-<p><form action='addimage.cgi' METHOD='get'>
-<TABLE>
- <TR>
-  <TH ALIGN=RIGHT NOWRAP>Image URL:</TH>
-  <TD><INPUT NAME='url' SIZE=60></TD>
- </TR><TR>
-  <TH ALIGN=RIGHT>Caption:</TH>
-  <TD><INPUT NAME='quote' SIZE=60></TD>
- </TR><TR>
-  <TD></TD>
-  <TD><B>
-   <INPUT Type='submit' name='submit' value='Test'>
-   <SPACER SIZE=25>
-   <INPUT Type='reset' name='reset' value='Reset'>
-  </B></TD>
- </TR>
-</TABLE>
-
-</form>
-<br><br>
-";
-}
-
-sub split_cgi_args {
-    local($i,$var,$value, $s);
-
-    $s = $ENV{"QUERY_STRING"};
-
-    @args= split(/\&/, $s );
-
-    for $i (@args) {
-        ($var, $value) = split(/=/, $i);
-        $value =~ tr/+/ /;
-        $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
-        $form{$var} = $value;
-    }
-}
-
-
-#sub imgsize {
-#    local($file)= @_;
-#
-#    #first try to open the file
-#    if( !open(STREAM, "<$file") ){
-#        Error "Can't open IMG $file"; 
-##        $size="";
-#    } else {
-#        if ($file =~ /.jpg/i || $file =~ /.jpeg/i) {
-#            $size = &jpegsize(STREAM);
-#        } elsif($file =~ /.gif/i) {
-#            $size = &gifsize(STREAM);
-#        } elsif($file =~ /.xbm/i) {
-#            $size = &xbmsize(STREAM);
-#        } else {
-#           return "";
-#        }
-#        $_ = $size;
-#        if(  /\s*width\s*=\s*([0-9]*)\s*/i ){
-#            ($newwidth)= /\s*width\s*=\s*(\d*)\s*/i;
-#        }
-#        if(  /\s*height\s*=\s*([0-9]*)\s*/i ){
-#            ($newheight)=/\s*height\s*=\s*(\d*)\s*/i;
-#        }
-#        close(STREAM);
-#    }
-#    return $size;
-#}
-
-###########################################################################
-# Subroutine gets the size of the specified GIF
-###########################################################################
-
-# bug: it thinks that 
-# http://cvs1.mozilla.org/webtools/tinderbox/data/knotts.gif
-# is 640x400, but it's really 200x245.
-# giftrans says of that image:
-#
-#   Header: "GIF87a"
-#   Logical Screen Descriptor:
-#       Logical Screen Width: 640 pixels
-#       Logical Screen Height: 480 pixels
-#   Image Descriptor:
-#       Image Width: 200 pixels
-#       Image Height: 245 pixels
-
-
-sub gifsize {
-    local($GIF) = @_;
-    read($GIF, $type, 6); 
-    if(!($type =~ /GIF8[7,9]a/) || 
-       !(read($GIF, $s, 4) == 4) ){
-        Error "Invalid or Corrupted GIF"; 
-        $size="";
-    } else {
-        ($a,$b,$c,$d)=unpack("C"x4,$s);
-        $size=join ("", 'WIDTH=', $b<<8|$a, ' HEIGHT=', $d<<8|$c);
-    }
-    return $size;
-}
-
-sub xbmsize {
-    local($XBM) = @_;
-    local($input)="";
-
-    $input .= <$XBM>;
-    $input .= <$XBM>;
-    $_ = $input;
-    if( /#define\s*\S*\s*\d*\s*\n#define\s*\S*\s*\d*\s*\n/i ){
-       ($a,$b)=/#define\s*\S*\s*(\d*)\s*\n#define\s*\S*\s*(\d*)\s*\n/i;
-       $size=join ("", 'WIDTH=', $a, ' HEIGHT=', $b );
-   } else {
-       Error "Doesn't look like an XBM file";
-   }
-    return $size;
-}
-
-# jpegsize : gets the width and height (in pixels) of a jpeg file
-# Andrew Tong, werdna@ugcs.caltech.edu           February 14, 1995
-# modified slightly by alex@ed.ac.uk
-sub jpegsize {
-    local($JPEG) = @_;
-    local($done)=0;
-    $size="";
-
-    read($JPEG, $c1, 1); read($JPEG, $c2, 1);
-    if( !((ord($c1) == 0xFF) && (ord($c2) == 0xD8))){
-        my $s = sprintf "This is not a JPEG! (Codes %02X %02X)\n", ord($c1), ord($c2);
-        Error $s;
-        $done=1;
-    }
-    while (ord($ch) != 0xDA && !$done) {
-        # Find next marker (JPEG markers begin with 0xFF)
-        # This can hang the program!!
-        while (ord($ch) != 0xFF) {  read($JPEG, $ch, 1); }
-        # JPEG markers can be padded with unlimited 0xFF's
-        while (ord($ch) == 0xFF) { read($JPEG, $ch, 1); }
-        # Now, $ch contains the value of the marker.
-            $marker=ord($ch);
-
-            if (($marker >= 0xC0) && ($marker <= 0xCF) &&
-            ($marker != 0xC4) && ($marker != 0xCC)) {  # it's a SOFn marker
-            read ($JPEG, $junk, 3); read($JPEG, $s, 4);
-            ($a,$b,$c,$d)=unpack("C"x4,$s);
-            $size=join("", 'HEIGHT=',$a<<8|$b,' WIDTH=',$c<<8|$d );
-            $done=1;
-        } else {
-            # We **MUST** skip variables, since FF's within variable 
-            # names are NOT valid JPEG markers
-            read ($JPEG, $s, 2); 
-            ($c1, $c2) = unpack("C"x2,$s); 
-            $length = $c1<<8|$c2;
-            if( ($length < 2) ){
-                Error "Bad JPEG file: erroneous marker length";
-                $done=1;
-            } else {
-                read($JPEG, $junk, $length-2);
-            }
-        }
-    }
-    return $size;
-}
-
-###########################################################################
-# Subroutine grabs a gif from another server and gets its size
-###########################################################################
-
-
-sub URLsize {
-    my ($fullurl) = @_;
-
-    $_ = $fullurl;
-    if ( ! m@^http://@ ) {
-        Error "HTTP URLs only, please: \"$_\" is no good.";
-    }
-
-    my($dummy, $dummy, $serverstring, $url) = split(/\//, $fullurl, 4);
-    my($them,$port) = split(/:/, $serverstring);
-    my $port = 80 unless $port;
-    my $size="";
-
-    $_ = $them;
-    if ( m@^[^.]*$@ ) {
-        Error "Fully-qualified host names only, please: \"$_\" is no good.";
-    }
-
-    $_=$url;
-    my ($remote, $iaddr, $paddr, $proto, $line);
-    $remote = $them;
-    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);
-
-    print S "GET /$url HTTP/1.0\r\n";
-    print S "Host: $them\r\n";
-    print S "User-Agent: Tinderbox/0.0\r\n";
-    print S "\r\n";
-
-    $_ = <S>;
-    if (! m@^HTTP/[0-9.]+ 200@ ) {
-        Error "$them responded:<BR> $_";
-    }
-
-    my $ctype = "";
-    while (<S>) {
-        # print "read: $_<br>\n";
-        if ( m@^Content-Type:[ \t]*([^ \t\r\n]+)@io ) {
-            $ctype = $1;
-        }
-        last if (/^[\r\n]/);
-    }
-
-    $_ = $ctype;
-    if ( $_ eq "" ) {
-        Error "Server returned no content-type for \"$fullurl\"?";
-    } elsif ( m@image/jpeg@i || m@image/pjpeg@i ) {
-        $size = &jpegsize(S);
-    } elsif ( m@image/gif@i ) {
-        $size = &gifsize(S);
-    } elsif ( m@image/xbm@i || m@image/x-xbm@i || m@image/x-xbitmap@i ) {
-        $size = &xbmsize(S);
-    } else {
-        Error "Not a GIF, JPEG, or XBM: that was of type \"$ctype\".";
-    }               
-
-    $_ = $size;
-    if(  /\s*width\s*=\s*([0-9]*)\s*/i ){
-        ($newwidth)= /\s*width\s*=\s*(\d*)\s*/i;
-    }
-    if(  /\s*height\s*=\s*([0-9]*)\s*/i ){
-        ($newheight)=/\s*height\s*=\s*(\d*)\s*/i;
-    }
-
-    if ( $newwidth eq "" || $newheight eq "" ) {
-        return "";
-    } else {
-        if ( $newwidth <= 5 || $newheight <= 5 ) {
-            Error "${newwidth}x${newheight} seems small, don't you think?";
-        } elsif ( $newwidth >= 400 || $newheight >= 400 ) {
-            Error "${newwidth}x${newheight} is too big; please" .
-                " keep it under 400x400."
-        }
-        return $size;
-    }
-}
-
-sub dokill {
-    kill 9,$child if $child;
-}

mozilla/webtools/tinderbox/addnote.cgi

@@ -1,206 +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 Tinderbox build tool.
-#
-# The Initial Developer of the Original Code is Netscape Communications
-# Corporation. Portions created by Netscape are Copyright (C) 1998
-# Netscape Communications Corporation. All Rights Reserved.
-
-use lib "../bonsai";
-use Fcntl;
-
-require "globals.pl";
-require 'lloydcgi.pl';
-
-if (defined($args = $form{log})) {
-
-  ($tree, $logfile) = split /\//, $args;
-
-  my $br = find_build_record($tree, $logfile);
-  $errorparser = $br->{errorparser};
-  $buildname   = $br->{buildname};
-  $buildtime   = $br->{buildtime};
-} else {
-  $tree        = $form{'tree'};
-  $logfile     = $form{'logfile'};
-  $errorparser = $form{'errorparser'};
-  $buildname   = $form{'buildname'};
-  $buildtime   = $form{'buildtime'};
-}
-
-$enc_buildname = &url_encode($buildname);
-
-$note = $form{'note'};
-$who  = $form{'who'};
-
-$now = time;
-$now_str = &print_time($now);
-
-$|=1;
-
-if( -r "$tree/ignorebuilds.pl" ){
-     require "$tree/ignorebuilds.pl";
- }
-
-print "Content-Type:text/html\n";
-if ($ENV{"REQUEST_METHOD"} eq 'POST' && defined($form{'note'})) {
-    # Expire the cookie 5 months from now
-    print "Set-Cookie: email=$form{who}; expires="
-        . toGMTString(time + 86400 * 152) . "; path=/\n";
-}     
-print "\n<HTML>\n";
-
-if( $url = $form{"note"} ){
-
-    $note =~ s/\&/&amp;/gi;
-    $note =~ s/\</&lt;/gi;
-    $note =~ s/\>/&gt;/gi;
-    $enc_note = url_encode( $note );
-
-    open( NOTES,">>$tree/notes.txt");
-    flock(NOTES, LOCK_EX);
-    print NOTES "$buildtime|$buildname|$who|$now|$enc_note\n"; 
-
-       &LoadBuildTable;
-
-    foreach $element (keys %form) {
-
-          if(exists ${$build_name_index}{$element}) {
-             print NOTES "${$build_name_index}{$element}|$element|$who|$now|$enc_note\n"; 
-          } #EndIf
-    } #Endforeach
-    close(NOTES);
-
-    print "<H1>The following comment has been added to the log</h1>\n";
-
-    #print "$buildname \n $buildtime \n $errorparser \n $logfile \n  $tree \n $enc_buildname \n";
-    print "<pre>\n[<b>$who - $now_str</b>]\n$note\n</pre>";
-
-    print"
-<p><a href=\"showlog.cgi?tree=$tree\&buildname=$enc_buildname\&buildtime=$buildtime\&logfile=$logfile\&errorparser=$errorparser\">
-Go back to the Error Log</a>
-<a href=\"showbuilds.cgi?tree=$tree\">
-<br>Go back to the build Page</a>";
-
-  # Build tinderbox static pages
-  $ENV{QUERY_STRING}="tree=$tree&static=1";
-  $ENV{REQUEST_METHOD}="GET";
-  system './showbuilds.cgi >/dev/null';
-
-} else {
-
-  &GetBuildNameIndex;
-
-  @names = sort (keys %$build_name_index);
-
-  if ($buildname eq '' || $buildtime == 0) {
-    print "<h1>Invalid parameters</h1>\n";
-    die "\n";
-  }
-
-#print "$buildname \n $buildtime \n $errorparser \n $logfile \n  $tree \n $enc_buildname \n";
-
-$emailvalue = '';
-$emailvalue = " value='$cookie_jar{email}'" if defined($cookie_jar{email});
-
-print qq(
-<head><title>Add a Comment to $buildname log</title></head>
-<body BGCOLOR="#FFFFFF" TEXT="#000000"LINK="#0000EE" VLINK="#551A8B" ALINK="#FF0000">
-
-<table><tr><td>
-<b><font size="+2">Add a Log Comment</font></b>
-</td></tr><tr><td>
-<b><code>$buildname</code></b>
-</td></tr></table>
-
-<form action='addnote.cgi' METHOD='post'>
-
-<INPUT Type='hidden' name='buildname' value='${buildname}'>
-<INPUT Type='hidden' name='buildtime' value='${buildtime}'>
-<INPUT Type='hidden' name='errorparser' value='$errorparser'>
-<INPUT Type='hidden' name='logfile' value='$logfile'>
-<INPUT Type='hidden' name='tree' value='$tree'>
-
-<table border=0 cellpadding=4 cellspacing=1>
-<tr valign=top>
-  <td align=right>
-     <NOWRAP>Email address:</NOWRAP>
-  </td><td>
-     <INPUT Type='input' name='who' size=32$emailvalue><BR>
-  </td>
-</tr><tr valign=top>
-  <td align=right>
-     Comment:
-  </td><td>
-     <TEXTAREA NAME=note ROWS=10 COLS=30 WRAP=HARD></textarea>
-  </td>
-</tr>
-</table>
-<br><b><font size="+2">Addition Builds</font></b><br>
-(Comment will be added to the most recent cycle.)<br>
-);
-
-for $other_build (@names){
-    if( $other_build ne "" ){
-      
-      if (not exists ${$ignore_builds}{$other_build}) {
-        if( $other_build ne $buildname ){
-          print "<INPUT TYPE=checkbox NAME=\"$other_build\">";
-          print "$other_build<BR>\n";
-        }
-      } #EndIf
-    }
-} #Endfor
-
-print "<INPUT Type='submit' name='submit' value='Add Comment'><BR>
-</form>\n</body>\n</html>";
-}
-
-sub GetBuildNameIndex {
-local($mailtime, $buildtime, $buildname, $errorparser, $buildstatus, $logfile, $binaryname);
-
-open(BUILDLOG, "$tree/build.dat") or die "Couldn't open build.dat: $!\n";
-
-while(<BUILDLOG>) {
-    chomp;
-    ($mailtime, $buildtime, $buildname, $errorparser, $buildstatus, $logfile, $binaryname) = 
-         split( /\|/ );
-
-    $build_name_index->{$buildname} = 0;
-
-} #EndWhile
-close(BUILDLOG);
-
-}
-
-
-sub LoadBuildTable {
-local($mailtime, $buildtime, $buildname, $errorparser, $buildstatus, $logfile, $binaryname);
-
-open(BUILDLOG, "$tree/build.dat") or die "Couldn't open build.dat: $!\n";
-
-while(<BUILDLOG>) {
-    chomp;
-    ($mailtime, $buildtime, $buildname, $errorparser, $buildstatus, $logfile, $binaryname) = 
-         split( /\|/ );
-
-    if ($buildtime > $build_name_index->{$buildname} ) {
-    $build_name_index->{$buildname} = $buildtime;
-    }
-
-} #EndWhile
-close(BUILDLOG);
-
-}
-

mozilla/webtools/tinderbox/admintree.cgi

@@ -1,131 +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 Tinderbox build tool.
-#
-# The Initial Developer of the Original Code is Netscape Communications
-# Corporation. Portions created by Netscape are Copyright (C) 1998
-# Netscape Communications Corporation. All Rights Reserved.
-
-use lib "../bonsai";
-
-require 'lloydcgi.pl';
-require 'globals.pl';
-require 'header.pl';
-
-$|=1;
-
-print "Content-type: text/html\n\n<HTML>\n";
-
-EmitHtmlHeader("administer tinderbox", "tree: $tree");
-
-$form{noignore} = 1;            # Force us to load all build info, not
-                                # paying any attention to ignore_builds stuff.
-$maxdate = time();
-$mindate = $maxdate - 24*60*60;
-&load_data;
-
-if (defined($tree)) {
-    if( -r "$tree/mod.pl" ){
-        require "$tree/mod.pl";
-    }
-    else {
-        $message_of_day = "";
-    }
-
-    print "
-<FORM method=post action=doadmin.cgi>
-<B>Password:</B> <INPUT NAME=password TYPE=password>
-<INPUT TYPE=HIDDEN NAME=tree VALUE=$tree>
-<INPUT TYPE=HIDDEN NAME=command VALUE=set_message>
-<br><b>Message of the Day
-<br><TEXTAREA NAME=message ROWS=10 COLS=70 WRAP=SOFT>$message_of_day
-</TEXTAREA>
-<br><INPUT TYPE=SUBMIT VALUE='Set Message of the Day'>
-</FORM>
-<hr>
-";
-
-
-    print "
-<FORM method=post action=doadmin.cgi>
-<B>Password:</B> <INPUT NAME=password TYPE=password>
-<INPUT TYPE=HIDDEN NAME=tree VALUE=$tree>
-<INPUT TYPE=HIDDEN NAME=command VALUE=trim_logs>
-<br><b>Trim Logs to <INPUT NAME=days size=5 VALUE='7'> days.</b> (Tinderbox 
-shows 2 days history by default.  You can see more by clicking show all).
-<br><INPUT TYPE=SUBMIT VALUE='Trim Logs'>
-</FORM>
-<FORM method=post action=doadmin.cgi>
-<hr>
-"   ;
-}
-
-print "
-<FORM method=post action=doadmin.cgi>
-<B>Password:</B> <INPUT NAME=password TYPE=password> <BR>
-<INPUT TYPE=HIDDEN NAME=tree VALUE=$tree>
-<INPUT TYPE=HIDDEN NAME=command VALUE=create_tree>
-<TABLE>
-<TR>
-<TD><B>tinderbox tree name:</B></TD>
-<TD><INPUT NAME=treename VALUE=''></TD>
-</TR><TR>
-<TD><B>cvs repository:</B></TD>
-<TD><INPUT NAME=repository VALUE=''></TD>
-</TR><TR>
-<TD><B>cvs module name:</B></TD>
-<TD><INPUT NAME=modulename VALUE=''></TD>
-</TR><TR>
-<TD><B>cvs branch:</B></TD>
-<TD><INPUT NAME=branchname VALUE='HEAD'></TD>
-</TR>
-</TABLE>
-<INPUT TYPE=SUBMIT VALUE='Create a new Tinderbox page'>
-</FORM>
-<FORM method=post action=doadmin.cgi>
-<hr>
-";
-
-if (defined($tree)) {
-    print "
-<B><font size=+1>If builds are behaving badly you can turn them off.</font></b><br>  Uncheck
-the build that is misbehaving and click the button.  You can still see all the
-builds even if some are disabled by adding the parameter <b><tt>&noignore=1</tt></b> to
-the tinderbox URL.<br>
-<B>Password:</B> <INPUT NAME=password TYPE=password> <BR>
-<INPUT TYPE=HIDDEN NAME=tree VALUE=$tree>
-<INPUT TYPE=HIDDEN NAME=command VALUE=disable_builds>
-";
-
-    @names = sort (@$build_name_names) ;
-
-    for $i (@names){
-        if( $i ne "" ){
-            $checked = ($ignore_builds->{$i} != 0 ? "": "CHECKED" );
-            print "<INPUT TYPE=checkbox NAME='build_$i' $checked >";
-            print "$i<br>\n";
-        }
-    }
-
-    print "
-<INPUT TYPE=SUBMIT VALUE='Show only checked builds'>
-</FORM>
-<hr>
-";
-}
-
-
-
-
-

mozilla/webtools/tinderbox/buildwho.pl

@@ -1,97 +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 Tinderbox build tool.
-#
-# The Initial Developer of the Original Code is Netscape Communications
-# Corporation. Portions created by Netscape are Copyright (C) 1998
-# Netscape Communications Corporation. All Rights Reserved.
-
-use lib "../bonsai";
-
-require 'globals.pl';
-
-$F_DEBUG=1;
-
-
-$days = 2;
-
-if ($ARGV[0] eq "-days") {
-    shift @ARGV;
-    $days = shift @ARGV;
-}
-
-$tree = $ARGV[0];
-
-open(SEMFILE, ">>$tree/buildwho.sem") || die "Couldn't open semaphore file!";
-if (!flock(SEMFILE, 2 + 4)) {   # 2 means "lock"; 4 means "fail immediately if
-                                # lock already taken".
-    print "buildwho.pl: Another process is currently building the database.\n";
-    exit(0);
-}
-
-require "$tree/treedata.pl";
-
-if( $cvs_root eq '' ){
-    $CVS_ROOT = '/m/src';
-}
-else {
-    $CVS_ROOT = $cvs_root;
-}
-
-$CVS_REPOS_SUFIX = $CVS_ROOT;
-$CVS_REPOS_SUFIX =~ s/\//_/g;
-    
-$CHECKIN_DATA_FILE = "/d/webdocs/projects/bonsai/data/checkinlog${CVS_REPOS_SUFIX}";
-$CHECKIN_INDEX_FILE = "/d/webdocs/projects/bonsai/data/index${CVS_REPOS_SUFIX}";
-
-require 'cvsquery.pl';
-
-print "cvsroot='$CVS_ROOT'\n";
-
-&build_who;
-
-flock(SEMFILE, 8);              # '8' is magic 'unlock' const.
-close SEMFILE;
-
-
-sub build_who {
-    open(BUILDLOG, "<$tree/build.dat" );
-    $line = <BUILDLOG>;
-    close(BUILDLOG);
-
-    #($j,$query_date_min) = split(/\|/, $line);
-    $query_date_min = time - (60 * 60 * 24 * $days);
-
-    if( $F_DEBUG ){
-        print "Minimum date: $query_date_min\n";
-    }
-
-    $query_module=$cvs_module;
-    $query_branch=$cvs_branch;
-
-    $result = &query_checkins;
-
-    
-    $last_who='';
-    $last_date=0;
-    open(WHOLOG, ">$tree/who.dat" );
-    for $ci (@$result) {
-        if( $ci->[$CI_DATE] != $last_date || $ci->[$CI_WHO] != $last_who ){
-            print WHOLOG "$ci->[$CI_DATE]|$ci->[$CI_WHO]\n";
-        }
-        $last_who=$ci->[$CI_WHO];
-        $last_date=$ci->[$CI_DATE];
-    }
-    close( WHOLOG );
-}

mozilla/webtools/tinderbox/bustagestats.cgi

@@ -1,124 +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 Tinderbox build tool.
-#
-# The Initial Developer of the Original Code is Netscape Communications
-# Corporation. Portions created by Netscape are Copyright (C) 1998
-# Netscape Communications Corporation. All Rights Reserved.
-
-use lib "../bonsai";
-
-require 'lloydcgi.pl';
-require 'globals.pl';
-require 'header.pl';
-
-use Date::Parse;
-use Date::Format;
-
-my $TIMEFORMAT = "%D %T";
-
-$|=1;
-
-print "Content-type: text/html\n\n<HTML>\n";
-
-# &load_data;
-
-EmitHtmlHeader("Statistics");
-
-my $tree = $form{'tree'};
-my $start = $form{'start'};
-my $end = $form{'end'};
-
-sub str2timeAndCheck {
-    my ($str) = (@_);
-    my $result = str2time($str);
-    if (defined $result && $result > 7000000) {
-        return $result;
-    }
-    print "<p><font color=red>Can't parse as a date: $str</font><p>\n";
-    return 0;
-}
-
-if (defined $tree && defined $start && defined $end) {
-    my $first = str2timeAndCheck($start);
-    my $last = str2timeAndCheck($end);
-    if ($first > 0 && $last > 0) {
-        if (open(IN, "<$tree/build.dat")) {
-            print "<hr><center><h1>Bustage stats for $tree</H1><H3>from " .
-                time2str($TIMEFORMAT, $first) . " to " .
-                    time2str($TIMEFORMAT, $last) . "</H3></center>\n";
-            my %stats;
-            while (<IN>) {
-                chomp;
-                my ($mailtime, $buildtime, $buildname, $errorparser,
-                    $buildstatus, $logfile, $binaryname) = 
-                        split( /\|/ );
-                if ($buildtime >= $first && $buildtime <= $last) {
-                    if (!defined $stats{$buildname}) {
-                        $stats{$buildname} = 0;
-                    }
-                    if ($buildstatus eq "busted") {
-                        $stats{$buildname}++;
-                    }
-                }
-            }
-            print "<table>\n";
-            print "<tr><th>Build name</th><th>Number of bustages</th></tr>\n";
-            foreach my $key (sort (keys %stats)) {
-                print "<tr><td>$key</td><td>$stats{$key}</td></tr>\n";
-            }
-            print "</table>\n";
-        } else {
-            print "<p><font color=red>There does not appear to be a tree " .
-                "named '$tree'.</font><p>";
-        }
-        
-    }
-    print "<hr>\n";
-}
-
-if (!defined $tree) {
-    $tree = "";
-}
-
-if (!defined $start) {
-    $start = time2str($TIMEFORMAT, time() - 7*24*60*60); # One week ago.
-}
-
-if (!defined $end) {
-    $end = time2str($TIMEFORMAT, time()); # #now
-}
-
-
-print qq|
-<form>
-<table>
-<tr>
-<th align=right>Tree:</th>
-<td><input name=tree size=30 value="$tree"></td>
-</tr>
-<tr>
-<th align=right>Start time:</th>
-<td><input name=start size=30 value="$start"></td>
-</tr>
-<tr>
-<th align=right>End time:</th>
-<td><input name=end size=30 value="$end"></td>
-</tr>
-</table>
-
-<INPUT TYPE=\"submit\" VALUE=\"Generate stats \">
-
-</form>
-|;

mozilla/webtools/tinderbox/clean.pl

@@ -1,42 +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 Tinderbox build tool.
-#
-# The Initial Developer of the Original Code is Netscape Communications
-# Corporation. Portions created by Netscape are Copyright (C) 1998
-# Netscape Communications Corporation. All Rights Reserved.
-
-# Figure out which directory tinderbox is in by looking at argv[0]
-
-$tinderboxdir = $0;
-$tinderboxdir =~ s:/[^/]*$::;      # Remove last word, and slash before it.
-if ($tinderboxdir eq "") {
-    $tinderboxdir = ".";
-}
-
-#print "tinderbox = $tinderboxdir\n"; 
-
-chdir $tinderboxdir || die "Couldn't chdir to $tinderboxdir"; 
-
-#print "cd ok\n";
-
-open FL, "find . -name \"*.gz\" -mtime +7 -print |";
-
-#print "find ok\n";
-
-while( <FL> ){
-    chop();
-    #print "unlink $_\n";
-    unlink $_;
-}

mozilla/webtools/tinderbox/copydata.pl

@@ -1,91 +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 Tinderbox build tool.
-#
-# The Initial Developer of the Original Code is Netscape Communications
-# Corporation. Portions created by Netscape are Copyright (C) 1998
-# Netscape Communications Corporation. All Rights Reserved.
-
-#
-# to run this script execute 'nohup copydata.pl &' from the tinderbox directory
-#
-
-$start_dir = `pwd`;
-chop($start_dir);
-$scp_cmd = "scp  -o 'User snapshot' -o'Port 22' -o 'UserKnownHostsFile /u/shaver/snapshot/known_hosts' -o 'IdentityFile /u/shaver/snapshot/identity'";
-
-
-$last_time = 0;
-
-$min_cycle_time = 3 * 60;  # 3 minutes
-
-print "starting dir is :$start_dir\n";
-
-while( 1 ){
-    chdir("$start_dir");
-    if( time - $last_time < $min_cycle_time ){
-        $sleep_time = $min_cycle_time - (time - $last_time);
-        print "\n\nSleeping $sleep_time seconds ...\n";
-        sleep( $sleep_time );
-    }
-
-    &copy_data("Mozilla");
-    &copy_data("raptor");
-
-    chdir( "$start_dir");
-    print  "$scp_cmd * cvs1.mozilla.org:/e/webtools/tinderbox\n";
-    system "$scp_cmd * cvs1.mozilla.org:/e/webtools/tinderbox";
-
-    chdir( "$start_dir/../bonsai");
-    print  "$scp_cmd * cvs1.mozilla.org:/e/webtools/bonsai\n";
-    system "$scp_cmd * cvs1.mozilla.org:/e/webtools/bonsai";
-
-
-    $last_time = time;
-}
-
-1;
-
-
-sub copy_data {
-    local($data_dir) = @_;
-    local($zips,$qry);
-
-chdir $data_dir || die "couldn't chdir to $data_dir";
-
-system "echo hello >lastup.new";
-
-if( -r 'lastup' ) {
-    $qry = '-newer lastup.old';
-    rename 'lastup', 'lastup.old'
-}
-rename 'lastup.new', 'lastup';
-
-
-open( FINDER, "find . $qry -name \"*.gz\" -print|" );
-while(<FINDER>){
-    print;
-    chop;
-    $zips .= "$_ ";
-}
-close( FINDER );
-
-unlink 'lastup.old';
-
-print "$scp_cmd *.txt $zips *.dat cvs1.mozilla.org:/e/webtools/tinderbox/$data_dir\n";
-system "$scp_cmd *.txt $zips *.dat cvs1.mozilla.org:/e/webtools/tinderbox/$data_dir";
-
-
-chdir $start_dir || die "couldn't chdir to $start_dir";
-}

mozilla/webtools/tinderbox/doadmin.cgi

@@ -1,217 +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 Tinderbox build tool.
-#
-# The Initial Developer of the Original Code is Netscape Communications
-# Corporation. Portions created by Netscape are Copyright (C) 1998
-# Netscape Communications Corporation. All Rights Reserved.
-
-
-use lib "../bonsai";
-require 'lloydcgi.pl';
-require 'globals.pl';
-
-umask O666;
-
-
-$|=1;
-
-check_password();
-
-print "Content-type: text/html\n\n<HTML>\n";
-
-$command = $form{'command'};
-$tree= $form{'tree'};
-
-if( $command eq 'create_tree' ){
-    &create_tree;
-}
-elsif( $command eq 'remove_build' ){
-    &remove_build;
-}
-elsif( $command eq 'trim_logs' ){
-    &trim_logs;
-}
-elsif( $command eq 'set_message' ){
-    &set_message;
-}
-elsif( $command eq 'disable_builds' ){
-    &disable_builds;
-} else {
-    print "Unknown command: \"$command\".";
-}
-
-sub trim_logs {
-    $days = $form{'days'};
-    $tree = $form{'tree'};
-
-    print "<h2>Trimming Log files for $tree...</h2>\n<p>";
-    
-    $min_date = time - (60*60*24 * $days);
-
-    #
-    # Nuke the old log files
-    #
-    $i = 0;
-    opendir( D, 'DogbertTip' );
-    while( $fn = readdir( D ) ){
-        if( $fn =~ /\.gz$/ ){
-            ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,
-                $ctime,$blksize,$blocks) = stat("$tree/$fn");
-            if( $mtime && ($mtime < $min_date) ){
-                print "$fn\n";
-                $tblocks += $blocks;
-                unlink( "$tree/$fn" );
-                $i++;
-            }
-        }
-    }
-    closedir( D );
-    $k = $tblocks*512/1024;
-    print "<br><b>$i Logfiles ( $k K bytes ) removed</b><br>\n";
-
-    #
-    # Trim build.dat
-    #
-    $builds_removed = 0;
-    open(BD, "<$tree/build.dat");
-    open(NBD, ">$tree/build.dat.new");
-    while( <BD> ){
-        ($mailtime,$buildtime,$buildname) = split( /\|/ );
-        if( $buildtime >= $min_date ){
-            print NBD $_;
-        }
-        else {
-            $builds_removed++;
-        }
-    }
-    close( BD );
-    close( NBD );
-
-    rename( "$tree/build.dat", "$tree/build.dat.old" );
-    rename( "$tree/build.dat.new", "$tree/build.dat" );
-
-    print "<h2>$builds_removed Builds removed from build.dat</h2>\n";
-}
-
-sub create_tree {
-    $treename = $form{'treename'};
-    my $repository = $form{'repository'};
-    $modulename = $form{'modulename'};
-    $branchname = $form{'branchname'};
-
-    if( -r $treename ){
-        chmod 0777, $treename;
-    }
-    else {
-        mkdir( $treename, 0777 ) || die "<h1> Cannot mkdir $treename</h1>";
-    }
-    open( F, ">$treename/treedata.pl" );
-    print F "\$cvs_module='$modulename';\n";
-    print F "\$cvs_branch='$branchname';\n";
-    if ($repository ne "") {
-        print F "\$cvs_root='$repository';\n";
-    }
-    close( F );
-
-    open( F, ">$treename/build.dat" );
-    close( F );
-    
-    open( F, ">$treename/who.dat" );
-    close( F );
-
-    open( F, ">$treename/notes.txt" );
-    close( F );
-
-    chmod 0777, "$treename/build.dat", "$treename/who.dat", "$treename/notes.txt",
-                "$treename/treedata.pl";
-
-    print "<h2><a href=showbuilds.cgi?tree=$treename>Tree created or modified</a></h2>\n";
-}
-
-sub remove_build {
-    $build_name = $form{'build'};
-
-    #
-    # Trim build.dat
-    #
-    $builds_removed = 0;
-    open(BD, "<$tree/build.dat");
-    open(NBD, ">$tree/build.dat.new");
-    while( <BD> ){
-        ($mailtime,$buildtime,$bname) = split( /\|/ );
-        if( $bname ne $build_name ){
-            print NBD $_;
-        }
-        else {
-            $builds_removed++;
-        }
-    }
-    close( BD );
-    close( NBD );
-    chmod( 0777, "$tree/build.dat.new");
-
-    rename( "$tree/build.dat", "$tree/build.dat.old" );
-    rename( "$tree/build.dat.new", "$tree/build.dat" );
-
-    print "<h2><a href=showbuilds.cgi?tree=$tree>
-            $builds_removed Builds removed from build.dat</a></h2>\n";
-}
-
-sub disable_builds {
-    my $i,%buildnames;
-    $build_name = $form{'build'};
-
-    #
-    # Trim build.dat
-    #
-    open(BD, "<$tree/build.dat");
-    while( <BD> ){
-        ($mailtime,$buildtime,$bname) = split( /\|/ );
-        $buildnames{$bname} = 0;
-    }
-    close( BD );
-
-    for $i (keys %form) {
-        if ($i =~ /^build_/ ){
-            $i =~ s/^build_//;
-            $buildnames{$i} = 1;
-        }
-    }
-
-    open(IGNORE, ">$tree/ignorebuilds.pl");
-    print IGNORE '$ignore_builds = {' . "\n";
-    for $i ( sort keys %buildnames ){
-        if( $buildnames{$i} == 0 ){
-            print IGNORE "\t\t'$i' => 1,\n";
-        }
-    }
-    print IGNORE "\t};\n";
-
-    chmod( 0777, "$tree/ignorebuilds.pl");
-    print "<h2><a href=showbuilds.cgi?tree=$treename>Build state Changed</a></h2>\n";
-}
-
-
-sub set_message {
-    $m = $form{'message'};
-    $m =~ s/\'/\\'/g;
-    open(MOD, ">$tree/mod.pl");
-    print MOD "\$message_of_day = \'$m\'\;\n1;";
-    close(MOD);
-    chmod( 0777, "$tree/mod.pl");
-    print "<h2><a href=showbuilds.cgi?tree=$tree>
-            Message Changed</a></h2>\n";
-}
-

mozilla/webtools/tinderbox/ep_mac.pl

@@ -1,45 +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 Tinderbox build tool.
-#
-# The Initial Developer of the Original Code is Netscape Communications
-# Corporation. Portions created by Netscape are Copyright (C) 1998
-# Netscape Communications Corporation. All Rights Reserved.
-
-1;
-# 
-# Scan a line and see if it has an error
-#
-sub has_error {
-    $line =~ /fatal error/  # link error
-    || $line =~ /Error  /   # C error
-    || $line =~ /\[checkout aborted\]/ #cvs error
-    || $line =~ /Couldn\'t find project file / # CW project error
-;
-}
-
-sub has_warning {                                    
-    $line =~ /^[A-Za-z0-9_]+\.[A-Za-z0-9]+\ line [0-9]+/ ;
-}
-
-sub has_errorline {
-    local( $line ) = @_;
-    if( $line =~ /^(([A-Za-z0-9_]+\.[A-Za-z0-9]+) line ([0-9]+))/ ){
-        $error_file = $1;
-        $error_file_ref = $2;
-        $error_line = $3;
-        $error_guess = 1;
-        return 1;
-    }
-    return 0;
-}

mozilla/webtools/tinderbox/ep_unix.pl

@@ -1,59 +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 Tinderbox build tool.
-#
-# The Initial Developer of the Original Code is Netscape Communications
-# Corporation. Portions created by Netscape are Copyright (C) 1998
-# Netscape Communications Corporation. All Rights Reserved.
-
-1;
-# 
-# Scan a line and see if it has an error
-#
-sub has_error {
-    $line =~ /fatal error/  # link error
-    || $line =~ /^C /   # cvs merge conflict
-    || $line =~ / Error: /   # C error
-    || $line =~ / error\([0-9]*\)\:/   # C error
-    || ($line =~ /gmake/ && $line =~ / Error /)
-    || $line =~ /\[checkout aborted\]/ #cvs error
-    || $line =~ /\: cannot find module/ #cvs error
-
-    ;
-}
-
-
-sub has_warning {                                    
-    $line =~ /^[A-Za-z0-9_]+\.[A-Za-z0-9]+\:[0-9]+\:/ 
-    || $line =~ /^\"[A-Za-z0-9_]+\.[A-Za-z0-9]+\"\, line [0-9]+\:/ 
-;
-}
-
-sub has_errorline {
-    local( $line ) = @_;
-    if( $line =~ /^(([A-Za-z0-9_]+\.[A-Za-z0-9]+)\:([0-9]+)\:)/ ){
-        $error_file = $1;
-        $error_file_ref = $2;
-        $error_line = $3;
-        $error_guess = 1;
-        return 1;
-    }
-    if ( $line =~ /^(\"([A-Za-z0-9_]+\.[A-Za-z0-9]+)\"\, line ([0-9]+)\:)/  ){
-        $error_file = $1;
-        $error_file_ref = $2;
-        $error_line = $3;
-        $error_guess = 1;
-        return 1;
-    }
-    return 0;
-}

mozilla/webtools/tinderbox/ep_windows.pl

@@ -1,73 +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 Tinderbox build tool.
-#
-# The Initial Developer of the Original Code is Netscape Communications
-# Corporation. Portions created by Netscape are Copyright (C) 1998
-# Netscape Communications Corporation. All Rights Reserved.
-
-1;
-# 
-# Scan a line and see if it has an error
-#
-sub has_error {
-    $line =~ /fatal error/  # link error
-    || $line =~ / error /   # C error
-    || $line =~ /^C /   # cvs merge conflict
-    || $line =~ /error C/   # C error
-    || $line =~ /Creating new precompiled header/   # Wastes time.
-    || $line =~ /error:/    # java error
-    || $line =~ /jmake.MakerFailedException:/    # java error
-    || $line =~ /Unknown host /    # cvs error
-    || $line =~ /: build failed\;/    # nmake error
-    || ($line =~ /gmake/ && $line =~ / Error /)
-    || $line =~ /\[checkout aborted\]/ #cvs error
-    || $line =~ /\: cannot find module/ #cvs error
-;
-}
-
-
-sub has_warning {
-    $line =~ /: warning/  # link error
-    || $line =~ / error /   # C error
-;
-}
-
-sub has_errorline {
-    local( $line ) = @_;
-    $error_file = ''; #'NS\CMD\WINFE\CXICON.cpp';
-    $error_line = 0;
-
-    if( $line =~ m@(ns([\\/][a-z0-9\._]+)*)@i ){
-        $error_file = $1;
-        $error_file_ref = lc $error_file;
-        $error_file_ref =~ s@\\@/@g;
-
-        $line =~ m/\(([0-9]+)\)/;
-        $error_line = $1;
-        return 1;
-    }
-
-    if( $line =~ m@(^([A-Za-z0-9_]+\.[A-Za-z])+\(([0-9]+)\))@ ){
-        $error_file = $1;
-        $error_file_ref = lc $2;
-        $error_line = $3;
-        $error_guess=1;
-        $error_file_ref =~ s@\\@/@g;
-
-        return 1;
-    }
-
-    return 0;
-}
-

mozilla/webtools/tinderbox/examples/README

@@ -1,44 +0,0 @@
-This directory contains example Tinderbox client scripts. These scripts are
-for illustration/documentation purposes only and are not maintained
-regularly. Current scripts to build mozilla will live in an another spot
-in the mozilla tree.
-
-Three examples have been provided:
-
-mozilla-windows.pl: perl script that drives mozilla tinderbox builds for Win32
-mozilla-unix.pl   : perl script that drives mozilla tinderbox builds for UNIX
-build-moz-smoke.pl: perl script that drives mozilla tinderbox builds for UNIX,
-	and subsequently runs the executable returning a green tree only if
-	it does not crash.
-
-These scripts show the basic elements of a Tinderbox client script. These
-elements are:
-
-1) Sending a start e-mail to the Tinderbox server, in the form of a formatted
-mail message. Example:
-
-tinderbox: tree: Mozilla
-tinderbox: builddate: 900002087
-tinderbox: status: building
-tinderbox: build: IRIX 6.3 Depend
-tinderbox: errorparser: unix
-tinderbox: buildfamily: unix
-
-2) Obtain a source tree by performing a cvs checkout.
-
-3) Perform the build, saving the output to a log file.
-
-4) Determine if the build was successful or failed. This could be done either
-by checking for the presence of a binary, or being using error codes returned
-from the compile command.
-
-5) Send a completion message to Tinderbox, identifying build success or
-failure.  Example:
-
-tinderbox: tree: Mozilla
-tinderbox: builddate: 900002087
-tinderbox: status: success
-tinderbox: build: IRIX 6.3 Depend
-tinderbox: errorparser: unix
-tinderbox: buildfamily: unix
-

mozilla/webtools/tinderbox/examples/build-moz-smoke.pl

@@ -1,594 +0,0 @@
-#!/usr/bin/perl
-
-require 5.000;
-
-use Sys::Hostname;
-use POSIX "sys_wait_h";
-use Cwd;
-
-$Version = "1.000";
-
-sub InitVars {
-
-    # PLEASE FILL THIS IN WITH YOUR PROPER EMAIL ADDRESS
-    $BuildAdministrator = "$ENV{'USER'}\@$ENV{'HOST'}";
-
-    #Default values of cmdline opts
-    $BuildDepend = 1;	#depend or clobber
-    $ReportStatus = 1;  # Send results to server or not
-    $BuildOnce = 0;     # Build once, don't send results to server
-    $BuildClassic = 0;  # Build classic source
-
-    #relative path to binary
-    $BinaryName{'x'} = 'mozilla-export';
-    $BinaryName{'qt'} = 'qtmozilla-export';
-    $BinaryName{'gnome'} = 'gnuzilla-export';
-    $BinaryName{'webshell'} = '/webshell/tests/viewer/viewer';
-
-    # Set these to what makes sense for your system
-    $cpus = 1;
-    $Make = 'gmake'; # Must be gnu make
-    $mail = '/bin/mail';
-    $Autoconf = 'autoconf -l build/autoconf';
-    $CVS = 'cvs -z3';
-    $CVSCO = 'co -P';
-
-    # Set these proper values for your tinderbox server
-    $Tinderbox_server = 'tinderbox-daemon\@cvs-mirror.mozilla.org';
-    #$Tinderbox_server = 'external-tinderbox-incoming\@tinderbox.seawood.org';
-
-    # These shouldn't really need to be changed
-    $BuildSleep = 10; # Minimum wait period from start of build to start
-                      # of next build in minutes
-    $BuildTree = 'SeaMonkey';
-    $BuildTag = '';
-    $BuildName = '';
-    $TopLevel = '.';
-    $Topsrcdir = 'mozilla';
-    $BuildObjName = '';
-    $BuildConfigDir = 'mozilla/config';
-    $ClobberStr = 'realclean';
-    $ConfigureEnvArgs = 'CFLAGS=-pipe CXXFLAGS=-pipe';
-    #$ConfigureEnvArgs = '';
-    $ConfigureArgs = "--with-nspr=/usr/local/nspr --cache-file=/dev/null --with-static-gtk --enable-editor";
-    $ConfigGuess = './build/autoconf/config.guess';
-    $Logfile = '${BuildDir}.log';
-} #EndSub-InitVars
-
-sub ConditionalArgs {
-    if ( $BuildClassic ) {
-	$FE = 'x';
-	$ConfigureArgs .= " --enable-fe=$FE";
-#	$BuildTree = 'raptor';
-	$BuildModule = 'Raptor';
-	$BuildTag = ''
-	    if ($BuildTag eq '');
-	$TopLevel = "mozilla-classic";
-    } else {
-#	$BuildTree = 'raptor';
-#	$Toolkit = 'gtk';
-	$FE = 'webshell'; 
-#	$BuildModule = 'Raptor';
-	$BuildModule = 'SeaMonkeyAll';
-#	$ConfigureArgs .= " --enable-toolkit=$Toolkit";
-    }
-    $CVSCO .= " -r $BuildTag" if ( $BuildTag ne '');
-}
-sub SetupEnv {
-    umask(0);
-    $ENV{"CVSROOT"} = ':pserver:anonymous@cvs-mirror.mozilla.org:/cvsroot';
-    $ENV{"LD_LIBRARY_PATH"} = '/usr/local/nspr:/builds/tinderbox/SeaMonkey/Linux_2.0.34_clobber/mozilla/obj-i586-pc-linux-gnu/dist/bin:/usr/lib/png:/usr/local/lib';
-    $ENV{"DISPLAY"} = 'crucible.mcom.com:0.0';
-} #EndSub-SetupEnv
-
-sub SetupPath {
-    my($Path);
-    $Path = $ENV{PATH};
-    print "Path before: $Path\n";
-
-    if ( $OS eq 'SunOS' ) {
-	$ENV{'PATH'} = '/usr/ccs/bin:' . $ENV{'PATH'};
-    }
-
-    $Path = $ENV{PATH};
-    print "Path After: $Path\n";
-} #EndSub-SetupPath
-
-##########################################################################
-# NO USER CONFIGURABLE PIECES BEYOND THIS POINT                          #
-##########################################################################
-
-sub GetSystemInfo {
-
-    $OS = `uname -s`;
-    $OSVer = `uname -r`;
-    
-    chop($OS, $OSVer);
-    
-    if ( $OS eq 'AIX' ) {
-	$OSVer = `uname -v`;
-	chop($OSVer);
-	$OSVer = $OSVer . "." . `uname -r`;
-	chop($OSVer);
-    }
-        
-    if ( $OS eq 'IRIX64' ) {
-	$OS = 'IRIX';
-    }
-    
-    if ( $OS eq 'SCO_SV' ) {
-	$OS = 'SCOOS';
-	$OSVer = '5.0';
-    }
-    
-    my $host, $myhost = hostname;
-    chomp($myhost);
-    ($host, $junk) = split(/\./, $myhost);
-	
-    $BuildName = ""; 
-	
-    if ( "$host" ne "" ) {
-	$BuildName = $host . ' ';
-    }
-    $BuildName .= $OS . ' ' . $OSVer . ' ' . ($BuildDepend?'Depend':'Clobber');
-    $DirName = $OS . '_' . $OSVer . '_' . ($BuildDepend?'depend':'clobber');
-    
-    $RealOS = $OS;
-    $RealOSVer = $OSVer;
-    
-    if ( $OS eq 'HP-UX' ) {
-	$RealOSVer = substr($OSVer,0,4);
-    }
-    
-    if ( $OS eq 'Linux' ) {
-	$RealOSVer = substr($OSVer,0,3);
-    }
-
-    if ($BuildClassic) {
-        $logfile = "${DirName}-classic.log";
-    } else {
-	$logfile = "${DirName}.log";
-    }
-} #EndSub-GetSystemInfo
-
-sub BuildIt {
-    my ($fe, @felist, $EarlyExit, $LastTime, $StartTimeStr);
-
-    mkdir("$DirName", 0777);
-    chdir("$DirName") || die "Couldn't enter $DirName";
-    
-    $StartDir = getcwd();
-    $LastTime = 0;
-    
-    print "Starting dir is : $StartDir\n";
-    
-    $EarlyExit = 0;
-    
-    while ( ! $EarlyExit ) {
-	chdir("$StartDir");
-	if ( time - $LastTime < (60 * $BuildSleep) ) {
-	    $SleepTime = (60 * $BuildSleep) - (time - $LastTime);
-	    print "\n\nSleeping $SleepTime seconds ...\n";
-	    sleep($SleepTime);
-	}
-	
-	$LastTime = time;
-	
-	$StartTime = time - 60 * 10;
-	$StartTimeStr = &CVSTime($StartTime);
-	
-	&StartBuild if ($ReportStatus);
- 	$CurrentDir = getcwd();
-	if ( $CurrentDir ne $StartDir ) {
-	    print "startdir: $StartDir, curdir $CurrentDir\n";
-	    die "curdir != startdir";
-	}
-
-	$BuildDir = $CurrentDir;
-	
-	unlink( "$logfile" );
-	
-	print "opening $logfile\n";
-	open( LOG, ">$logfile" ) || print "can't open $?\n";
-	print LOG "current dir is -- $hostname:$CurrentDir\n";
-	print LOG "Build Administrator is $BuildAdministrator\n";
-	&PrintEnv;
-	
-	$BuildStatus = 0;
-
-	mkdir($TopLevel, 0777);
-	chdir($TopLevel) || die "chdir($TopLevel): $!\n";
-	
-	if ( $BuildClassic ) {
-	    print"$CVS $CVSCO $BuildModule\n";
-	    print LOG "$CVS $CVSCO $BuildModule\n";
-	    open (PULL, "$CVS $CVSCO $BuildModule 2>&1 |") || die "open: $!\n";
-	} else {
-#	    print "$CVS $CVSCO mozilla/nglayout.mk\n";
-#	    print LOG "$CVS $CVSCO mozilla/nglayout.mk\n";
-#	    open (PULL, "$CVS $CVSCO mozilla/nglayout.mk 2>&1 |") || die "open: $!\n";
-	    print "$CVS $CVSCO mozilla/client.mk\n";
-	    print LOG "$CVS $CVSCO mozilla/client.mk\n";
-	    open (PULL, "$CVS $CVSCO mozilla/client.mk 2>&1 |") || die "open: $!\n";
-	}
-	while (<PULL>) {
-	    print $_;
-	    print LOG $_;
-	}
-	close(PULL);
-	
-	# Move to topsrcdir
-	#chdir($Topsrcdir) || die "chdir($Topsrcdir): $!\n";
-         
-
-	# Do a separate checkout with toplevel makefile
-	if (! $BuildClassic) {
-	 #  print LOG "$Make -f nglayout.mk pull_all CVSCO='$CVS $CVSCO'|\n";
-	 #  open (PULLALL, "$Make -f nglayout.mk pull_all CVSCO='$CVS $CVSCO' |\n");
-	    print LOG "$Make -f mozilla/client.mk checkout CVSCO='$CVS $CVSCO'|\n";
-	    open (PULLALL, "$Make -f mozilla/client.mk checkout CVSCO='$CVS $CVSCO' |\n");
-	    while (<PULLALL>) {
-		print LOG $_;
-		print $_;
-	    }
-	    close(PULLALL);
-	}
-
-	chdir($Topsrcdir) || die "chdir($Topsrcdir): $!\n";
-
-	print LOG "$Autoconf\n";
-	open (AUTOCONF, "$Autoconf 2>&1 | ") || die "$Autoconf: $!\n";
-	while (<AUTOCONF>) {
-	    print LOG $_;
-	    print $_;
-	}
-	close(AUTOCONF);
-
-	print LOG "$ConfigGuess\n";
-	$BuildObjName = "obj-";
-	open (GETOBJ, "$ConfigGuess 2>&1 |") || die "$ConfigGuess: $!\n";
-	while (<GETOBJ>) {
-	    print $_;
-	    print LOG $_;
-	    chomp($BuildObjName .= $_); 
-	}
-	close (GETOBJ); 
-	
-	mkdir($BuildObjName, 0777);
-	chdir($BuildObjName) || die "chdir($BuildObjName): $!\n";
-	
-	print LOG "$ConfigureEnvArgs ../configure $ConfigureArgs\n";
-	open (CONFIGURE, "$ConfigureEnvArgs ../configure $ConfigureArgs 2>&1 |") || die "../configure: $!\n";
-	while (<CONFIGURE>) {
-	    print $_;
-	    print LOG $_;
-	}
-	close(CONFIGURE);
-	    
-	# if we are building depend, rebuild dependencies
-	
-	if ($BuildDepend) {
-	    print LOG "$Make MAKE='$Make -j $cpus' depend 2>&1 |\n";
-	    open ( MAKEDEPEND, "$Make MAKE='$Make -j $cpus' depend 2>&1 |\n");
-	    while ( <MAKEDEPEND> ) {
-		print $_;
-		print LOG $_;
-	    }
-	    close (MAKEDEPEND);
-	    system("rm -rf dist");
-
-	} else {
-	    # Building clobber
-	    print LOG "$Make MAKE='$Make -j $cpus' $ClobberStr 2>&1 |\n";
-	    open( MAKECLOBBER, "$Make MAKE='$Make -j $cpus' $ClobberStr 2>&1 |");	    
-	    while ( <MAKECLOBBER> ) {
-	    	print $_;
-	    	print LOG $_;
-	    }
-	    close( MAKECLOBBER );
-	}
-
-	@felist = split(/,/, $FE);
-	    
-	foreach $fe ( @felist ) {	    
-	    if (&BinaryExists($fe)) {
-		print LOG "deleting existing binary\n";
-		&DeleteBinary($fe);
-	    }
-	}
-
-	if ($BuildClassic) {
-	    # Build the BE only	    
-	    print LOG "$Make MAKE='$Make -j $cpus' MOZ_FE= 2>&1 |\n";
-	    open( BEBUILD, "$Make MAKE='$Make -j $cpus' MOZ_FE= 2>&1 |");
-	    
-	    while ( <BEBUILD> ) {
-		print $_;
-		print LOG $_;
-	    }
-	    close( BEBUILD );
-
-	    foreach $fe ( @felist ) {		   
-		# Now build each front end
-		print LOG "$Make MAKE='$Make -j $cpus' -C cmd/${fe}fe 2>&1 |\n";
-		open(FEBUILD, "$Make MAKE='$Make -j $cpus' -C cmd/${fe}fe 2>&1 |\n");
-		while (<FEBUILD>) {
-		    print $_;
-		    print LOG $_;
-		}
-		close(FEBUILD);
-	    }
-	} else {
-		print LOG "$Make MAKE='$Make -j $cpus' 2>&1 |\n";
-		open(BUILD, "$Make MAKE='$Make -j $cpus' 2>&1 |\n");
-		while (<BUILD>) {
-		    print $_;
-		    print LOG $_;
-		}
-		close(BUILD);
-	}
-
-	foreach $fe (@felist) {
-	    if (&BinaryExists($fe)) {
-		   print LOG "export binary exists, build successful. Testing...\n";
-#return 0 if no problem, else 333 for a runtime error
-           $BuildStatus = &RunSmokeTest($fe);
-	    }
-	    else {
-		   print LOG "export binary missing, build FAILED\n";
-		   $BuildStatus = 666;
-	    }
-	   
-	    if ( $BuildStatus == 0 ) {
- 	       $BuildStatusStr = 'success';
-	    }
-	    elsif ( $BuildStatus == 333 ) {
-           $BuildStatusStr = 'testfailed';
-        }
-		else {
-           $BuildStatusStr = 'busted';
-        }
-# replaced by above lines
-#	    $BuildStatusStr = ( $BuildStatus ? 'busted' : 'success' );
-
-	    print LOG "tinderbox: tree: $BuildTree\n";
-	    print LOG "tinderbox: builddate: $StartTime\n";
-	    print LOG "tinderbox: status: $BuildStatusStr\n";
-	    print LOG "tinderbox: build: $BuildName $fe\n";
-	    print LOG "tinderbox: errorparser: unix\n";
-	    print LOG "tinderbox: buildfamily: unix\n";
-	    print LOG "tinderbox: END\n";	    
-	}
-	close(LOG);
-	chdir("$StartDir");
-	
-# this fun line added on 2/5/98. do not remove. Translated to english,
-# that's "take any line longer than 1000 characters, and split it into less
-# than 1000 char lines.  If any of the resulting lines is
-# a dot on a line by itself, replace that with a blank line."  
-# This is to prevent cases where a <cr>.<cr> occurs in the log file.  Sendmail
-# interprets that as the end of the mail, and truncates the log before
-# it gets to Tinderbox.  (terry weismann, chris yeh)
-#
-# This was replaced by a perl 'port' of the above, writen by 
-# preed@netscape.com; good things: no need for system() call, and now it's
-# all in perl, so we don't have to do OS checking like before.
-
-	open(LOG, "$logfile") || die "Couldn't open logfile: $!\n";
-	open(OUTLOG, ">${logfile}.last") || die "Couldn't open logfile: $!\n";
-	    
-	while (<LOG>) {
-	    $q = 0;
-	    
-	    for (;;) {
-		$val = $q * 1000;
-		$Output = substr($_, $val, 1000);
-		
-		last if $Output eq undef;
-		
-		$Output =~ s/^\.$//g;
-		$Output =~ s/\n//g;
-		print OUTLOG "$Output\n";
-		$q++;
-	    } #EndFor
-		
-	} #EndWhile
-	    
-	close(LOG);
-	close(OUTLOG);
-
-	system( "$mail $Tinderbox_server < ${logfile}.last" )
-	    if ($ReportStatus );
-	unlink("$logfile");
-	
-	# if this is a test run, set early_exit to 0. 
-	#This mean one loop of execution
-	$EarlyExit++ if ($BuildOnce);
-    }
-    
-} #EndSub-BuildIt
-
-sub CVSTime {
-    my($StartTimeArg) = @_;
-    my($RetTime, $StartTimeArg, $sec, $minute, $hour, $mday, $mon, $year);
-    
-    ($sec,$minute,$hour,$mday,$mon,$year) = localtime($StartTimeArg);
-    $mon++; # month is 0 based.
-    
-    sprintf("%02d/%02d/%02d %02d:%02d:00", $mon,$mday,$year,$hour,$minute );
-}
-
-sub StartBuild {
-    
-    my($fe, @felist);
-
-    @felist = split(/,/, $FE);
-
-#    die "SERVER: " . $Tinderbox_server . "\n";
-    open( LOG, "|$mail $Tinderbox_server" );
-    foreach $fe ( @felist ) {
-	print LOG "\n";
-	print LOG "tinderbox: tree: $BuildTree\n";
-	print LOG "tinderbox: builddate: $StartTime\n";
-	print LOG "tinderbox: status: building\n";
-	print LOG "tinderbox: build: $BuildName $fe\n";
-	print LOG "tinderbox: errorparser: unix\n";
-	print LOG "tinderbox: buildfamily: unix\n";
-	print LOG "tinderbox: END\n";
-	print LOG "\n";
-    }
-    close( LOG );
-}
-
-# check for the existence of the binary
-sub BinaryExists {
-    my($fe) = @_;
-    my($Binname);
-    $fe = 'x' if (!defined($fe)); 
-
-    if ($BuildClassic) {
-	$BinName = $BuildDir . '/' . $TopLevel . '/' . $Topsrcdir . '/'. $BuildObjName . "/cmd/${fe}fe/" . $BinaryName{"$fe"};
-    } else {
-	$BinName = $BuildDir . '/' . $TopLevel . '/' . $Topsrcdir . '/' . $BuildObjName . $BinaryName{"$fe"};
-    }
-    print LOG $BinName . "\n"; 
-    if ((-e $BinName) && (-x $BinName) && (-s $BinName)) {
-	1;
-    }
-    else {
-	0;
-    }
-}
-
-sub DeleteBinary {
-    my($fe) = @_;
-    my($BinName);
-    $fe = 'x' if (!defined($fe)); 
-
-    if ($BuildClassic) {
-	$BinName = $BuildDir . '/' . $TopLevel . '/' . $Topsrcdir . '/' . $BuildObjName . "/cmd/${fe}fe/" . $BinaryName{"$fe"};
-    } else {
-	$BinName = $BuildDir . '/' . $TopLevel . '/' . $Topsrcdir . '/' . $BuildObjName . $BinaryName{"$fe"};
-    }
-    print LOG "unlinking $BinName\n";
-    unlink ($BinName) || print LOG "unlinking $BinName failed\n";
-}
-
-sub ParseArgs {
-    my($i, $manArg);
-
-    if( @ARGV == 0 ) {
-	&PrintUsage;
-    }
-    $i = 0;
-    $manArg = 0;
-    while( $i < @ARGV ) {
-	if ($ARGV[$i] eq '--depend') {
-	    $BuildDepend = 1;
- 	    $manArg++;
-	}
-	elsif ($ARGV[$i] eq '--clobber') {
-	    $BuildDepend = 0;
-	    $manArg++;
-	}
-	elsif ( $ARGV[$i] eq '--once' ) {
-	    $BuildOnce = 1;
-	    #$ReportStatus = 0;
-	}
-	elsif ($ARGV[$i] eq '--classic') {
-	    $BuildClassic = 1;
-	}
-	elsif ($ARGV[$i] eq '--noreport') {
-	    $ReportStatus = 0;
-	}
-	elsif ($ARGV[$i] eq '--version' || $ARGV[$i] eq '-v') {
-	    die "$0: version $Version\n";
-	}
-	elsif ( $ARGV[$i] eq '-tag' ) {
-	    $i++;
-	    $BuildTag = $ARGV[$i];
-	    if ( $BuildTag eq '' || $BuildTag eq '-t') {
-		&PrintUsage;
-	    }
-	}
-	elsif ( $ARGV[$i] eq '-t' ) {
-	    $i++;
-	    $BuildTree = $ARGV[$i];
-	    if ( $BuildTree eq '' ) {
-		&PrintUsage;
-	    }
-	} else {
-	    &PrintUsage;
-	}
-
-	$i++;
-    } #EndWhile
-
-    if ( $BuildTree =~ /^\s+$/i ) {
-	&PrintUsage;
-    }
-
-    if ($BuildDepend eq undef) {
-	&PrintUsage;
-    }
-
-    &PrintUsage if (! $manArg );
-
-} #EndSub-ParseArgs
-
-sub PrintUsage {
-    die "usage: $0 [--depend | --clobber] [-v | --version ] [--once --classic --noreport -tag TREETAG -t TREENAME ]\n";
-}
-
-sub PrintEnv {
-    my ($key);
-    foreach $key (keys %ENV) {
-	print LOG "$key = $ENV{$key}\n";
-	print "$key = $ENV{$key}\n";
-    }
-} #EndSub-PrintEnv
-
-sub RunSmokeTest {
-    my($fe) = @_;
-    my($Binary);
-    $fe = 'x' if (!defined($fe));
-
-    $Binary = $BuildDir . '/' . $TopLevel . '/' . $Topsrcdir . '/' . $BuildObjName . $BinaryName{"$fe"};
-    print LOG $BinName . "\n";
-
-   $waittime = 30;
-
-   $pid = fork;
-
-   exec $Binary if !$pid;
-
-   # parent - wait $waittime seconds then check on child
-   sleep $waittime;
-   $status = waitpid $pid, WNOHANG();
-   if ($status != 0) {
-     print LOG "$BinName has crashed or quit. Turn the tree orange now.\n";
-     return 333;
-   }
-
-   print LOG "Success! $BinName is still running. Killing..\n";
-   # try to kill 3 times, then try a kill -9
-   for ($i=0 ; $i<3 ; $i++) {
-     kill 'TERM',$pid,;
-     # give it 3 seconds to actually die
-     sleep 3;
-     $status = waitpid $pid, WNOHANG();
-    last if ($status != 0);
-   }
-   return 0;
-} #EndSub-RunSmokeTest
- 
-# Main function
-&InitVars;
-&ParseArgs;
-&ConditionalArgs;
-&GetSystemInfo;
-&SetupEnv;
-&SetupPath;
-&BuildIt;
-
-1;

mozilla/webtools/tinderbox/examples/buildit.config

@@ -1,63 +0,0 @@
-#!/usr/bin/perl
-
-sub InitVars {
-
-#initialize variables
-#$binary_name = '/netscape-export';
-$BinaryName = '/mozilla-export';
-$BuildDepend = 1;	#depend or clobber
-$BuildTree = '';
-$BuildTag = '';
-$BuildName = '';
-#$BuildContinue = 0;
-$TopLevel = 'mozilla/';
-$BuildObjName = '';
-$BuildSleep = 10;
-$BuildUnixclasses = 0;
-$EarlyExit = 1;
-$BuildStartDir = 'ns/';
-$BuildConfigDir = 'mozilla/config';
-
-} #EndSub-InitVars
-
-sub SetupEnv {
-
-	umask(0);
-	$ENV{'MOZILLA_CLIENT'} = 1;
-	$ENV{'NETSCAPE_HIERARCHY'} = 1;
-	$ENV{'BUILD_OFFICIAL'} = 1;
-	$ENV{'NSPR20'} = 1;
-	$ENV{'AWT_11'} = 1;
-	$ENV{'MOZ_SECURITY'} = 1;
-	$ENV{"CVSROOT"} = '/m/src';
-	$ENV{"MAKE"} = 'gmake -e';
-	$ENV{'MOZ_MEDIUM'} = 1;
-	$ENV{'NO_MDUPDATE'} = 1;
-	$ENV{'EDITOR'} = 1;
-
-} #EndSub-SetupEnv
-
-sub SetupPath {
-
-    my($Path);
-    $Path = $ENV{PATH};
-    print "Path before: $Path\n";
-    $ENV{'PATH'} = '/tools/ns/bin:/tools/contrib/bin:/usr/local/bin:/usr/sbin:/usr/bsd:/sbin:/usr/bin:/bin:/usr/bin/X11:/usr/etc:/usr/hosts:/usr/ucb:';
-
-    # This won't work on x86 or sunos4 systems....
-    if ( $OS eq 'SunOS' ) {
-	$ENV{'PATH'} = '/usr/ccs/bin:/tools/ns/soft/gcc-2.6.3/run/default/sparc_sun_solaris2.4/bin:' . $ENV{'PATH'};
-	$ENV{'NO_MDUPDATE'} = 1;
-    }
-
-    if ( $OS eq 'AIX' ) {
-	$ENV{'PATH'} = $ENV{'PATH'} . '/usr/lpp/xlC/bin:/usr/local-aix/bin:';
-    }
-
-    $Path = $ENV{PATH};
-    print "Path After: $Path\n";
-
-} #EndSub-SetupPath
-
-
-1;

mozilla/webtools/tinderbox/examples/mozilla-unix.pl

@@ -1,548 +0,0 @@
-#!/usr/bin/perl
-
-require 5.000;
-
-use Sys::Hostname;
-use Cwd;
-
-$Version = "1.000";
-
-sub InitVars {
-
-    # PLEASE FILL THIS IN WITH YOUR PROPER EMAIL ADDRESS
-    $BuildAdministrator = "$ENV{'USER'}\@$ENV{'HOST'}";
-
-    #Default values of cmdline opts
-    $BuildDepend = 1;	#depend or clobber
-    $ReportStatus = 1;  # Send results to server or not
-    $BuildOnce = 0;     # Build once, don't send results to server
-    $BuildClassic = 0;  # Build classic source
-
-    #relative path to binary
-    $BinaryName{'x'} = 'mozilla-export';
-    $BinaryName{'qt'} = 'qtmozilla-export';
-    $BinaryName{'gnome'} = 'gnuzilla-export';
-    $BinaryName{'webshell'} = '/webshell/tests/viewer/viewer';
-    $BinaryName{'xpfe'} = '/xpfe/xpviewer/src/xpviewer';
-
-    # Set these to what makes sense for your system
-    $cpus = 1;
-    $Make = 'gmake'; # Must be gnu make
-    $mail = '/bin/mail';
-    $Autoconf = 'autoconf -l build/autoconf';
-    $CVS = 'cvs -z3';
-    $CVSCO = 'co -P';
-
-    # Set these proper values for your tinderbox server
-    $Tinderbox_server = 'tinderbox-daemon\@warp.mcom.com';
-    #$Tinderbox_server = 'external-tinderbox-incoming\@tinderbox.seawood.org';
-
-    # These shouldn't really need to be changed
-    $BuildSleep = 10; # Minimum wait period from start of build to start
-                      # of next build in minutes
-    $BuildTree = 'raptor';
-    $BuildTag = '';
-    $BuildName = '';
-    $TopLevel = '.';
-    $Topsrcdir = 'mozilla';
-    $BuildObjName = '';
-    $BuildConfigDir = 'mozilla/config';
-    $ClobberStr = 'realclean';
-    $ConfigureEnvArgs = 'CFLAGS=-pipe CXXFLAGS=-pipe';
-    #$ConfigureEnvArgs = '';
-    $ConfigureArgs = "--cache-file=/dev/null";
-    $ConfigGuess = './build/autoconf/config.guess';
-    $Logfile = '${BuildDir}.log';
-} #EndSub-InitVars
-
-sub ConditionalArgs {
-    if ( $BuildClassic ) {
-	$FE = 'x';
-	$ConfigureArgs .= " --enable-fe=$FE";
-	$BuildTree = 'raptor';
-	$BuildModule = 'Raptor';
-	$BuildTag = ''
-	    if ($BuildTag eq '');
-	$TopLevel = "mozilla-classic";
-    } else {
-	$BuildTree = 'raptor';
-#	$Toolkit = 'gtk';
-	$FE = 'webshell,xpfe'; 
-	$BuildModule = 'Raptor';
-#	$ConfigureArgs .= " --enable-toolkit=$Toolkit";
-    }
-    $CVSCO .= " -r $BuildTag" if ( $BuildTag ne '');
-}
-sub SetupEnv {
-    umask(0);
-    $ENV{"CVSROOT"} = ':pserver:anonymous@cvs-mirror.mozilla.org:/cvsroot';
-} #EndSub-SetupEnv
-
-sub SetupPath {
-    my($Path);
-    $Path = $ENV{PATH};
-    print "Path before: $Path\n";
-
-    if ( $OS eq 'SunOS' ) {
-	$ENV{'PATH'} = '/usr/ccs/bin:' . $ENV{'PATH'};
-    }
-
-    $Path = $ENV{PATH};
-    print "Path After: $Path\n";
-} #EndSub-SetupPath
-
-##########################################################################
-# NO USER CONFIGURABLE PIECES BEYOND THIS POINT                          #
-##########################################################################
-
-sub GetSystemInfo {
-
-    $OS = `uname -s`;
-    $OSVer = `uname -r`;
-    
-    chop($OS, $OSVer);
-    
-    if ( $OS eq 'AIX' ) {
-	$OSVer = `uname -v`;
-	chop($OSVer);
-	$OSVer = $OSVer . "." . `uname -r`;
-	chop($OSVer);
-    }
-        
-    if ( $OS eq 'IRIX64' ) {
-	$OS = 'IRIX';
-    }
-    
-    if ( $OS eq 'SCO_SV' ) {
-	$OS = 'SCOOS';
-	$OSVer = '5.0';
-    }
-    
-    my $host, $myhost = hostname;
-    chomp($myhost);
-    ($host, $junk) = split(/\./, $myhost);
-	
-    $BuildName = ""; 
-	
-    if ( "$host" ne "" ) {
-	$BuildName = $host . ' ';
-    }
-    $BuildName .= $OS . ' ' . $OSVer . ' ' . ($BuildDepend?'Depend':'Clobber');
-    $DirName = $OS . '_' . $OSVer . '_' . ($BuildDepend?'depend':'clobber');
-    
-    $RealOS = $OS;
-    $RealOSVer = $OSVer;
-    
-    if ( $OS eq 'HP-UX' ) {
-	$RealOSVer = substr($OSVer,0,4);
-    }
-    
-    if ( $OS eq 'Linux' ) {
-	$RealOSVer = substr($OSVer,0,3);
-    }
-
-    if ($BuildClassic) {
-        $logfile = "${DirName}-classic.log";
-    } else {
-	$logfile = "${DirName}.log";
-    }
-} #EndSub-GetSystemInfo
-
-sub BuildIt {
-    my ($fe, @felist, $EarlyExit, $LastTime, $StartTimeStr);
-
-    mkdir("$DirName", 0777);
-    chdir("$DirName") || die "Couldn't enter $DirName";
-    
-    $StartDir = getcwd();
-    $LastTime = 0;
-    
-    print "Starting dir is : $StartDir\n";
-    
-    $EarlyExit = 0;
-    
-    while ( ! $EarlyExit ) {
-	chdir("$StartDir");
-	if ( time - $LastTime < (60 * $BuildSleep) ) {
-	    $SleepTime = (60 * $BuildSleep) - (time - $LastTime);
-	    print "\n\nSleeping $SleepTime seconds ...\n";
-	    sleep($SleepTime);
-	}
-	
-	$LastTime = time;
-	
-	$StartTime = time - 60 * 10;
-	$StartTimeStr = &CVSTime($StartTime);
-	
-	&StartBuild if ($ReportStatus);
- 	$CurrentDir = getcwd();
-	if ( $CurrentDir ne $StartDir ) {
-	    print "startdir: $StartDir, curdir $CurrentDir\n";
-	    die "curdir != startdir";
-	}
-
-	$BuildDir = $CurrentDir;
-	
-	unlink( "$logfile" );
-	
-	print "opening $logfile\n";
-	open( LOG, ">$logfile" ) || print "can't open $?\n";
-	print LOG "current dir is -- $hostname:$CurrentDir\n";
-	print LOG "Build Administrator is $BuildAdministrator\n";
-	&PrintEnv;
-	
-	$BuildStatus = 0;
-
-	mkdir($TopLevel, 0777);
-	chdir($TopLevel) || die "chdir($TopLevel): $!\n";
-	
-	if ( $BuildClassic ) {
-	    print"$CVS $CVSCO $BuildModule\n";
-	    print LOG "$CVS $CVSCO $BuildModule\n";
-	    open (PULL, "$CVS $CVSCO $BuildModule 2>&1 |") || die "open: $!\n";
-	} else {
-#	    print "$CVS $CVSCO mozilla/nglayout.mk\n";
-#	    print LOG "$CVS $CVSCO mozilla/nglayout.mk\n";
-#	    open (PULL, "$CVS $CVSCO mozilla/nglayout.mk 2>&1 |") || die "open: $!\n";
-	    print "$CVS $CVSCO mozilla/client.mk\n";
-	    print LOG "$CVS $CVSCO mozilla/client.mk\n";
-	    open (PULL, "$CVS $CVSCO mozilla/client.mk 2>&1 |") || die "open: $!\n";
-	}
-	while (<PULL>) {
-	    print $_;
-	    print LOG $_;
-	}
-	close(PULL);
-	
-	# Move to topsrcdir
-	#chdir($Topsrcdir) || die "chdir($Topsrcdir): $!\n";
-         
-
-	# Do a separate checkout with toplevel makefile
-	if (! $BuildClassic) {
-	 #  print LOG "$Make -f nglayout.mk pull_all CVSCO='$CVS $CVSCO'|\n";
-	 #  open (PULLALL, "$Make -f nglayout.mk pull_all CVSCO='$CVS $CVSCO' |\n");
-	    print LOG "$Make -f mozilla/client.mk checkout CVSCO='$CVS $CVSCO'|\n";
-	    open (PULLALL, "$Make -f mozilla/client.mk checkout CVSCO='$CVS $CVSCO' |\n");
-	    while (<PULLALL>) {
-		print LOG $_;
-		print $_;
-	    }
-	    close(PULLALL);
-	}
-
-	chdir($Topsrcdir) || die "chdir($Topsrcdir): $!\n";
-
-	print LOG "$Autoconf\n";
-	open (AUTOCONF, "$Autoconf 2>&1 | ") || die "$Autoconf: $!\n";
-	while (<AUTOCONF>) {
-	    print LOG $_;
-	    print $_;
-	}
-	close(AUTOCONF);
-
-	print LOG "$ConfigGuess\n";
-	$BuildObjName = "obj-";
-	open (GETOBJ, "$ConfigGuess 2>&1 |") || die "$ConfigGuess: $!\n";
-	while (<GETOBJ>) {
-	    print $_;
-	    print LOG $_;
-	    chomp($BuildObjName .= $_); 
-	}
-	close (GETOBJ); 
-	
-	mkdir($BuildObjName, 0777);
-	chdir($BuildObjName) || die "chdir($BuildObjName): $!\n";
-	
-	print LOG "$ConfigureEnvArgs ../configure $ConfigureArgs\n";
-	open (CONFIGURE, "$ConfigureEnvArgs ../configure $ConfigureArgs 2>&1 |") || die "../configure: $!\n";
-	while (<CONFIGURE>) {
-	    print $_;
-	    print LOG $_;
-	}
-	close(CONFIGURE);
-	    
-	# if we are building depend, rebuild dependencies
-	
-	if ($BuildDepend) {
-	    print LOG "$Make MAKE='$Make -j $cpus' depend 2>&1 |\n";
-	    open ( MAKEDEPEND, "$Make MAKE='$Make -j $cpus' depend 2>&1 |\n");
-	    while ( <MAKEDEPEND> ) {
-		print $_;
-		print LOG $_;
-	    }
-	    close (MAKEDEPEND);
-	    system("rm -rf dist");
-
-	} else {
-	    # Building clobber
-	    print LOG "$Make MAKE='$Make -j $cpus' $ClobberStr 2>&1 |\n";
-	    open( MAKECLOBBER, "$Make MAKE='$Make -j $cpus' $ClobberStr 2>&1 |");	    
-	    while ( <MAKECLOBBER> ) {
-	    	print $_;
-	    	print LOG $_;
-	    }
-	    close( MAKECLOBBER );
-	}
-
-	@felist = split(/,/, $FE);
-	    
-	foreach $fe ( @felist ) {	    
-	    if (&BinaryExists($fe)) {
-		print LOG "deleting existing binary\n";
-		&DeleteBinary($fe);
-	    }
-	}
-
-	if ($BuildClassic) {
-	    # Build the BE only	    
-	    print LOG "$Make MAKE='$Make -j $cpus' MOZ_FE= 2>&1 |\n";
-	    open( BEBUILD, "$Make MAKE='$Make -j $cpus' MOZ_FE= 2>&1 |");
-	    
-	    while ( <BEBUILD> ) {
-		print $_;
-		print LOG $_;
-	    }
-	    close( BEBUILD );
-
-	    foreach $fe ( @felist ) {		   
-		# Now build each front end
-		print LOG "$Make MAKE='$Make -j $cpus' -C cmd/${fe}fe 2>&1 |\n";
-		open(FEBUILD, "$Make MAKE='$Make -j $cpus' -C cmd/${fe}fe 2>&1 |\n");
-		while (<FEBUILD>) {
-		    print $_;
-		    print LOG $_;
-		}
-		close(FEBUILD);
-	    }
-	} else {
-		print LOG "$Make MAKE='$Make -j $cpus' 2>&1 |\n";
-		open(BUILD, "$Make MAKE='$Make -j $cpus' 2>&1 |\n");
-		while (<BUILD>) {
-		    print $_;
-		    print LOG $_;
-		}
-		close(BUILD);
-	}
-
-	foreach $fe (@felist) {
-	    if (&BinaryExists($fe)) {
-		print LOG "export binary exists, build SUCCESSFUL!\n";
-		$BuildStatus = 0;
-	    }
-	    else {
-		print LOG "export binary missing, build FAILED\n";
-		$BuildStatus = 666;
-	    }
-	    
-	    print LOG "\nBuild Status = $BuildStatus\n";
-	    
-	    $BuildStatusStr = ( $BuildStatus ? 'busted' : 'success' );
-	    
-	    print LOG "tinderbox: tree: $BuildTree\n";
-	    print LOG "tinderbox: builddate: $StartTime\n";
-	    print LOG "tinderbox: status: $BuildStatusStr\n";
-	    print LOG "tinderbox: build: $BuildName $fe\n";
-	    print LOG "tinderbox: errorparser: unix\n";
-	    print LOG "tinderbox: buildfamily: unix\n";
-	    print LOG "tinderbox: END\n";	    
-	}
-	close(LOG);
-	chdir("$StartDir");
-	
-# this fun line added on 2/5/98. do not remove. Translated to english,
-# that's "take any line longer than 1000 characters, and split it into less
-# than 1000 char lines.  If any of the resulting lines is
-# a dot on a line by itself, replace that with a blank line."  
-# This is to prevent cases where a <cr>.<cr> occurs in the log file.  Sendmail
-# interprets that as the end of the mail, and truncates the log before
-# it gets to Tinderbox.  (terry weismann, chris yeh)
-#
-# This was replaced by a perl 'port' of the above, writen by 
-# preed@netscape.com; good things: no need for system() call, and now it's
-# all in perl, so we don't have to do OS checking like before.
-
-	open(LOG, "$logfile") || die "Couldn't open logfile: $!\n";
-	open(OUTLOG, ">${logfile}.last") || die "Couldn't open logfile: $!\n";
-	    
-	while (<LOG>) {
-	    $q = 0;
-	    
-	    for (;;) {
-		$val = $q * 1000;
-		$Output = substr($_, $val, 1000);
-		
-		last if $Output eq undef;
-		
-		$Output =~ s/^\.$//g;
-		$Output =~ s/\n//g;
-		print OUTLOG "$Output\n";
-		$q++;
-	    } #EndFor
-		
-	} #EndWhile
-	    
-	close(LOG);
-	close(OUTLOG);
-
-	system( "$mail $Tinderbox_server < ${logfile}.last" )
-	    if ($ReportStatus );
-	unlink("$logfile");
-	
-	# if this is a test run, set early_exit to 0. 
-	#This mean one loop of execution
-	$EarlyExit++ if ($BuildOnce);
-    }
-    
-} #EndSub-BuildIt
-
-sub CVSTime {
-    my($StartTimeArg) = @_;
-    my($RetTime, $StartTimeArg, $sec, $minute, $hour, $mday, $mon, $year);
-    
-    ($sec,$minute,$hour,$mday,$mon,$year) = localtime($StartTimeArg);
-    $mon++; # month is 0 based.
-    
-    sprintf("%02d/%02d/%02d %02d:%02d:00", $mon,$mday,$year,$hour,$minute );
-}
-
-sub StartBuild {
-    
-    my($fe, @felist);
-
-    @felist = split(/,/, $FE);
-
-#    die "SERVER: " . $Tinderbox_server . "\n";
-    open( LOG, "|$mail $Tinderbox_server" );
-    foreach $fe ( @felist ) {
-	print LOG "\n";
-	print LOG "tinderbox: tree: $BuildTree\n";
-	print LOG "tinderbox: builddate: $StartTime\n";
-	print LOG "tinderbox: status: building\n";
-	print LOG "tinderbox: build: $BuildName $fe\n";
-	print LOG "tinderbox: errorparser: unix\n";
-	print LOG "tinderbox: buildfamily: unix\n";
-	print LOG "tinderbox: END\n";
-	print LOG "\n";
-    }
-    close( LOG );
-}
-
-# check for the existence of the binary
-sub BinaryExists {
-    my($fe) = @_;
-    my($Binname);
-    $fe = 'x' if (!defined($fe)); 
-
-    if ($BuildClassic) {
-	$BinName = $BuildDir . '/' . $TopLevel . '/' . $Topsrcdir . '/'. $BuildObjName . "/cmd/${fe}fe/" . $BinaryName{"$fe"};
-    } else {
-	$BinName = $BuildDir . '/' . $TopLevel . '/' . $Topsrcdir . '/' . $BuildObjName . $BinaryName{"$fe"};
-    }
-    print LOG $BinName . "\n"; 
-    if ((-e $BinName) && (-x $BinName) && (-s $BinName)) {
-	1;
-    }
-    else {
-	0;
-    }
-}
-
-sub DeleteBinary {
-    my($fe) = @_;
-    my($BinName);
-    $fe = 'x' if (!defined($fe)); 
-
-    if ($BuildClassic) {
-	$BinName = $BuildDir . '/' . $TopLevel . '/' . $Topsrcdir . '/' . $BuildObjName . "/cmd/${fe}fe/" . $BinaryName{"$fe"};
-    } else {
-	$BinName = $BuildDir . '/' . $TopLevel . '/' . $Topsrcdir . '/' . $BuildObjName . $BinaryName{"$fe"};
-    }
-    print LOG "unlinking $BinName\n";
-    unlink ($BinName) || print LOG "unlinking $BinName failed\n";
-}
-
-sub ParseArgs {
-    my($i, $manArg);
-
-    if( @ARGV == 0 ) {
-	&PrintUsage;
-    }
-    $i = 0;
-    $manArg = 0;
-    while( $i < @ARGV ) {
-	if ($ARGV[$i] eq '--depend') {
-	    $BuildDepend = 1;
- 	    $manArg++;
-	}
-	elsif ($ARGV[$i] eq '--clobber') {
-	    $BuildDepend = 0;
-	    $manArg++;
-	}
-	elsif ( $ARGV[$i] eq '--once' ) {
-	    $BuildOnce = 1;
-	    #$ReportStatus = 0;
-	}
-	elsif ($ARGV[$i] eq '--classic') {
-	    $BuildClassic = 1;
-	}
-	elsif ($ARGV[$i] eq '--noreport') {
-	    $ReportStatus = 0;
-	}
-	elsif ($ARGV[$i] eq '--version' || $ARGV[$i] eq '-v') {
-	    die "$0: version $Version\n";
-	}
-	elsif ( $ARGV[$i] eq '-tag' ) {
-	    $i++;
-	    $BuildTag = $ARGV[$i];
-	    if ( $BuildTag eq '' || $BuildTag eq '-t') {
-		&PrintUsage;
-	    }
-	}
-	elsif ( $ARGV[$i] eq '-t' ) {
-	    $i++;
-	    $BuildTree = $ARGV[$i];
-	    if ( $BuildTree eq '' ) {
-		&PrintUsage;
-	    }
-	} else {
-	    &PrintUsage;
-	}
-
-	$i++;
-    } #EndWhile
-
-    if ( $BuildTree =~ /^\s+$/i ) {
-	&PrintUsage;
-    }
-
-    if ($BuildDepend eq undef) {
-	&PrintUsage;
-    }
-
-    &PrintUsage if (! $manArg );
-
-} #EndSub-ParseArgs
-
-sub PrintUsage {
-    die "usage: $0 [--depend | --clobber] [-v | --version ] [--once --classic --noreport -tag TREETAG -t TREENAME ]\n";
-}
-
-sub PrintEnv {
-    my ($key);
-    foreach $key (keys %ENV) {
-	print LOG "$key = $ENV{$key}\n";
-	print "$key = $ENV{$key}\n";
-    }
-} #EndSub-PrintEnv
-
-# Main function
-&InitVars;
-&ParseArgs;
-&ConditionalArgs;
-&GetSystemInfo;
-&SetupEnv;
-&SetupPath;
-&BuildIt;
-
-1;

mozilla/webtools/tinderbox/examples/mozilla-windows.pl

@@ -1,416 +0,0 @@
-#!c:/nstools/bin/perl5
-
-use Cwd;
-
-$build_depend=1;      #depend or clobber
-$build_tree = '';
-$build_tag = '';
-$build_name = '';
-$build_continue = 0;
-$build_sleep=10;
-$no32 = 0;
-$no16 = 0;
-$original_path = $ENV{'PATH'};
-$early_exit = 1;
-$doawt11 = 0;
-
-$do_clobber = '';
-$client_param = 'pull_and_build_all';
-
-&parse_args;
-
-if( $build_test ){
-    $build_sleep=1;
-}
-
-$dirname = ($build_depend?'dep':'clob');
-
-
-$logfile = "${dirname}.log";
-
-if( $build_depend ){
-    $clobber_str = 'depend';
-}     
-else {
-    $clobber_str = 'clobber_all';
-}
-
-
-mkdir("$dirname", 0777);
-chdir("$dirname") || die "couldn't cd to $dirname";
-
-$start_dir = cwd;
-$last_time = 0;
-
-print "starting dir is :$start_dir\n";
-
-
-while( $early_exit ){
-    chdir("$start_dir");
-    if( time - $last_time < (60 * $build_sleep) ){
-        $sleep_time = (60 * $build_sleep) - (time - $last_time);
-        print "\n\nSleeping $sleep_time seconds ...\n";
-        sleep( $sleep_time );
-    }
-    $last_time = time;
-
-    $start_time = time-60*10;
-    $start_time_str = &cvs_time( $start_time );
-# call setup_env here in the loop, to update MOZ_DATE with each pass.
-# setup_env uses start_time_str for MOZ_DATE.
-    &setup_env;
-
-
-    $cur_dir = cwd;
-
-    if( $cur_dir ne $start_dir ){
-        print "startdir: $start_dir, curdir $cur_dir\n";
-        die "curdir != startdir";
-    }
-
-# build 32-bit with AWT_11=1
-    &setup32("1");
-    if( !$no32 ){
-    	if( !$noawt11 ){
-	    &do_build(1,$do_clobber);
-    	}
-    }
-
-    if ($build_test) {
-	$early_exit = 0;	# stops this while loop after one pass.
-    }
-    if( !$no16 ){
-
-# build 32-bit with AWT_11=0
-# necessary before building 16-bit because 16-bit cannot use AWT 1.1 classes
-	&setup32("0");
-	if( !$no32 ){
-	    if( !$noawt11 ){
-		&do_build(0,'');
-	    } else {
-		&do_build(1,$do_clobber);
-	    }
-	}
-
-        &setup16;
-
-# strip_conf fails to strip any variables from the real environemnt
-#	&strip_config;
-        &do_build(0,'');
-#	&restore_config;
-    }
-}
-
-sub copy_win16_dist {
-
-    system 'xcopy w:\ y:\ns\dist /S /E /F'; 
-    print "COPYCOPYCOPY\n";
-
-}
-
-sub build_NSPR20_Win16 {
-
-    &start_build;
-    unlink( "${logname}.last" );
-    rename( "${logname}","${logname}.last");
-
-    print "opening ${logname}\n";
-    open( LOG, ">${logname}" ) || print "can't open $?\n";
-    print LOG "current dir is :$cur_dir\n";
-
-    &print_env;
-
-    chdir("$moz_src/ns/nspr20") || die "couldn't chdir to '$moz_src/ns/nspr20'";
-    print LOG   "gmake |\n";
-    open( BUILDNSPR, "gmake 2>&1 |") || print "couldn't execute gmake\n";;
-
-    while( <BUILDNSPR> ) {
-        print $_;
-        print LOG $_;
-    }
-    close ( BUILDNSPR );
-
-    close( LOG );
-}
-
-sub setup32 {
-    local ($awt) = @_;
-
-    $ENV{"MOZ_BITS"}  = '32';
-    $ENV{"AWT_11"}    = $awt;
-    $doawt11 	      = $awt;
-
-    $ENV{"INCLUDE"}   = "$msdev\\include;$msdev\\mfc\\include";
-    $ENV{"LIB"}       = "$msdev\\lib;$msdev\\mfc\\lib";
-    $ENV{"PATH"}      = $original_path . ";$msdev\\bin";
-    $ENV{"OS_TARGET"} = 'WIN95';
-    $moz_src          = $ENV{'MOZ_SRC'} = $start_dir;
-    $build_name       = 'Win32 ' . ($build_depend?'Depend':'Clobber');
-    $do_clobber       = $clobber_str;
-    $logname          = "win32.log";
-}
-
-sub setup16 {
-    $moz_src = $ENV{'MOZ_SRC'} = $start_dir;
-    $ENV{"MOZ_BITS"} = '16';
-# perl 5 is fucked up.  you MUST set AWT_11=0. deleting the environment
-# variable doesn't work.  it's removed from the environment entry, but
-# is still defined as true for a build.
-    $ENV{"AWT_11"} = '0';
-    $moz_src = $ENV{'MOZ_SRC'} = "$src_16_drive";
-    $ENV{"OS_TARGET"} = 'WIN16';
-
-    $msvc_inc = "$moz_src\\ns\\msvc15\\include;$moz_src\\ns\\msvc15\\mfc\\include";
-    $msvc_lib = "$msvc\\lib;$msvc\\mfc\\lib";
-    $msvcpath = "$msvc\\bin;c:\\nstools\\bin;c:\\WINNT40;c:\\WINNT40\\system32;c:\\utils";
-    $ENV{"MSVC_INC"} = $msvc_inc;
-    $ENV{"MSVC_LIB"} = $msvc_lib;
-    $ENV{"MSVCPATH"} = $msvcpath;
-
-    $ENV{"INCLUDE"}  = $msvc_inc;
-    $ENV{"LIB"}      = $msvc_lib;
-    $ENV{"PATH"}     = $msvcpath;
-
-    $watcom = $ENV{"WATCOM"} = "C:\\WATCOM";
-    $ENV{"EDPATH"}   = "$watcom\\EDDAT";
-    $ENV{"WATC_INC"} = "$watcom\\h;$watcom\\h\win;$msvc_inc";
-    $ENV{"WATC_LIB"} = $msvc_lib;
-    $ENV{"WATCPATH"} = "$watcom\\BINNT;$watcom\\BINW;c:\\nstools\\bin";
-
-    $build_name = 'Win16 ' . ($build_depend?'Depend':'Clobber');
-    $do_clobber = $clobber_str;
-    $logname = "win16.log";
-
-    system "subst l: /d";
-    system "subst r: /d";
-    system "subst $src_16_drive /d";
-
-    system "subst $src_16_drive $start_dir";
-    system "subst r: $src_16_drive\\ns\\netsite\\ldap\\libraries\\msdos\\winsock";
-    system "subst l: $src_16_drive\\ns\\netsite";
-}
-
-sub do_build {
-    local ($pull, $do_clobber) = @_;
-
-    &start_build;
-
-    print "opening ${logname}\n";
-    open( LOG, ">${logname}" ) || print "can't open $?\n";
-    print LOG "current dir is :$cur_dir\n";
-
-    &print_env;
-    $build_status = 0;
-    if( $pull ){
-	if ( $build_tag eq '' ){
-	    print LOG   "cvs co -D\"$start_time_str\" mozilla/client.mak 2>&1 |\n";
-	    open( PULL, "cvs co -D\"$start_time_str\" mozilla/client.mak 2>&1 |") || print "couldn't execute cvs\n";;
-	} else{
-	    print LOG   "cvs co -r $build_tag mozilla/client.mak 2>&1 |\n";
-	    open( PULL, "cvs co -r $build_tag mozilla/client.mak 2>&1 |") || print "couldn't execute cvs\n";;
-	}
-
-        # tee the output
-        while( <PULL> ){
-            print $_;
-            print LOG $_;
-        }
-        close( PULL );
-     
-        $build_status = $?;
-    }
-
-    chdir("$moz_src/mozilla") || die "couldn't chdir to '$moz_src/mozilla'";
-
-    if( $do_clobber ne '' ){
-        print LOG   "nmake -f client.mak $do_clobber |\n";
-        print "nmake -f client.mak $do_clobber |\n";
-        open( PULL, "nmake -f client.mak $do_clobber 2>&1 |") || print "couldn't execute nmake\n";;
-
-        # tee the output
-        while( <PULL> ){
-            print $_;
-            print LOG $_;
-        }
-        close( PULL );
-    }
-
-
-    if (!$pull) {
-      $client_param = 'build_all';
-    }
-    else {
-      $client_param = 'pull_and_build_all';
-    }
-    if (!$doawt11) {
-      $client_param = 'build_dist';
-    }
-    
-    print LOG "nmake  -f client.mak $client_param 2>&1 |\n";
-    open( BUILD, "nmake -f client.mak $client_param 2>&1 |");
-
-    # tee the output
-    while( <BUILD> ){
-        print $_;
-        print LOG $_;
-    }
-    close( BUILD );
-    $build_status |= $?;
-
-    $build_status_str = ( $build_status ? 'busted' : 'success' );
-
-    print LOG "tinderbox: tree: $build_tree\n";
-    print LOG "tinderbox: builddate: $start_time\n";
-    print LOG "tinderbox: status: $build_status_str\n";
-    print LOG "tinderbox: build: $build_name\n";
-    print LOG "tinderbox: errorparser: windows\n";
-    print LOG "tinderbox: buildfamily: windows\n";
-
-    close( LOG );
-    chdir("$start_dir");
-    system( "$nstools\\bin\\blat ${logname} -t tinderbox-daemon\@warp" );
-}
-
-sub cvs_time {
-    local( $ret_time );
-
-    ($sec,$minute,$hour,$mday,$mon,$year) = localtime( $_[0] );
-    $mon++; # month is 0 based.
-
-    sprintf("%02d/%02d/%02d %02d:%02d:00",
-        $mon,$mday,$year,$hour,$minute );
-}
-
-
-sub start_build {
-    open( LOG, ">>logfile" );
-    print LOG "\n";
-    print LOG "tinderbox: tree: $build_tree\n";
-    print LOG "tinderbox: builddate: $start_time\n";
-    print LOG "tinderbox: status: building\n";
-    print LOG "tinderbox: build: $build_name\n";
-    print LOG "tinderbox: errorparser: windows\n";
-    print LOG "tinderbox: buildfamily: windows\n";
-    print LOG "\n";
-    close( LOG );
-    system("$nstools\\bin\\blat logfile -t tinderbox-daemon\@warp" );
-}
-
-sub parse_args {
-    local($i);
-
-    if( @ARGV == 0 ){
-        &usage;
-    }
-    $i = 0;
-    while( $i < @ARGV ){
-        if( $ARGV[$i] eq '--depend' ){
-            $build_depend = 1;
-        }
-        elsif ( $ARGV[$i] eq '--clobber' ){
-            $build_depend = 0;
-        }
-        elsif ( $ARGV[$i] eq '--continue' ){
-            $build_continue = 1;
-        }
-        elsif ( $ARGV[$i] eq '--noawt11' ){
-            $noawt11 = 1;
-        }
-        elsif ( $ARGV[$i] eq '--no32' ){
-            $no32 = 1;
-        }
-        elsif ( $ARGV[$i] eq '--no16' ){
-            $no16 = 1;
-        }
-        elsif ( $ARGV[$i] eq '--test' ){
-            $build_test = 1;
-        }
-        elsif ( $ARGV[$i] eq '-tag' ){
-            $i++;
-            $build_tag = $ARGV[$i];
-            if( $build_tag eq '' || $build_tag eq '-t'){
-                &usage;
-            }
-		}
-        elsif ( $ARGV[$i] eq '-t' ){
-            $i++;
-            $build_tree = $ARGV[$i];
-            if( $build_tree eq '' ){
-                &usage;
-            }
-        }
-        $i++;
-    }
-    if( $build_tree eq '' ){
-        &usage;
-    }
-}
-
-sub usage {
-    die "usage: buildit.pl [--depend | --clobber] [--no16] [--continue] [--test] [-tag TAGNAME] -t TREENAME\n";
-}
-
-sub setup_env {
-    local($p);
-    $ENV{"MOZ_DEBUG"} = '1';
-    $ENV{"MOZ_GOLD"} = '1';
-    $ENV{"NO_SECURITY"} = '1';
-    $ENV{"MOZ_MEDIUM"} = '1';
-    $ENV{"MOZ_CAFE"} = '1';
-    $ENV{"NSPR20"} = '1';
-    $ENV{"VERBOSE"} = '1';
-    $nstools = $ENV{"MOZ_TOOLS"};
-    if( $nstools eq '' ){
-        die "error: environment variable MOZ_TOOLS not set\n";
-    }
-    $msdev = $ENV{"MOZ_MSDEV"} = 'c:\msdev';
-    if( $msdev eq '' ){
-        die "error: environment variable MOZ_MSDEV not set\n";
-    }
-    $msvc = $ENV{"MOZ_MSVC"} = 'c:\msvc';
-    if( $msvc eq '' ){
-        die "error: environment variable MOZ_VC not set\n";
-    }
-    if ( $build_tag ne '' ) {
-	$ENV{"MOZ_BRANCH"} = $build_tag;
-    }
-    $moz_src = $ENV{"MOZ_SRC"} = $start_dir;
-    $ENV{"MOZ_DATE"} = $start_time_str;
-    $src_16_drive = 'y:';
-}
-
-sub print_env {
-    local( $k, $v);
-    print LOG "\nEnvironment\n";
-    print     "\nEnvironment\n";
-    for $k (sort keys %ENV){
-        $v = $ENV{$k};
-        print LOG "   $k=$v\n";
-        print     "   $k=$v\n";
-    }
-    print LOG "\n";
-    print     "\n";
-    system 'set';
-}
-
-sub strip_config {
-	$save_compname=$ENV{"COMPUTERNAME"};
-	$save_userdomain=$ENV{"USERDOMAIN"};
-	$save_username=$ENV{"USERNAME"};
-	$save_userprofile=$ENV{"USERPROFILE"};
-# most of these deletes have no effect.
-	delete($ENV{"COMPUTERNAME"});
-	delete($ENV{"USERDOMAIN"});
-	delete($ENV{"USERNAME"});
-	delete($ENV{"USERPROFILE"});
-#	delete($ENV{"WATCOM"});
-
-}
-
-sub restore_config {
-	$ENV{"COMPUTERNAME"}=$save_compname;
-	$ENV{"USERDOMAIN"}=$save_userdomain;
-	$ENV{"USERNAME"}=$save_username;
-	$ENV{"MSDevDir"}=$save_userprofile;
-	&print_env;
-}

mozilla/webtools/tinderbox/faq.html

@@ -1,31 +0,0 @@
-<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
-<HTML>
-<HEAD>
-   <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
-   <META NAME="GENERATOR" CONTENT="Mozilla/4.0b2 (WinNT; I) [Netscape]">
-</HEAD>
-<BODY>
-
-<H1>
-FAQ on Tinderbox&nbsp;</H1>
-<B><FONT SIZE=+2>Q. What is Tinderbox.</FONT></B>
-<BR><FONT SIZE=+2>A. Your very own automated build page.&nbsp; It shows you how builds
-are going on various platforms. fs</FONT>
-<BR><FONT SIZE=+2></FONT>
-<BR><B><FONT SIZE=+2>Q. I just checked in some code.&nbsp; How can I tell when
-I'm OK.</FONT></B>
-<BR><FONT SIZE=+2>A. You name will appear in the <I>guilty </I>column.&nbsp;
-When there are successful (<FONT COLOR="#00FF00">green</FONT>) builds in
-all the columns in a row <B>above</B> your name, you know you are ok.</FONT>
-<BR>
-<BR><B><FONT SIZE=+2>Q. The tree is broken, how do I find out what is busted
-(or who busted it).</FONT></B>
-<BR><FONT SIZE=+2>A. Clicking 'L' in the first red box (first build to break)
-above a green will show you a build log for the broken build.&nbsp; You
-can also click 'C' in this box and see what code was checked in.</FONT>
-<BR>
-<BR><B><FONT SIZE=+2>More Questions? Mail me <A HREF="mailto:ltabb@netscape.com">ltabb@netscape.com</A></FONT></B>
-<BR>
-
-</BODY>
-</HTML>

mozilla/webtools/tinderbox/fixupimages.pl

@@ -1,217 +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 Tinderbox build tool.
-#
-# The Initial Developer of the Original Code is Netscape Communications
-# Corporation. Portions created by Netscape are Copyright (C) 1998
-# Netscape Communications Corporation. All Rights Reserved.
-
-use Socket;
-
-require 'globals.pl';
-require 'imagelog.pl';
-
-# Port an old-style imagelog thing to a newstyle one
-
-open( IMAGELOG, "<$data_dir/imagelog.txt" ) || die "can't open file";
-open (OUT, ">$data_dir/newimagelog.txt") || die "can't open output file";
-select(OUT); $| = 1; select(STDOUT);
-
-while( <IMAGELOG> ){
-    chop;
-    ($url,$quote)  = split(/\`/);
-    print "$url\n";
-    $size = &URLsize($url);
-    $width = "";
-    $height = "";
-    if ($size =~ /WIDTH=([0-9]*)/) {
-        $width = $1;
-    }
-    if ($size =~ /HEIGHT=([0-9]*)/) {
-        $height = $1;
-    }
-    if ($width eq "" || $height eq "") {
-        print "Couldn't get image size; skipping.\n";
-    } else {
-        print OUT "$url`$width`$height`$quote\n";
-    }
-}
-
-
-
-
-
-
-sub imgsize {
-    local($file)= @_;
-
-    #first try to open the file
-    if( !open(STREAM, "<$file") ){
-        print "Can't open IMG $file"; 
-        $size="";
-    } else {
-        if ($file =~ /.jpg/i || $file =~ /.jpeg/i) {
-            $size = &jpegsize(STREAM);
-        } elsif($file =~ /.gif/i) {
-            $size = &gifsize(STREAM);
-        } elsif($file =~ /.xbm/i) {
-            $size = &xbmsize(STREAM);
-        } else {
-            return "";
-        }
-        $_ = $size;
-        if(  /\s*width\s*=\s*([0-9]*)\s*/i ){
-            ($newwidth)= /\s*width\s*=\s*(\d*)\s*/i;
-        }
-        if(  /\s*height\s*=\s*([0-9]*)\s*/i ){
-            ($newheight)=/\s*height\s*=\s*(\d*)\s*/i;
-        }
-        close(STREAM);
-    }
-    return $size;
-}
-
-###########################################################################
-# Subroutine gets the size of the specified GIF
-###########################################################################
-sub gifsize {
-    local($GIF) = @_;
-    read($GIF, $type, 6); 
-    if(!($type =~ /GIF8[7,9]a/) || 
-       !(read($GIF, $s, 4) == 4) ){
-        print "Invalid or Corrupted GIF"; 
-        $size="";
-    } else {
-        ($a,$b,$c,$d)=unpack("C"x4,$s);
-        $size=join ("", 'WIDTH=', $b<<8|$a, ' HEIGHT=', $d<<8|$c);
-    }
-    return $size;
-}
-
-sub xbmsize {
-    local($XBM) = @_;
-    local($input)="";
-
-    $input .= <$XBM>;
-    $input .= <$XBM>;
-    $_ = $input;
-    if( /#define\s*\S*\s*\d*\s*\n#define\s*\S*\s*\d*\s*\n/i ){
-       ($a,$b)=/#define\s*\S*\s*(\d*)\s*\n#define\s*\S*\s*(\d*)\s*\n/i;
-       $size=join ("", 'WIDTH=', $a, ' HEIGHT=', $b );
-   } else {
-       print "Hmmm... Doesn't look like an XBM file";
-   }
-    return $size;
-}
-
-# jpegsize : gets the width and height (in pixels) of a jpeg file
-# Andrew Tong, werdna@ugcs.caltech.edu           February 14, 1995
-# modified slightly by alex@ed.ac.uk
-sub jpegsize {
-    local($JPEG) = @_;
-    local($done)=0;
-    $size="";
-
-    read($JPEG, $c1, 1); read($JPEG, $c2, 1);
-    if( !((ord($c1) == 0xFF) && (ord($c2) == 0xD8))){
-        printf "This is not a JPEG! (Codes %02X %02X)\n", ord($c1), ord($c2);
-        $done=1;
-    }
-    while (ord($ch) != 0xDA && !$done) {
-        # Find next marker (JPEG markers begin with 0xFF)
-        # This can hang the program!!
-        while (ord($ch) != 0xFF) {  read($JPEG, $ch, 1); }
-        # JPEG markers can be padded with unlimited 0xFF's
-        while (ord($ch) == 0xFF) { read($JPEG, $ch, 1); }
-        # Now, $ch contains the value of the marker.
-            $marker=ord($ch);
-
-            if (($marker >= 0xC0) && ($marker <= 0xCF) &&
-            ($marker != 0xC4) && ($marker != 0xCC)) {  # it's a SOFn marker
-            read ($JPEG, $junk, 3); read($JPEG, $s, 4);
-            ($a,$b,$c,$d)=unpack("C"x4,$s);
-            $size=join("", 'HEIGHT=',$a<<8|$b,' WIDTH=',$c<<8|$d );
-            $done=1;
-        } else {
-            # We **MUST** skip variables, since FF's within variable 
-            # names are NOT valid JPEG markers
-            read ($JPEG, $s, 2); 
-            ($c1, $c2) = unpack("C"x2,$s); 
-            $length = $c1<<8|$c2;
-            if( ($length < 2) ){
-                print "Erroneous JPEG marker length";
-                $done=1;
-            } else {
-                read($JPEG, $junk, $length-2);
-            }
-        }
-    }
-    return $size;
-}
-
-###########################################################################
-# Subroutine grabs a gif from another server and gets its size
-###########################################################################
-
-
-sub URLsize {
-    my ($fullurl) = @_;
-    my($dummy, $dummy, $serverstring, $url) = split(/\//, $fullurl, 4);
-    my($them,$port) = split(/:/, $serverstring);
-    my $port = 80 unless $port;
-    $them = 'localhost' unless $them;
-    my $size="";
-
-    $_=$url;
-    if( /gif/i || /jpeg/i || /jpg/i || /xbm/i ) {
-        my ($remote, $iaddr, $paddr, $proto, $line);
-        $remote = $them;
-        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)  || return "socket: $!";
-        connect(S, $paddr)    || return "connect: $!";
-        select(S); $| = 1; select(STDOUT);
-
-
-
-        print S "GET /$url\n";
-        if ($url =~ /.jpg/i || $url =~ /.jpeg/i) {
-            $size = &jpegsize(S);
-        } elsif($url =~ /.gif/i) {
-            $size = &gifsize(S);
-        } elsif($url =~ /.xbm/i) {
-            $size = &xbmsize(S);
-        } else {
-            return "";
-        }               
-        $_ = $size;
-        if(  /\s*width\s*=\s*([0-9]*)\s*/i ){
-            ($newwidth)= /\s*width\s*=\s*(\d*)\s*/i;
-        }
-        if(  /\s*height\s*=\s*([0-9]*)\s*/i ){
-            ($newheight)=/\s*height\s*=\s*(\d*)\s*/i;
-        }
-    } else {
-        $size="";
-    }
-    return $size;
-}
-
-sub dokill {
-    kill 9,$child if $child;
-}

mozilla/webtools/tinderbox/globals.pl

@@ -1,556 +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 Tinderbox build tool.
-#
-# The Initial Developer of the Original Code is Netscape Communications
-# Corporation. Portions created by Netscape are Copyright (C) 1998
-# Netscape Communications Corporation. All Rights Reserved.
-
-#
-# Global variabls and functions for tinderbox
-#
-
-#
-# Global variables
-#
-
-$td1 = {};
-$td2 = {};
-
-$build_list = [];           # array of all build records
-$build_name_index = {};
-$ignore_builds = {};
-$build_name_names = [];
-$name_count = 0;
-
-$build_time_index = {};
-$build_time_times = [];
-$time_count = 0;
-$mindate_time_count = 0;  # time_count that corresponds to the mindate
-
-$build_table = [];
-$who_list = [];
-$who_list2 = [];
-@note_array = ();
-
-
-#$body_tag = "<BODY TEXT=#000000 BGCOLOR=#8080C0 LINK=#FFFFFF VLINK=#800080 ALINK=#FFFF00>";
-#$body_tag = "<BODY TEXT=#000000 BGCOLOR=#FFFFC0 LINK=#0000FF VLINK=#800080 ALINK=#FF00FF>";
-if( $ENV{'USERNAME'} eq 'ltabb' ){
-    $gzip = 'gzip';
-}
-else {
-    $gzip = '/usr/local/bin/gzip';
-}
-
-$data_dir='data';
-
-$lock_count = 0;
-
-1;
-
-sub lock{
-    #if( $lock_count == 0 ){
-    #    print "locking $tree/LOCKFILE.lck\n";
-    #    open( LOCKFILE_LOCK, ">$tree/LOCKFILE.lck" );
-    #    flock( LOCKFILE_LOCK, 2 );
-    #}
-    #$lock_count++;
-
-}
-
-sub unlock{
-    #$lock_count--;
-    #if( $lock_count == 0 ){
-    #    flock( LOCKFILE_LOCK, 8 );
-    #    close( LOCKFILE_LOCK );
-    #}
-}
-
-sub print_time {
-  my ($t) = @_;
-  my ($minute,$hour,$mday,$mon);
-  (undef,$minute,$hour,$mday,$mon,undef) = localtime($t);
-  sprintf("%02d/%02d&nbsp;%02d:%02d",$mon+1,$mday,$hour,$minute);
-}
-
-sub url_encode {
-  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;
-  return $s;
-}
-
-sub url_decode {
-  my ($value) = @_;
-  $value =~ tr/+/ /;
-  $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
-  return $value;
-}
-
-
-sub value_encode {
-  my ($s) = @_;
-  $s =~ s@&@&amp;@g;
-  $s =~ s@<@&lt;@g;
-  $s =~ s@>@&gt;@g;
-  $s =~ s@\"@&quot;@g;
-  return $s;
-}
-
-
-sub load_data {
-  $tree2 = $form{'tree2'};
-  if( $tree2 ne '' ){
-    require "$tree2/treedata.pl";
-    if( -r "$tree2/ignorebuilds.pl" ){
-      require "$tree2/ignorebuilds.pl";
-    }
-
-    $td2 = {};
-    $td2->{name} = $tree2;
-    $td2->{cvs_module} = $cvs_module;
-    $td2->{cvs_branch} = $cvs_branch;
-    $td2->{num} = 1;
-    $td2->{ignore_builds} = $ignore_builds;
-    if( $cvs_root eq '' ){
-      $cvs_root = '/m/src';
-    }
-    $td2->{cvs_root} = $cvs_root;
-    
-    $tree = $form{'tree'};
-    require "$tree/treedata.pl";
-    if( $cvs_root eq '' ){
-      $cvs_root = '/m/src';
-    }
-  }
-
-  $tree = $form{'tree'};
-
-  return unless $tree;
-  #die "the 'tree' parameter must be provided\n" unless $tree;
-  
-  if ( -r "$tree/treedata.pl" ) {
-    require "$tree/treedata.pl";
-  }
-
-  $ignore_builds = {};
-  if( -r "$tree/ignorebuilds.pl" ){
-    require "$tree/ignorebuilds.pl";
-  }
-        
-  $td1 = {};
-  $td1->{name} = $tree;
-  $td1->{num} = 0;
-  $td1->{cvs_module} = $cvs_module;
-  $td1->{cvs_branch} = $cvs_branch;
-  $td1->{ignore_builds} = $ignore_builds;
-  if( $cvs_root eq '' ){
-    $cvs_root = '/m/src';
-  }
-  $td1->{cvs_root} = $cvs_root;
-
-  &lock;
-  &load_buildlog;
-  &unlock;
-  
-  &get_build_name_index;
-  &get_build_time_index;
-  
-  &load_who($who_list, $td1);
-  if( $tree2 ne '' ){
-    &load_who($who_list2, $td2);
-  }
-
-  &make_build_table;
-}
-
-sub load_buildlog {
-  my $mailtime, $buildtime, $buildname, $errorparser;
-  my $buildstatus, $logfile,$binaryname;
-  my $buildrec, @treelist, $t;
-
-  if (not defined $maxdate) {
-    $maxdate = time();
-  }
-  if (not defined $mindate) {
-    $mindate = $maxdate - 24*60*60;
-  }
-  
-  if ($tree2 ne '') { 
-    @treelist = ($td1, $td2);
-  }
-  else {
-    @treelist = ($td1);
-  }
-  
-  for $t (@treelist) {
-    use Backwards;
-    my ($bw) = Backwards->new("$t->{name}/build.dat") or die;
-
-    my $tooearly = 0;
-    while( $_ = $bw->readline ) {
-      chomp;
-      ($mailtime, $buildtime, $buildname,
-       $errorparser, $buildstatus, $logfile, $binaryname) = split /\|/;
-
-      # Ignore stuff in the future.
-      next if $buildtime > $maxdate;
-
-      # Ignore stuff in the past (but get a 2 hours of extra data)
-      if ($buildtime < $mindate - 2*60*60) {
-        # Occasionally, a build might show up with a bogus time.  So,
-        # we won't judge ourselves as having hit the end until we
-        # hit a full 20 lines in a row that are too early.
-        last if $tooearly++ > 20;
-
-        next;
-      }
-      $tooearly = 0;
-      $buildrec = {    
-         mailtime    => $mailtime,
-         buildtime   => $buildtime,
-         buildname   => ($tree2 ne '' ? $t->{name} . ' ' : '' ) . $buildname,
-         errorparser => $errorparser,
-         buildstatus => $buildstatus,
-         logfile     => $logfile,
-         binaryname  => $binaryname,
-         td          => $t
-      };
-      if ($form{noignore} or not $t->{ignore_builds}->{$buildname}) {
-        push @{$build_list}, $buildrec;
-      }
-    }
-  }
-}
-
-sub loadquickparseinfo {
-  my ($tree, $build, $times) = (@_);
-
-  do "$tree/ignorebuilds.pl";
-    
-  use Backwards;
-
-  my ($bw) = Backwards->new("$form{tree}/build.dat") or die;
-    
-  my $latest_time = 0;
-  my $tooearly = 0;
-  while( $_ = $bw->readline ) {
-    chop;
-    my ($buildtime, $buildname, $buildstatus) = (split /\|/)[1,2,4];
-    
-    if ($buildstatus =~ /^success|busted|testfailed$/) {
-
-      # Ignore stuff in the future.
-      next if $buildtime > $maxdate;
-
-      $latest_time = $buildtime if $buildtime > $latest_time;
-
-      # Ignore stuff more than 12 hours old
-      if ($buildtime < $latest_time - 12*60*60) {
-        # Hack: A build may give a bogus time. To compensate, we will
-        # not stop until we hit 20 consecutive lines that are too early.
-
-        last if $tooearly++ > 20;
-        next;
-      }
-      $tooearly = 0;
-
-      next if exists $ignore_builds->{$buildname};
-      next if exists $build->{$buildname}
-              and $times->{$buildname} >= $buildtime;
-      
-      $build->{$buildname} = $buildstatus;
-      $times->{$buildname} = $buildtime;
-    }
-  }
-}
-
-sub load_who {
-  my ($who_list, $td) = @_;
-  my $d, $w, $i, $bfound;
-  
-  open(WHOLOG, "<$td->{name}/who.dat");
-  while (<WHOLOG>) {
-    $i = $time_count;
-    chop;
-    ($d,$w) = split /\|/;
-    $bfound = 0;
-    while ($i > 0 and not $bfound) {
-      if ($d <= $build_time_times->[$i]) {
-        $who_list->[$i+1]->{$w} = 1;
-        $bfound = 1;
-      }
-      else {
-        $i--;
-      }
-    }
-  }
-
-  # Ignore the last one
-  #
-  if ($time_count > 0) {
-    $who_list->[$time_count] = {};
-  }
-}
-    
-sub get_build_name_index {
-  my $i,$br;
-
-  # Get all the unique build names.
-  #
-  foreach $br (@{$build_list}) {
-    $build_name_index->{$br->{buildname}} = 1;
-  }
-    
-  $i = 1;
-  foreach $n (sort keys (%{$build_name_index})) {
-    $build_name_names->[$i] = $n;
-    $i++;
-  }
-
-  $name_count = @{$build_name_names}-1;
-
-  # Update the map so it points to the right index
-  #
-  for ($i=1; $i < $name_count+1; $i++) {
-    $build_name_index->{$build_name_names->[$i]} = $i;
-  }
-}
-
-sub get_build_time_index {
-  my $i,$br;
-
-  # Get all the unique build names.
-  #
-  foreach $br (@{$build_list}) {
-    $build_time_index->{$br->{buildtime}} = 1;
-  }
-
-  $i = 1;
-  foreach $n (sort {$b <=> $a} keys (%{$build_time_index})) {
-    $build_time_times->[$i] = $n;
-    $mindate_time_count = $i if $n >= $mindate;
-    $i++;
-  }
-
-  $time_count = @{$build_time_times}-1;
-
-  # Update the map so it points to the right index
-  #
-  for ($i=1; $i < $time_count+1; $i++) {
-    $build_time_index->{$build_time_times->[$i]} = $i;
-  }
-  
-  #for $i (@{$build_time_times}) {
-  #    print $i . "\n";
-  #}
-  
-  #while( ($k,$v) = each(%{$build_time_index})) {
-  #    print "$k=$v\n";
-  #}
-}
-
-sub make_build_table {
-  my $i,$ti,$bi,$ti1,$br;
-
-  # Create the build table
-  #
-  for ($i=1; $i <= $time_count; $i++){
-    $build_table->[$i] = [];
-  }
-
-  # Populate the build table with build data
-  #
-  foreach $br (reverse @{$build_list}) {
-    $ti = $build_time_index->{$br->{buildtime}};
-    $bi = $build_name_index->{$br->{buildname}};
-    $build_table->[$ti][$bi] = $br;
-  }
-
-  &load_notes;
-
-  for ($bi = $name_count; $bi > 0; $bi--) {
-    for ($ti = $time_count; $ti > 0; $ti--) {
-      if (defined($br = $build_table->[$ti][$bi])
-          and not defined($br->{rowspan})) {
-
-        # If the cell immediately after us is defined, then we 
-        #  can have a previousbuildtime.
-        if (defined($br1 = $build_table->[$ti+1][$bi])) {
-          $br->{previousbuildtime} = $br1->{buildtime};
-        }
-                                
-        $ti1 = $ti-1;
-        while ($ti1 > 0 and not defined($build_table->[$ti1][$bi])) {
-          $build_table->[$ti1][$bi] = -1;
-          $ti1--;
-        }
-        $br->{rowspan} = $ti - $ti1;
-        if ($br->{rowspan} != 1) {
-          $build_table->[$ti1+1][$bi] = $br;
-          $build_table->[$ti][$bi] = -1;
-        }
-      }
-    }
-  }
-}
-
-sub load_notes {
-  if ($tree2 ne '') { 
-    @treelist = ($td1, $td2);
-  }
-  else {
-    @treelist = ($td1);
-  }
-
-  foreach $t (@treelist) {
-    open(NOTES,"<$t->{name}/notes.txt") 
-      or print "<h2>warning: Couldn't open $t->{name}/notes.txt </h2>\n";
-    while (<NOTES>) {
-      chop;
-      ($nbuildtime,$nbuildname,$nwho,$nnow,$nenc_note) = split /\|/;
-      $nbuildname = "$t->{name} $nbuildname" if $tree2 ne '';
-      $ti = $build_time_index->{$nbuildtime};
-      $bi = $build_name_index->{$nbuildname};
-      #print "[ti = $ti][bi=$bi][buildname='$nbuildname' $_<br>";
-      if ($ti != 0 and $bi != 0) {
-        $build_table->[$ti][$bi]->{hasnote} = 1;
-        if (not defined($build_table->[$ti][$bi]->{noteid})) {
-          $build_table->[$ti][$bi]->{noteid} = (0+@note_array);
-        }
-        $noteid = $build_table->[$ti][$bi]->{noteid};
-        $now_str = &print_time($nnow);
-        $note = &url_decode($nenc_note);
-        $note_array[$noteid] = "<pre>\n[<b><a href=mailto:$nwho>"
-             ."$nwho</a> - $now_str</b>]\n$note\n</pre>"
-             .$note_array[$noteid];
-      }
-    }
-    close(NOTES);
-  }
-}
-
-sub last_success_time {
-  my ($row) = @_;
-
-  for (my $tt=1; $tt <= $time_count; $tt++) {
-    my $br = $build_table->[$tt][$row];
-    next unless defined $br;
-    next unless $br->{buildstatus} eq 'success';
-    return $build_time_times->[$tt + $br->{rowspan} ];
-  }
-  return 0;
-}
-
-sub last_status {
-  my ($row) = @_;
-
-  for (my $tt=1; $tt <= $time_count; $tt++) {
-    my $br = $build_table->[$tt][$row];
-    next unless defined $br;
-    next unless $br->{buildstatus} =~ /^(success|busted|testfailed)$/;
-    return $br->{buildstatus};
-  }
-  return 'building';
-}
-
-sub check_password {
-  if ($form{password} eq '') {
-    if (defined $cookie_jar{tinderbox_password}) {
-      $form{password} = $cookie_jar{tinderbox_password};
-    }
-  }
-  my $correct = '';
-    if (open(REAL, '<data/passwd')) {
-      $correct = <REAL>;
-      close REAL;
-      $correct =~ s/\s+$//;   # Strip trailing whitespace.
-    }
-  $form{password} =~ s/\s+$//;      # Strip trailing whitespace.
-  if ($form{password} ne '') {
-    open(TRAPDOOR, "../bonsai/data/trapdoor $form{'password'} |") 
-      or die "Can't run trapdoor func!";
-    my $encoded = <TRAPDOOR>;
-    close TRAPDOOR;
-    $encoded =~ s/\s+$//;   # Strip trailing whitespace.
-    if ($encoded eq $correct) {
-      if ($form{rememberpassword} ne '') {
-        print "Set-Cookie: tinderbox_password=$form{'password'} ;"
-             ." path=/ ; expires = Sun, 1-Mar-2020 00:00:00 GMT\n";
-      }
-      return;
-    }
-  }
-
-  require 'header.pl';
-
-  print "Content-type: text/html\n";
-  print "Set-Cookie: tinderbox_password= ; path=/ ; "
-       ." expires = Sun, 1-Mar-2020 00:00:00 GMT\n";
-  print "\n";
-
-  EmitHtmlHeader("What's the magic word?",
-                 "You need to know the magic word to use this page.");
-
-  if ($form{password} ne '') {
-    print "<B>Invalid password; try again.<BR></B>";
-  }
-  print q(
-    <FORM method=post>
-    <B>Password:</B>
-    <INPUT NAME=password TYPE=password><BR>
-    <INPUT NAME=rememberpassword TYPE=checkbox>
-    If correct, remember password as a cookie<BR>
-  );
-    
-  while (my ($key,$value) = each %form) {
-    next if $key eq "password" or $key eq "rememberpassword";
-
-    my $enc = value_encode($value);
-    print "<INPUT TYPE=HIDDEN NAME=$key VALUE='$enc'>\n";
-  }
-  print "<INPUT TYPE=SUBMIT value=Submit></FORM>\n";
-  exit;
-}
-
-sub find_build_record {
-  my ($tree, $logfile) = @_;
-
-  my $log_entry = `grep $logfile $tree/build.dat`;
-
-  chomp($log_entry);
-  my ($mailtime, $buildtime, $buildname, $errorparser,
-      $buildstatus, $logfile, $binaryname) = split /\|/, $log_entry;
-
-  $buildrec = {    
-    mailtime    => $mailtime,
-    buildtime   => $buildtime,
-    buildname   => $buildname,
-    errorparser => $errorparser,
-    buildstatus => $buildstatus,
-    logfile     => $logfile,
-    binaryname  => $binaryname,
-    td          => undef
-  };
-  return $buildrec;
-}

mozilla/webtools/tinderbox/handlemail.pl

@@ -1,49 +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 Tinderbox build tool.
-#
-# The Initial Developer of the Original Code is Netscape Communications
-# Corporation. Portions created by Netscape are Copyright (C) 1998
-# Netscape Communications Corporation. All Rights Reserved.
-
-# Figure out which directory tinderbox is in by looking at argv[0].  Unless
-# there is a command line argument; if there is, just use that.
-
-$tinderboxdir = $0;
-$tinderboxdir =~ s:/[^/]*$::;      # Remove last word, and slash before it.
-if ($tinderboxdir eq "") {
-    $tinderboxdir = ".";
-}
-
-if (@ARGV > 0) {
-    $tinderboxdir = $ARGV[0];
-}
-
-print "tinderbox = $tinderboxdir\n"; 
-
-chdir $tinderboxdir || die "Couldn't chdir to $tinderboxdir"; 
-
-
-open(DF, ">data/tbx.$$") || die "could not open data/tbx.$$";
-while(<STDIN>){
-    print DF $_;
-}
-close(DF);
-
-$err = system("./processbuild.pl data/tbx.$$");
-
-if( $err ) {
-    die "processbuild.pl returned an error\n";
-}
-

mozilla/webtools/tinderbox/imagelog.pl

@@ -1,43 +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 Tinderbox build tool.
-#
-# The Initial Developer of the Original Code is Netscape Communications
-# Corporation. Portions created by Netscape are Copyright (C) 1998
-# Netscape Communications Corporation. All Rights Reserved.
-
-1;
-
-sub add_imagelog {
-    local($url,$quote,$width,$height) = @_;
-    open( IMAGELOG, ">>$data_dir/imagelog.txt" ) || die "Oops; can't open imagelog.txt";
-    print IMAGELOG "$url`$width`$height`$quote\n";
-    close( IMAGELOG );
-}
-
-sub get_image{
-    local(@log,@ret,$i);
-
-    open( IMAGELOG, "<$data_dir/imagelog.txt" );
-    @log = <IMAGELOG>;
-
-    # return a random line
-    srand;
-    @ret = split(/\`/,$log[rand @log]);
-
-    close( IMAGELOG );
-    @ret;
-}
-
-

mozilla/webtools/tinderbox/index.html

@@ -1,12 +0,0 @@
-<TITLE>tinderbox</TITLE>
-<META HTTP-EQUIV="Refresh" CONTENT="1; URL=showbuilds.cgi">
-<BODY   BGCOLOR="#FFFFFF" TEXT="#000000"
-        LINK="#0000EE" VLINK="#551A8B" ALINK="#FF0000">
-<CENTER>
-<TABLE BORDER=0 WIDTH="100%" HEIGHT="100%"><TR><TD ALIGN=CENTER VALIGN=CENTER>
-<FONT SIZE="+2">
-You're looking for 
-<A HREF="showbuilds.cgi">showbuilds.cgi</A>.
-</FONT>
-</TD></TR></TABLE>
-</CENTER>

mozilla/webtools/tinderbox/processbuild.pl

@@ -1,241 +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 Tinderbox build tool.
-#
-# The Initial Developer of the Original Code is Netscape Communications
-# Corporation. Portions created by Netscape are Copyright (C) 1998
-# Netscape Communications Corporation. All Rights Reserved.
-
-require 'globals.pl';
-require 'timelocal.pl';
-
-umask 0;
-
-#$logfile = '';
-
-%MAIL_HEADER = ();
-$DONE = 0;
-$building = 0;
-$endsection = 0;
-
-open( LOG, "<$ARGV[0]") || die "cant open $!";
-&parse_mail_header;
-while ($DONE == 0) {
-    %tbx = ();
-    &get_variables;
-
-    # run thru if EOF and we haven't hit our section end marker
- 
-    if ( !$DONE || !$endsection) {
-        &check_required_vars;
-        $tree = $tbx{'tree'} if (!defined($tree));
-        $logfile = "$builddate.$$.gz" if (!defined($logfile));
-	$building++ if ($tbx{'status'} =~ m/building/);
-        &lock;
-        &write_build_data;
-        &unlock;
-    }
-}
-close(LOG);
-
-&compress_log_file;
-&unlink_log_file;
-
-system "./buildwho.pl $tree";
-
-# Build static pages for Sidebar flash and tinderbox panels.
-$ENV{QUERY_STRING}="tree=$tree&static=1";
-system './showbuilds.cgi';
-
-# end of main
-######################################################################
-
-
-# This routine will scan through log looking for 'tinderbox:' variables
-#
-sub  get_variables{
-
-    #while( ($k,$v) = each( %MAIL_HEADER ) ){
-    #    print "$k='$v'\n";
-    #}
-
-    &parse_log_variables;
-
-    #while( ($k,$v) = each( %tbx ) ){
-    #    print "$k='$v'\n";
-    #}
-}
-
-
-sub parse_log_variables {
-    my ($line, $stop);
-    $stop = 0;
-    while($stop == 0){
-        $line = <LOG>;
-        $DONE++, return if !defined($line);
-        chomp($line);
-        if( $line =~ /^tinderbox\:/ ){
-            if( $line =~ /^tinderbox\:[ \t]*([^:]*)\:[ \t]*([^\n]*)/ ){
-                $tbx{$1} = $2;
-            } elsif ( $line =~ /^tinderbox: END/ ) {
-                $stop++, $endsection++;
-            }
-        }
-    }
-}
-
-sub parse_mail_header {
-    my $line;
-    my $name = '';
-    while($line = <LOG> ){
-        chomp($line);
-
-        if( $line eq '' ){
-            return;
-        }
-
-        if( $line =~ /([^ :]*)\:[ \t]+([^\n]*)/ ){
-            $name = $1;
-            $name =~ tr/A-Z/a-z/;
-            $MAIL_HEADER{$name} = $2;
-            #print "$name $2\n";
-        }
-        elsif( $name ne '' ){
-            $MAIL_HEADER{$name} .= $2;
-        }
-    }
-
-}
-
-sub check_required_vars {
-    $err_string = '';
-    if( $tbx{'tree'} eq ''){
-        $err_string .= "Variable 'tinderbox:tree' not set.\n";
-    }
-    elsif( ! -r $tbx{'tree'} ){
-        $err_string .= "Variable 'tinderbox:tree' not set to a valid tree.\n";
-    }
-    elsif(($MAIL_HEADER{'to'} =~ /external/i ||
-           $MAIL_HEADER{'cc'} =~ /external/i) &&
-          $tbx{'tree'} !~ /external/i) {
-        $err_string .= "Data from an external source didn't specify an 'external' tree.";
-    }
-    if( $tbx{'build'} eq ''){
-        $err_string .= "Variable 'tinderbox:build' not set.\n";
-    }
-    if( $tbx{'errorparser'} eq ''){
-        $err_string .= "Variable 'tinderbox:errorparser' not set.\n";
-    }
-
-    #
-    # Grab the date in the form of mm/dd/yy hh:mm:ss
-    #
-    # Or a GMT unix date
-    #
-    if( $tbx{'builddate'} eq ''){
-        $err_string .= "Variable 'tinderbox:builddate' not set.\n";
-    }
-    else {
-        if( $tbx{'builddate'} =~ 
-            /([0-9]*)\/([0-9]*)\/([0-9]*)[ \t]*([0-9]*)\:([0-9]*)\:([0-9]*)/ ){
-            
-            $builddate = timelocal($6,$5,$4,$2,$1-1,$3);
-                        
-        }
-        elsif( $tbx{'builddate'} > 7000000 ){
-            $builddate = $tbx{'builddate'};
-        }
-        else {
-            $err_string .= "Variable 'tinderbox:builddate' not of the form MM/DD/YY HH:MM:SS or unix date\n";
-        }
-
-    }
-
-    #
-    # Build Status
-    #
-    if( $tbx{'status'} eq ''){
-        $err_string .= "Variable 'tinderbox:status' not set.\n";
-    }
-    elsif( ! $tbx{'status'} =~ /success|busted|building|testfailed/ ){
-        $err_string .= "Variable 'tinderbox:status' must be 'success', 'busted', 'testfailed', or 'building'\n";
-    }
-
-    #
-    # Report errors
-    #
-    if( $err_string ne ''  ){
-        die $err_string;
-    }
-}
-
-sub write_build_data {
-    $t = time;
-    open( BUILDDATA, ">>$tbx{'tree'}/build.dat" )|| die "can't open $! for writing";
-    print BUILDDATA "$t|$builddate|$tbx{'build'}|$tbx{'errorparser'}|$tbx{'status'}|$logfile|$tbx{binaryname}\n";
-    close( BUILDDATA );
-}
-
-sub compress_log_file {
-    local( $done, $line);
-
-    return if ( $building );
-
-    open( LOG2, "<$ARGV[0]") || die "cant open $!";
-
-    #
-    # Skip past the the RFC822.HEADER
-    #
-    $done = 0;
-    while( !$done && ($line = <LOG2>) ){
-        chomp($line);
-        $done = ($line eq '');
-    }
-
-    open( ZIPLOG, "| $gzip -c > ${tree}/$logfile" ) || die "can't open $! for writing";
-    $inBinary = 0;
-    $hasBinary = ($tbx{'binaryname'} ne '');
-    while( $line = <LOG2> ){
-        if( !$inBinary ){
-            print ZIPLOG $line;
-            if( $hasBinary ){
-                $inBinary = ($line =~ /^begin [0-7][0-7][0-7] /);
-            }
-        }
-        else {
-            if( $line =~ /^end\n/ ){
-                $inBinary = 0;
-            }
-        }
-    }
-    close( ZIPLOG );
-    close( LOG2 );
-
-    #
-    # If a uuencoded binary is part of the build, unpack it.
-    #
-    if( $hasBinary ){
-        $bin_dir = "$tbx{'tree'}/bin/$builddate/$tbx{'build'}";
-        $bin_dir =~ s/ //g;
-
-        system("mkdir -m 0777 -p $bin_dir");
-
-        # LTNOTE: I'm not sure this is cross platform.
-        system("/tools/ns/bin/uudecode --output-file=$bin_dir/$tbx{binaryname} < $ARGV[0]");
-    }
-}
-        
-sub unlink_log_file {
-    unlink( $ARGV[0] );
-}

mozilla/webtools/tinderbox/showbuilds.cgi

@@ -1,782 +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 Tinderbox build tool.
-#
-# The Initial Developer of the Original Code is Netscape Communications
-# Corporation. Portions created by Netscape are Copyright (C) 1998
-# Netscape Communications Corporation. All Rights Reserved.
-
-use lib '../bonsai';
-require 'globals.pl';
-require 'lloydcgi.pl';
-require 'imagelog.pl';
-require 'header.pl';
-$|=1;
-
-# Hack this until I can figure out how to do get default root. -slamm
-$default_root = '/cvsroot';
-
-# Show 12 hours by default
-#
-$nowdate = time;
-if (not defined($maxdate = $form{maxdate})) {
-  $maxdate = $nowdate;
-}
-if ($form{showall}) {
-  $mindate = 0;
-}
-else {
-  $default_hours = 12;
-  $hours = $default_hours;
-  $hours = $form{hours} if $form{hours};
-  $mindate = $maxdate - ($hours*60*60);
-}
-
-%colormap = (
-  success    => '00ff00',
-  busted     => 'red',
-  building   => 'yellow',
-  testfailed => 'orange'
-);
-
-%images = (
-  flames    => '1afi003r.gif',
-  star      => 'star.gif'
-);
-
-$tree = $form{tree};
-
-if (exists $form{rebuildguilty} or exists $form{showall}) {
-  system ("./buildwho.pl -days 7 $tree > /dev/null");
-  undef $form{rebuildguilty};
-}
-&show_tree_selector,  exit if $form{tree} eq '';
-&do_quickparse,       exit if $form{quickparse};
-&do_express,          exit if $form{express};
-&do_rdf,              exit if $form{rdf};
-&do_static,           exit if $form{static};
-&do_flash,            exit if $form{flash};
-&do_panel,            exit if $form{panel};
-&do_tinderbox,        exit;
-
-# end of main
-#=====================================================================
-
-sub make_tree_list {
-  my @result;
-  while(<*>) {
-    if( -d $_ && $_ ne 'data' && $_ ne 'CVS' && -f "$_/treedata.pl") {
-      push @result, $_;
-    }
-  }
-  return @result;
-}
-
-sub show_tree_selector {
-
-  print "Content-type: text/html\n\n";
-
-  EmitHtmlHeader("tinderbox");
-
-  print "<P><TABLE WIDTH=\"100%\">";
-  print "<TR><TD ALIGN=CENTER>Select one of the following trees:</TD></TR>";
-  print "<TR><TD ALIGN=CENTER>\n";
-  print " <TABLE><TR><TD><UL>\n";
-  
-  my @list = make_tree_list();
-
-  foreach (@list) {
-    print "<LI><a href=showbuilds.cgi?tree=$_>$_</a>\n";
-  }
-  print "<//UL></TD></TR></TABLE></TD></TR></TABLE>";
-  
-  print "<P><TABLE WIDTH=\"100%\">";
-  print "<TR><TD ALIGN=CENTER><a href=admintree.cgi>";
-  print "Administer</a> one of the following trees:</TD></TR>";
-  print "<TR><TD ALIGN=CENTER>\n";
-  print " <TABLE><TR><TD><UL>\n";
-  
-  foreach (@list) {
-    print "<LI><a href=admintree.cgi?tree=$_>$_</a>\n";
-  }
-  print "<//UL></TD></TR></TABLE></TD></TR></TABLE>";
-}
-
-sub do_static {
-  local *OUT;
-
-  $form{nocrap}=1;
-
-  my @pages = ( ['index.html', 'do_tinderbox'],
-                ['flash.rdf',  'do_flash'],
-                ['panel.html', 'do_panel'] );
-  
-  $rel_path = '../';
-  while (($key, $value) = each %images) {
-    $images{$key} = "$rel_path$value";
-  }
-
-  my $oldfh = select;
-
-  foreach $pair (@pages) {
-    my ($page, $call) = @{$pair};
-    my $outfile = "$form{tree}/$page";
-
-    open(OUT,">$outfile.$$");
-    select OUT;
-
-    eval "$call";
-
-    close(OUT);
-    system "mv $outfile.$$ $outfile";
-  }
-  select $oldfh;
-}
-
-sub do_tinderbox {
-  &load_data;
-  &print_page_head;
-  &print_table_header;
-  &print_table_body;
-  &print_table_footer;
-}
-
-sub print_page_head {
-
-  print "Content-type: text/html",
-        ($nowdate eq $maxdate ? "\nRefresh: 900" : ''),
-        "\n\n<HTML>\n" unless $form{static};
-
-  # Get the message of the day only on the first pageful
-  do "$tree/mod.pl" if $nowdate eq $maxdate;
-
-  use POSIX qw(strftime);
-  # Print time in format, "HH:MM timezone"
-  my $now = strftime("%H:%M %Z", localtime);
-
-  EmitHtmlTitleAndHeader("tinderbox: $tree", "tinderbox",
-                         "tree: $tree ($now)");
-
-  &print_javascript;
-
-  print "$message_of_day\n";
-  
-  # Quote and Lengend
-  #
-  unless ($form{nocrap}) {
-    my ($imageurl,$imagewidth,$imageheight,$quote) = &get_image;
-    print qq{
-      <table width="100%" cellpadding=0 cellspacing=0>
-        <tr>
-          <td valign=bottom>
-            <p><center><a href=addimage.cgi><img src="$rel_path$imageurl"
-              width=$imagewidth height=$imageheight><br>
-              $quote</a><br>
-            </center>
-            <p>
-          <td align=right valign=bottom>
-            <table cellspacing=0 cellpadding=1 border=0><tr><td align=center>
-              <TT>L</TT></td><td>= Show Build Log
-            </td></tr><tr><td align=center>
-              <img src="$images{star}"></td><td>= Show Log comments
-            </td></tr><tr><td colspan=2>
-              <table cellspacing=1 cellpadding=1 border=1>
-                <tr bgcolor="$colormap{success}"><td>Successful Build
-                <tr bgcolor="$colormap{building}"><td>Build in Progress
-                <tr bgcolor="$colormap{testfailed}"><td>Successful Build,
-                                                          but Tests Failed
-                <tr bgcolor="$colormap{busted}"><td>Build Failed
-              </table>
-            </td></tr></table>
-          </td>
-        </tr>
-      </table>
-    };
-  }
-  if ($bonsai_tree) {
-    print "The tree is currently <font size=+2>";
-    print (&tree_open ? 'OPEN' : 'CLOSED');
-    print "</font>\n";
-  }
-}
-
-sub print_table_body {
-  for (my $tt=1; $tt <= $time_count; $tt++) {
-    last if $build_time_times->[$tt] < $mindate;
-    print_table_row($tt);    
-  }
-}
-
-sub print_table_row {
-  my ($tt) = @_;
-
-  # Time column
-  # 
-  my $query_link = '';
-  my $end_query  = '';
-  my $pretty_time = &print_time($build_time_times->[$tt]);
-
-  ($hour) = $pretty_time =~ /(\d\d):/;
-
-  if ($lasthour != $hour or &has_who_list($tt)) {
-    $query_link = &query_ref($td1, $build_time_times->[$tt]);
-    $end_query  = '</a>';
-  }
-  if ($lasthour == $hour) {
-    $pretty_time =~ s/^.*&nbsp;//;
-  } else {
-    $lasthour = $hour;
-  }
-
-  my $hour_color = '';
-  $hour_color = ' bgcolor=#e7e7e7' if $build_time_times->[$tt] % 7200 <= 3600;
-  print "<tr align=center><td align=right$hour_color>",
-        "$query_link\n$pretty_time$end_query</td>\n";
-
-  # Guilty
-  #
-  print '<td>';
-  for $who (sort keys %{$who_list->[$tt]} ){
-    $qr = &who_menu($td1, $build_time_times->[$tt],
-                    $build_time_times->[$tt-1],$who);
-    $who =~ s/%.*$//;
-    print "  ${qr}$who</a>\n";
-  }
-  print '</td>';
-
-  # Build Status
-  #
-  for ($bn=1; $bn <= $name_count; $bn++) {
-    if (not defined($br = $build_table->[$tt][$bn])) {
-      # No build data for this time
-      print "<td></td>\n";
-      next;
-    }
-    next if $br == -1;  # rowspan has covered this row
-
-    $hasnote = $br->{hasnote};
-    $noteid = $hasnote ? $br->{noteid} : 0;
-    $rowspan = $br->{rowspan};
-    $rowspan = $mindate_time_count - $tt + 1
-      if $tt + $rowspan - 1 > $mindate_time_count;
-    $color = $colormap{$br->{buildstatus}};
-    $status = $br->{buildstatus};
-    print "<td rowspan=$rowspan bgcolor=${color}>\n";
-      
-    $logfile = $br->{logfile};
-    $errorparser = $br->{errorparser};
-    $buildname = $br->{buildname};
-    $buildtime = $br->{buildtime};
-    $buildtree = $br->{td}->{name};
-      
-    print "<tt>\n";
-        
-    # Build Note
-    # 
-    $buildname = &url_encode($buildname);
-    my $logurl = "${rel_path}showlog.cgi?log=$buildtree/$logfile";
-
-    if ($hasnote) {
-      print "<a href='$logurl' onclick=\"return ",
-            "note(event,$noteid,'$logfile');\">",
-            "<img src='$images{star}' border=0></a>\n";
-    }
-        
-    # Build Log
-    # 
-    print "<A HREF='$logurl' onclick=\"return log(event,$bn,'$logfile');\">";
-    print "L</a>";
-      
-    # What Changed
-    #
-    if( $br->{previousbuildtime} ){
-      my $previous_br = $build_table->[$tt+$rowspan][$bn];
-      my $previous_rowspan = $previous_br->{rowspan};
-      if (&has_who_list($tt+$rowspan,
-                        $tt+$rowspan+$previous_rowspan-1)) {
-        print "\n", &query_ref($br->{td}, 
-                               $br->{previousbuildtime},
-                               $br->{buildtime});
-        print "C</a>";
-      }
-    }
-
-    if ($br->{binaryname} ne '') {
-      $binfile = "$buildtree/bin/$buildtime/$br->{buildname}/"
-                ."$br->{binaryname}";
-      $binfile =~ s/ //g;
-      print " <a href=$rel_path$binfile>B</a>";
-    }
-    print "</tt>\n</td>";
-  }
-  print "</tr>\n";
-}
-
-sub print_table_header {
-  my $ii, $nspan;
-
-  print "<table border=1 bgcolor='#FFFFFF' cellspacing=1 cellpadding=1>\n";
-
-  print "<tr align=center>\n";
-  print "<td rowspan=1><font size=-1>Click time to <br>see changes <br>",
-        "since time</font></td>";
-  print "<td><font size=-1>",
-        "Click name to see what they did</font>";
-  print "<br><font size=-2>", 
-        &open_showbuilds_href(rebuildguilty=>'1'),
-        "Rebuild guilty list</a></td>";
-
-  for ($ii=1; $ii <= $name_count; $ii++) {
-
-    my $bn = $build_name_names->[$ii];
-    $bn =~ s/Clobber/Clbr/g;
-    $bn =~ s/Depend/Dep/g;
-    $bn = "<font face='Helvetica,Arial' size=-1>$bn</font>";
-
-    my $last_status = &last_status($ii);
-    if ($last_status eq 'busted') {
-      if ($form{nocrap}) {
-        print "<td rowspan=2 bgcolor=$colormap{busted}>$bn</td>";
-      } else {
-        print "<td rowspan=2 bgcolor=000000 background='$images{flames}'>";
-        print "<font color=white>$bn</font></td>";
-      }
-    }
-    else {
-      print "<td rowspan=2 bgcolor=$colormap{$last_status}>$bn</td>";
-    }
-  }
-  print "</tr><tr>\n";
-  print "<TH>Build Time</TH>\n";
-  print "<TH>Guilty</th>\n";
-  print "</tr>\n";
-}
-
-sub print_table_footer {
-  print "</table>\n";
-
-  my $nextdate = $maxdate - $hours*60*60;
-  print &open_showbuilds_href(maxdate=>"$nextdate", nocrap=>'1')
-       ."Show next $hours hours</a>";
-
-  print "<p><a href='${rel_path}admintree.cgi?tree=$tree'>",
-        "Administrate Tinderbox Trees</a><br>\n";
-}
-
-sub open_showbuilds_url {
-  my %args = (
-        nocrap => "$form{nocrap}",
-        @_
-  );
-
-  my $url = "${rel_path}showbuilds.cgi?tree=$form{tree}";
-  $url .= "&hours=$hours" if $hours ne $default_hours;
-  while (my ($key, $value) = each %args) {
-    $url .= "&$key=$value" if $value ne '';
-  }
-  return $url;
-}
-
-sub open_showbuilds_href {
-  return "<a href=".open_showbuilds_url(@_).">";
-}
-
-sub query_ref {
-  my ($td, $mindate, $maxdate, $who) = @_;
-  my $output = '';
-
-  $output = "<a href=${rel_path}../bonsai/cvsquery.cgi";
-  $output .= "?module=$td->{cvs_module}";
-  $output .= "&branch=$td->{cvs_branch}"   if $td->{cvs_branch} ne 'HEAD';
-  $output .= "&cvsroot=$td->{cvs_root}"    if $td->{cvs_root} ne $default_root;
-  $output .= "&date=explicit&mindate=$mindate";
-  $output .= "&maxdate=$maxdate"           if $maxdate ne '';
-  $output .= "&who=$who"                   if $who ne '';
-  $output .= ">";
-}
-
-sub query_ref2 {
-  my ($td, $mindate, $maxdate, $who) = @_;
-  return "${rel_path}../bonsai/cvsquery.cgi?module=$td->{cvs_module}"
-        ."&branch=$td->{cvs_branch}&cvsroot=$td->{cvs_root}"
-        ."&date=explicit&mindate=$mindate&maxdate=$maxdate&who="
-        . url_encode($who);
-}
-
-sub who_menu {
-  my ($td, $mindate, $maxdate, $who) = @_;
-  my $treeflag;
-
-  $qr = "${rel_path}../registry/who.cgi?email=". url_encode($who)
-      . "&d=$td->{cvs_module}|$td->{cvs_branch}|$td->{cvs_root}|$mindate|$maxdate";
-
-  return "<a href='$qr' onclick=\"return who(event);\">";
-}
-
-# Check to see if anyone checked in during time slot.
-#   ex.  has_who_list(1);    # Check for checkins in most recent time slot.
-#   ex.  has_who_list(1,5);  # Check range of times.
-sub has_who_list {
-  my ($time1, $time2) = @_;
-
-  if (not defined(@who_check_list)) {
-    # Build a static array of true/false values for each time slot.
-    $who_check_list[$time_count] = 0;
-    my ($t) = 1;
-    for (; $t<=$time_count; $t++) {
-      $who_check_list[$t] = 1 if each %{$who_list->[$t]};
-    }
-  }
-  if ($time2) {
-    for ($ii=$time1; $ii<=$time2; $ii++) {	 
-      return 1 if $who_check_list[$ii]
-    }
-    return 0
-  } else {
-    return $who_check_list[$time1]; 
-  }
-}
-
-sub tree_open {
-  my $done, $line, $a, $b;
-  open(BID, "<../bonsai/data/$bonsai_tree/batchid")
-    or print "can't open batchid<br>";
-  ($a,$b,$bid) = split / /, <BID>;
-  close(BID);
-  open(BATCH, "<../bonsai/data/$bonsai_tree/batch-${bid}")
-    or print "can't open batch-${bid}<br>";;
-  $done = 0;
-  while (($line = <BATCH>) and not $done){ 
-    if ($line =~ /^set treeopen/) {
-      chop $line;
-      ($a,$b,$treestate) = split / /, $line ;
-      $done = 1;
-    }
-  }
-  close(BATCH);
-  return $treestate;
-}
-
-sub print_javascript {
-  my $script;
-  ($script = <<"__ENDJS") =~ s/^    //gm;
-    <script>
-    if (parseInt(navigator.appVersion) < 4) {
-      window.event = 0;
-    }
-
-    function who(d) {
-      var version = parseInt(navigator.appVersion);
-      if (version < 4 || version >= 5) {
-        return true;
-      }
-      var l  = document.layers['popup'];
-      l.src  = d.target.href;
-      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 log_url(logfile) {
-      return "showlog.cgi?log=" + buildtree + "/" + logfile;
-    }
-    function note(d,noteid,logfile) {
-      var version = parseInt(navigator.appVersion);
-      if (version < 4 || version >= 5) {
-        document.location = log_url(logfile);
-        return false;
-      }
-      var l = document.layers['popup'];
-      l.document.write("<table border=1 cellspacing=1><tr><td>"
-                       + notes[noteid] + "</tr></table>");
-      l.document.close();
-
-      l.top = d.y-10;
-      var zz = d.x;
-      if (zz + l.clip.right > window.innerWidth) {
-        zz = (window.innerWidth-30) - l.clip.right;
-        if (zz < 0) { zz = 0; }
-      }
-      l.left = zz;
-      l.visibility="show";
-      return false;
-    }
-    function log(e,buildindex,logfile)
-    {
-      var logurl = log_url(logfile);
-      var commenturl = "addnote.cgi?log=" + buildtree + "/" + logfile;
-      var version = parseInt(navigator.appVersion);
-
-      if (version < 4 || version >= 5) {
-        document.location = logurl;
-        return false;
-      }
-      var q = document.layers["logpopup"];
-      q.top = e.target.y - 6;
-
-      var yy = e.target.x;
-      if ( yy + q.clip.right > window.innerWidth) {
-        yy = (window.innerWidth-30) - q.clip.right;
-        if (yy < 0) { yy = 0; }
-      }
-      q.left = yy;
-      q.visibility="show"; 
-      q.document.write("<TABLE BORDER=1><TR><TD><B>"
-        + builds[buildindex] + "</B><BR>"
-        + "<A HREF=$rel_path" + logurl + ">View Brief Log</A><BR>"
-        + "<A HREF=$rel_path" + logurl + "&fulltext=1"+">View Full Log</A><BR>"
-        + "<A HREF=$rel_path" + commenturl + ">Add a Comment</A><BR>"
-	+ "</TD></TR></TABLE>");
-      q.document.close();
-      return false;
-    }
-
-    notes = new Array();
-    builds = new Array();
-
-__ENDJS
-  print $script;
-  
-  $ii = 0;
-  while ($ii < @note_array) {
-    $ss = $note_array[$ii];
-    while ($ii < @note_array && $note_array[$ii] eq $ss) {
-      print "notes[$ii] = ";
-      $ii++;
-    }
-    $ss =~ s/\\/\\\\/g;
-    $ss =~ s/\"/\\\"/g;
-    $ss =~ s/\n/\\n/g;
-    print "\"$ss\";\n";
-  }
-  for ($ii=1; $ii <= $name_count; $ii++) {
-    if (defined($br = $build_table->[1][$ii]) and $br != -1) {
-      my $bn = $build_name_names->[$ii];
-      print "builds[$ii]='$bn';\n";
-    }
-  }
-  print "buildtree = '$form{tree}';\n";
-
-  ($script = <<'__ENDJS') =~ s/^    //gm;
-    </script>
-
-    <layer name="popup" onMouseOut="this.visibility='hide';" 
-           left=0 top=0 bgcolor="#ffffff" visibility="hide">
-    </layer>
-
-    <layer name="logpopup" onMouseOut="this.visibility='hide';"
-           left=0 top=0 bgcolor="#ffffff" visibility="hide">
-    </layer>
-__ENDJS
-  print $script;
-}
-
-sub do_express {
-  print "Content-type: text/html\nRefresh: 900\n\n<HTML>\n";
-
-  my %build, %times;
-  loadquickparseinfo($form{tree}, \%build, \%times);
-
-  my @keys = sort keys %build;
-  my $keycount = @keys;
-  my $tm = &print_time(time);
-  print "<table border=1 cellpadding=1 cellspacing=1><tr>";
-  print "<th align=left colspan=$keycount>";
-  print &open_showbuilds_href."$tree as of $tm</a></tr><tr>\n";
-  foreach my $buildname (@keys) {
-    print "<td bgcolor='$colormap{$build{$buildname}}'>$buildname</td>";
-  }
-  print "</tr></table>\n";
-}
-
-# This is essentially do_express but it outputs a different format
-sub do_panel {
-  print "Content-type: text/html\n\n<HTML>\n" unless $form{static};
-
-  my %build, %times;
-  loadquickparseinfo($form{tree}, \%build, \%times);
-  
-  print q(
-    <head>
-      <META HTTP-EQUIV="Refresh" CONTENT="300">
-      <style>
-        body, td { 
-          font-family: Verdana, Sans-Serif;
-          font-size: 8pt;
-        }
-      </style>
-    </head>
-    <body BGCOLOR="#FFFFFF" TEXT="#000000" 
-          LINK="#0000EE" VLINK="#551A8B" ALINK="#FF0000">
-  );
-  # Hack the panel link for now.
-  print "<a target='_content' href='http://tinderbox.mozilla.org/seamonkey/'>$tree";
-  
-  $bonsai_tree = '';
-  require "$tree/treedata.pl";
-  if ($bonsai_tree ne '') {
-    print " is ", tree_open() ? "OPEN" : "CLOSED";
-  }
-  # Add the current time
-  my ($minute,$hour,$mday,$mon) = (localtime)[1..4];
-  my $tm = sprintf("%d/%d&nbsp;%d:%02d",$mon+1,$mday,$hour,$minute);
-  print " as of $tm</a><br>";
-  
-  print "<table border=0 cellpadding=1 cellspacing=1>";
-  while (my ($name, $status) = each %build) {
-    print "<tr><td bgcolor='$colormap{$status}'>$name</td></tr>";
-  }
-  print "</table></body>";
-}
-
-sub do_flash {
-  print "Content-type: text/rdf\n\n" unless $form{static};
-
-  my %build, %times;
-  loadquickparseinfo($form{tree}, \%build, \%times);
-
-  my ($mac,$unix,$win) = (0,0,0);
-
-  while (my ($name, $status) = each %build) {
-    next if $status eq 'success';
-    $mac = 1, next if $name =~ /Mac/;
-    $win = 1, next if $name =~ /Win/;
-    $unix = 1;
-  }
-
-  print q{
-    <RDF:RDF xmlns:RDF='http://www.w3.org/1999/02/22-rdf-syntax-ns#' 
-             xmlns:NC='http://home.netscape.com/NC-rdf#'>
-    <RDF:Description about='NC:FlashRoot'>
-  };
-
-  my $busted = $mac + $unix + $win;
-  if ($busted) {
-
-    # Construct a legible sentence; e.g., "Mac, Unix, and Windows
-    # are busted", "Windows is busted", etc. This is hideous. If
-    # you can think of something better, please fix it.
-
-    my $text;
-    if ($mac) {
-      $text .= 'Mac' . ($busted > 2 ? ', ' : ($busted > 1 ? ' and ' : ''));
-    }
-    if ($unix) {
-      $text .= 'Unix' . ($busted > 2 ? ', and ' : ($win ? ' and ' : ''));
-    }
-    if ($win) {
-      $text .= 'Windows';
-    }
-    $text .= ($busted > 1 ? ' are ' : ' is ') . 'busted';
-    
-    # The Flash spec says we need to give ctime.
-    use POSIX;
-    my $tm = POSIX::ctime(time());
-    $tm =~ s/^...\s//;   # Strip day of week
-    $tm =~ s/:\d\d\s/ /; # Strip seconds
-    chop $tm;
-  
-    print qq{
-      <NC:child>
-        <RDF:Description ID='flash'>
-          <NC:type resource='http://www.mozilla.org/RDF#TinderboxFlash' />
-          <NC:source>$tree</NC:source>
-          <NC:description>$text</NC:description>
-          <NC:timestamp>$tm</NC:timestamp>
-        </RDF:Description>
-      </NC:child>
-    };
-  }
-  print q{
-    </RDF:Description>
-    </RDF:RDF>
-  };
-}
-
-sub do_quickparse {
-  print "Content-type: text/plain\n\n";
-
-  my @treelist = split /,/, $tree;
-  foreach my $t (@treelist) {
-    $bonsai_tree = "";
-    require "$t/treedata.pl";
-    if ($bonsai_tree ne "") {
-      my $state = tree_open() ? "Open" : "Close";
-      print "State|$t|$bonsai_tree|$state\n";
-    }
-    my %build, %times;
-    loadquickparseinfo($t, \%build, \%times);
-    
-    foreach my $buildname (sort keys %build) {
-      print "Build|$t|$buildname|$build{$buildname}\n";
-    }
-  }
-}
-
-sub do_rdf {
-  print "Content-type: text/plain\n\n";
-
-  my $mainurl = "http://$ENV{SERVER_NAME}$ENV{SCRIPT_NAME}?tree=$tree";
-  my $dirurl = $mainurl;
-
-  $dirurl =~ s@/[^/]*$@@;
-
-  my %build, %times;
-  loadquickparseinfo($tree, \%build, \%times);
-
-  my $image = "channelok.gif";
-  my $imagetitle = "OK";
-  foreach my $buildname (sort keys %build) {
-    if ($build{$buildname} eq 'busted') {
-      $image = "channelflames.gif";
-      $imagetitle = "Bad";
-      last;
-    }
-  }
-  print qq{<?xml version="1.0"?>
-    <rdf:RDF 
-         xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
-         xmlns="http://my.netscape.com/rdf/simple/0.9/">
-    <channel>
-      <title>Tinderbox - $tree</title>
-      <description>Build bustages for $tree</description>
-      <link>$mainurl</link>
-    </channel>
-    <image>
-      <title>$imagetitle</title>
-      <url>$dirurl/$image</url>
-      <link>$mainurl</link>
-    </image>
-  };    
-    
-  $bonsai_tree = '';
-  require "$tree/treedata.pl";
-  if ($bonsai_tree ne '') {
-    my $state = tree_open() ? "OPEN" : "CLOSED";
-    print "<item><title>The tree is currently $state</title>",
-          "<link>$mainurl</link></item>\n";
-  }
-
-  foreach my $buildname (sort keys %build) {
-    if ($build{$buildname} eq 'busted') {
-      print "<item><title>$buildname is in flames</title>",
-            "<link>$mainurl</link></item>\n";
-    }
-  }
-  print "</rdf:RDF>\n";
-}
-

mozilla/webtools/tinderbox/showimages.cgi

@@ -1,136 +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 Tinderbox build tool.
-#
-# The Initial Developer of the Original Code is Netscape Communications
-# Corporation. Portions created by Netscape are Copyright (C) 1998
-# Netscape Communications Corporation. All Rights Reserved.
-
-
-$| = 1;
-
-use lib "../bonsai";
-
-require 'globals.pl';
-require 'imagelog.pl';
-require 'lloydcgi.pl';
-require 'header.pl';
-
-check_password();
-
-print "Content-type: text/html\n\n";
-
-@url = ();
-@quote = ();
-@width = ();
-@height = ();
-$i = 0;
-
-EmitHtmlHeader("tinderbox: all images");
-
-print '<UL>
-<P>These are all of the images currently in 
-<A HREF=http://www.mozilla.org/tinderbox.html>Tinderbox</A>.
-<P>Please don\'t give out this URL: this is only here for our debugging
-needs, and isn\'t linked to by the rest of Tinderbox: because looking at
-all the images at once would be be cheating!  you\'re supposed to let them
-surprise you over time.  What, do you read ahead in your desktop calendar,
-too?  Where\'s your sense of mystery and anticipation?
-
-<P>
-</UL>
-';
-
-
-
-
-if ($form{'url'} ne "") {
-    $oldname = "$data_dir/imagelog.txt";
-    open (OLD, "<$oldname") || die "Oops; can't open imagelog.txt";
-    $newname = "$oldname-$$";
-    open (NEW, ">$newname") || die "Can't open $newname";
-    $foundit = 0;
-    while (<OLD>) {
-        chop;
-        ($url, $width, $height, $quote) = split(/\`/);
-        if ($url eq $form{'url'} && $quote eq $form{'origquote'}) {
-            $foundit = 1;
-            if ($form{'nukeit'} ne "") {
-                next;
-            }
-            $quote = $form{'quote'};
-        }
-        print NEW "$url`$width`$height`$quote\n";
-    }
-    close OLD;
-    close NEW;
-    if (!$foundit) {
-        print "<font color=red>Hey, couldn't find it!</font>  Did someone\n";
-        print "else already edit it?<P>\n";
-        unlink $newname;
-    } else {
-        print "Change made.<P>";
-        rename ($newname, $oldname) || die "Couldn't rename $newname to $oldname";
-    }
-    $form{'doedit'} = "1";
-}
-
-    
-
-
-$doedit = ($form{'doedit'} ne "");
-
-if (!$doedit) {
-    print "
-<form method=post>
-<input type=hidden name=password value=\"$form{'password'}\">
-<input type=hidden name=doedit value=1>
-<input type=submit value='Let me edit text or remove pictures.'>
-</form><P>";
-}
-
-
-
-open( IMAGELOG, "<$data_dir/imagelog.txt" ) || die "can't open file";
-while( <IMAGELOG> ){
-    chop;
-    ($url[$i],$width[$i],$height[$i],$quote[$i])  = split(/\`/);
-    $i++;
-}
-close( IMAGELOG );
-
-$i--;
-print "<center>";
-while( $i >= 0 ){
-    $qurl = value_encode($url[$i]);
-    $qquote = value_encode($quote[$i]);
-    print " 
-<img border=2 src='$url[$i]' width='$width[$i]' height='$height[$i]'><br>
-<i>$quote[$i]</i>";
-    if ($doedit) {
-        print "
-<form method=post>
-<input type=submit name=nukeit value='Delete this image'><br>
-<input name=quote size=60 value=\"$qquote\"><br>
-<input type=submit name=edit value='Change text'><hr>
-<input type=hidden name=url value=\"$qurl\">
-<input type=hidden name=origquote value=\"$qquote\">
-<input type=hidden name=password value=\"$form{'password'}\">
-</form>";
-    }
-    print "<br><br>\n";
-    $i--;
-}
-
-

mozilla/webtools/tinderbox/showlog.cgi

@@ -1,375 +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 Tinderbox build tool.
-#
-# The Initial Developer of the Original Code is Netscape Communications
-# Corporation. Portions created by Netscape are Copyright (C) 1998
-# Netscape Communications Corporation. All Rights Reserved.
-
-use lib '../bonsai';
-
-require 'globals.pl';
-require 'lloydcgi.pl';
-require 'header.pl';
-
-#############################################################
-# Global variables
-
-$LINES_AFTER_ERROR = 5;
-$LINES_BEFORE_ERROR = 30;
-
-# These variables are set by the error parser functions:
-#    has_error(), has_warning(), and has_errorline().
-$error_file = '';
-$error_file_ref = '';
-$error_line = 0;
-$error_guess = 0;
-
-$next_err = 0;
-@log_errors = ();
-$log_line = 0;
-
-#############################################################
-# CGI inputs
-
-if (defined($args = $form{log}) or defined($args = $form{exerpt})) {
-
-  ($full_logfile, $linenum) = split /:/,  $args;
-  ($tree, $logfile)        = split /\//, $full_logfile;
-
-  my $br = find_build_record($tree, $logfile);
-  $errorparser = $br->{errorparser};
-  $buildname   = $br->{buildname};
-  $buildtime   = $br->{buildtime};
-
-  $numlines = 50;
-  $numlines = $form{numlines} if exists $form{numlines};
-} else {
-  $tree        = $form{tree};
-  $errorparser = $form{errorparser};
-  $logfile     = $form{logfile};
-  $buildname   = $form{buildname};
-  $buildtime   = $form{buildtime};
-}
-$fulltext    = $form{fulltext};
-
-$enc_buildname = &url_encode($buildname);
-
-die "the \"tree\" parameter must be provided\n" unless $tree;
-require "$tree/treedata.pl";
-
-$time_str = print_time( $buildtime );
-
-$|=1;
-
-if ($linenum) {
-
-  &print_fragment;
-
-  exit;
-}
-
-&print_header;
-&print_notes;
-
-# Dynamically load the error parser
-#
-die "the \"errorparser\" parameter must be provided\n" unless $errorparser;
-require "ep_${errorparser}.pl";
-
-if ($fulltext)
-{
-  &print_summary;
-  &print_log;
-}
-else
-{
-  $brief_filename = $logfile;
-  $brief_filename =~ s/.gz$/.brief.html/;
-  if (-T "$tree/$brief_filename" and -M _ > -M $tree/$logfile) 
-  {
-    open (BRIEFFILE, "<$tree/$brief_filename");
-    print while (<BRIEFFILE>)
-  }
-  else
-  {
-    open (BRIEFFILE, ">$tree/$brief_filename");
-
-    &print_summary;
-    &print_log;
-  }
-}
-
-# end of main
-############################################################
-
-sub print_fragment {
-  print "Content-type: text/html\n\n";
-
-  print "<META HTTP-EQUIV=\"EXPIRES\" CONTENT=\"1\">\n";
-
-  my $heading = "Build Log (Fragment)";
-  my $subheading = "$buildname on $time_str";
-  my $title = "$heading - $subheading";
-
-  EmitHtmlTitleAndHeader($title, $heading, $subheading);
-
-  print "<a href='showlog.cgi?tree=$tree&errorparser=$errorparser&logfile=$logfile&buildtime=$buildtime&buildname=$enc_buildname&fulltext=1'>Show Full Build Log</a>";
-
-  open(BUILD_IN, "$gzip -d -c $tree/$logfile|");
-
-  my $first_line = $linenum - ($numlines/2);
-  my $last_line  = $linenum + ($numlines/2);
-
-  print "<pre><b>.<br>.<br>.<br></b>";
-  while(<BUILD_IN>) {
-    next if $. < $first_line;
-    last if $. > $last_line;
-    print "<b><font color='red'>" if $. == $linenum;
-    print;
-    print "</font></b>" if $. == $linenum;
-  }
-  print "<b>.<br>.<br>.<br></b></pre>";
-
-}
-
-sub print_header {
-  print "Content-type: text/html\n\n";
-
-  if( $fulltext ){
-    $s = 'Show <b>Brief</b> Log';
-    $s1 = '';
-    $s2 = 'Full';
-  }
-  else {
-    $s = 'Show <b>Full</b> Log';
-    $s1 = 1;
-    $s2 = 'Brief';
-  }
-  
-  print "<META HTTP-EQUIV=\"EXPIRES\" CONTENT=\"1\">\n";
-
-  my $heading = "Build Log ($s2)";
-  my $subheading = "$buildname on $time_str";
-  my $title = "$heading - $subheading";
-
-  EmitHtmlTitleAndHeader($title, $heading, $subheading);
-
-  print "
-<font size=+1>
-<dt><a href='showlog.cgi?tree=$tree&errorparser=$errorparser&logfile=$logfile&buildtime=$buildtime&buildname=$enc_buildname&fulltext=$s1'>$s</a>
-<dt><a href=\"showbuilds.cgi?tree=$tree\">Return to the Build Page</a>
-<dt><a href=\"addnote.cgi?tree=$tree\&buildname=$enc_buildname\&buildtime=$buildtime\&logfile=$logfile\&errorparser=$errorparser\">
-Add a Comment to the Log</a>
-</font>
-";
-}
-
-sub print_notes {
-  #
-  # Print notes
-  #
-  $found_note = 0;
-  open(NOTES,"<$tree/notes.txt") 
-    or print "<h2>warning: Couldn't open $tree/notes.txt </h2>\n";
-print "$buildtime, $buildname<br>\n";
-  while(<NOTES>){
-    chop;
-    ($nbuildtime,$nbuildname,$nwho,$nnow,$nenc_note) = split(/\|/);
-    #print "$_<br>\n";
-    if( $nbuildtime == $buildtime && $nbuildname eq $buildname ){
-      if( !$found_note ){
-	print "<H2>Build Comments</H2>\n";
-	$found_note = 1;
-      }
-      $now_str = &print_time($nnow);
-      $note = &url_decode($nenc_note);
-      print "<pre>\n[<b><a href=mailto:$nwho>$nwho</a> - $now_str</b>]\n$note\n</pre>";
-    }
-  }
-  close(NOTES);
-}
-
-sub print_summary {
-  #
-  # Print the summary first
-  #
-  logprint('<H2>Build Error Summary</H2><PRE>');
-
-  $log_line = 0;
-  open( BUILD_IN, "$gzip -d -c $tree/$logfile|" );
-  while( $line = <BUILD_IN> ){
-    &output_summary_line( $line );
-  }
-  close( BUILD_IN );
-  push @log_errors, 9999999;        
-
-  logprint('</PRE>');
-}
-
-sub print_log_section {
-  my ($tree, $logfile, $line_of_interest, $num_lines) = shift;
-  local $_;
-
-  my $first_line = $line_of_interest - $num_lines / 2;
-  my $last_line = $first_line + $num_lines;
-
-  print "<a href='showlog.cgi?tree=$tree&logfile=$logfile&line="
-        .($line_of_interest-$num_lines)."&numlines=$num_lines'>"
-        ."Previous $num_lines</a>";
-  print "<font size='+1'><b>.<br>.<br>.<br></b></font>";
-  print "<pre>";
-  my $ii = 0;
-  open BUILD_IN, "$gzip -d -c $tree/$logfile|";
-  while (<BUILD_IN>) {
-    $ii++;
-    next if $ii < $first_line;
-    last if $ii > $last_line;
-    if ($ii == $line_of_intested) {
-      print "<b>$_</b>";
-    } else {
-      print;
-    }
-  }
-  close BUILD_IN;
-  print "</pre>";
-  print "<font size='+1'><b>.<br>.<br>.<br></b></font>";
-  print "<a href='showlog.cgi?tree=$tree&logfile=$logfile&line="
-        .($line_of_interest+$num_lines)."&numlines=$num_lines'>"
-        ."Next $num_lines</a>";
-}
-
-sub print_log {
-  #
-  # reset the error counter
-  #
-  $next_err = 0;
-  
-  logprint('<H2>Build Error Log</H2><pre>');
-
-  $log_line = 0;
-  open( BUILD_IN, "$gzip -d -c $tree/$logfile|" );
-  while( $line = <BUILD_IN> ){
-    &output_log_line( $line );
-  }
-  close( BUILD_IN );
-
-  logprint('</PRE><p>'
-     ."<font size=+1><a name=\"err$next_err\">No More Errors</a></font>"
-     .'<br><br><br>');
-}
-
-sub output_summary_line {
-    my( $line ) = $_[0];
-    my( $has_error );
-
-    $has_error = &has_error( $line );
-
-    $line =~ s/&/&amp;/g;
-    $line =~ s/</&lt;/g;
-
-    if( $has_error ){
-        push @log_errors, $log_line + $LINES_AFTER_ERROR;        
-        if( ! $last_was_error ) {
-            logprint("<a href=\"#err$next_err\">$line</a>");
-            $next_err++;
-        }
-        $last_was_error = 1;
-    }
-    else {
-        $last_was_error = 0;
-    }
-
-    $log_line++;
-}
-
-
-
-sub output_log_line {
-    my( $line ) = $_[0];
-    my( $has_error, $dur, $dur_min,$dur_sec, $dur_str, $logline );
-
-    $has_error = &has_error( $line );
-    $has_warning = &has_warning( $line );
-
-    $line =~ s/&/&amp;/g;
-    $line =~ s/</&lt;/g;
-
-    $logline = '';
-
-    if( ($has_error || $has_warning) && &has_errorline( $line ) ) {
-        $q = quotemeta( $error_file );
-        #$goto_line = ($error_line ? 10 > $error_line - 10 : 1 );
-        $goto_line = ($error_line > 10 ? $error_line - 10 : 1 );
-        $cvsblame = ($error_guess ? "cvsguess.cgi" : "cvsblame.cgi"); 
-        $line =~ s@$q@<a href=../bonsai/$cvsblame?file=$error_file_ref&rev=$cvs_branch&mark=$error_line#$goto_line $source_target>$error_file</a>@
-    }
-
-
-    if( $has_error ){
-        if( ! $last_was_error ) {
-            $logline .= "<a name=\"err$next_err\"></a>";
-            $next_err++;
-            $logline .= "<a href=\"#err$next_err\">NEXT</a> ";
-        }
-        else {
-            $logline .= "     ";
-        }
-
-        $logline .= "<font color=\"000080\">$line</font>";
-        
-        $last_was_error = 1;
-    }
-    elsif( $has_warning ){
-        $logline .= "     ";
-        $logline .= "<font color=000080>$line</font>";
-    }
-    else {
-        $logline .= "     $line";
-        $last_was_error = 0;
-    }
-
-    &push_log_line( $logline );
-}
-
-
-sub push_log_line {
-    my( $line ) = $_[0];
-    if( $fulltext ){
-        logprint($line);
-        return;
-    }
-
-    if( $log_line > $log_errors[$cur_error] ){
-        $cur_error++;
-    }
-    
-    if( $log_line >= $log_errors[$cur_error] - $LINES_BEFORE_ERROR ){
-        if( $log_skip != 0 ){
-            logprint("\n<i><font size=+1> Skipping $log_skip Lines...</i></font>\n\n");
-            $log_skip = 0;
-        }
-        logprint($line);
-    }
-    else {
-        $log_skip++;
-    }
-    $log_line++;
-}
-
-sub logprint {
-  my $line  = $_[0];
-  print $line;
-  print BRIEFFILE $line if not $fulltext;
-}

mozilla/webtools/tinderbox/tinderbox.spec

@@ -1,75 +0,0 @@
-# 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 Tinderbox CVS Tool rpm spec file.
-#
-# The Initial Developer of this code under the MPL is Christopher
-# Seawood, <cls@seawood.org>.  Portions created by Christopher Seawood 
-# are Copyright (C) 1998 Christopher Seawood.  All Rights Reserved.
-
-%define ver SNAP
-%define perl /usr/bin/perl
-%define cvsroot /cvsroot
-%define gzip /usr/bin/gzip
-%define uudecode /usr/bin/uudecode
-%define bonsai ../bonsai
-%define prefix /home/httpd/html/tinderbox
-# This rpm is not relocateable
-Summary: automated build tool
-Name: tinderbox
-Version: %{ver}
-Release: 1
-Copyright: NPL
-Group: Networking/Admin
-Source: %{name}-%{ver}.tar.gz
-BuildRoot: /var/tmp/build-%{name}
-Requires: bonsai
-Packager: Christopher Seawood <cls@seawood.org>
-
-%changelog
-* Thu Nov 12 1998 Christopher Seawood <cls@seawood.org>
-- Replaced ver with SNAP
-
-* Mon Oct 26 1998 Christopher Seawood <cls@seawood.org>
-- Added MPL header
-
-* Sun Aug 31 1998 Christopher Seawood <cls@seawood.org>
-- Made rpm from cvs snapshot
-
-%description
-Essentially, Tinderbox is a detective tool. It allows you to see what
-is happening in the source tree. It shows you who checked in what (by
-asking Bonsai); what platforms have built successfully; what platforms
-are broken and exactly how they are broken (the build logs); and the
-state of the files that made up the build (cvsblame) so you can figure
-out who broke the build, so you can do the most important thing, hold
-them accountable for their actions.
-
-%prep
-%setup -n %{name}
-
-%build
-
-%install
-rm -rf $RPM_BUILD_ROOT
-mkdir -p ${RPM_BUILD_ROOT}%{prefix}/{data,examples}
-make install PERL=%perl UUDECODE=%uudecode GZIP=%gzip BONSAI=%bonsai CVSROOT=%cvsroot PREFIX=${RPM_BUILD_ROOT}%prefix
-
-%post
-echo "Remember to set the admin passwd via '%{bonsai}/data/trapdoor password > %{prefix}/data/passwd"
-
-%clean 
-rm -rf $RPM_BUILD_ROOT
-
-%files
-%defattr (-, nobody, nobody)
-%doc README Makefile
-%{prefix}
-

mozilla/webtools/tinderbox/viewallnotes.cgi

@@ -1,123 +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 Tinderbox build tool.
-#
-# The Initial Developer of the Original Code is Netscape Communications
-# Corporation. Portions created by Netscape are Copyright (C) 1998
-# Netscape Communications Corporation. All Rights Reserved.
-
-use lib '../bonsai';
-require "globals.pl";
-require 'lloydcgi.pl';
-require 'header.pl';
-
-use Date::Parse;
-use Date::Format;
-
-my $TIMEFORMAT = "%D %T";
-
-$| = 1;
-
-print "Content-type: text/html\n\n<HTML>\n";
-
-my $tree = $form{'tree'};
-my $start = $form{'start'};
-my $end = $form{'end'};
-
-sub str2timeAndCheck {
-    my ($str) = (@_);
-    my $result = str2time($str);
-    if (defined $result && $result > 7000000) {
-        return $result;
-    }
-    print "<p><font color=red>Can't parse as a date: $str</font><p>\n";
-    return 0;
-}
-
-my $header = "<table border=1><th>Build time</th><th>Build name</th><th>Who</th><th>Note time</th><th>Note</th>";
-
-if (defined $tree && defined $start && defined $end) {
-    my $first = str2timeAndCheck($start);
-    my $last = str2timeAndCheck($end);
-    if ($first > 0 && $last > 0) {
-        if (open(IN, "<$tree/notes.txt")) {
-            print "<hr><center><h1>Notes for $tree</H1><H3>from " .
-                time2str($TIMEFORMAT, $first) . " to " .
-                    time2str($TIMEFORMAT, $last) . "</H3></center>\n";
-            my %stats;
-	    print "$header\n";
-            while (<IN>) {
-                chop;
-    		my ($nbuildtime,$nbuildname,$nwho,$nnow,$nenc_note)
-		    = split /\|/;
-		if ($nbuildtime >= $first && $nbuildtime <= $last) {
-			my $note = &url_decode($nenc_note);
-			$nbuildtime = print_time($nbuildtime);
-			$nnow = print_time($nnow);
-			print "<tr>";
-			print "<td>$nbuildtime</td>";
-			print "<td>$nbuildname</td>";
-			print "<td>$nwho</td>";
-			print "<td>$nnow</td>";
-			print "<td>$note</td>";
-			print "</tr>\n";
-			if (++$count % 100 == 0) {
-			    print "</table>$header\n";
-			}
-
-
-		}
-            }
-        } else {
-            print "<p><font color=red>There does not appear to be a tree " .
-                "named '$tree'.</font><p>";
-        }
-    }
-    print "</table>\n";
-}
-
-if (!defined $tree) {
-    $tree = "";
-}
-
-if (!defined $start) {
-    $start = time2str($TIMEFORMAT, time() - 7*24*60*60); # One week ago.
-}
-
-
-if (!defined $end) {
-    $end = time2str($TIMEFORMAT, time()); # #now
-}
-
-print qq|
-<form>
-<table>
-<tr>
-<th align=right>Tree:</th>
-<td><input name=tree size=30 value="$tree"></td>
-</tr>
-<tr>
-<th align=right>Start time:</th>
-<td><input name=start size=30 value="$start"></td>
-</tr>
-<tr>
-<th align=right>End time:</th>
-<td><input name=end size=30 value="$end"></td>
-</tr>
-</table>
-
-<INPUT TYPE=\"submit\" VALUE=\"View Notes \">
-
-</form>
-|;

mozilla/webtools/tinderbox/warnings.pl

@@ -1,437 +0,0 @@
-#! /usr/bonsaitools/bin/perl
-# -*- Mode: perl; indent-tabs-mode: nil -*-
-#
-# 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 Tinderbox
-#
-# The Initial Developer of the Original Code is Netscape Communications
-# Corporation. Portions created by Netscape are Copyright (C) 1999
-# Netscape Communications Corporation. All Rights Reserved.
-#
-# Contributor(s): Stephen Lamm <slamm@mozilla.org>
-
-use FileHandle;
-
-$tree = 'SeaMonkey';
-# tinderbox/globals.pl uses many shameful globals
-$form{tree} = $tree;
-require 'globals.pl';
-
-$cvsroot = '/cvsroot/mozilla';
-$lxr_data_root = '/export2/lxr-data';
-@ignore = ( 
-  'long long',
-  '__cmsg_data',
-  'location of the previous definition',
-  '\' was hidden',
-  'declaration of \`index\'',
-);
-$ignore_pat = "(?:".join('|',@ignore).")";
-
-print STDERR "Building hash of file names...";
-($file_bases, $file_fullpaths) = build_file_hash($cvsroot, $tree);
-print STDERR "done.\n";
-
-for $br (last_successful_builds($tree)) {
-  next unless $br->{buildname} =~ /shrike.*\b(Clobber|Clbr)\b/;
-
-  my $log_file = "$br->{logfile}";
-
-  warn "Parsing build log, $log_file\n";
-
-  $fh = new FileHandle "gunzip -c $tree/$log_file |";
-  &gcc_parser($fh, $cvsroot, $tree, $log_file, $file_bases, $file_fullpaths);
-  $fh->close;
-
-  &build_blame;
-
-  my $warn_file = "$tree/warn$log_file";
-  $warn_file =~ s/.gz$/.html/;
-
-  $fh->open(">$warn_file") or die "Unable to open $warn_file: $!\n";
-  &print_warnings_as_html($fh, $br);
-  $fh->close;
-  warn "Wrote output to $warn_file\n";
-
-  last;
-}
-
-# end of main
-# ===================================================================
-
-sub build_file_hash {
-  my ($cvsroot, $tree) = @_;
-
-  $lxr_data_root = "/export2/lxr-data/\L$tree";
-
-  $lxr_file_list = "\L$lxr_data_root/.glimpse_filenames";
-  open(LXR_FILENAMES, "<$lxr_file_list")
-    or die "Unable to open $lxr_file_list: $!\n";
-
-  use File::Basename;
-  
-  while (<LXR_FILENAMES>) {
-    my ($base, $dir, $ext) = fileparse($_,'\.[^/]*');
-
-    next unless $ext =~ /^\.(cpp|h|C|s|c|mk|in)$/;
-
-    $base = "$base$ext";
-    $dir =~ s|$lxr_data_root/mozilla/||;
-    $dir =~ s|/$||;
-
-    $fullpath{"$dir/$base"}=1;
-
-    unless (exists $bases{$base}) {
-      $bases{$base} = $dir;
-    } else {
-      $bases{$base} = '[multiple]';
-    }
-  }
-  return \%bases, \%fullpath;
-}
-
-sub last_successful_builds {
-  my $tree = shift;
-  my @build_records = ();
-  my $br;
-
-
-  $maxdate = time;
-  $mindate = $maxdate - 5*60*60; # Go back 5 hours
-  
-  print STDERR "Loading build data...";
-  &load_data;
-  print STDERR "done\n";
-  
-  for (my $ii=1; $ii <= $name_count; $ii++) {
-    for (my $tt=1; $tt <= $time_count; $tt++) {
-      if (defined($br = $build_table->[$tt][$ii])
-          and $br->{buildstatus} eq 'success') {
-        push @build_records, $br;
-        last;
-  } } }
-  return @build_records;
-}
-
-sub gcc_parser {
-  my ($fh, $cvsroot, $tree, $log_file, $file_bases, $file_fullnames) = @_;
-  my $dir = '';
-
-  while (<$fh>) {
-    # Directory
-    #
-    if (/^gmake\[\d\]: Entering directory \`(.*)\'$/) {
-      ($build_dir = $1) =~ s|.*/mozilla/||;
-      next;
-    }
-
-    # Now only match lines with "warning:"
-    next unless /warning:/;
-    next if /$ignore_pat/o;
-
-    chomp; # Yum, yum
-
-    my ($filename, $line, $warning_text);
-    ($filename, $line, undef, $warning_text) = split /:\s*/, $_, 4;
-    $filename =~ s/.*\///;
-    
-    # Special case for Makefiles
-    $filename =~ s/Makefile$/Makefile.in/;
-
-    my $dir = '';
-    if ($file_fullnames->{"$build_dir/$filename"}) {
-      $dir = $build_dir;
-    } else {
-      unless(defined($dir = $file_bases->{$filename})) {
-        $dir = '[no_match]';
-      }
-    }
-    my $file = "$dir/$filename";
-
-    unless (defined($warnings{$file}{$line})) {
-
-      # Special case for "`foo' was hidden\nby `foo2'"
-      $warning_text = "...was hidden " . $warning_text 
-        if $warning_text =~ /^by \`/;
-
-      # Remember where in the build log the warning occured
-      $warnings{$file}{$line} = {
-         first_seen_line => $.,
-         log_file        => $log_file,
-         warning_text    => $warning_text,
-      };
-    }
-    $warnings{$file}{$line}->{count}++;
-    $total_warnings_count++;
-  }
-}
-
-
-sub dump_warning_data {
-  while (my ($file, $lines_hash) = each %warnings) {
-    while (my ($line, $record) = each %{$lines_hash}) {
-      print join ':', 
-      $file,$line,
-      $record->{first_seen_line},
-      $record->{count},
-      $record->{warning_text};
-      print "\n";
-    }
-  }
-}
-
-sub build_blame {
-  use lib '../bonsai';
-  require 'utils.pl';
-  require 'cvsblame.pl';
-
-  while (($file, $lines_hash) = each %warnings) {
-
-    my $rcs_filename = "$cvsroot/$file,v";
-
-    unless (-e $rcs_filename) {
-      warn "Unable to find $rcs_filename\n";
-      $unblamed{$file} = 1;
-      next;
-    }
-
-    my $revision = &parse_cvs_file($rcs_filename);
-    @text = &extract_revision($revision);
-    while (my ($line, $warn_rec) = each %{$lines_hash}) {
-      my $line_rev = $revision_map[$line-1];
-      my $who = $revision_author{$line_rev};
-      my $source_text = join '', @text[$line-3..$line+1];
-      $source_text =~ s/\t/    /g;
-      
-      $who = "$who%netscape.com" unless $who =~ /[%]/;
-
-      $warn_rec->{line_rev} = $line_rev;
-      $warn_rec->{source}   = $source_text;
-
-      $warnings_by_who{$who}{$file}{$line} = $warn_rec;
-
-      $total_who_count++ unless exists $who_count{$who};
-      $who_count{$who} += $warn_rec->{count};
-    }
-  }
-}
-
-sub print_warnings_as_html {
-  my ($fh, $br) = @_;
-  my ($buildname, $buildtime) = ($br->{buildname}, $br->{buildtime});
-
-  my $time_str = print_time( $buildtime );
-
-  # Change the default destination for print to $fh
-  my $old_fh = select($fh);
-
-  print <<"__END_HEADER";
-  <html>
-    <head>
-      <title>Blamed Build Warnings</title>
-    </head>
-    <body>
-      <font size="+2" face="Helvetica,Arial"><b>
-        Blamed Build Warnings
-      </b></font><br>
-      <font size="+1" face="Helvetica,Arial">
-        $buildname on $time_str<br>
-        $total_warnings_count total warnings
-      </font><p>
-    
-__END_HEADER
-
-  for $who (sort { $who_count{$b} <=> $who_count{$a}
-                   || $a cmp $b } keys %who_count) {
-    push @who_list, $who;
-  }
-
-  # Summary Table (name, count)
-  #
-  use POSIX;
-  print "<table border=0 cellpadding=1 cellspacing=0 bgcolor=#ededed>\n";
-  my $num_columns = 6;
-  my $num_rows = ceil($#who_list / $num_columns);
-  for (my $ii=0; $ii < $num_rows; $ii++) {
-    print "<tr>";
-    for (my $jj=0; $jj < $num_columns; $jj++) {
-      my $index = $ii + $jj * $num_rows;
-      next if $index > $#who_list;
-      my $name = $who_list[$index];
-      my $count = $who_count{$name};
-      $name =~ s/%.*//;
-      print "  " x $jj;
-      print "<td><a href='#$name'>$name</a>";
-      print "</td><td>";
-      print "$count";
-      print "</td><td>&nbsp;</td>\n";
-    }
-    print "</tr>\n";
-  }
-  print "</table><p>\n";
-
-  # Count Unblamed warnings
-  #
-  my $total_unblamed_warnigns=0;
-  for my $file (keys %unblamed) {
-    for my $linenum (keys %{$warnings{$file}}) {
-      $total_unblamed_warnings += $warnings{$file}{$linenum}{count};
-      $warnings_by_who{Unblamed}{$file}{$linenum} = $warnings{$file}{$linenum};
-    }
-  }
-  $who_count{Unblamed} = $total_unblamed_warnings;
-
-  # Print all the warnings
-  #
-  for $who (@who_list, "Unblamed") {
-    my $total_count = $who_count{$who};
-    my ($name, $email);
-    ($name = $who) =~ s/%.*//;
-    ($email = $who) =~ s/%/@/;
-    
-    print "<h2>";
-    print "<a name='$name' href='mailto:$email'>" unless $name eq 'Unblamed';
-    print "$name";
-    print "</a>" unless $name eq 'Unblamed';
-    print " (1 warning)"       if $total_count == 1;
-    print " ($total_count warnings)" if $total_count > 1;
-    print "</h2>";
-
-    print "\n<table>\n";
-    my $count = 1;
-    for $file (sort keys %{$warnings_by_who{$who}}) {
-      for $linenum (sort keys %{$warnings_by_who{$who}{$file}}) {
-        my $warn_rec = $warnings_by_who{$who}{$file}{$linenum};
-        print_count($count, $warn_rec->{count});
-        print_warning($tree, $br, $file, $linenum, $warn_rec);
-        print_source_code($linenum, $warn_rec) unless $unblamed{$file};
-        $count += $warn_rec->{count};
-      }
-    }
-    print "</table>\n";
-  }
-
-  print <<"__END_FOOTER";
-  <p>
-    <hr align=left>
-    Send questions or comments to 
-    &lt;<a href="mailto:slamm\@netscape.com?subject=About the Blamed Build Warnings">slamm\@netcape.com</a>&gt;.
-   </body></html>
-__END_FOOTER
-
-  # Change default destination back.
-  select($old_fh);
-}
-
-sub print_count {
-  my ($start, $count) = @_;
-
-  print "<tr><td align=right>$start";
-  print "-".($start+$count-1) if $count > 1;
-  print ".</td>";
-}
-
-sub print_warning {
-  my ($tree, $br, $file, $linenum, $warn_rec) = @_;
-
-  my $warning = $warn_rec->{warning_text};
-
-  print "<td>";
-
-  # File link
-  if ($file =~ /\[multiple\]/) {
-    $file =~ s/\[multiple\]\///;
-    print   "<a href='http://lxr.mozilla.org/seamonkey/find?string=$file'>";
-    print   "$file:$linenum";
-    print "</a> (multiple file matches)";
-  } elsif ($file =~ /\[no_match\]/) {
-    $file =~ s/\[no_match\]\///;
-    print   "<b>$file:$linenum</b> (no file match)";
-  } else {
-    print "<a href='"
-      .file_url($file,$linenum)."'>";
-    print   "$file:$linenum";
-    print "</a> ";
-  }
-  print "</td></tr><tr><td></td><td>";
-  # Warning text
-  print "\u$warning";
-  # Build log link
-  my $log_line = $warn_rec->{first_seen_line};
-  print " (<a href='"
-    .build_url($tree, $br, $log_line)
-      ."'>";
-  if ($warn_rec->{count} == 1) {
-    print "See build log excerpt";
-  } else {
-    print "See 1st of $warn_rec->{count} occurrences in build log";
-  }
-  print "</a>)</td></tr>";
-}
-
-sub print_source_code {
-  my ($linenum, $warn_rec) = @_;
-  my $warning = $warn_rec->{warning_text};
-
-  # Source code fragment
-  #
-  my ($keyword) = $warning =~ /\`([^\']*)\'/;
-  print "<tr><td></td><td bgcolor=#ededed>";
-  print "<pre><font size='-1'>";
-  
-  my $source_text = trim_common_leading_whitespace($warn_rec->{source});
-  $source_text =~ s/&/&amp;/gm;
-  $source_text =~ s/</&lt;/gm;
-  $source_text =~ s/>/&gt;/gm;
-  $source_text =~ s|\b\Q$keyword\E\b|<b>$keyword</b>|gm unless $keyword eq '';
-  my $line_index = $linenum - 2;
-  $source_text =~ s/^(.*)$/$line_index++." $1"/gme;
-  $source_text =~ s|^($linenum.*)$|<font color='red'>\1</font>|gm;
-  chomp $source_text;
-  print $source_text;
-
-  print "</font>";
-  #print "</pre>";
-  print "</td></tr>\n";
-}
-
-sub build_url {
-  my ($tree, $br, $linenum) = @_;
-
-  my $name = $br->{buildname};
-  $name =~ s/ /%20/g;
-
-  return "../showlog.cgi?log=$tree/$br->{logfile}:$linenum";
-}
-
-sub file_url {
-  my ($file, $linenum) = @_;
-
-  return "http://cvs-mirror.mozilla.org/webtools/bonsai/cvsblame.cgi"
-        ."?file=mozilla/$file&mark=$linenum#".($linenum-10);
-
-}
-
-sub trim_common_leading_whitespace {
-  # Adapted from dequote() in Perl Cookbook by Christiansen and Torkington
-  local $_ = shift;
-  my $white;  # common whitespace
-  if (/(?:(\s*).*\n)(?:(?:\1.*\n)|(?:\s*\n))+$/) {
-    $white = $1;
-  } else {
-    $white = /^(\s+)/;
-  }
-  s/^(?:$white)?//gm;
-  s/^\s+$//gm;
-  return $_;
-}
-

mozilla/xpinstall/Makefile.in

@@ -0,0 +1,39 @@
+#!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 Mozilla Communicator client code, 
+# released March 31, 1998. 
+#
+# 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.
+#
+# Contributors:
+#     Daniel Veditz <dveditz@netscape.com>
+#     Douglas Turner <dougt@netscape.com>
+
+
+DEPTH = ..
+topsrcdir	= @top_srcdir@
+srcdir		= @srcdir@
+VPATH		= @srcdir@
+
+include $(DEPTH)/config/autoconf.mk
+
+DIRS = public
+
+include $(topsrcdir)/config/config.mk
+
+include $(topsrcdir)/config/rules.mk
+
+

mozilla/xpinstall/makefile.win

@@ -0,0 +1,30 @@
+#!nmake
+#
+# 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 Mozilla Communicator client code, 
+# released March 31, 1998. 
+#
+# 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.
+#
+# Contributors:
+#     Daniel Veditz <dveditz@netscape.com>
+#     Douglas Turner <dougt@netscape.com>
+
+
+DEPTH=..
+
+DIRS= public res src 
+
+include <$(DEPTH)\config\rules.mak>

mozilla/xpinstall/notifier/SoftwareUpdate-Source-1.rdf

@@ -0,0 +1,33 @@
+<RDF:RDF xmlns:RDF="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
+         xmlns:NC="http://home.netscape.com/NC-rdf#">
+
+  <RDF:Bag ID="NC:SoftwareUpdateRoot">
+    <RDF:li>
+       <RDF:Bag ID="NC:NewSoftwareToday" NC:title="New Software">
+
+    <RDF:li>
+        <RDF:Description ID="AimUpdate344">
+         <NC:type resource="http://home.netscape.com/NC-rdf#SoftwarePackage" />
+         <NC:title>AOL AIM</NC:title>
+         <NC:description>An Instant Message Client</NC:description>
+         <NC:version>3.4.1.12</NC:version>
+         <NC:registryKey>/AOL/AIM/</NC:registryKey>
+         <NC:url>http://home.netscape.com/index.html</NC:url>
+       </RDF:Description>
+    </RDF:li>
+    
+    <RDF:li>
+       <RDF:Description ID="PGPPlugin345">
+         <NC:type resource="http://home.netscape.com/NC-rdf#SoftwarePackage" />
+         <NC:title>PGP Plugin For Mozilla</NC:title>
+         <NC:description>A high grade encryption plugin</NC:description>
+         <NC:version>1.1.2.0</NC:version>
+         <NC:registryKey>/PGP/ROCKS/</NC:registryKey>
+         <NC:url>http://home.netscape.com/index.html</NC:url>
+       </RDF:Description>
+    </RDF:li>
+
+       </RDF:Bag>
+     </RDF:li>
+  </RDF:Bag>
+</RDF:RDF>

mozilla/xpinstall/notifier/SoftwareUpdate.css

@@ -0,0 +1,57 @@
+window { 
+ display: block; 
+} 
+
+tree { 
+ display: table; 
+ background-color: #FFFFFF; 
+ border: none; 
+ border-spacing: 0px; 
+ width: 100%;
+}
+
+treecol {
+ display: table-column;
+ width: 200px;
+}
+
+treeitem { 
+ display: table-row; 
+} 
+
+treehead { 
+ display: table-header-group; 
+} 
+
+treebody { 
+ display: table-row-group; 
+} 
+
+treecell { 
+ display: table-cell; 
+ font-family: Verdana, Sans-Serif;
+ font-size: 8pt;
+} 
+
+treecell[selectedcell] {
+ background-color: yellow;
+ }
+ 
+
+treehead treeitem treecell { 
+ background-color: #c0c0c0; 
+ border: outset 1px;
+ border-color: white #707070 #707070 white;
+ padding-left: 4px;
+}
+
+treeitem[type="http://home.netscape.com/NC-rdf#SoftwarePackage"] > treecell > titledbutton {
+ list-style-image: url("resource:/res/rdf/SoftwareUpdatePackage.gif");
+}
+
+treeitem[type="http://home.netscape.com/NC-rdf#Folder"] > treecell > titledbutton {
+ list-style-image: url("resource:/res/rdf/bookmark-folder-closed.gif");
+
+treeitem[type="http://home.netscape.com/NC-rdf#Folder"][open="true"] > treecell > titledbutton {
+ list-style-image: url("resource:/res/rdf/bookmark-folder-open.gif");
+}

mozilla/xpinstall/notifier/SoftwareUpdate.js

@@ -0,0 +1,123 @@
+    // the rdf service
+    var RDF = Components.classes['component://netscape/rdf/rdf-service'].getService();
+    RDF = RDF.QueryInterface(Components.interfaces.nsIRDFService);
+
+    function getAttr(registry,service,attr_name) 
+    {
+        var attr = registry.GetTarget(service,
+                                      RDF.GetResource('http://home.netscape.com/NC-rdf#' + attr_name),
+                                      true);
+        if (attr)
+            attr = attr.QueryInterface(Components.interfaces.nsIRDFLiteral);
+  
+        if (attr)
+            attr = attr.Value;
+        
+        return attr;
+    }
+
+    function Init()
+    {
+        // this is the main rdf file.
+        
+        var mainRegistry = RDF.GetDataSource('resource://res/rdf/SoftwareUpdates.rdf');
+        
+        var mainContainer = Components.classes['component://netscape/rdf/container'].createInstance();
+        mainContainer = mainContainer.QueryInterface(Components.interfaces.nsIRDFContainer);
+
+        mainContainer.Init(mainRegistry, RDF.GetResource('NC:SoftwareUpdateDataSources'));
+
+        // Now enumerate all of the softwareupdate datasources.
+        var mainEnumerator = mainContainer.GetElements();
+        while (mainEnumerator.HasMoreElements()) 
+        {
+            var aDistributor = mainEnumerator.GetNext();
+            aDistributor = aDistributor.QueryInterface(Components.interfaces.nsIRDFResource);
+
+            var distributorContainer = Components.classes['component://netscape/rdf/container'].createInstance();
+            distributorContainer = distributorContainer.QueryInterface(Components.interfaces.nsIRDFContainer);
+            
+            var distributorRegistry = RDF.GetDataSource(aDistributor.Value);
+            var distributorResource = RDF.GetResource('NC:SoftwareUpdateRoot');
+
+            distributorContainer.Init(distributorRegistry, distributorResource);
+
+            // Now enumerate all of the distributorContainer's packages.
+            
+            var distributorEnumerator = distributorContainer.GetElements();
+            
+            while (distributorEnumerator.HasMoreElements()) 
+            {
+                 var aPackage = distributorEnumerator.GetNext();
+                 aPackage = aPackage.QueryInterface(Components.interfaces.nsIRDFResource);
+                 
+                 // remove any that we do not want.
+            
+                 if (getAttr(distributorRegistry, aPackage, 'title') == "AOL AIM")
+                 {
+                    //distributorContainer.RemoveElement(aPackage, true);
+                 }
+            }
+            var tree = document.getElementById('tree');
+
+            // Add it to the tree control's composite datasource.
+            tree.database.AddDataSource(distributorRegistry);
+
+        }
+        
+        // Install all of the stylesheets in the softwareupdate Registry into the
+        // panel.
+
+        // TODO
+
+        // XXX hack to force the tree to rebuild
+        var treebody = document.getElementById('NC:SoftwareUpdateRoot');
+        treebody.setAttribute('id', 'NC:SoftwareUpdateRoot');
+    }
+
+
+    function OpenURL(event, node)
+    {
+        if (node.getAttribute('type') == "http://home.netscape.com/NC-rdf#SoftwarePackage") 
+        {
+            url = node.getAttribute('url');
+     
+            /*window.open(url,'bookmarks');*/
+  
+            var toolkitCore = XPAppCoresManager.Find("ToolkitCore");
+            if (!toolkitCore) 
+            {
+                toolkitCore = new ToolkitCore();
+                if (toolkitCore) 
+                {
+                    toolkitCore.Init("ToolkitCore");
+                }
+            }
+        
+            if (toolkitCore) 
+            {
+                toolkitCore.ShowWindow(url,window);
+            }
+
+            dump("OpenURL(" + url + ")\n");
+        
+            return true;        
+        }
+        return false;
+    }
+
+
+    // To get around "window.onload" not working in viewer.
+    function Boot()
+    {
+        var tree = document.getElementById('tree');
+        if (tree == null) {
+            setTimeout(Boot, 0);
+        }
+        else {
+            Init();
+        }
+    }
+
+    setTimeout('Boot()', 0);
+

mozilla/xpinstall/notifier/SoftwareUpdate.xul

@@ -0,0 +1,30 @@
+<?xml version="1.0"?>
+<?xml-stylesheet href="resource:/res/rdf/sidebar.css" type="text/css"?>
+<?xml-stylesheet href="resource:/res/rdf/SoftwareUpdate.css" type="text/css"?>
+<window
+  xmlns:html="http://www.w3.org/TR/REC-html40"
+  xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
+  xmlns="http://www.mozilla.org/keymaster/gatekeeper/there.is.only.xul">
+
+  <html:script src="SoftwareUpdate.js"/>
+  
+  <tree id="tree"
+        flex="100%"
+        datasources="rdf:softwareupdates"
+        ondblclick="return OpenURL(event, event.target.parentNode);">
+
+    <treecol rdf:resource="http://home.netscape.com/NC-rdf#title" />
+    <treecol rdf:resource="http://home.netscape.com/NC-rdf#description" />
+    <treecol rdf:resource="http://home.netscape.com/NC-rdf#version" />
+
+    <treehead>
+      <treeitem>
+        <treecell>Title</treecell>
+        <treecell>Description</treecell>
+        <treecell>Version</treecell>
+      </treeitem>
+    </treehead>
+
+    <treebody id="NC:SoftwareUpdateRoot" rdf:containment="http://home.netscape.com/NC-rdf#child" />
+  </tree>
+</window>

mozilla/xpinstall/notifier/SoftwareUpdates.rdf

@@ -0,0 +1,7 @@
+<RDF:RDF xmlns:RDF="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
+         xmlns:NC="http://home.netscape.com/softwareupdate-schema#">
+
+  <RDF:Bag ID="NC:SoftwareUpdateDataSources">
+    <RDF:li resource="resource:/res/rdf/SoftwareUpdate-Source-1.rdf" />
+  </RDF:Bag>
+</RDF:RDF>

mozilla/xpinstall/public/MANIFEST

@@ -0,0 +1,6 @@
+#
+# This is a list of local files which get copied to the mozilla:dist directory
+#
+
+nsISoftwareUpdate.h
+nsSoftwareUpdateIIDs.h

mozilla/xpinstall/public/Makefile.in

@@ -0,0 +1,47 @@
+#!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 Mozilla Communicator client code, 
+# released March 31, 1998. 
+#
+# 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.
+#
+# Contributors:
+#     Daniel Veditz <dveditz@netscape.com>
+#     Douglas Turner <dougt@netscape.com>
+
+DEPTH = ../..
+topsrcdir	= @top_srcdir@
+srcdir		= @srcdir@
+VPATH		= @srcdir@
+
+include $(DEPTH)/config/autoconf.mk
+
+MODULE = xpinstall
+
+XPIDLSRCS = nsIXPInstallProgress.idl
+
+EXPORTS =		             \
+        nsIDOMInstallTriggerGlobal.h \
+        nsIDOMInstallVersion.h       \
+        nsSoftwareUpdateIIDs.h       \
+        nsISoftwareUpdate.h          \
+        $(NULL)
+
+EXPORTS := $(addprefix $(srcdir)/, $(EXPORTS))
+
+include $(topsrcdir)/config/config.mk
+
+include $(topsrcdir)/config/rules.mk

mozilla/xpinstall/public/idl/Install.idl

@@ -0,0 +1,113 @@
+interface Install
+{
+/* IID: { 0x18c2f988, 0xb09f, 0x11d2, \
+  {0xbc, 0xde, 0x00, 0x80, 0x5f, 0x0e, 0x13, 0x53}} */
+
+	const int BAD_PACKAGE_NAME          = -200;
+	const int UNEXPECTED_ERROR          = -201;
+	const int ACCESS_DENIED             = -202;
+	const int TOO_MANY_CERTIFICATES     = -203; /* Installer file must have 1 certificate */
+	const int NO_INSTALLER_CERTIFICATE  = -204; /* Installer file must have a certificate */
+	const int NO_CERTIFICATE            = -205; /* Extracted file is not signed */
+	const int NO_MATCHING_CERTIFICATE   = -206; /* Extracted file does not match installer certificate */
+	const int UNKNOWN_JAR_FILE          = -207; /* JAR file has not been opened */
+	const int INVALID_ARGUMENTS         = -208; /* Bad arguments to a function */
+	const int ILLEGAL_RELATIVE_PATH     = -209; /* Illegal relative path */
+	const int USER_CANCELLED            = -210; /* User cancelled */
+	const int INSTALL_NOT_STARTED       = -211;
+	const int SILENT_MODE_DENIED        = -212;
+	const int NO_SUCH_COMPONENT         = -213; /* no such component in the registry. */
+	const int FILE_DOES_NOT_EXIST       = -214; /* File cannot be deleted as it does not exist */
+	const int FILE_READ_ONLY            = -215; /* File cannot be deleted as it is read only. */
+	const int FILE_IS_DIRECTORY         = -216; /* File cannot be deleted as it is a directory */
+	const int NETWORK_FILE_IS_IN_USE    = -217; /* File on the network is in-use */
+	const int APPLE_SINGLE_ERR          = -218; /* error in AppleSingle unpacking */
+	const int INVALID_PATH_ERR          = -219; /* GetFolder() did not like the folderID */
+	const int PATCH_BAD_DIFF            = -220; /* error in GDIFF patch */
+	const int PATCH_BAD_CHECKSUM_TARGET = -221; /* source file doesn't checksum  */
+	const int PATCH_BAD_CHECKSUM_RESULT = -222; /* final patched file fails checksum  */
+	const int UNINSTALL_FAILED          = -223; /* error while uninstalling a package  */
+	const int GESTALT_UNKNOWN_ERR       = -5550;         
+	const int GESTALT_INVALID_ARGUMENT  = -5551;
+
+	const int SUCCESS					  = 0;
+	const int REBOOT_NEEDED               = 999;
+
+	/* install types */
+	const int LIMITED_INSTALL             = 0;
+	const int FULL_INSTALL                = 1;
+	const int NO_STATUS_DLG				  = 2;
+	const int NO_FINALIZE_DLG			  = 4;
+
+	// these should not be public...
+	/* message IDs*/
+	const int SU_INSTALL_FILE_UNEXPECTED_MSG_ID  = 0;
+	const int SU_DETAILS_REPLACE_FILE_MSG_ID  = 1;
+	const int SU_DETAILS_INSTALL_FILE_MSG_ID  = 2;
+    //////////////////////////
+	
+	readonly attribute wstring UserPackageName;
+	readonly attribute wstring RegPackageName;
+
+	void Install();
+
+	void AbortInstall();
+
+	long AddDirectory(	   in wstring regName, 
+						   in wstring version, 
+						   in wstring jarSource,         
+						   in InstallFolder folder, 
+						   in wstring subdir, 
+						   in boolean forceMode );
+
+
+	long AddSubcomponent(  in wstring regName, 
+						   in wstring version, 
+						   in wstring jarSource,         
+						   in InstallFolder folder, 
+						   in wstring targetName, 
+						   in boolean forceMode );
+
+	long DeleteComponent(  in wstring registryName);
+
+	long DeleteFile(       in InstallFolder folder,
+						   in wstring relativeFileName );
+	
+	long DiskSpaceAvailable( in InstallFolder folder );
+	
+	long Execute(in wstring jarSource, in wstring args);
+	
+	long FinalizeInstall();
+
+	long Gestalt (in wstring selector);
+
+	InstallFolder GetComponentFolder( in wstring regName, 
+						              in wstring subdirectory);
+
+	InstallFolder GetFolder(in wstring targetFolder, 
+				            in wstring subdirectory);
+
+	long GetLastError();
+
+	long GetWinProfile(in InstallFolder folder, in wstring file);
+	
+	long GetWinRegistry();
+
+	long Patch( in wstring regName, 
+				in wstring version, 
+				in wstring jarSource,
+				in InstallFolder folder, 
+				in wstring targetName );
+	
+	void ResetError();
+
+	void SetPackageFolder( in InstallFolder folder );
+	
+	long StartInstall( in wstring userPackageName,
+					   in wstring packageName, 
+					   in wstring version, 
+					   in long flags );
+
+	long Uninstall( in wstring packageName);
+
+};

mozilla/xpinstall/public/idl/InstallTrigger.idl

@@ -0,0 +1,24 @@
+interface InstallTriggerGlobal
+{
+/* IID: { 0x18c2f987, 0xb09f, 0x11d2, \
+  {0xbc, 0xde, 0x00, 0x80, 0x5f, 0x0e, 0x13, 0x53}} */
+	
+	const int MAJOR_DIFF =  4;
+    const int MINOR_DIFF =  3;
+    const int REL_DIFF   =  2;
+    const int BLD_DIFF   =  1;
+    const int EQUAL      =  0;	
+
+	boolean UpdateEnabled ();
+
+	long StartSoftwareUpdate(in wstring URL);
+
+	long ConditionalSoftwareUpdate(	in wstring URL, 
+									in wstring regName,
+									in long diffLevel, 
+									in wstring version, 
+									in long mode);
+
+	long CompareVersion( in wstring regName, in wstring version );
+
+};

mozilla/xpinstall/public/idl/InstallVersion.idl

@@ -0,0 +1,34 @@
+interface InstallVersion
+{
+/* IID: { 0x18c2f986, 0xb09f, 0x11d2, \
+  {0xbc, 0xde, 0x00, 0x80, 0x5f, 0x0e, 0x13, 0x53}} */
+	 
+	const int EQUAL				=  0;
+    const int BLD_DIFF			=  1;
+	const int BLD_DIFF_MINUS		= -1;
+    const int REL_DIFF			=  2;
+	const int REL_DIFF_MINUS		= -2;
+    const int MINOR_DIFF			=  3;
+	const int MINOR_DIFF_MINUS   = -3;
+    const int MAJOR_DIFF			=  4;
+	const int MAJOR_DIFF_MINUS   = -4;
+	
+	attribute int major;
+	attribute int minor;
+	attribute int release;
+	attribute int build;
+
+	void InstallVersion();
+
+	void init(in wstring versionString);	
+/*
+	void init(in int major, in int minor, in int release, in int build);	
+*/
+	wstring toString();
+
+/*	int compareTo(in wstring version);
+	int compareTo(in int major, in int minor, in int release, in int build);
+*/
+	int compareTo(in InstallVersion versionObject);
+
+};

mozilla/xpinstall/public/makefile.win

@@ -0,0 +1,36 @@
+#!nmake
+#
+# 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 Mozilla Communicator client code, 
+# released March 31, 1998. 
+#
+# 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.
+#
+# Contributors:
+#     Daniel Veditz <dveditz@netscape.com>
+#     Douglas Turner <dougt@netscape.com>
+
+MODULE=xpinstall 
+DEPTH=..\..
+
+EXPORTS=    nsIDOMInstallTriggerGlobal.h \
+			nsIDOMInstallVersion.h       \
+            nsSoftwareUpdateIIDs.h       \
+			nsISoftwareUpdate.h
+
+XPIDLSRCS = .\nsIXPInstallProgress.idl        
+
+include <$(DEPTH)\config\config.mak>
+include <$(DEPTH)\config\rules.mak>

mozilla/xpinstall/public/nsIDOMInstall.h

@@ -0,0 +1 @@
+#error

mozilla/xpinstall/public/nsIDOMInstallTriggerGlobal.h

@@ -0,0 +1,96 @@
+/* -*- Mode: C++; tab-width: 2; indent-tabs-mode: nil; c-basic-offset: 2 -*-
+ *
+ * The contents of this file are subject to the Netscape Public License
+ * Version 1.0 (the "NPL"); you may not use this file except in
+ * compliance with the NPL.  You may obtain a copy of the NPL at
+ * http://www.mozilla.org/NPL/
+ *
+ * Software distributed under the NPL is distributed on an "AS IS" basis,
+ * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the NPL
+ * for the specific language governing rights and limitations under the
+ * NPL.
+ *
+ * The Initial Developer of this code under the NPL is Netscape
+ * Communications Corporation.  Portions created by Netscape are
+ * Copyright (C) 1998 Netscape Communications Corporation.  All Rights
+ * Reserved.
+ */
+/* AUTO-GENERATED. DO NOT EDIT!!! */
+
+#ifndef nsIDOMInstallTriggerGlobal_h__
+#define nsIDOMInstallTriggerGlobal_h__
+
+#include "nsISupports.h"
+#include "nsString.h"
+#include "nsIScriptContext.h"
+
+
+#define NS_IDOMINSTALLTRIGGERGLOBAL_IID \
+ { 0x18c2f987, 0xb09f, 0x11d2, \
+  {0xbc, 0xde, 0x00, 0x80, 0x5f, 0x0e, 0x13, 0x53}} 
+
+class nsIDOMInstallTriggerGlobal : public nsISupports {
+public:
+  static const nsIID& IID() { static nsIID iid = NS_IDOMINSTALLTRIGGERGLOBAL_IID; return iid; }
+  enum {
+    MAJOR_DIFF = 4,
+    MINOR_DIFF = 3,
+    REL_DIFF = 2,
+    BLD_DIFF = 1,
+    EQUAL = 0
+  };
+
+  NS_IMETHOD    UpdateEnabled(PRBool* aReturn)=0;
+
+  NS_IMETHOD    StartSoftwareUpdate(const nsString& aURL, PRInt32* aReturn)=0;
+  NS_IMETHOD    StartSoftwareUpdate(const nsString& aURL, PRInt32 aFlags, PRInt32* aReturn)=0;
+
+  NS_IMETHOD    ConditionalSoftwareUpdate(const nsString& aURL, const nsString& aRegName, PRInt32 aDiffLevel, const nsString& aVersion, PRInt32 aMode, PRInt32* aReturn)=0;
+  NS_IMETHOD    ConditionalSoftwareUpdate(const nsString& aURL, const nsString& aRegName, PRInt32 aDiffLevel, nsIDOMInstallVersion* aVersion, PRInt32 aMode, PRInt32* aReturn)=0;
+  NS_IMETHOD    ConditionalSoftwareUpdate(const nsString& aURL, const nsString& aRegName, nsIDOMInstallVersion* aVersion, PRInt32 aMode, PRInt32* aReturn)=0;
+  NS_IMETHOD    ConditionalSoftwareUpdate(const nsString& aURL, const nsString& aRegName, const nsString& aVersion, PRInt32 aMode, PRInt32* aReturn)=0;
+  NS_IMETHOD    ConditionalSoftwareUpdate(const nsString& aURL, const nsString& aRegName, const nsString& aVersion, PRInt32* aReturn)=0;
+  NS_IMETHOD    ConditionalSoftwareUpdate(const nsString& aURL, const nsString& aRegName, nsIDOMInstallVersion* aVersion, PRInt32* aReturn)=0;
+
+  NS_IMETHOD    CompareVersion(const nsString& aRegName, PRInt32 aMajor, PRInt32 aMinor, PRInt32 aRelease, PRInt32 aBuild, PRInt32* aReturn)=0;
+  NS_IMETHOD    CompareVersion(const nsString& aRegName, const nsString& aVersion, PRInt32* aReturn)=0;
+  NS_IMETHOD    CompareVersion(const nsString& aRegName, nsIDOMInstallVersion* aVersion, PRInt32* aReturn)=0;
+};
+
+
+#define NS_DECL_IDOMINSTALLTRIGGERGLOBAL   \
+  NS_IMETHOD    UpdateEnabled(PRBool* aReturn);  \
+  NS_IMETHOD    StartSoftwareUpdate(const nsString& aURL, PRInt32 aFlags, PRInt32* aReturn);  \
+  NS_IMETHOD    StartSoftwareUpdate(const nsString& aURL, PRInt32* aReturn);  \
+  NS_IMETHOD    ConditionalSoftwareUpdate(const nsString& aURL, const nsString& aRegName, PRInt32 aDiffLevel, const nsString& aVersion, PRInt32 aMode, PRInt32* aReturn);  \
+  NS_IMETHOD    ConditionalSoftwareUpdate(const nsString& aURL, const nsString& aRegName, PRInt32 aDiffLevel, nsIDOMInstallVersion* aVersion, PRInt32 aMode, PRInt32* aReturn);  \
+  NS_IMETHOD    ConditionalSoftwareUpdate(const nsString& aURL, const nsString& aRegName, nsIDOMInstallVersion* aVersion, PRInt32 aMode, PRInt32* aReturn);  \
+  NS_IMETHOD    ConditionalSoftwareUpdate(const nsString& aURL, const nsString& aRegName, const nsString& aVersion, PRInt32 aMode, PRInt32* aReturn);  \
+  NS_IMETHOD    ConditionalSoftwareUpdate(const nsString& aURL, const nsString& aRegName, const nsString& aVersion, PRInt32* aReturn);  \
+  NS_IMETHOD    ConditionalSoftwareUpdate(const nsString& aURL, const nsString& aRegName, nsIDOMInstallVersion* aVersion, PRInt32* aReturn);  \
+  NS_IMETHOD    CompareVersion(const nsString& aRegName, PRInt32 aMajor, PRInt32 aMinor, PRInt32 aRelease, PRInt32 aBuild, PRInt32* aReturn);  \
+  NS_IMETHOD    CompareVersion(const nsString& aRegName, const nsString& aVersion, PRInt32* aReturn);  \
+  NS_IMETHOD    CompareVersion(const nsString& aRegName, nsIDOMInstallVersion* aVersion, PRInt32* aReturn);  \
+
+
+
+#define NS_FORWARD_IDOMINSTALLTRIGGERGLOBAL(_to)  \
+  NS_IMETHOD    UpdateEnabled(PRBool* aReturn) { return _to##UpdateEnabled(aReturn); }  \
+  NS_IMETHOD    StartSoftwareUpdate(const nsString& aURL, PRInt32 aFlags, PRInt32* aReturn) { return _to##StartSoftwareUpdate(aURL, aFlags, aReturn); }  \
+  NS_IMETHOD    StartSoftwareUpdate(const nsString& aURL, PRInt32* aReturn) { return _to##StartSoftwareUpdate(aURL, aReturn); }  \
+  NS_IMETHOD    ConditionalSoftwareUpdate(const nsString& aURL, const nsString& aRegName, PRInt32 aDiffLevel, const nsString& aVersion, PRInt32 aMode, PRInt32* aReturn) { return _to##ConditionalSoftwareUpdate(aURL, aRegName, aDiffLevel, aVersion, aMode, aReturn); }  \
+  NS_IMETHOD    ConditionalSoftwareUpdate(const nsString& aURL, const nsString& aRegName, PRInt32 aDiffLevel, nsIDOMInstallVersion* aVersion, PRInt32 aMode, PRInt32* aReturn) { return _to##ConditionalSoftwareUpdate(aURL, aRegName, aDiffLevel, aVersion, aMode, aReturn); }  \
+  NS_IMETHOD    ConditionalSoftwareUpdate(const nsString& aURL, nsIDOMInstallVersion* aRegName, const nsString& aVersion, PRInt32 aMode, PRInt32* aReturn) { return _to##ConditionalSoftwareUpdate(aURL, aDiffLevel, aVersion, aMode, aReturn); }  \
+  NS_IMETHOD    ConditionalSoftwareUpdate(const nsString& aURL, const nsString& aRegName, const nsString& aVersion, PRInt32 aMode, PRInt32* aReturn) { return _to##ConditionalSoftwareUpdate(aURL, aDiffLevel, aVersion, aMode, aReturn); }  \
+  NS_IMETHOD    ConditionalSoftwareUpdate(const nsString& aURL, const nsString& aRegName, const nsString& aVersion, PRInt32* aReturn) { return _to##ConditionalSoftwareUpdate(aURL, aDiffLevel, aVersion, aReturn); }  \
+  NS_IMETHOD    ConditionalSoftwareUpdate(const nsString& aURL, const nsString& aRegName, nsIDOMInstallVersion* aVersion, PRInt32* aReturn) { return _to##ConditionalSoftwareUpdate(aURL, aDiffLevel, aVersion, aReturn); }  \
+  NS_IMETHOD    CompareVersion(const nsString& aRegName, PRInt32 aMajor, PRInt32 aMinor, PRInt32 aRelease, PRInt32 aBuild, PRInt32* aReturn) { return _to##CompareVersion(aRegName, aMajor, aMinor, aRelease, aBuild, aReturn); }  \
+  NS_IMETHOD    CompareVersion(const nsString& aRegName, const nsString& aVersion, PRInt32* aReturn) { return _to##CompareVersion(aRegName, aVersion, aReturn); }  \
+  NS_IMETHOD    CompareVersion(const nsString& aRegName, nsIDOMInstallVersion* aVersion, PRInt32* aReturn) { return _to##CompareVersion(aRegName, aVersion, aReturn); }  \
+
+
+extern nsresult NS_InitInstallTriggerGlobalClass(nsIScriptContext *aContext, void **aPrototype);
+
+extern "C" NS_DOM nsresult NS_NewScriptInstallTriggerGlobal(nsIScriptContext *aContext, nsISupports *aSupports, nsISupports *aParent, void **aReturn);
+
+#endif // nsIDOMInstallTriggerGlobal_h__

mozilla/xpinstall/public/nsIDOMInstallVersion.h

@@ -0,0 +1,107 @@
+/* -*- Mode: C++; tab-width: 2; indent-tabs-mode: nil; c-basic-offset: 2 -*-
+ *
+ * The contents of this file are subject to the Netscape Public License
+ * Version 1.0 (the "NPL"); you may not use this file except in
+ * compliance with the NPL.  You may obtain a copy of the NPL at
+ * http://www.mozilla.org/NPL/
+ *
+ * Software distributed under the NPL is distributed on an "AS IS" basis,
+ * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the NPL
+ * for the specific language governing rights and limitations under the
+ * NPL.
+ *
+ * The Initial Developer of this code under the NPL is Netscape
+ * Communications Corporation.  Portions created by Netscape are
+ * Copyright (C) 1998 Netscape Communications Corporation.  All Rights
+ * Reserved.
+ */
+/* AUTO-GENERATED. DO NOT EDIT!!! */
+
+#ifndef nsIDOMInstallVersion_h__
+#define nsIDOMInstallVersion_h__
+
+#include "nsISupports.h"
+#include "nsString.h"
+#include "nsIScriptContext.h"
+
+class nsIDOMInstallVersion;
+
+#define NS_IDOMINSTALLVERSION_IID \
+ { 0x18c2f986, 0xb09f, 0x11d2, \
+  {0xbc, 0xde, 0x00, 0x80, 0x5f, 0x0e, 0x13, 0x53}} 
+
+class nsIDOMInstallVersion : public nsISupports {
+public:
+  static const nsIID& IID() { static nsIID iid = NS_IDOMINSTALLVERSION_IID; return iid; }
+  enum {
+    EQUAL = 0,
+    BLD_DIFF = 1,
+    BLD_DIFF_MINUS = -1,
+    REL_DIFF = 2,
+    REL_DIFF_MINUS = -2,
+    MINOR_DIFF = 3,
+    MINOR_DIFF_MINUS = -3,
+    MAJOR_DIFF = 4,
+    MAJOR_DIFF_MINUS = -4
+  };
+
+  NS_IMETHOD    GetMajor(PRInt32* aMajor)=0;
+  NS_IMETHOD    SetMajor(PRInt32 aMajor)=0;
+
+  NS_IMETHOD    GetMinor(PRInt32* aMinor)=0;
+  NS_IMETHOD    SetMinor(PRInt32 aMinor)=0;
+
+  NS_IMETHOD    GetRelease(PRInt32* aRelease)=0;
+  NS_IMETHOD    SetRelease(PRInt32 aRelease)=0;
+
+  NS_IMETHOD    GetBuild(PRInt32* aBuild)=0;
+  NS_IMETHOD    SetBuild(PRInt32 aBuild)=0;
+
+  NS_IMETHOD    Init(const nsString& aVersionString)=0;
+
+  NS_IMETHOD    ToString(nsString& aReturn)=0;
+
+  NS_IMETHOD    CompareTo(nsIDOMInstallVersion* aVersionObject, PRInt32* aReturn)=0;
+  NS_IMETHOD    CompareTo(const nsString& aString, PRInt32* aReturn)=0;
+  NS_IMETHOD    CompareTo(PRInt32 aMajor, PRInt32 aMinor, PRInt32 aRelease, PRInt32 aBuild, PRInt32* aReturn)=0;
+};
+
+
+#define NS_DECL_IDOMINSTALLVERSION   \
+  NS_IMETHOD    GetMajor(PRInt32* aMajor);  \
+  NS_IMETHOD    SetMajor(PRInt32 aMajor);  \
+  NS_IMETHOD    GetMinor(PRInt32* aMinor);  \
+  NS_IMETHOD    SetMinor(PRInt32 aMinor);  \
+  NS_IMETHOD    GetRelease(PRInt32* aRelease);  \
+  NS_IMETHOD    SetRelease(PRInt32 aRelease);  \
+  NS_IMETHOD    GetBuild(PRInt32* aBuild);  \
+  NS_IMETHOD    SetBuild(PRInt32 aBuild);  \
+  NS_IMETHOD    Init(const nsString& aVersionString);  \
+  NS_IMETHOD    ToString(nsString& aReturn);  \
+  NS_IMETHOD    CompareTo(nsIDOMInstallVersion* aVersionObject, PRInt32* aReturn);  \
+  NS_IMETHOD    CompareTo(const nsString& aString, PRInt32* aReturn);  \
+  NS_IMETHOD    CompareTo(PRInt32 aMajor, PRInt32 aMinor, PRInt32 aRelease, PRInt32 aBuild, PRInt32* aReturn);  \
+
+
+
+#define NS_FORWARD_IDOMINSTALLVERSION(_to)  \
+  NS_IMETHOD    GetMajor(PRInt32* aMajor) { return _to##GetMajor(aMajor); } \
+  NS_IMETHOD    SetMajor(PRInt32 aMajor) { return _to##SetMajor(aMajor); } \
+  NS_IMETHOD    GetMinor(PRInt32* aMinor) { return _to##GetMinor(aMinor); } \
+  NS_IMETHOD    SetMinor(PRInt32 aMinor) { return _to##SetMinor(aMinor); } \
+  NS_IMETHOD    GetRelease(PRInt32* aRelease) { return _to##GetRelease(aRelease); } \
+  NS_IMETHOD    SetRelease(PRInt32 aRelease) { return _to##SetRelease(aRelease); } \
+  NS_IMETHOD    GetBuild(PRInt32* aBuild) { return _to##GetBuild(aBuild); } \
+  NS_IMETHOD    SetBuild(PRInt32 aBuild) { return _to##SetBuild(aBuild); } \
+  NS_IMETHOD    Init(const nsString& aVersionString) { return _to##Init(aVersionString); }  \
+  NS_IMETHOD    ToString(nsString& aReturn) { return _to##ToString(aReturn); }  \
+  NS_IMETHOD    CompareTo(nsIDOMInstallVersion* aVersionObject, PRInt32* aReturn) { return _to##CompareTo(aVersionObject, aReturn); }  \
+  NS_IMETHOD    CompareTo(const nsString& aString, PRInt32* aReturn) { return _to##CompareTo(aString, aReturn); }  \
+  NS_IMETHOD    CompareTo(PRInt32 aMajor, PRInt32 aMinor, PRInt32 aRelease, PRInt32 aBuild, PRInt32* aReturn) { return _to##CompareTo(aMajor, aMinor, aRelease, aBuild, aReturn); }  \
+
+
+extern nsresult NS_InitInstallVersionClass(nsIScriptContext *aContext, void **aPrototype);
+
+extern "C" NS_DOM nsresult NS_NewScriptInstallVersion(nsIScriptContext *aContext, nsISupports *aSupports, nsISupports *aParent, void **aReturn);
+
+#endif // nsIDOMInstallVersion_h__

mozilla/xpinstall/public/nsISoftwareUpdate.h

@@ -0,0 +1,85 @@
+/* -*- Mode: C; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 2 -*- */
+/*
+ * 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 Mozilla Communicator client code, 
+ * released March 31, 1998. 
+ *
+ * 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.
+ *
+ * Contributors:
+ *     Daniel Veditz <dveditz@netscape.com>
+ *     Douglas Turner <dougt@netscape.com>
+ */
+
+#ifndef nsISoftwareUpdate_h__
+#define nsISoftwareUpdate_h__
+
+#include "nsISupports.h"
+#include "nsIFactory.h"
+#include "nsString.h"
+
+#include "nsIXPInstallProgress.h"
+
+#define NS_IXPINSTALLCOMPONENT_PROGID NS_IAPPSHELLCOMPONENT_PROGID "/xpinstall"
+#define NS_IXPINSTALLCOMPONENT_CLASSNAME "Mozilla XPInstall Component"
+
+
+#define NS_ISOFTWAREUPDATE_IID                   \
+{ 0x18c2f992, 									 \
+  0xb09f, 										 \
+  0x11d2,						                 \
+ {0xbc, 0xde, 0x00, 0x80, 0x5f, 0x0e, 0x13, 0x53}\
+} 
+
+
+class nsISoftwareUpdate : public nsISupports  
+{
+    public:
+        	NS_DEFINE_STATIC_IID_ACCESSOR(NS_ISOFTWAREUPDATE_IID)
+            
+            NS_IMETHOD InstallJar(const nsString& fromURL,
+                                  const nsString& localFile,
+                                  long  flags) = 0; 
+            
+            NS_IMETHOD RegisterNotifier(nsIXPInstallProgress *notifier) = 0;
+            
+            NS_IMETHOD InstallPending(void) = 0;
+
+            /* FIX: these should be in a private interface */
+            NS_IMETHOD InstallJarCallBack()                   = 0; 
+            NS_IMETHOD GetTopLevelNotifier(nsIXPInstallProgress **notifier) = 0;
+};
+
+
+class nsSoftwareUpdateFactory : public nsIFactory 
+{
+    public:
+        
+        nsSoftwareUpdateFactory();
+        virtual ~nsSoftwareUpdateFactory();
+        
+        NS_DECL_ISUPPORTS
+
+              NS_IMETHOD CreateInstance(nsISupports *aOuter,
+                                        REFNSIID aIID,
+                                        void **aResult);
+
+              NS_IMETHOD LockFactory(PRBool aLock);
+
+};
+
+
+#endif // nsISoftwareUpdate_h__
+

mozilla/xpinstall/public/nsIXPInstallProgress.idl

@@ -0,0 +1,30 @@
+/* -*- Mode: IDL; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*-
+ *
+ * The contents of this file are subject to the Netscape Public License
+ * Version 1.0 (the "NPL"); you may not use this file except in
+ * compliance with the NPL.  You may obtain a copy of the NPL at
+ * http://www.mozilla.org/NPL/
+ *
+ * Software distributed under the NPL is distributed on an "AS IS" basis,
+ * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the NPL
+ * for the specific language governing rights and limitations under the
+ * NPL.
+ *
+ * The Initial Developer of this code under the NPL is Netscape
+ * Communications Corporation.  Portions created by Netscape are
+ * Copyright (C) 1998 Netscape Communications Corporation.  All Rights
+ * Reserved.
+ */
+
+#include "nsISupports.idl"
+
+[uuid(eea90d40-b059-11d2-915e-c12b696c9333)]
+interface nsIXPInstallProgress : nsISupports
+{
+        void BeforeJavascriptEvaluation();
+        void AfterJavascriptEvaluation();
+        void InstallStarted([const] in string UIPackageName);
+        void ItemScheduled([const] in string message );
+        void InstallFinalization([const] in string message, in long itemNum, in long totNum );
+        void InstallAborted();
+};

mozilla/xpinstall/public/nsIXPInstallProgressNotifier.h

@@ -0,0 +1,93 @@
+/* -*- Mode: C; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 2 -*- */
+/*
+ * 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 Mozilla Communicator client code, 
+ * released March 31, 1998. 
+ *
+ * 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.
+ *
+ * Contributors:
+ *     Douglas Turner <dougt@netscape.com>
+ */
+
+
+#ifndef nsIXPInstallProgressNotifier_h__
+#define nsIXPInstallProgressNotifier_h__
+
+
+class nsIXPInstallProgressNotifier
+{
+     public:
+        
+        ///////////////////////////////////////////////////////////////////////////////////////////////////////
+        // Function name	: BeforeJavascriptEvaluation
+        // Description	    : This will be called when prior to the install script being evaluate
+        // Return type		: void 
+        // Argument         : void
+        ///////////////////////////////////////////////////////////////////////////////////////////////////////
+
+        virtual void BeforeJavascriptEvaluation(void) = 0;
+        
+        ///////////////////////////////////////////////////////////////////////////////////////////////////////
+        // Function name	: AfterJavascriptEvaluation
+        // Description	    : This will be called after the install script has being evaluated
+        // Return type		: void 
+        // Argument         : void
+        ///////////////////////////////////////////////////////////////////////////////////////////////////////
+         
+        virtual void AfterJavascriptEvaluation(void) = 0;
+
+        ///////////////////////////////////////////////////////////////////////////////////////////////////////
+        // Function name	: InstallStarted
+        // Description	    : This will be called when StartInstall has been called
+        // Return type		: void
+        // Argument         : char* UIPackageName - User Package Name
+        ///////////////////////////////////////////////////////////////////////////////////////////////////////
+
+        virtual void InstallStarted(const char* UIPackageName) = 0;
+        
+        ///////////////////////////////////////////////////////////////////////////////////////////////////////
+        // Function name	: ItemScheduled
+        // Description	    : This will be called when items are being scheduled 
+        // Return type		: Any value returned other than zero, will be treated as an error and the script will be aborted
+        // Argument         : The message that should be displayed to the user
+        ///////////////////////////////////////////////////////////////////////////////////////////////////////
+
+        virtual long ItemScheduled( const char* message ) = 0;
+        
+        ///////////////////////////////////////////////////////////////////////////////////////////////////////
+        // Function name	: InstallFinalization
+        // Description	    : This will be called when the installation is in its Finalize stage 
+        // Return type		: void 
+        // Argument         : char* message - The message that should be displayed to the user
+        // Argument         : long itemNum  - This is the current item number
+        // Argument         : long totNum   - This is the total number of items
+        ///////////////////////////////////////////////////////////////////////////////////////////////////////
+
+        virtual void InstallFinalization( const char* message, long itemNum, long totNum ) = 0;
+
+        ///////////////////////////////////////////////////////////////////////////////////////////////////////
+        // Function name	: InstallAborted
+        // Description	    : This will be called when the install is aborted 
+        // Return type		: void
+        // Argument         : void
+        ///////////////////////////////////////////////////////////////////////////////////////////////////////
+
+        virtual void InstallAborted(void) = 0;
+
+};
+
+
+#endif

mozilla/xpinstall/public/nsSoftwareUpdateIIDs.h

@@ -0,0 +1,64 @@
+/* -*- Mode: C; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 2 -*- */
+/*
+ * 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 Mozilla Communicator client code, 
+ * released March 31, 1998. 
+ *
+ * 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.
+ *
+ * Contributors:
+ *     Daniel Veditz <dveditz@netscape.com>
+ *     Douglas Turner <dougt@netscape.com>
+ */
+
+#ifndef nsSoftwareUpdateIIDs_h___
+#define nsSoftwareUpdateIIDs_h___
+
+#define NS_SoftwareUpdate_CID                        \
+{ /* 18c2f989-b09f-11d2-bcde-00805f0e1353 */         \
+    0x18c2f989,                                      \
+    0xb09f,                                          \
+    0x11d2,                                          \
+    {0xbc, 0xde, 0x00, 0x80, 0x5f, 0x0e, 0x13, 0x53} \
+}
+
+#define NS_SoftwareUpdateInstall_CID                 \
+{ /* 18c2f98b-b09f-11d2-bcde-00805f0e1353 */         \
+    0x18c2f98b,                                      \
+    0xb09f,                                          \
+    0x11d2,                                          \
+    {0xbc, 0xde, 0x00, 0x80, 0x5f, 0x0e, 0x13, 0x53} \
+}
+
+#define NS_SoftwareUpdateInstallTrigger_CID          \
+{ /* 18c2f98d-b09f-11d2-bcde-00805f0e1353 */         \
+    0x18c2f98d,                                      \
+    0xb09f,                                          \
+    0x11d2,                                          \
+    {0xbc, 0xde, 0x00, 0x80, 0x5f, 0x0e, 0x13, 0x53} \
+}
+
+#define NS_SoftwareUpdateInstallVersion_CID          \
+{ /* 18c2f98f-b09f-11d2-bcde-00805f0e1353 */         \
+    0x18c2f98f,                                      \
+    0xb09f,                                          \
+    0x11d2,                                          \
+    {0xbc, 0xde, 0x00, 0x80, 0x5f, 0x0e, 0x13, 0x53} \
+}
+
+
+
+#endif /* nsSoftwareUpdateIIDs_h___ */
+

mozilla/xpinstall/res/MANIFEST

@@ -0,0 +1,3 @@
+progress.xul
+progress.css
+progress.html

mozilla/xpinstall/res/Makefile.in

@@ -0,0 +1,34 @@
+#!gmake
+#
+# The contents of this file are subject to the Netscape Public License
+# Version 1.0 (the "NPL"); you may not use this file except in
+# compliance with the NPL.  You may obtain a copy of the NPL at
+# http://www.mozilla.org/NPL/
+#
+# Software distributed under the NPL is distributed on an "AS IS" basis,
+# WITHOUT WARRANTY OF ANY KIND, either express or implied. See the NPL
+# for the specific language governing rights and limitations under the
+# NPL.
+#
+# The Initial Developer of this code under the NPL is Netscape
+# Communications Corporation.  Portions created by Netscape are
+# Copyright (C) 1998 Netscape Communications Corporation.  All Rights
+# Reserved.
+
+DEPTH=../..
+topsrcdir	= @top_srcdir@
+srcdir		= @srcdir@
+VPATH		= @srcdir@
+
+include $(DEPTH)/config/autoconf.mk
+include $(topsrcdir)/config/config.mk
+include $(topsrcdir)/config/rules.mk
+
+EXPORT_RESOURCE_XPINSTALL = \
+	$(srcdir)/progress.xul \
+	$(srcdir)/progress.html \
+	$(srcdir)/progress.css \
+	$(NULL)
+
+install:: 
+	$(INSTALL) $(EXPORT_RESOURCE_XPINSTALL) $(DIST)/bin/res/xpinstall

mozilla/xpinstall/res/makefile.win

@@ -0,0 +1,31 @@
+#!nmake
+#
+# The contents of this file are subject to the Netscape Public License
+# Version 1.0 (the "NPL"); you may not use this file except in
+# compliance with the NPL.  You may obtain a copy of the NPL at
+# http://www.mozilla.org/NPL/
+#
+# Software distributed under the NPL is distributed on an "AS IS" basis,
+# WITHOUT WARRANTY OF ANY KIND, either express or implied. See the NPL
+# for the specific language governing rights and limitations under the
+# NPL.
+#
+# The Initial Developer of this code under the NPL is Netscape
+# Communications Corporation.  Portions created by Netscape are
+# Copyright (C) 1998 Netscape Communications Corporation.  All Rights
+# Reserved.
+
+DEPTH=..\..
+IGNORE_MANIFEST=1
+
+include <$(DEPTH)\config\rules.mak>
+
+install:: $(DLL)
+	$(MAKE_INSTALL) progress.xul $(DIST)\bin\res\xpinstall
+    $(MAKE_INSTALL) progress.css $(DIST)\bin\res\xpinstall
+    $(MAKE_INSTALL) progress.html $(DIST)\bin\res\xpinstall
+
+clobber::
+	rm -f $(DIST)\res\xpinstall\progress.xul
+    rm -f $(DIST)\res\xpinstall\progress.css
+    rm -f $(DIST)\res\xpinstall\progress.html

mozilla/xpinstall/res/progress.css

@@ -0,0 +1,3 @@
+TD {
+    font: 10pt sans-serif;
+}

mozilla/xpinstall/res/progress.html

@@ -0,0 +1,16 @@
+<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
+<html>
+<body bgcolor="#C0C0C0"  style="overflow:visible; margin: 0px; color-background: rgb(192,192,192);">
+<center>
+<table BORDER COLS=5 WIDTH="99%" style="color-background:rgb(192,192,192);">
+<tr>
+<td WIDTH="3%"  NOWRAP style="border: 1px inset rgb(192,192,192);">&nbsp</td>
+<td WIDTH="3%"  NOWRAP style="border: 1px inset rgb(192,192,192);">&nbsp</td>
+<td WIDTH="3%"  NOWRAP style="border: 1px inset rgb(192,192,192);">&nbsp</td>
+<td WIDTH="10%" NOWRAP style="border: 1px inset rgb(192,192,192);">&nbsp</td>
+<td WIDTH="81%" NOWRAP style="border: 1px inset rgb(192,192,192);">&nbsp</td>
+</tr>
+</table>
+</center>
+</body>
+</html>

mozilla/xpinstall/res/progress.xul

@@ -0,0 +1,67 @@
+<?xml version="1.0"?> 
+<?xml-stylesheet href="../samples/xul.css" type="text/css"?> 
+<?xml-stylesheet href="progress.css" type="text/css"?> 
+
+<!DOCTYPE window
+[
+<!ENTITY downloadWindow.title "XPInstall Progress"> 
+<!ENTITY  status "Status:"> 
+<!ENTITY  cancelButtonTitle "Cancel">
+]
+> 
+
+<window xmlns:html="http://www.w3.org/TR/REC-html40"
+        xmlns="http://www.mozilla.org/keymaster/gatekeeper/there.is.only.xul"
+        title="XPInstall Progress"
+        width="425"
+        height="225">
+
+    <data>
+        <broadcaster id="data.canceled" type="string" value="false"/>
+    </data>
+
+
+    <html:script>
+ 
+         function cancelInstall() 
+         {
+            var cancelData = document.getElementById("data.canceled");
+            cancelData.setAttribute( "value", "true");
+         }
+
+    </html:script>
+
+<html:center>
+  <html:table style="width:100%;">
+
+    <html:tr>
+      <html:td align="center">
+        <html:input id="dialog.uiPackageName" readonly="" style="background-color:lightgray;width:300px;"/>
+      </html:td>
+    </html:tr>
+
+    <html:tr>
+      <html:td nowrap="" style="border: 1px rgb(192,192,192);" align="center">
+        <html:input id="dialog.currentAction" readonly="" style="background-color:lightgray;width:450px;"/>
+      </html:td>
+    </html:tr>
+
+
+    <html:tr>
+      <html:td align="center" width="15%" nowrap="" style="border: 1px rgb(192,192,192);">
+        <progressmeter id="dialog.progress" mode="undetermined" style="width:300px;height:16px;">
+        </progressmeter>
+	  </html:td>
+    </html:tr>
+
+    <html:tr>
+      <html:td align="center" width="3%"  nowrap="" style="border: 1px rgb(192,192,192);">
+        <html:button onclick="cancelInstall()" height="12">
+          &cancelButtonTitle;
+        </html:button>
+      </html:td>
+    </html:tr>
+  </html:table>
+
+</html:center>
+</window>

mozilla/xpinstall/src/Makefile.in

@@ -0,0 +1,61 @@
+#!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 Mozilla Communicator client code, 
+# released March 31, 1998. 
+#
+# 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.
+#
+# Contributors:
+#     Daniel Veditz <dveditz@netscape.com>
+#     Douglas Turner <dougt@netscape.com>
+
+DEPTH           = ../..
+topsrcdir       = @top_srcdir@
+VPATH           = @srcdir@
+srcdir          = @srcdir@
+
+include $(DEPTH)/config/autoconf.mk
+
+MODULE		= xpinstall
+LIBRARY_NAME	= xpinstall
+IS_COMPONENT	= 1
+REQUIRES        = dom js netlib raptor xpcom
+
+CPPSRCS = \
+    nsSoftwareUpdate.cpp        \
+    nsInstall.cpp               \
+    nsInstallDelete.cpp         \
+    nsInstallExecute.cpp        \
+    nsInstallFile.cpp           \
+    nsInstallFolder.cpp         \
+    nsInstallPatch.cpp          \
+    nsInstallUninstall.cpp      \
+    nsInstallTrigger.cpp        \
+    nsInstallResources.cpp      \
+    nsJSInstall.cpp             \
+    nsJSInstallTriggerGlobal.cpp\
+    nsSoftwareUpdateRun.cpp     \
+    nsSoftwareUpdateStream.cpp  \
+    nsTopProgressNotifier.cpp   \
+    nsLoggingProgressNotifier   \
+    ScheduledTasks.cpp          \
+    nsInstallFileOpItem.cpp     \
+    $(NULL)
+
+INCLUDES += -I$(srcdir)/../public
+
+include $(topsrcdir)/config/rules.mk
+

mozilla/xpinstall/src/PatchableAppleSingle.h

@@ -0,0 +1,233 @@
+/* -*- Mode: C; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 2 -*- */
+
+/*
+
+ * 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 Mozilla Communicator client code, 
+
+ * released March 31, 1998. 
+
+ *
+
+ * 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.
+
+ *
+
+ * Contributors:
+
+ *     Douglas Turner <dougt@netscape.com>
+
+ */
+
+ 
+
+#ifndef SU_PAS_H
+
+#define SU_PAS_H
+
+
+
+
+
+#include <Errors.h>
+
+#include <Types.h>
+
+#include <Files.h>
+
+#include <Script.h>
+
+#include <Resources.h>
+
+
+
+typedef struct PASHeader /* header portion of Patchable AppleSingle */
+
+{
+
+       UInt32 magicNum; 	/* internal file type tag = 0x00244200*/
+
+       UInt32 versionNum; 	/* format version: 1 = 0x00010000 */
+
+       UInt8 filler[16]; 	/* filler */
+
+       UInt16 numEntries; 	/* number of entries which follow */
+
+} PASHeader ; 
+
+
+
+
+
+typedef struct PASEntry 	/* one Patchable AppleSingle entry descriptor */
+
+{
+
+        UInt32 entryID; 	/* entry type: see list, 0 invalid 		*/
+
+        UInt32 entryOffset; /* offset, in bytes, from beginning 	*/
+
+                            /* of file to this entry's data 		*/
+
+        UInt32 entryLength; /* length of data in octets 			*/
+
+        
+
+} PASEntry; 
+
+
+
+
+
+typedef struct PASMiscInfo
+
+{
+
+	short	fileHasResFork;
+
+	short	fileResAttrs;
+
+	OSType 	fileType;
+
+	OSType	fileCreator;
+
+	UInt32	fileFlags;
+
+
+
+} PASMiscInfo; 
+
+
+
+
+
+typedef struct PASResFork
+
+{
+
+	short	NumberOfTypes;
+
+	
+
+} PASResFork; 
+
+
+
+
+
+typedef struct PASResource
+
+{
+
+	short			attr;
+
+	short			attrID;
+
+	OSType			attrType;
+
+	Str255			attrName;
+
+	unsigned long	length;
+
+		
+
+} PASResource; 
+
+
+
+
+
+
+
+#if PRAGMA_ALIGN_SUPPORTED
+
+#pragma options align=reset
+
+#endif
+
+
+
+
+
+#define kCreator	'MOSS'
+
+#define kType		'PASf'
+
+#define PAS_BUFFER_SIZE (1024*512)
+
+
+
+#define PAS_MAGIC_NUM	(0x00244200)
+
+#define PAS_VERSION		(0x00010000)
+
+
+
+enum
+
+{
+
+	ePas_Data	=	1,
+
+	ePas_Misc,
+
+	ePas_Resource
+
+};
+
+
+
+#ifdef __cplusplus
+
+extern "C" {
+
+#endif
+
+
+
+/* Prototypes */
+
+OSErr PAS_EncodeFile(FSSpec *inSpec, FSSpec *outSpec);
+
+OSErr PAS_DecodeFile(FSSpec *inSpec, FSSpec *outSpec);
+
+
+
+
+
+
+
+#ifdef __cplusplus
+
+}
+
+#endif
+
+
+
+#endif /* SU_PAS_H */

mozilla/xpinstall/src/ScheduledTasks.cpp

@@ -0,0 +1,380 @@
+/* -*- Mode: C; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 2 -*- */
+/*
+ * 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 Mozilla Communicator client code, 
+ * released March 31, 1998. 
+ *
+ * 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.
+ *
+ * Contributors:
+ *     Daniel Veditz <dveditz@netscape.com>
+ *     Douglas Turner <dougt@netscape.com>
+ */
+
+#include "nscore.h"
+#include "NSReg.h"
+#include "nsFileSpec.h"
+#include "nsFileStream.h"
+#include "nsInstall.h" // for error codes
+#include "prmem.h"
+#include "ScheduledTasks.h"
+
+#ifdef _WINDOWS
+#include <sys/stat.h>
+#include <windows.h>
+
+BOOL WIN32_IsMoveFileExBroken()
+{
+    /* the NT option MOVEFILE_DELAY_UNTIL_REBOOT is broken on 
+     * Windows NT 3.51 Service Pack 4 and NT 4.0 before Service Pack 2
+     */
+    BOOL broken = FALSE;
+    OSVERSIONINFO osinfo;
+
+    // they *all* appear broken--better to have one way that works.
+    return TRUE;
+
+    osinfo.dwOSVersionInfoSize = sizeof(OSVERSIONINFO);
+    if (GetVersionEx(&osinfo) && osinfo.dwPlatformId == VER_PLATFORM_WIN32_NT)
+    {
+        if ( osinfo.dwMajorVersion == 3 && osinfo.dwMinorVersion == 51 )
+        {
+            if ( 0 == stricmp(osinfo.szCSDVersion,"Service Pack 4"))
+            {
+                broken = TRUE;
+            }
+        }
+        else if ( osinfo.dwMajorVersion == 4 )
+        {
+            if (osinfo.szCSDVersion[0] == '\0' || 
+                (0 == stricmp(osinfo.szCSDVersion,"Service Pack 1")))
+            {
+                broken = TRUE;
+            }
+        }
+    }
+
+    return broken;
+}
+
+
+PRInt32 DoWindowsReplaceExistingFileStuff(const char* currentName, const char* finalName)
+{
+    PRInt32 err = 0;
+
+    char* final   = strdup(finalName);
+    char* current = strdup(currentName);
+
+    /* couldn't delete, probably in use. Schedule for later */
+     DWORD	dwVersion, dwWindowsMajorVersion;
+
+    /* Get OS version info */
+    dwVersion = GetVersion();
+    dwWindowsMajorVersion =  (DWORD)(LOBYTE(LOWORD(dwVersion)));
+
+    /* Get build numbers for Windows NT or Win32s */
+
+    if (dwVersion < 0x80000000)                // Windows NT
+    {
+    	/* On Windows NT */
+        if ( WIN32_IsMoveFileExBroken() )
+        {
+            /* the MOVEFILE_DELAY_UNTIL_REBOOT option doesn't work on
+             * NT 3.51 SP4 or on NT 4.0 until SP2
+             */
+            struct stat statbuf;
+            PRBool nameFound = PR_FALSE;
+            char tmpname[_MAX_PATH];
+            
+            strncpy( tmpname, finalName, _MAX_PATH );
+            int len = strlen(tmpname);
+            while (!nameFound && len < _MAX_PATH ) 
+            {
+                    tmpname[len-1] = '~';
+                    tmpname[len] = '\0';
+                    if ( stat(tmpname, &statbuf) != 0 )
+                        nameFound = TRUE;
+                    else
+                        len++;
+            }
+
+            if ( nameFound ) 
+            {
+                if ( MoveFile( finalName, tmpname ) ) 
+                {
+                    if ( MoveFile( currentName, finalName ) ) 
+                    {
+                        DeleteFileNowOrSchedule(nsFileSpec(tmpname));
+                    }
+                    else 
+                    {
+                        /* 2nd move failed, put old file back */
+                        MoveFile( tmpname, finalName );
+                    }
+                }
+                else
+                {
+                    /* non-executable in use; schedule for later */
+                    return -1;  // let the start registry stuff do our work!
+                }
+            }
+        }
+        else if ( MoveFileEx(currentName, finalName, MOVEFILE_DELAY_UNTIL_REBOOT) )
+        {
+		    err = 0;
+        }
+    }
+	else // Windows 95 or Win16
+	{
+        /*
+ 		 * Place an entry in the WININIT.INI file in the Windows directory
+		 * to delete finalName and rename currentName to be finalName at reboot
+ 		 */
+
+        int strlen;
+ 		char	Src[_MAX_PATH];   // 8.3 name
+ 		char	Dest[_MAX_PATH];  // 8.3 name
+
+        strlen = GetShortPathName( (LPCTSTR)currentName, (LPTSTR)Src, (DWORD)sizeof(Src) );
+        if ( strlen > 0 ) 
+        {
+            free(current);
+            current   = strdup(Src);
+        }
+
+		strlen = GetShortPathName( (LPCTSTR) finalName, (LPTSTR) Dest, (DWORD) sizeof(Dest));
+        if ( strlen > 0 ) 
+        {
+            free(final);
+            final   = strdup(Dest);
+        }
+        
+        /* NOTE: use OEM filenames! Even though it looks like a Windows
+         *       .INI file, WININIT.INI is processed under DOS 
+         */
+        
+        AnsiToOem( final, final );
+        AnsiToOem( current, current );
+
+        if ( WritePrivateProfileString( "Rename", final, current, "WININIT.INI" ) )
+		    err = 0;
+    }
+    
+    free(final);
+    free(current);
+
+    return err;
+}
+#endif
+
+
+
+
+
+
+REGERR DeleteFileNowOrSchedule(nsFileSpec& filename)
+{
+
+    REGERR result = 0;
+    
+    filename.Delete(false);
+    
+    if (filename.Exists())
+    {
+        RKEY newkey;
+        HREG reg;
+        if ( REGERR_OK == NR_RegOpen("", &reg) ) 
+        {
+            if (REGERR_OK == NR_RegAddKey( reg, ROOTKEY_PRIVATE, REG_DELETE_LIST_KEY, &newkey) )
+            {
+                // FIX should be using nsPersistentFileDescriptor!!!
+
+                result = NR_RegSetEntry( reg, newkey, (char*)(const char*)filename.GetNativePathCString(), REGTYPE_ENTRY_FILE, nsnull, 0);
+                if (result == REGERR_OK)
+                    result = nsInstall::REBOOT_NEEDED;
+            }
+
+            NR_RegClose(reg);
+        }
+    }
+
+    return result;
+}
+/* tmp file is the bad one that we want to replace with target. */
+
+REGERR ReplaceFileNowOrSchedule(nsFileSpec& replacementFile, nsFileSpec& doomedFile )
+{
+    REGERR result = 0;
+    
+    if(replacementFile == doomedFile)
+    {
+        /* do not have to do anything */
+        return result;
+    }
+
+    doomedFile.Delete(false);
+
+    if (! doomedFile.Exists() )
+    {
+        // Now that we have move the existing file, we can move the mExtracedFile into place.
+        nsFileSpec parentofFinalFile;
+
+        doomedFile.GetParent(parentofFinalFile);
+        result = replacementFile.Move(parentofFinalFile);
+        if ( NS_SUCCEEDED(result) )
+        {
+            char* leafName = doomedFile.GetLeafName();
+            replacementFile.Rename(leafName);
+            nsCRT::free(leafName);
+        }
+    }
+    else
+    {
+#ifdef _WINDOWS
+        if (DoWindowsReplaceExistingFileStuff(replacementFile.GetNativePathCString(), doomedFile.GetNativePathCString()) == 0)
+            return 0;
+#endif
+
+        RKEY newkey;
+        HREG reg;
+
+        if ( REGERR_OK == NR_RegOpen("", &reg) ) 
+        {
+            result = NR_RegAddKey( reg, ROOTKEY_PRIVATE, REG_REPLACE_LIST_KEY, &newkey);
+            if ( result == REGERR_OK ) 
+            {
+                char* replacementFileName = (char*)(const char*)replacementFile.GetNativePathCString();
+                result = NR_RegSetEntry( reg, newkey, (char*)(const char*)doomedFile.GetNativePathCString(), REGTYPE_ENTRY_FILE, replacementFileName, strlen(replacementFileName));
+                if (result == REGERR_OK)
+                    result = nsInstall::REBOOT_NEEDED;
+            }
+
+            NR_RegClose(reg);
+        }
+    }
+
+    return result;
+}
+
+void DeleteScheduledFiles(void);
+void ReplaceScheduledFiles(void);
+
+extern "C" void PerformScheduledTasks(void *data)
+{
+    DeleteScheduledFiles();
+    ReplaceScheduledFiles();
+}
+
+
+void DeleteScheduledFiles(void)
+{
+    HREG reg;
+
+    if (REGERR_OK == NR_RegOpen("", &reg))
+    {
+        RKEY    key;
+	    REGENUM state;
+
+        /* perform scheduled file deletions and replacements (PC only) */
+        if (REGERR_OK ==  NR_RegGetKey(reg, ROOTKEY_PRIVATE, REG_DELETE_LIST_KEY,&key))
+        {
+            char buf[MAXREGNAMELEN];
+
+            while (REGERR_OK == NR_RegEnumEntries(reg, key, &state, buf, sizeof(buf), NULL ))
+            {
+                nsFileSpec doomedFile(buf);
+
+                doomedFile.Delete(PR_FALSE);
+                
+                if (! doomedFile.Exists()) 
+                {
+                    NR_RegDeleteEntry( reg, key, buf );
+                }
+            }
+
+            /* delete list node if empty */
+			if (REGERR_NOMORE == NR_RegEnumEntries( reg, key, &state, buf, sizeof(buf), NULL ))
+            {
+                NR_RegDeleteKey(reg, ROOTKEY_PRIVATE, REG_DELETE_LIST_KEY);
+            }
+        }
+        
+        NR_RegClose(reg);
+    }
+}
+
+void ReplaceScheduledFiles(void)
+{
+    HREG reg;
+     
+    if (REGERR_OK == NR_RegOpen("", &reg))
+    {
+        RKEY    key;
+	    REGENUM state;
+
+        /* replace files if any listed */
+        if (REGERR_OK ==  NR_RegGetKey(reg, ROOTKEY_PRIVATE, REG_REPLACE_LIST_KEY, &key))
+        {
+            char tmpfile[MAXREGNAMELEN];
+            char target[MAXREGNAMELEN];
+
+            state = 0;
+            while (REGERR_OK == NR_RegEnumEntries(reg, key, &state, tmpfile, sizeof(tmpfile), NULL ))
+            {
+
+                nsFileSpec replaceFile(tmpfile);
+
+                if (! replaceFile.Exists() )
+                {
+                    NR_RegDeleteEntry( reg, key, tmpfile );
+                }
+                else if ( REGERR_OK != NR_RegGetEntryString( reg, key, tmpfile, target, sizeof(target) ) )
+                {
+                    /* can't read target filename, corruption? */
+                    NR_RegDeleteEntry( reg, key, tmpfile );
+                }
+                else 
+                {
+                    nsFileSpec targetFile(target);
+                
+                    targetFile.Delete(PR_FALSE);
+                
+                    if (!targetFile.Exists())
+                    {
+                        nsFileSpec parentofTarget;
+                        targetFile.GetParent(parentofTarget);                                           
+                    
+                        nsresult result = replaceFile.Move(parentofTarget);
+                        if ( NS_SUCCEEDED(result) )
+                        {
+                            char* leafName = targetFile.GetLeafName();
+                            replaceFile.Rename(leafName);
+                            nsCRT::free(leafName);
+                            
+                            NR_RegDeleteEntry( reg, key, tmpfile );
+                        }
+                    }
+                }
+            }
+            /* delete list node if empty */
+            if (REGERR_NOMORE == NR_RegEnumEntries(reg, key, &state, tmpfile, sizeof(tmpfile), NULL )) 
+            {
+                NR_RegDeleteKey(reg, ROOTKEY_PRIVATE, REG_REPLACE_LIST_KEY);
+            }
+        }
+        
+        NR_RegClose(reg);
+    }
+}

mozilla/xpinstall/src/ScheduledTasks.h

@@ -0,0 +1,42 @@
+/* -*- Mode: C; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 2 -*- */
+/*
+ * 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 Mozilla Communicator client code, 
+ * released March 31, 1998. 
+ *
+ * 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.
+ *
+ * Contributors:
+ *     Daniel Veditz <dveditz@netscape.com>
+ *     Douglas Turner <dougt@netscape.com>
+ */
+
+
+#ifndef __SCHEDULEDTASKS_H__
+#define __SCHEDULEDTASKS_H__
+
+
+#include "NSReg.h"
+#include "nsFileSpec.h"
+
+
+REGERR DeleteFileNowOrSchedule(nsFileSpec& filename);
+REGERR ReplaceFileNowOrSchedule(nsFileSpec& tmpfile, nsFileSpec& target );
+
+
+extern "C" void PerformScheduledTasks(void *data);
+
+
+#endif

mozilla/xpinstall/src/gdiff.h

@@ -0,0 +1,135 @@
+/* -*- Mode: C; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 2 -*-
+ *
+ * The contents of this file are subject to the Netscape Public License
+ * Version 1.0 (the "NPL"); you may not use this file except in
+ * compliance with the NPL.  You may obtain a copy of the NPL at
+ * http://www.mozilla.org/NPL/
+ *
+ * Software distributed under the NPL is distributed on an "AS IS" basis,
+ * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the NPL
+ * for the specific language governing rights and limitations under the
+ * NPL.
+ *
+ * The Initial Developer of this code under the NPL is Netscape
+ * Communications Corporation.  Portions created by Netscape are
+ * Copyright (C) 1998 Netscape Communications Corporation.  All Rights
+ * Reserved.
+ */
+/*--------------------------------------------------------------
+ * GDIFF.H
+ *
+ * Constants used in processing the GDIFF format
+ *--------------------------------------------------------------*/
+
+
+#include "prio.h"
+#include "nsFileSpec.h"
+
+#define GDIFF_MAGIC         "\xD1\xFF\xD1\xFF"
+#define GDIFF_MAGIC_LEN     4
+#define GDIFF_VER           5
+#define GDIFF_EOF           "\0"
+
+#define GDIFF_VER_POS       4
+#define GDIFF_CS_POS        5
+#define GDIFF_CSLEN_POS     6
+
+#define GDIFF_HEADERSIZE    7
+#define GDIFF_APPDATALEN    4
+
+#define GDIFF_CS_NONE       0
+#define GDIFF_CS_MD5        1
+#define GDIFF_CS_SHA        2
+#define GDIFF_CS_CRC32      32
+
+#define CRC32_LEN           4
+
+/*--------------------------------------
+ *  GDIFF opcodes
+ *------------------------------------*/
+#define ENDDIFF     0
+#define ADD8MAX     246
+#define ADD16       247
+#define ADD32       248
+#define COPY16BYTE  249
+#define COPY16SHORT 250
+#define COPY16LONG  251
+#define COPY32BYTE  252
+#define COPY32SHORT 253
+#define COPY32LONG  254
+#define COPY64      255
+
+/* instruction sizes */
+#define ADD16SIZE           2
+#define ADD32SIZE           4
+#define COPY16BYTESIZE      3
+#define COPY16SHORTSIZE     4
+#define COPY16LONGSIZE      6
+#define COPY32BYTESIZE      5
+#define COPY32SHORTSIZE     6
+#define COPY32LONGSIZE      8
+#define COPY64SIZE          12
+
+
+/*--------------------------------------
+ *  error codes
+ *------------------------------------*/
+#define GDIFF_OK                0
+#define GDIFF_ERR_UNKNOWN       -1
+#define GDIFF_ERR_ARGS          -2
+#define GDIFF_ERR_ACCESS        -3
+#define GDIFF_ERR_MEM           -4
+#define GDIFF_ERR_HEADER        -5
+#define GDIFF_ERR_BADDIFF       -6
+#define GDIFF_ERR_OPCODE        -7
+#define GDIFF_ERR_OLDFILE       -8
+#define GDIFF_ERR_CHKSUMTYPE    -9
+#define GDIFF_ERR_CHECKSUM      -10
+#define GDIFF_ERR_CHECKSUM_TARGET  -11
+#define GDIFF_ERR_CHECKSUM_RESULT  -12
+
+
+/*--------------------------------------
+ *  types
+ *------------------------------------*/
+#ifndef AIX
+#ifdef OSF1
+#include <sys/types.h>
+#else
+typedef unsigned char uchar;
+#endif
+#endif
+
+typedef struct _diffdata {
+    PRFileDesc*	fSrc;
+    PRFileDesc*	fOut;
+    PRFileDesc*	fDiff;
+    uint8       checksumType;
+    uint8       checksumLength;
+    uchar*      oldChecksum;
+    uchar*      newChecksum;
+    PRBool      bMacAppleSingle;
+    PRBool      bWin32BoundImage;
+    uchar*      databuf;
+    uint32      bufsize;
+} DIFFDATA;
+
+typedef DIFFDATA* pDIFFDATA;
+
+
+/*--------------------------------------
+ *  miscellaneous
+ *------------------------------------*/
+
+#define APPFLAG_W32BOUND        "autoinstall:Win32PE"
+#define APPFLAG_APPLESINGLE     "autoinstall:AppleSingle"
+
+#ifndef TRUE
+  #define TRUE  1
+#endif
+
+#ifndef FALSE
+  #define FALSE 0
+#endif
+
+

mozilla/xpinstall/src/makefile.win

@@ -0,0 +1,111 @@
+#!nmake
+#
+# 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 Mozilla Communicator client code, 
+# released March 31, 1998. 
+#
+# 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.
+#
+# Contributors:
+#     Daniel Veditz <dveditz@netscape.com>
+#     Douglas Turner <dougt@netscape.com>
+
+
+DEPTH=..\..
+IGNORE_MANIFEST=1
+
+MAKE_OBJ_TYPE = DLL
+MODULE=xpinstall
+
+DLL=.\$(OBJDIR)\$(MODULE).dll
+
+DEFINES=-D_IMPL_NS_DOM -DWIN32_LEAN_AND_MEAN
+
+LCFLAGS =          \
+        $(LCFLAGS) \
+        $(DEFINES) \
+        $(NULL)
+
+LINCS=                          \
+        -I$(PUBLIC)\xpinstall   \
+        -I$(PUBLIC)\jar         \
+        -I$(PUBLIC)\libreg      \
+        -I$(PUBLIC)\netlib      \
+        -I$(PUBLIC)\xpcom       \
+        -I$(PUBLIC)\pref        \
+        -I$(PUBLIC)\rdf         \
+        -I$(PUBLIC)\js          \
+        -I$(PUBLIC)\dom         \
+        -I$(PUBLIC)\raptor      \
+        -I$(PUBLIC)\nspr2       \
+		-I$(PUBLIC)\zlib        \
+        -I$(PUBLIC)\xpfe\components \
+        $(NULL)
+
+LLIBS =                                \
+        $(DIST)\lib\jar50.lib          \
+        $(DIST)\lib\libreg32.lib       \
+        $(DIST)\lib\netlib.lib         \
+        $(DIST)\lib\xpcom.lib        \
+        $(DIST)\lib\js3250.lib         \
+        $(DIST)\lib\jsdombase_s.lib    \
+        $(DIST)\lib\jsdomevents_s.lib  \
+		$(DIST)\lib\zlib.lib           \
+		$(DIST)\lib\plc3.lib           \
+        $(LIBNSPR)                     \
+        $(NULL)
+
+
+OBJS =                                          \
+       .\$(OBJDIR)\nsInstall.obj                \
+       .\$(OBJDIR)\nsInstallTrigger.obj         \
+       .\$(OBJDIR)\nsInstallVersion.obj         \
+       .\$(OBJDIR)\nsInstallFolder.obj          \
+       .\$(OBJDIR)\nsJSInstall.obj              \
+       .\$(OBJDIR)\nsJSInstallTriggerGlobal.obj \
+       .\$(OBJDIR)\nsJSInstallVersion.obj       \
+       .\$(OBJDIR)\nsSoftwareUpdate.obj         \
+       .\$(OBJDIR)\nsSoftwareUpdateRun.obj      \
+       .\$(OBJDIR)\nsSoftwareUpdateStream.obj   \
+       .\$(OBJDIR)\nsInstallFile.obj            \
+       .\$(OBJDIR)\nsInstallDelete.obj          \
+       .\$(OBJDIR)\nsInstallExecute.obj         \
+       .\$(OBJDIR)\nsInstallPatch.obj           \
+       .\$(OBJDIR)\nsInstallUninstall.obj       \
+       .\$(OBJDIR)\nsInstallResources.obj       \
+       .\$(OBJDIR)\nsTopProgressNotifier.obj    \
+       .\$(OBJDIR)\nsLoggingProgressNotifier.obj\
+       .\$(OBJDIR)\ScheduledTasks.obj           \
+       .\$(OBJDIR)\nsWinReg.obj                 \
+       .\$(OBJDIR)\nsJSWinReg.obj               \
+       .\$(OBJDIR)\nsWinRegItem.obj             \
+       .\$(OBJDIR)\nsWinRegValue.obj            \
+       .\$(OBJDIR)\nsWinProfile.obj             \
+       .\$(OBJDIR)\nsJSWinProfile.obj           \
+       .\$(OBJDIR)\nsWinProfileItem.obj         \
+       .\$(OBJDIR)\nsInstallProgressDialog.obj  \
+       .\$(OBJDIR)\nsInstallFileOpItem.obj      \
+       $(NULL)
+
+include <$(DEPTH)\config\rules.mak>
+
+install:: $(DLL)
+    $(MAKE_INSTALL) .\$(OBJDIR)\$(MODULE).lib $(DIST)\lib
+    $(MAKE_INSTALL) .\$(OBJDIR)\$(MODULE).dll $(DIST)\bin\components
+
+clobber::
+        rm -f $(DIST)\lib\$(MODULE).lib
+        rm -f $(DIST)\bin\components\$(MODULE).dll
+

mozilla/xpinstall/src/nsInstall.h

@@ -0,0 +1,265 @@
+/* -*- Mode: C; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 2 -*- */
+/*
+ * 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 Mozilla Communicator client code, 
+ * released March 31, 1998. 
+ *
+ * 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.
+ *
+ * Contributors:
+ *     Daniel Veditz <dveditz@netscape.com>
+ *     Douglas Turner <dougt@netscape.com>
+ */
+
+
+#ifndef __NS_INSTALL_H__
+#define __NS_INSTALL_H__
+
+#include "nscore.h"
+#include "nsISupports.h"
+
+#include "jsapi.h"
+
+#include "plevent.h"
+
+#include "nsString.h"
+#include "nsFileSpec.h"
+#include "nsVector.h"
+#include "nsHashtable.h"
+
+#include "nsSoftwareUpdate.h"
+
+#include "nsInstallObject.h"
+#include "nsInstallVersion.h"
+
+#include "nsIXPInstallProgress.h"
+
+
+class nsInstallInfo
+{
+  public:
+    
+    nsInstallInfo(const nsString& fromURL, const nsString& localFile, long flags);
+
+    nsInstallInfo(nsVector* fromURL, nsVector* localFiles, long flags);
+    
+    virtual ~nsInstallInfo();
+
+    nsString& GetFromURL(PRUint32 index = 0);
+    
+    nsString& GetLocalFile(PRUint32 index = 0);
+
+    void GetArguments(nsString& args, PRUint32 index = 0);
+    
+    long GetFlags();
+    
+    PRBool    IsMultipleTrigger();
+
+    static void DeleteVector(nsVector* vector);    
+    
+  private:
+    
+    
+    PRBool    mMultipleTrigger;
+    nsresult  mError;
+
+    long       mFlags;
+    nsVector  *mFromURLs;
+    nsVector  *mLocalFiles;
+};
+
+
+
+class nsInstall
+{
+    friend class nsWinReg;
+    friend class nsWinProfile;
+
+    public:
+       
+        enum 
+        {
+            BAD_PACKAGE_NAME            = -200,
+            UNEXPECTED_ERROR            = -201,
+            ACCESS_DENIED               = -202,
+            TOO_MANY_CERTIFICATES       = -203,
+            NO_INSTALLER_CERTIFICATE    = -204,
+            NO_CERTIFICATE              = -205,
+            NO_MATCHING_CERTIFICATE     = -206,
+            UNKNOWN_JAR_FILE            = -207,
+            INVALID_ARGUMENTS           = -208,
+            ILLEGAL_RELATIVE_PATH       = -209,
+            USER_CANCELLED              = -210,
+            INSTALL_NOT_STARTED         = -211,
+            SILENT_MODE_DENIED          = -212,
+            NO_SUCH_COMPONENT           = -213,
+            FILE_DOES_NOT_EXIST         = -214,
+            FILE_READ_ONLY              = -215,
+            FILE_IS_DIRECTORY           = -216,
+            NETWORK_FILE_IS_IN_USE      = -217,
+            APPLE_SINGLE_ERR            = -218,
+            INVALID_PATH_ERR            = -219,
+            PATCH_BAD_DIFF              = -220,
+            PATCH_BAD_CHECKSUM_TARGET   = -221,
+            PATCH_BAD_CHECKSUM_RESULT   = -222,
+            UNINSTALL_FAILED            = -223,
+            GESTALT_UNKNOWN_ERR         = -5550,
+            GESTALT_INVALID_ARGUMENT    = -5551,
+            
+            SUCCESS                     = 0,
+            REBOOT_NEEDED               = 999,
+            
+            LIMITED_INSTALL             = 0,
+            FULL_INSTALL                = 1,
+            NO_STATUS_DLG               = 2,
+            NO_FINALIZE_DLG             = 4,
+
+            INSTALL_FILE_UNEXPECTED_MSG_ID = 0,
+            DETAILS_REPLACE_FILE_MSG_ID = 1,
+            DETAILS_INSTALL_FILE_MSG_ID = 2
+        };
+
+
+        nsInstall();
+        virtual ~nsInstall();
+        
+        PRInt32    SetScriptObject(void* aScriptObject);
+
+        PRInt32    SaveWinRegPrototype(void* aScriptObject);
+        PRInt32    SaveWinProfilePrototype(void* aScriptObject);
+        
+        JSObject*  RetrieveWinRegPrototype(void);
+        JSObject*  RetrieveWinProfilePrototype(void);
+
+        PRInt32    GetUserPackageName(nsString& aUserPackageName);
+        PRInt32    GetRegPackageName(nsString& aRegPackageName);
+
+        PRInt32    AbortInstall();
+        
+        PRInt32    AddDirectory(const nsString& aRegName, const nsString& aVersion, const nsString& aJarSource, const nsString& aFolder, const nsString& aSubdir, PRBool aForceMode, PRInt32* aReturn);
+        PRInt32    AddDirectory(const nsString& aRegName, const nsString& aVersion, const nsString& aJarSource, const nsString& aFolder, const nsString& aSubdir, PRInt32* aReturn);
+        PRInt32    AddDirectory(const nsString& aRegName, const nsString& aJarSource, const nsString& aFolder, const nsString& aSubdir, PRInt32* aReturn);
+        PRInt32    AddDirectory(const nsString& aJarSource, PRInt32* aReturn);
+        
+        PRInt32    AddSubcomponent(const nsString& aRegName, const nsString& aVersion, const nsString& aJarSource, const nsString& aFolder, const nsString& aTargetName, PRBool aForceMode, PRInt32* aReturn);
+        PRInt32    AddSubcomponent(const nsString& aRegName, const nsString& aVersion, const nsString& aJarSource, const nsString& aFolder, const nsString& aTargetName, PRInt32* aReturn);
+        PRInt32    AddSubcomponent(const nsString& aRegName, const nsString& aJarSource, const nsString& aFolder, const nsString& aTargetName, PRInt32* aReturn);
+        PRInt32    AddSubcomponent(const nsString& aJarSource, PRInt32* aReturn);
+        
+        PRInt32    DeleteComponent(const nsString& aRegistryName, PRInt32* aReturn);
+        PRInt32    DeleteFile(const nsString& aFolder, const nsString& aRelativeFileName, PRInt32* aReturn);
+        PRInt32    DiskSpaceAvailable(const nsString& aFolder, PRInt32* aReturn);
+        PRInt32    Execute(const nsString& aJarSource, const nsString& aArgs, PRInt32* aReturn);
+        PRInt32    Execute(const nsString& aJarSource, PRInt32* aReturn);
+        PRInt32    FinalizeInstall(PRInt32* aReturn);
+        PRInt32    Gestalt(const nsString& aSelector, PRInt32* aReturn);
+        PRInt32    GetComponentFolder(const nsString& aComponentName, const nsString& aSubdirectory, nsString** aFolder);
+        PRInt32    GetComponentFolder(const nsString& aComponentName, nsString** aFolder);
+        PRInt32    GetFolder(const nsString& aTargetFolder, const nsString& aSubdirectory, nsString** aFolder);
+        PRInt32    GetFolder(const nsString& aTargetFolder, nsString** aFolder);
+        PRInt32    GetLastError(PRInt32* aReturn);
+        PRInt32    GetWinProfile(const nsString& aFolder, const nsString& aFile, JSContext* jscontext, JSClass* WinProfileClass, jsval* aReturn);
+        PRInt32    GetWinRegistry(JSContext* jscontext, JSClass* WinRegClass, jsval* aReturn);
+        PRInt32    Patch(const nsString& aRegName, const nsString& aVersion, const nsString& aJarSource, const nsString& aFolder, const nsString& aTargetName, PRInt32* aReturn);
+        PRInt32    Patch(const nsString& aRegName, const nsString& aJarSource, const nsString& aFolder, const nsString& aTargetName, PRInt32* aReturn);
+        PRInt32    ResetError();
+        PRInt32    SetPackageFolder(const nsString& aFolder);
+        PRInt32    StartInstall(const nsString& aUserPackageName, const nsString& aPackageName, const nsString& aVersion, PRInt32* aReturn);
+        PRInt32    Uninstall(const nsString& aPackageName, PRInt32* aReturn);
+        
+        PRInt32    FileOpDirCreate(nsFileSpec& aTarget, PRInt32* aReturn);
+        PRInt32    FileOpDirGetParent(nsFileSpec& aTarget, nsFileSpec* aReturn);
+        PRInt32    FileOpDirRemove(nsFileSpec& aTarget, PRInt32 aFlags, PRInt32* aReturn);
+        PRInt32    FileOpDirRename(nsFileSpec& aSrc, nsFileSpec& aTarget, PRInt32* aReturn);
+        PRInt32    FileOpFileCopy(nsFileSpec& aSrc, nsFileSpec& aTarget, PRInt32* aReturn);
+        PRInt32    FileOpFileDelete(nsFileSpec& aTarget, PRInt32 aFlags, PRInt32* aReturn);
+        PRInt32    FileOpFileExists(nsFileSpec& aTarget, PRBool* aReturn);
+        PRInt32    FileOpFileExecute(nsFileSpec& aTarget, nsString& aParams, PRInt32* aReturn);
+        PRInt32    FileOpFileGetNativeVersion(nsFileSpec& aTarget, nsString* aReturn);
+        PRInt32    FileOpFileGetDiskSpaceAvailable(nsFileSpec& aTarget, PRUint32* aReturn);
+        PRInt32    FileOpFileGetModDate(nsFileSpec& aTarget, nsFileSpec::TimeStamp* aReturn);
+        PRInt32    FileOpFileGetSize(nsFileSpec& aTarget, PRUint32* aReturn);
+        PRInt32    FileOpFileIsDirectory(nsFileSpec& aTarget, PRBool* aReturn);
+        PRInt32    FileOpFileIsFile(nsFileSpec& aTarget, PRBool* aReturn);
+        PRInt32    FileOpFileModDateChanged(nsFileSpec& aTarget, nsFileSpec::TimeStamp& aOldStamp, PRBool* aReturn);
+        PRInt32    FileOpFileMove(nsFileSpec& aSrc, nsFileSpec& aTarget, PRInt32* aReturn);
+        PRInt32    FileOpFileRename(nsFileSpec& aSrc, nsFileSpec& aTarget, PRInt32* aReturn);
+        PRInt32    FileOpFileWinShortcutCreate(nsFileSpec& aTarget, PRInt32 aFlags, PRInt32* aReturn);
+        PRInt32    FileOpFileMacAliasCreate(nsFileSpec& aTarget, PRInt32 aFlags, PRInt32* aReturn);
+        PRInt32    FileOpFileUnixLinkCreate(nsFileSpec& aTarget, PRInt32 aFlags, PRInt32* aReturn);
+
+        PRInt32    ExtractFileFromJar(const nsString& aJarfile, nsFileSpec* aSuggestedName, nsFileSpec** aRealName);
+        void       AddPatch(nsHashKey *aKey, nsFileSpec* fileName);
+        void       GetPatch(nsHashKey *aKey, nsFileSpec* fileName);
+        
+        void       GetJarFileLocation(nsString& aFile);
+        void       SetJarFileLocation(const nsString& aFile);
+
+        void       GetInstallArguments(nsString& args);
+        void       SetInstallArguments(const nsString& args);
+
+
+    private:
+        JSObject*           mScriptObject;
+        
+        JSObject*           mWinRegObject;
+        JSObject*           mWinProfileObject;
+        
+        nsString            mJarFileLocation;
+        void*               mJarFileData;
+        
+        nsString            mInstallArguments;
+
+        PRBool              mUserCancelled;
+        
+        PRBool              mUninstallPackage;
+        PRBool              mRegisterPackage;
+
+        nsString            mRegistryPackageName;   /* Name of the package we are installing */
+        nsString            mUIName;                /* User-readable package name */
+
+        nsInstallVersion*   mVersionInfo;           /* Component version info */
+        
+        nsVector*           mInstalledFiles;        
+        nsHashtable*        mPatchList;
+        
+        nsIXPInstallProgress *mNotifier;
+        
+        PRInt32             mLastError;
+
+        void        ParseFlags(int flags);
+        PRInt32     SanityCheck(void);
+        void        GetTime(nsString &aString);
+
+        
+        PRInt32     GetQualifiedRegName(const nsString& name, nsString& qualifiedRegName );
+        PRInt32     GetQualifiedPackageName( const nsString& name, nsString& qualifiedName );
+        
+        void        CurrentUserNode(nsString& userRegNode);
+        PRBool      BadRegName(const nsString& regName);
+        PRInt32     SaveError(PRInt32 errcode);
+
+        void        CleanUp();
+
+        PRInt32     OpenJARFile(void);
+        void        CloseJARFile(void);
+        PRInt32     ExtractDirEntries(const nsString& directory, nsVector *paths);
+
+        PRInt32     ScheduleForInstall(nsInstallObject* ob);
+        
+
+};
+
+#endif

mozilla/xpinstall/src/nsInstallDelete.cpp

@@ -0,0 +1,235 @@
+/* -*- Mode: C; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 2 -*- */
+/*
+ * 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 Mozilla Communicator client code, 
+ * released March 31, 1998. 
+ *
+ * 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.
+ *
+ * Contributors:
+ *     Daniel Veditz <dveditz@netscape.com>
+ *     Douglas Turner <dougt@netscape.com>
+ */
+
+
+#include "prmem.h"
+
+#include "nsFileSpec.h"
+
+#include "VerReg.h"
+#include "ScheduledTasks.h"
+#include "nsInstallDelete.h"
+#include "nsInstallResources.h"
+
+#include "nsInstall.h"
+#include "nsIDOMInstallVersion.h"
+
+nsInstallDelete::nsInstallDelete( nsInstall* inInstall,
+                                  const nsString& folderSpec,
+                                  const nsString& inPartialPath,
+                                  PRInt32 *error)
+
+: nsInstallObject(inInstall)
+{
+    if ((folderSpec == "null") || (inInstall == NULL)) 
+    {
+        *error = nsInstall::INVALID_ARGUMENTS;
+        return;
+    }
+    
+    mDeleteStatus = DELETE_FILE;
+    mFinalFile      = nsnull;
+    mRegistryName   = "";
+    
+
+    mFinalFile = new nsFileSpec(folderSpec);
+    *mFinalFile += inPartialPath;
+
+    *error = ProcessInstallDelete();
+}
+
+nsInstallDelete::nsInstallDelete( nsInstall* inInstall,
+                                  const nsString& inComponentName,
+                                  PRInt32 *error)
+
+: nsInstallObject(inInstall)
+{
+    if (inInstall == NULL) 
+    {
+        *error = nsInstall::INVALID_ARGUMENTS;
+        return;
+    }
+    
+    mDeleteStatus = DELETE_COMPONENT;
+    mFinalFile    = nsnull;
+    mRegistryName = inComponentName;
+
+    *error = ProcessInstallDelete();
+}
+
+
+nsInstallDelete::~nsInstallDelete()
+{
+    if (mFinalFile == nsnull)
+        delete mFinalFile;
+}
+
+
+PRInt32 nsInstallDelete::Prepare()
+{
+    // no set-up necessary
+    return nsInstall::SUCCESS;
+}
+
+PRInt32 nsInstallDelete::Complete()
+{
+    PRInt32 err = nsInstall::SUCCESS;
+
+    if (mInstall == NULL) 
+       return nsInstall::INVALID_ARGUMENTS;
+
+    if (mDeleteStatus == DELETE_COMPONENT) 
+    {
+        char* temp = mRegistryName.ToNewCString();
+        err = VR_Remove(temp);
+        delete [] temp;
+    }
+
+    if ((mDeleteStatus == DELETE_FILE) || (err == REGERR_OK)) 
+    {
+        err = NativeComplete();
+    }	
+    else 
+    {
+        err = nsInstall::UNEXPECTED_ERROR;
+    }
+
+    
+    return err;
+}
+
+void nsInstallDelete::Abort()
+{
+}
+
+char* nsInstallDelete::toString()
+{
+    char* buffer = new char[1024];
+    
+    if (mDeleteStatus == DELETE_COMPONENT)
+    {
+        sprintf( buffer, nsInstallResources::GetDeleteComponentString(), nsAutoCString(mRegistryName));
+    }
+    else
+    {
+        if (mFinalFile)
+            sprintf( buffer, nsInstallResources::GetDeleteFileString(), mFinalFile->GetCString());
+    }
+
+    return buffer;
+}
+
+
+PRBool
+nsInstallDelete::CanUninstall()
+{
+    return PR_FALSE;
+}
+
+PRBool
+nsInstallDelete::RegisterPackageNode()
+{
+    return PR_FALSE;
+}
+
+
+PRInt32 nsInstallDelete::ProcessInstallDelete()
+{
+    PRInt32 err;
+    
+    char* tempCString = nsnull;
+
+    if (mDeleteStatus == DELETE_COMPONENT) 
+    {
+        /* Check if the component is in the registry */
+        tempCString = mRegistryName.ToNewCString();
+
+        err = VR_InRegistry( tempCString );
+                
+        if (err != REGERR_OK) 
+        {
+            return err;
+        } 
+        else 
+        {
+            char* tempRegistryString;
+
+            tempRegistryString = (char*)PR_Calloc(MAXREGPATHLEN, sizeof(char));
+            
+            err = VR_GetPath( tempCString , MAXREGPATHLEN, tempRegistryString);
+            
+            if (err == REGERR_OK)
+            {
+                if (mFinalFile)
+                    delete mFinalFile;
+
+                mFinalFile = new nsFileSpec(tempRegistryString);
+            }
+
+            PR_FREEIF(tempRegistryString);
+        }
+    }
+    
+    if(tempCString)
+        delete [] tempCString;
+
+    if (mFinalFile->Exists())
+    {
+        if (mFinalFile->IsFile())
+        {
+            err = nsInstall::SUCCESS;
+        }
+        else
+        {
+            err = nsInstall::FILE_IS_DIRECTORY;
+        }
+    }
+    else
+    {
+        err = nsInstall::FILE_DOES_NOT_EXIST;
+    }
+
+    return err;
+}
+
+
+
+PRInt32 nsInstallDelete::NativeComplete()
+{
+    if (mFinalFile->Exists())
+    {
+        if (mFinalFile->IsFile())
+        {
+           return DeleteFileNowOrSchedule(*mFinalFile);
+        }
+        else
+        {
+            return nsInstall::FILE_IS_DIRECTORY;
+        }
+    }
+    
+    return nsInstall::FILE_DOES_NOT_EXIST;
+}
+

mozilla/xpinstall/src/nsInstallDelete.h

@@ -0,0 +1,78 @@
+/* -*- Mode: C; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 2 -*- */
+/*
+ * 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 Mozilla Communicator client code, 
+ * released March 31, 1998. 
+ *
+ * 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.
+ *
+ * Contributors:
+ *     Daniel Veditz <dveditz@netscape.com>
+ *     Douglas Turner <dougt@netscape.com>
+ */
+
+
+#ifndef nsInstallDelete_h__
+#define nsInstallDelete_h__
+
+#include "prtypes.h"
+#include "nsString.h"
+
+#include "nsInstallObject.h"
+
+#include "nsInstall.h"
+
+#define DELETE_COMPONENT 1
+#define DELETE_FILE      2
+
+class nsInstallDelete : public nsInstallObject 
+{
+    public:
+
+        nsInstallDelete(  nsInstall* inInstall,
+                          const nsString& folderSpec,
+                          const nsString& inPartialPath,
+                          PRInt32 *error);
+
+        nsInstallDelete(  nsInstall* inInstall,
+                          const nsString& ,
+                          PRInt32 *error);
+
+        virtual ~nsInstallDelete();
+
+        PRInt32 Prepare();
+        PRInt32 Complete();
+        void    Abort();
+        char*   toString();
+
+        PRBool CanUninstall();
+        PRBool RegisterPackageNode();
+	    
+  
+    private:
+
+        /* Private Fields */
+
+        nsFileSpec* mFinalFile;
+        
+        nsString    mRegistryName;
+        PRInt32     mDeleteStatus;
+
+        PRInt32 ProcessInstallDelete();
+        PRInt32 NativeComplete();
+        
+};
+
+#endif /* nsInstallDelete_h__ */

mozilla/xpinstall/src/nsInstallExecute.cpp

@@ -0,0 +1,136 @@
+/* -*- Mode: C; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 2 -*- */
+/*
+ * 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 Mozilla Communicator client code, 
+ * released March 31, 1998. 
+ *
+ * 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.
+ *
+ * Contributors:
+ *     Daniel Veditz <dveditz@netscape.com>
+ *     Douglas Turner <dougt@netscape.com>
+ */
+
+
+
+#include "prmem.h"
+
+#include "nsFileSpec.h"
+
+#include "VerReg.h"
+#include "nsInstallExecute.h"
+#include "nsInstallResources.h"
+#include "ScheduledTasks.h"
+
+#include "nsInstall.h"
+#include "nsIDOMInstallVersion.h"
+
+nsInstallExecute:: nsInstallExecute(  nsInstall* inInstall,
+                                      const nsString& inJarLocation,
+                                      const nsString& inArgs,
+                                      PRInt32 *error)
+
+: nsInstallObject(inInstall)
+{
+    if ((inInstall == nsnull) || (inJarLocation == "null"))
+    {
+        *error = nsInstall::INVALID_ARGUMENTS;
+        return;
+    }
+
+    mJarLocation        = inJarLocation;
+    mArgs               = inArgs;
+    mExecutableFile     = nsnull;
+
+}
+
+
+nsInstallExecute::~nsInstallExecute()
+{
+    if (mExecutableFile)
+        delete mExecutableFile;
+}
+
+
+
+PRInt32 nsInstallExecute::Prepare()
+{
+    if (mInstall == NULL || mJarLocation == "null") 
+        return nsInstall::INVALID_ARGUMENTS;
+
+    return mInstall->ExtractFileFromJar(mJarLocation, nsnull, &mExecutableFile);
+}
+
+PRInt32 nsInstallExecute::Complete()
+{
+    if (mExecutableFile == nsnull)
+        return nsInstall::INVALID_ARGUMENTS;
+
+    nsFileSpec app( *mExecutableFile);
+    
+    if (!app.Exists())
+	{
+		return nsInstall::INVALID_ARGUMENTS;
+	}
+
+    PRInt32 result = app.Execute( mArgs );
+    
+    DeleteFileNowOrSchedule( app );
+    
+    return result;
+}
+
+void nsInstallExecute::Abort()
+{
+    /* Get the names */
+    if (mExecutableFile == nsnull) 
+        return;
+
+    DeleteFileNowOrSchedule(*mExecutableFile);
+}
+
+char* nsInstallExecute::toString()
+{
+    char* buffer = new char[1024];
+    
+    // if the FileSpec is NULL, just us the in jar file name.
+
+    if (mExecutableFile == nsnull)
+    {
+        char *tempString = mJarLocation.ToNewCString();
+        sprintf( buffer, nsInstallResources::GetExecuteString(), tempString);
+        delete [] tempString;
+    }
+    else
+    {
+        sprintf( buffer, nsInstallResources::GetExecuteString(), mExecutableFile->GetCString());
+    }
+    return buffer;
+
+}
+
+
+PRBool
+nsInstallExecute::CanUninstall()
+{
+    return PR_FALSE;
+}
+
+PRBool
+nsInstallExecute::RegisterPackageNode()
+{
+    return PR_FALSE;
+}
+

mozilla/xpinstall/src/nsInstallExecute.h

@@ -0,0 +1,73 @@
+/* -*- Mode: C; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 2 -*- */
+/*
+ * 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 Mozilla Communicator client code, 
+ * released March 31, 1998. 
+ *
+ * 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.
+ *
+ * Contributors:
+ *     Daniel Veditz <dveditz@netscape.com>
+ *     Douglas Turner <dougt@netscape.com>
+ */
+
+
+#ifndef nsInstallExecute_h__
+#define nsInstallExecute_h__
+
+#include "prtypes.h"
+#include "nsString.h"
+
+#include "nsInstallObject.h"
+
+#include "nsInstall.h"
+#include "nsIDOMInstallVersion.h"
+
+
+class nsInstallExecute : public nsInstallObject 
+{
+    public:
+          
+        nsInstallExecute( nsInstall* inInstall,
+                          const nsString& inJarLocation,
+                          const nsString& inArgs,
+                          PRInt32 *error);
+
+
+        virtual ~nsInstallExecute();
+
+        PRInt32 Prepare();
+        PRInt32 Complete();
+        void  Abort();
+        char* toString();
+
+        PRBool CanUninstall();
+        PRBool RegisterPackageNode();
+	  
+  
+    private:
+          
+        nsString mJarLocation; // Location in the JAR
+        nsString mArgs;        // command line arguments
+        
+        nsFileSpec *mExecutableFile;    // temporary file location
+        
+
+        PRInt32 NativeComplete(void);
+        void NativeAbort(void);
+
+};
+
+#endif /* nsInstallExecute_h__ */

mozilla/xpinstall/src/nsInstallFile.cpp

@@ -0,0 +1,366 @@
+/* -*- Mode: C; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 2 -*- */
+/*
+ * 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 Mozilla Communicator client code, 
+ * released March 31, 1998. 
+ *
+ * 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.
+ *
+ * Contributors:
+ *     Daniel Veditz <dveditz@netscape.com>
+ *     Douglas Turner <dougt@netscape.com>
+ */
+
+#include "nsInstallFile.h"
+#include "nsFileSpec.h"
+#include "VerReg.h"
+#include "ScheduledTasks.h"
+#include "nsInstall.h"
+#include "nsIDOMInstallVersion.h"
+#include "nsInstallResources.h"
+
+/* Public Methods */
+
+/*	Constructor
+        inInstall    - softUpdate object we belong to
+        inComponentName	- full path of the registry component
+        inVInfo	        - full version info
+        inJarLocation   - location inside the JAR file
+        inFinalFileSpec	- final	location on disk
+*/
+
+
+nsInstallFile::nsInstallFile(nsInstall* inInstall,
+                             const nsString& inComponentName,
+                             const nsString& inVInfo,
+                             const nsString& inJarLocation,
+                             const nsString& folderSpec,
+                             const nsString& inPartialPath,
+                             PRBool forceInstall,
+                             PRInt32 *error) 
+: nsInstallObject(inInstall)
+{
+    mVersionRegistryName = nsnull;
+    mJarLocation         = nsnull;
+    mExtracedFile        = nsnull;
+    mFinalFile           = nsnull;
+    mVersionInfo         = nsnull;
+
+    mUpgradeFile = PR_FALSE;
+    
+    if ((folderSpec == "null") || (inInstall == NULL)) 
+    {
+        *error = nsInstall::INVALID_ARGUMENTS;
+        return;
+    }
+
+    /* Check for existence of the newer	version	*/
+    
+    PRBool versionNewer = PR_FALSE;  // Is this a newer version
+    char* qualifiedRegNameString = inComponentName.ToNewCString();
+
+    if ( (forceInstall == PR_FALSE ) && (inVInfo !=  "") && ( VR_ValidateComponent( qualifiedRegNameString ) == 0 ) ) 
+    {
+        nsInstallVersion *newVersion = new nsInstallVersion();
+        newVersion->Init(inVInfo);
+        
+        VERSION versionStruct;
+        
+        VR_GetVersion( qualifiedRegNameString, &versionStruct );
+        
+        nsInstallVersion* oldVersion = new nsInstallVersion();
+
+        oldVersion->Init(versionStruct.major,
+                         versionStruct.minor,
+                         versionStruct.release,
+                         versionStruct.build);
+
+        PRInt32 areTheyEqual;
+        newVersion->CompareTo(oldVersion, &areTheyEqual);
+        
+        delete oldVersion;
+        delete newVersion;
+
+        if (areTheyEqual == nsIDOMInstallVersion::MAJOR_DIFF_MINUS ||
+            areTheyEqual == nsIDOMInstallVersion::MINOR_DIFF_MINUS ||
+            areTheyEqual == nsIDOMInstallVersion::REL_DIFF_MINUS   ||
+            areTheyEqual == nsIDOMInstallVersion::BLD_DIFF_MINUS   )
+        {
+            // the file to be installed is OLDER than what is on disk.  Return error
+            delete qualifiedRegNameString;
+            *error = areTheyEqual;
+            return;
+        }
+    }
+
+    delete qualifiedRegNameString;
+
+    
+     mFinalFile = new nsFileSpec(folderSpec);
+    *mFinalFile += inPartialPath;
+    
+    mReplaceFile = mFinalFile->Exists();
+    
+    if (mReplaceFile == PR_FALSE)
+    {
+        nsFileSpec parent;
+        mFinalFile->GetParent(parent);
+        nsFileSpec makeDirs(parent.GetCString(), PR_TRUE);
+    }
+
+    mForceInstall           = forceInstall;
+    
+    mVersionRegistryName    = new nsString(inComponentName);
+    mJarLocation            = new nsString(inJarLocation);
+    mVersionInfo	        = new nsString(inVInfo);
+        
+    nsString regPackageName;
+    mInstall->GetRegPackageName(regPackageName);
+    
+    // determine Child status
+    if ( regPackageName == "" ) 
+    {
+        // in the "current communicator package" absolute pathnames (start
+        // with slash) indicate shared files -- all others are children
+        mChildFile = ( mVersionRegistryName->CharAt(0) != '/' );
+    } 
+    else 
+    {
+        
+        // there is no "starts with" api in nsString.  LAME!
+        nsString startsWith;
+        mVersionRegistryName->Left(startsWith, regPackageName.Length());
+
+        if (startsWith.Equals(regPackageName))
+        {
+            mChildFile = true;
+        }
+        else
+        {
+            mChildFile = false;
+        }
+    }
+}
+
+
+nsInstallFile::~nsInstallFile()
+{
+    if (mVersionRegistryName)
+        delete mVersionRegistryName;
+  
+    if (mJarLocation)
+        delete mJarLocation;
+  
+    if (mExtracedFile)
+        delete mExtracedFile;
+
+    if (mFinalFile)
+        delete mFinalFile;
+  
+    if (mVersionInfo)
+      delete mVersionInfo;
+}
+
+/* Prepare
+ * Extracts file out of the JAR archive
+ */
+PRInt32 nsInstallFile::Prepare()
+{
+    if (mInstall == nsnull || mFinalFile == nsnull || mJarLocation == nsnull ) 
+        return nsInstall::INVALID_ARGUMENTS;
+
+    return mInstall->ExtractFileFromJar(*mJarLocation, mFinalFile, &mExtracedFile);
+}
+
+/* Complete
+ * Completes the install:
+ * - move the downloaded file to the final location
+ * - updates the registry
+ */
+PRInt32 nsInstallFile::Complete()
+{
+    PRInt32 err;
+
+    if (mInstall == nsnull || mVersionRegistryName == nsnull || mFinalFile == nsnull ) 
+    {
+       return nsInstall::INVALID_ARGUMENTS;
+    }
+
+    err = CompleteFileMove();
+    
+    if ( 0 == err || nsInstall::REBOOT_NEEDED == err ) 
+    {
+        err = RegisterInVersionRegistry();
+    }
+    
+    return err;
+
+}
+
+void nsInstallFile::Abort()
+{
+    if (mExtracedFile != nsnull)
+        mExtracedFile->Delete(PR_FALSE);
+}
+
+char* nsInstallFile::toString()
+{
+    char* buffer = new char[1024];
+    
+    if (mFinalFile == nsnull)
+    {
+        sprintf( buffer, nsInstallResources::GetInstallFileString(), nsnull);
+    }
+    else if (mReplaceFile)
+    {
+        // we are replacing this file.
+
+        sprintf( buffer, nsInstallResources::GetReplaceFileString(), mFinalFile->GetCString());
+    }
+    else
+    {
+        sprintf( buffer, nsInstallResources::GetInstallFileString(), mFinalFile->GetCString());
+    }
+
+    return buffer;
+}
+
+
+PRInt32 nsInstallFile::CompleteFileMove()
+{
+    int result = 0;
+    
+    if (mExtracedFile == nsnull) 
+    {
+        return -1;
+    }
+   	
+    if ( *mExtracedFile == *mFinalFile ) 
+    {
+        /* No need to rename, they are the same */
+        result = 0;
+    } 
+    else 
+    {
+        result = ReplaceFileNowOrSchedule(*mExtracedFile, *mFinalFile );
+    }
+
+  return result;  
+}
+
+PRInt32
+nsInstallFile::RegisterInVersionRegistry()
+{
+    int refCount;
+    nsString regPackageName;
+    mInstall->GetRegPackageName(regPackageName);
+    
+  
+    // Register file and log for Uninstall
+  
+    if (!mChildFile) 
+    {
+        int found;
+        if (regPackageName != "") 
+        {
+            found = VR_UninstallFileExistsInList( (char*)(const char*)nsAutoCString(regPackageName) , 
+                                                  (char*)(const char*)nsAutoCString(*mVersionRegistryName));
+        } 
+        else 
+        {
+            found = VR_UninstallFileExistsInList( "", (char*)(const char*)nsAutoCString(*mVersionRegistryName) );
+        }
+        
+        if (found != REGERR_OK)
+            mUpgradeFile = PR_FALSE;
+        else
+            mUpgradeFile = PR_TRUE;
+    } 
+    else if (REGERR_OK == VR_InRegistry( (char*)(const char*)nsAutoCString(*mVersionRegistryName))) 
+    {
+        mUpgradeFile = PR_TRUE;
+    } 
+    else 
+    {
+        mUpgradeFile = PR_FALSE;
+    }
+
+    if ( REGERR_OK != VR_GetRefCount( (char*)(const char*)nsAutoCString(*mVersionRegistryName), &refCount )) 
+    {
+        refCount = 0;
+    }
+
+    VR_Install( (char*)(const char*)nsAutoCString(*mVersionRegistryName), 
+                (char*)(const char*)mFinalFile->GetNativePathCString(),  // DO NOT CHANGE THIS. 
+                (char*)(const char*)nsAutoCString(*mVersionInfo), 
+                PR_FALSE );
+
+    if (mUpgradeFile) 
+    {
+        if (refCount == 0) 
+            VR_SetRefCount( (char*)(const char*)nsAutoCString(*mVersionRegistryName), 1 );
+        else 
+            VR_SetRefCount( (char*)(const char*)nsAutoCString(*mVersionRegistryName), refCount );  //FIX?? what should the ref count be/
+    }
+    else
+    {
+        if (refCount != 0) 
+        {
+            VR_SetRefCount( (char*)(const char*)nsAutoCString(*mVersionRegistryName), refCount + 1 );
+        } 
+        else 
+        {
+            if (mReplaceFile)
+                VR_SetRefCount( (char*)(const char*)nsAutoCString(*mVersionRegistryName), 2 );
+            else
+                VR_SetRefCount( (char*)(const char*)nsAutoCString(*mVersionRegistryName), 1 );
+        }
+    }
+    
+    if ( !mChildFile && !mUpgradeFile ) 
+    {
+        if (regPackageName != "") 
+        { 
+            VR_UninstallAddFileToList( (char*)(const char*)nsAutoCString(regPackageName), 
+                                       (char*)(const char*)nsAutoCString(*mVersionRegistryName));
+        } 
+        else 
+        {
+            VR_UninstallAddFileToList( "", (char*)(const char*)nsAutoCString(*mVersionRegistryName) );
+        }
+    }
+
+    return nsInstall::SUCCESS;
+}
+
+/* CanUninstall
+* InstallFile() installs files which can be uninstalled,
+* hence this function returns true. 
+*/
+PRBool
+nsInstallFile::CanUninstall()
+{
+    return TRUE;
+}
+
+/* RegisterPackageNode
+* InstallFile() installs files which need to be registered,
+* hence this function returns true.
+*/
+PRBool
+nsInstallFile::RegisterPackageNode()
+{
+    return TRUE;
+}

mozilla/xpinstall/src/nsInstallFile.h

@@ -0,0 +1,93 @@
+/* -*- Mode: C; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 2 -*- */
+/*
+ * 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 Mozilla Communicator client code, 
+ * released March 31, 1998. 
+ *
+ * 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.
+ *
+ * Contributors:
+ *     Daniel Veditz <dveditz@netscape.com>
+ *     Douglas Turner <dougt@netscape.com>
+ */
+
+
+#ifndef nsInstallFile_h__
+#define nsInstallFile_h__
+
+#include "prtypes.h"
+#include "nsString.h"
+
+#include "nsInstallObject.h"
+
+#include "nsInstall.h"
+#include "nsInstallVersion.h"
+
+class nsInstallFile : public nsInstallObject 
+{
+    public:
+
+      /*************************************************************
+       * Public Methods 
+       *
+       *	Constructor
+       *    inSoftUpdate    - softUpdate object we belong to
+       *    inComponentName	- full path of the registry component
+       *    inVInfo	        - full version info
+       *    inJarLocation   - location inside the JAR file
+       *    inFinalFileSpec	- final	location on	disk
+       *************************************************************/
+        nsInstallFile(  nsInstall* inInstall,
+                        const nsString& inVRName,
+                        const nsString& inVInfo,
+                        const nsString& inJarLocation,
+                        const nsString& folderSpec,
+                        const nsString& inPartialPath,
+                        PRBool forceInstall,
+                        PRInt32 *error);
+
+        virtual ~nsInstallFile();
+
+        PRInt32 Prepare();
+        PRInt32 Complete();
+        void  Abort();
+        char* toString();
+
+        PRBool CanUninstall();
+        PRBool RegisterPackageNode();
+	  
+  
+    private:
+
+        /* Private Fields */
+        nsString*     mVersionInfo;	  /* Version info for this file*/
+        
+        nsString*     mJarLocation;	      /* Location in the JAR */
+        nsFileSpec*   mExtracedFile;	  /* temporary file location */
+        nsFileSpec*   mFinalFile;	      /* final file destination */
+
+        nsString*   mVersionRegistryName; /* full version path */
+        
+        PRBool      mForceInstall;   /* whether install is forced */
+        PRBool      mReplaceFile;    /* whether file exists */
+        PRBool      mChildFile;      /* whether file is a child */
+        PRBool      mUpgradeFile;    /* whether file is an upgrade */
+
+
+        PRInt32     CompleteFileMove();
+        PRInt32     RegisterInVersionRegistry();
+};
+
+#endif /* nsInstallFile_h__ */

mozilla/xpinstall/src/nsInstallFileOpEnums.h

@@ -0,0 +1,38 @@
+/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 2 -*- */
+/*
+ * The contents of this file are subject to the Netscape Public License
+ * Version 1.0 (the "NPL"); you may not use this file except in
+ * compliance with the NPL.  You may obtain a copy of the NPL at
+ * http://www.mozilla.org/NPL/
+ *
+ * Software distributed under the NPL is distributed on an "AS IS" basis,
+ * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the NPL
+ * for the specific language governing rights and limitations under the
+ * NPL.
+ *
+ * The Initial Developer of this code under the NPL is Netscape
+ * Communications Corporation.  Portions created by Netscape are
+ * Copyright (C) 1998 Netscape Communications Corporation.  All Rights
+ * Reserved.
+ */
+
+#ifndef nsInstallFileOpEnums_h__
+#define nsInstallFileOpEnums_h__
+
+typedef enum nsInstallFileOpEnums {
+  NS_FOP_DIR_CREATE = 0,
+  NS_FOP_DIR_REMOVE = 1,
+  NS_FOP_DIR_RENAME = 2,
+  NS_FOP_FILE_COPY = 3,
+  NS_FOP_FILE_DELETE = 4,
+  NS_FOP_FILE_EXECUTE = 5,
+  NS_FOP_FILE_MOVE = 6,
+  NS_FOP_FILE_RENAME = 7,
+  NS_FOP_WIN_SHORTCUT_CREATE = 8,
+  NS_FOP_MAC_ALIAS_CREATE = 9,
+  NS_FOP_UNIX_LINK_CREATE = 10,
+  NS_FOP_FILE_SET_STAT = 11
+
+} nsInstallFileOpEnums;
+
+#endif /* nsInstallFileOpEnums_h__ */

mozilla/xpinstall/src/nsInstallFileOpItem.cpp

@@ -0,0 +1,316 @@
+/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 2 -*- */
+/*
+ * The contents of this file are subject to the Netscape Public License
+ * Version 1.0 (the "NPL"); you may not use this file except in
+ * compliance with the NPL.  You may obtain a copy of the NPL at
+ * http://www.mozilla.org/NPL/
+ *
+ * Software distributed under the NPL is distributed on an "AS IS" basis,
+ * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the NPL
+ * for the specific language governing rights and limitations under the
+ * NPL.
+ *
+ * The Initial Developer of this code under the NPL is Netscape
+ * Communications Corporation.  Portions created by Netscape are
+ * Copyright (C) 1998 Netscape Communications Corporation.  All Rights
+ * Reserved.
+ */
+
+#include "nspr.h"
+#include "nsInstall.h"
+#include "nsInstallFileOpEnums.h"
+#include "nsInstallFileOpItem.h"
+
+/* Public Methods */
+
+nsInstallFileOpItem::nsInstallFileOpItem(nsInstall*     aInstallObj,
+                                         PRInt32        aCommand,
+                                         nsFileSpec&    aTarget,
+                                         PRInt32        aFlags,
+                                         PRInt32*       aReturn)
+:nsInstallObject(aInstallObj)
+{
+	mIObj    = aInstallObj;
+	mCommand = aCommand;
+	mFlags   = aFlags;
+	mSrc     = nsnull;
+  mParams  = nsnull;
+	mTarget  = new nsFileSpec(aTarget);
+
+  *aReturn = NS_OK;
+}
+
+nsInstallFileOpItem::nsInstallFileOpItem(nsInstall*     aInstallObj,
+                                         PRInt32        aCommand,
+                                         nsFileSpec&    aSrc,
+                                         nsFileSpec&    aTarget,
+                                         PRInt32*       aReturn)
+:nsInstallObject(aInstallObj)
+{
+	mIObj    = aInstallObj;
+	mCommand = aCommand;
+	mFlags   = 0;
+	mSrc     = new nsFileSpec(aSrc);
+  mParams  = nsnull;
+	mTarget  = new nsFileSpec(aTarget);
+
+  *aReturn = NS_OK;
+}
+
+nsInstallFileOpItem::nsInstallFileOpItem(nsInstall*     aInstallObj,
+                                         PRInt32        aCommand,
+                                         nsFileSpec&    aTarget,
+                                         PRInt32*       aReturn)
+:nsInstallObject(aInstallObj)
+{
+	mIObj    = aInstallObj;
+	mCommand = aCommand;
+	mFlags   = 0;
+	mSrc     = nsnull;
+  mParams  = nsnull;
+	mTarget  = new nsFileSpec(aTarget);
+
+  *aReturn = NS_OK;
+}
+
+nsInstallFileOpItem::nsInstallFileOpItem(nsInstall*     aInstallObj,
+                                         PRInt32        aCommand,
+                                         nsFileSpec&    aTarget,
+                                         nsString&      aParams,
+                                         PRInt32*       aReturn)
+:nsInstallObject(aInstallObj)
+{
+	mIObj    = aInstallObj;
+	mCommand = aCommand;
+	mFlags   = 0;
+	mSrc     = nsnull;
+  mParams  = new nsString(aParams);
+	mTarget  = new nsFileSpec(aTarget);
+
+  *aReturn = NS_OK;
+}
+
+nsInstallFileOpItem::~nsInstallFileOpItem()
+{
+  if(mSrc)
+    delete mSrc;
+  if(mTarget)
+    delete mTarget;
+}
+
+PRInt32 nsInstallFileOpItem::Complete()
+{
+  PRInt32 aReturn = NS_OK;
+
+  switch(mCommand)
+  {
+    case NS_FOP_DIR_CREATE:
+      NativeFileOpDirCreate(mTarget);
+      break;
+    case NS_FOP_DIR_REMOVE:
+      NativeFileOpDirRemove(mTarget, mFlags);
+      break;
+    case NS_FOP_DIR_RENAME:
+      NativeFileOpDirRename(mSrc, mTarget);
+      break;
+    case NS_FOP_FILE_COPY:
+      NativeFileOpFileCopy(mSrc, mTarget);
+      break;
+    case NS_FOP_FILE_DELETE:
+      NativeFileOpFileDelete(mTarget, mFlags);
+      break;
+    case NS_FOP_FILE_EXECUTE:
+      NativeFileOpFileExecute(mTarget, mParams);
+      break;
+    case NS_FOP_FILE_MOVE:
+      NativeFileOpFileMove(mSrc, mTarget);
+      break;
+    case NS_FOP_FILE_RENAME:
+      NativeFileOpFileRename(mSrc, mTarget);
+      break;
+    case NS_FOP_WIN_SHORTCUT_CREATE:
+      NativeFileOpWinShortcutCreate();
+      break;
+    case NS_FOP_MAC_ALIAS_CREATE:
+      NativeFileOpMacAliasCreate();
+      break;
+    case NS_FOP_UNIX_LINK_CREATE:
+      NativeFileOpUnixLinkCreate();
+      break;
+  }
+	return aReturn;
+}
+  
+float nsInstallFileOpItem::GetInstallOrder()
+{
+	return 3;
+}
+
+char* nsInstallFileOpItem::toString()
+{
+	nsString result;
+  char*    resultCString;
+
+  switch(mCommand)
+  {
+    case NS_FOP_FILE_COPY:
+      result = "Copy file: ";
+      result.Append(mSrc->GetNativePathCString());
+      result.Append(" to ");
+      result.Append(mTarget->GetNativePathCString());
+      resultCString = result.ToNewCString();
+      break;
+    case NS_FOP_FILE_DELETE:
+      result = "Delete file: ";
+      result.Append(mTarget->GetNativePathCString());
+      resultCString = result.ToNewCString();
+      break;
+    case NS_FOP_FILE_MOVE:
+      result = "Move file: ";
+      result.Append(mSrc->GetNativePathCString());
+      result.Append(" to ");
+      result.Append(mTarget->GetNativePathCString());
+      resultCString = result.ToNewCString();
+      break;
+    case NS_FOP_FILE_RENAME:
+      result = "Rename file: ";
+      result.Append(mTarget->GetNativePathCString());
+      resultCString = result.ToNewCString();
+      break;
+    case NS_FOP_DIR_CREATE:
+      result = "Create Folder: ";
+      result.Append(mTarget->GetNativePathCString());
+      resultCString = result.ToNewCString();
+      break;
+    case NS_FOP_DIR_REMOVE:
+      result = "Remove Folder: ";
+      result.Append(mTarget->GetNativePathCString());
+      resultCString = result.ToNewCString();
+      break;
+    case NS_FOP_WIN_SHORTCUT_CREATE:
+      break;
+    case NS_FOP_MAC_ALIAS_CREATE:
+      break;
+    case NS_FOP_UNIX_LINK_CREATE:
+      break;
+    case NS_FOP_FILE_SET_STAT:
+      result = "Set file stat: ";
+      result.Append(mTarget->GetNativePathCString());
+      resultCString = result.ToNewCString();
+      break;
+    default:
+      result = "Unkown file operation command!";
+      resultCString = result.ToNewCString();
+      break;
+  }
+  return resultCString;
+}
+
+PRInt32 nsInstallFileOpItem::Prepare()
+{
+	return NULL;
+}
+
+void nsInstallFileOpItem::Abort()
+{
+}
+
+/* Private Methods */
+
+/* CanUninstall
+* InstallFileOpItem() does not install any files which can be uninstalled,
+* hence this function returns false. 
+*/
+PRBool
+nsInstallFileOpItem::CanUninstall()
+{
+    return FALSE;
+}
+
+/* RegisterPackageNode
+* InstallFileOpItem() does notinstall files which need to be registered,
+* hence this function returns false.
+*/
+PRBool
+nsInstallFileOpItem::RegisterPackageNode()
+{
+    return FALSE;
+}
+
+//
+// File operation functions begin here
+//
+PRInt32
+nsInstallFileOpItem::NativeFileOpDirCreate(nsFileSpec* aTarget)
+{
+  aTarget->CreateDirectory();
+  return NS_OK;
+}
+
+PRInt32
+nsInstallFileOpItem::NativeFileOpDirRemove(nsFileSpec* aTarget, PRInt32 aFlags)
+{
+  aTarget->Delete(aFlags);
+  return NS_OK;
+}
+
+PRInt32
+nsInstallFileOpItem::NativeFileOpDirRename(nsFileSpec* aSrc, nsFileSpec* aTarget)
+{
+  aSrc->Rename(*aTarget);
+  return NS_OK;
+}
+
+PRInt32
+nsInstallFileOpItem::NativeFileOpFileCopy(nsFileSpec* aSrc, nsFileSpec* aTarget)
+{
+  aSrc->Copy(*aTarget);
+  return NS_OK;
+}
+
+PRInt32
+nsInstallFileOpItem::NativeFileOpFileDelete(nsFileSpec* aTarget, PRInt32 aFlags)
+{
+  aTarget->Delete(aFlags);
+  return NS_OK;
+}
+
+PRInt32
+nsInstallFileOpItem::NativeFileOpFileExecute(nsFileSpec* aTarget, nsString* aParams)
+{
+  aTarget->Execute(*aParams);
+  return NS_OK;
+}
+
+PRInt32
+nsInstallFileOpItem::NativeFileOpFileMove(nsFileSpec* aSrc, nsFileSpec* aTarget)
+{
+  aSrc->Move(*aTarget);
+  return NS_OK;
+}
+
+PRInt32
+nsInstallFileOpItem::NativeFileOpFileRename(nsFileSpec* aSrc, nsFileSpec* aTarget)
+{
+  aSrc->Rename(*aTarget);
+  return NS_OK;
+}
+
+PRInt32
+nsInstallFileOpItem::NativeFileOpWinShortcutCreate()
+{
+  return NS_OK;
+}
+
+PRInt32
+nsInstallFileOpItem::NativeFileOpMacAliasCreate()
+{
+  return NS_OK;
+}
+
+PRInt32
+nsInstallFileOpItem::NativeFileOpUnixLinkCreate()
+{
+  return NS_OK;
+}
+

mozilla/xpinstall/src/nsInstallFileOpItem.h

@@ -0,0 +1,111 @@
+/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 2 -*- */
+/*
+ * The contents of this file are subject to the Netscape Public License
+ * Version 1.0 (the "NPL"); you may not use this file except in
+ * compliance with the NPL.  You may obtain a copy of the NPL at
+ * http://www.mozilla.org/NPL/
+ *
+ * Software distributed under the NPL is distributed on an "AS IS" basis,
+ * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the NPL
+ * for the specific language governing rights and limitations under the
+ * NPL.
+ *
+ * The Initial Developer of this code under the NPL is Netscape
+ * Communications Corporation.  Portions created by Netscape are
+ * Copyright (C) 1998 Netscape Communications Corporation.  All Rights
+ * Reserved.
+ */
+
+#ifndef nsInstallFileOpItem_h__
+#define nsInstallFileOpItem_h__
+
+#include "prtypes.h"
+
+#include "nsFileSpec.h"
+#include "nsSoftwareUpdate.h"
+#include "nsInstallObject.h"
+#include "nsInstall.h"
+
+class nsInstallFileOpItem : public nsInstallObject
+{
+  public:
+    /* Public Fields */
+
+    /* Public Methods */
+    // used by:
+    //   FileOpFileDelete()
+    nsInstallFileOpItem(nsInstall*    installObj,
+                        PRInt32       aCommand,
+                        nsFileSpec&   aTarget,
+                        PRInt32       aFlags,
+                        PRInt32*      aReturn);
+
+    // used by:
+    //   FileOpDirRemove()
+    //   FileOpDirRename()
+    //   FileOpFileCopy()
+    //   FileOpFileMove()
+    //   FileOpFileRename()
+    nsInstallFileOpItem(nsInstall*    installObj,
+                        PRInt32       aCommand,
+                        nsFileSpec&   aSrc,
+                        nsFileSpec&   aTarget,
+                        PRInt32*      aReturn);
+
+    // used by:
+    //   FileOpDirCreate()
+    nsInstallFileOpItem(nsInstall*    aInstallObj,
+                        PRInt32       aCommand,
+                        nsFileSpec&   aTarget,
+                        PRInt32*      aReturn);
+
+    // used by:
+    //   FileOpFileExecute()
+    nsInstallFileOpItem(nsInstall*    aInstallObj,
+                        PRInt32       aCommand,
+                        nsFileSpec&   aTarget,
+                        nsString&     aParams,
+                        PRInt32*      aReturn);
+
+    ~nsInstallFileOpItem();
+
+    PRInt32       Prepare(void);
+    PRInt32       Complete();
+    char*         toString();
+    void          Abort();
+    float         GetInstallOrder();
+    
+  /* should these be protected? */
+    PRBool        CanUninstall();
+    PRBool        RegisterPackageNode();
+      
+  private:
+    
+    /* Private Fields */
+    
+    nsInstall*    mIObj;        // initiating Install object
+    nsFileSpec*   mSrc;
+    nsFileSpec*   mTarget;
+    nsString*     mParams;
+    long          mFStat;
+    PRInt32       mFlags;
+    PRInt32       mCommand;
+    
+    /* Private Methods */
+
+    PRInt32       NativeFileOpDirCreate(nsFileSpec* aTarget);
+    PRInt32       NativeFileOpDirRemove(nsFileSpec* aTarget, PRInt32 aFlags);
+    PRInt32       NativeFileOpDirRename(nsFileSpec* aSrc, nsFileSpec* aTarget);
+    PRInt32       NativeFileOpFileCopy(nsFileSpec* aSrc, nsFileSpec* aTarget);
+    PRInt32       NativeFileOpFileDelete(nsFileSpec* aTarget, PRInt32 aFlags);
+    PRInt32       NativeFileOpFileExecute(nsFileSpec* aTarget, nsString* aParams);
+    PRInt32       NativeFileOpFileMove(nsFileSpec* aSrc, nsFileSpec* aTarget);
+    PRInt32       NativeFileOpFileRename(nsFileSpec* aSrc, nsFileSpec* aTarget);
+    PRInt32       NativeFileOpWinShortcutCreate();
+    PRInt32       NativeFileOpMacAliasCreate();
+    PRInt32       NativeFileOpUnixLinkCreate();
+
+};
+
+#endif /* nsInstallFileOpItem_h__ */
+

mozilla/xpinstall/src/nsInstallFolder.cpp

@@ -0,0 +1,336 @@
+/* -*- Mode: C; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 2 -*- */
+/*
+ * 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 Mozilla Communicator client code, 
+ * released March 31, 1998. 
+ *
+ * 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.
+ *
+ * Contributors:
+ *     Daniel Veditz <dveditz@netscape.com>
+ *     Douglas Turner <dougt@netscape.com>
+ */
+
+#include "nsInstall.h"
+#include "nsInstallFolder.h"
+
+#include "nscore.h"
+#include "prtypes.h"
+#include "nsRepository.h"
+
+#include "nsString.h"
+#include "nsFileSpec.h"
+#include "nsSpecialSystemDirectory.h"
+
+#include "nsFileLocations.h"
+#include "nsIFileLocator.h"
+
+struct DirectoryTable
+{
+	char *  directoryName;			/* The formal directory name */
+	PRInt32 folderEnum;		        /* Directory ID */
+};
+
+struct DirectoryTable DirectoryTable[] = 
+{
+    {"Plugins",             100 },
+	{"Program",             101 },
+	{"Communicator",        102 },
+	{"User Pick",           103 },
+	{"Temporary",           104 },
+	{"Installed",           105 },
+	{"Current User",        106 },
+	{"Preferences",         107 },
+	{"OS Drive",            108 },
+	{"file:///",            109 },
+
+    {"Components",          110 },
+    {"Chrome",              111 },
+
+	{"Win System",          200 },
+	{"Windows",             201 },
+
+	{"Mac System",          300 },
+	{"Mac Desktop",         301 },
+	{"Mac Trash",           302 },
+	{"Mac Startup",         303 },
+	{"Mac Shutdown",        304 },
+	{"Mac Apple Menu",      305 },
+	{"Mac Control Panel",   306 },
+	{"Mac Extension",       307 },
+	{"Mac Fonts",           308 },
+	{"Mac Preferences",     309 },
+    {"Mac Documents",       310 },
+
+	{"Unix Local",          400 },
+	{"Unix Lib",            401 },
+
+	{"",                    -1  }
+};
+
+
+
+nsInstallFolder::nsInstallFolder(const nsString& aFolderID)
+{
+    mFileSpec = nsnull;
+    SetDirectoryPath( aFolderID, "");
+}
+
+nsInstallFolder::nsInstallFolder(const nsString& aFolderID, const nsString& aRelativePath)
+{
+    mFileSpec = nsnull;
+
+    /*
+        aFolderID can be either a Folder enum in which case we merely pass it to SetDirectoryPath, or
+        it can be a Directory.  If it is the later, it must already exist and of course be a directory
+        not a file.  
+    */
+    
+    nsFileSpec dirCheck(aFolderID);
+    if ( (dirCheck.Error() == NS_OK) && (dirCheck.IsDirectory()) && (dirCheck.Exists()))
+    {
+        nsString tempString = aFolderID;
+        tempString += aRelativePath;
+        mFileSpec = new nsFileSpec(tempString);
+
+        // make sure that the directory is created.
+        nsFileSpec(mFileSpec->GetCString(), PR_TRUE);
+    }
+    else
+    {
+        SetDirectoryPath( aFolderID, aRelativePath);
+    }
+}
+
+
+nsInstallFolder::~nsInstallFolder()
+{
+    if (mFileSpec != nsnull)
+        delete mFileSpec;
+}
+        
+void 
+nsInstallFolder::GetDirectoryPath(nsString& aDirectoryPath)
+{
+	aDirectoryPath = "";
+    
+    if (mFileSpec != nsnull)
+    {
+        // We want the a NATIVE path.
+       aDirectoryPath.SetString(mFileSpec->GetCString());
+    }
+}
+
+void
+nsInstallFolder::SetDirectoryPath(const nsString& aFolderID, const nsString& aRelativePath)
+{
+    if ( aFolderID.EqualsIgnoreCase("User Pick") )
+    {
+        PickDefaultDirectory();
+        return;
+    }
+    else if ( aFolderID.EqualsIgnoreCase("Installed") )
+    {   
+        mFileSpec = new nsFileSpec(aRelativePath, PR_TRUE);  // creates the directories to the relative path.
+        return;
+    }
+    else
+    {
+        PRInt32 folderDirSpecID = MapNameToEnum(aFolderID);
+        
+        switch (folderDirSpecID) 
+		{
+            case 100: ///////////////////////////////////////////////////////////  Plugins
+                SetAppShellDirectory(nsSpecialFileSpec::App_PluginsDirectory );
+                break; 
+
+            case 101: ///////////////////////////////////////////////////////////  Program
+                mFileSpec = new nsFileSpec( nsSpecialSystemDirectory( nsSpecialSystemDirectory::OS_CurrentProcessDirectory ));
+                break;
+            
+            case 102: ///////////////////////////////////////////////////////////  Communicator
+                mFileSpec = new nsFileSpec( nsSpecialSystemDirectory( nsSpecialSystemDirectory::OS_CurrentProcessDirectory ));
+                break;
+
+            case 103: ///////////////////////////////////////////////////////////  User Pick
+                // we should never be here.
+                mFileSpec = nsnull;
+                break;
+
+            case 104: ///////////////////////////////////////////////////////////  Temporary
+                mFileSpec = new nsFileSpec( nsSpecialSystemDirectory( nsSpecialSystemDirectory::OS_TemporaryDirectory ));
+                break;
+
+            case 105: ///////////////////////////////////////////////////////////  Installed
+                // we should never be here.
+                mFileSpec = nsnull;
+                break;
+
+            case 106: ///////////////////////////////////////////////////////////  Current User
+                SetAppShellDirectory(nsSpecialFileSpec::App_UserProfileDirectory50 );
+                break;
+
+            case 107: ///////////////////////////////////////////////////////////  Preferences
+                SetAppShellDirectory(nsSpecialFileSpec::App_PrefsDirectory50 );
+                break;
+
+            case 108: ///////////////////////////////////////////////////////////  OS Drive
+                mFileSpec = new nsFileSpec( nsSpecialSystemDirectory( nsSpecialSystemDirectory::OS_DriveDirectory ));
+                break;
+
+            case 109: ///////////////////////////////////////////////////////////  File URL
+                {
+                    nsString tempFileURLString = aFolderID;
+                    tempFileURLString += aRelativePath;
+                    mFileSpec = new nsFileSpec( nsFileURL(tempFileURLString) );
+                }
+                break;
+
+            case 110: ///////////////////////////////////////////////////////////  Components
+                SetAppShellDirectory(nsSpecialFileSpec::App_ComponentsDirectory );
+                break;
+            
+            case 111: ///////////////////////////////////////////////////////////  Chrome
+                SetAppShellDirectory(nsSpecialFileSpec::App_ChromeDirectory );
+                break;
+
+            case 200: ///////////////////////////////////////////////////////////  Win System
+                mFileSpec = new nsFileSpec( nsSpecialSystemDirectory( nsSpecialSystemDirectory::Win_SystemDirectory ));
+                break;
+
+            case 201: ///////////////////////////////////////////////////////////  Windows
+                mFileSpec = new nsFileSpec( nsSpecialSystemDirectory( nsSpecialSystemDirectory::Win_WindowsDirectory ));
+                break;
+
+            case 300: ///////////////////////////////////////////////////////////  Mac System
+                mFileSpec = new nsFileSpec( nsSpecialSystemDirectory( nsSpecialSystemDirectory::Mac_SystemDirectory ));
+                break;
+
+            case 301: ///////////////////////////////////////////////////////////  Mac Desktop
+                mFileSpec = new nsFileSpec( nsSpecialSystemDirectory( nsSpecialSystemDirectory::Mac_DesktopDirectory ));
+                break;
+
+            case 302: ///////////////////////////////////////////////////////////  Mac Trash
+                mFileSpec = new nsFileSpec( nsSpecialSystemDirectory( nsSpecialSystemDirectory::Mac_TrashDirectory ));
+                break;
+
+            case 303: ///////////////////////////////////////////////////////////  Mac Startup
+                mFileSpec = new nsFileSpec( nsSpecialSystemDirectory( nsSpecialSystemDirectory::Mac_StartupDirectory ));
+                break;
+
+            case 304: ///////////////////////////////////////////////////////////  Mac Shutdown
+                mFileSpec = new nsFileSpec( nsSpecialSystemDirectory( nsSpecialSystemDirectory::Mac_StartupDirectory ));
+                break;
+
+            case 305: ///////////////////////////////////////////////////////////  Mac Apple Menu
+                mFileSpec = new nsFileSpec( nsSpecialSystemDirectory( nsSpecialSystemDirectory::Mac_AppleMenuDirectory ));
+                break;
+
+            case 306: ///////////////////////////////////////////////////////////  Mac Control Panel
+                mFileSpec = new nsFileSpec( nsSpecialSystemDirectory( nsSpecialSystemDirectory::Mac_ControlPanelDirectory ));
+                break;
+
+            case 307: ///////////////////////////////////////////////////////////  Mac Extension
+                mFileSpec = new nsFileSpec( nsSpecialSystemDirectory( nsSpecialSystemDirectory::Mac_ExtensionDirectory ));
+                break;
+
+            case 308: ///////////////////////////////////////////////////////////  Mac Fonts
+                mFileSpec = new nsFileSpec( nsSpecialSystemDirectory( nsSpecialSystemDirectory::Mac_FontsDirectory ));
+                break;
+
+            case 309: ///////////////////////////////////////////////////////////  Mac Preferences
+                mFileSpec = new nsFileSpec( nsSpecialSystemDirectory( nsSpecialSystemDirectory::Mac_PreferencesDirectory ));
+                break;
+                    
+            case 310: ///////////////////////////////////////////////////////////  Mac Documents
+                mFileSpec = new nsFileSpec( nsSpecialSystemDirectory( nsSpecialSystemDirectory::Mac_DocumentsDirectory ));
+                break;
+                    
+            case 400: ///////////////////////////////////////////////////////////  Unix Local
+                mFileSpec = new nsFileSpec( nsSpecialSystemDirectory( nsSpecialSystemDirectory::Unix_LocalDirectory ));
+                break;
+
+            case 401: ///////////////////////////////////////////////////////////  Unix Lib
+                mFileSpec = new nsFileSpec( nsSpecialSystemDirectory( nsSpecialSystemDirectory::Unix_LibDirectory ));
+                break;
+
+
+            case -1:
+		    default:
+                mFileSpec = nsnull;
+			   return;
+		}
+#ifndef XP_MAC
+        if (aRelativePath.Length() > 0)
+        {
+            nsString tempPath(aRelativePath);
+
+            if (aRelativePath.Last() != '/' || aRelativePath.Last() != '\\')
+                tempPath += '/';
+
+            *mFileSpec += tempPath;
+        }
+#endif
+            // make sure that the directory is created.
+        nsFileSpec(mFileSpec->GetCString(), PR_TRUE);
+    }
+}
+
+void nsInstallFolder::PickDefaultDirectory()
+{
+    //FIX:  Need to put up a dialog here and set mFileSpec
+    return;   
+}
+
+/* MapNameToEnum
+ * maps name from the directory table to its enum */
+PRInt32 
+nsInstallFolder::MapNameToEnum(const nsString& name)
+{
+	int i = 0;
+
+	if ( name == "null")
+        return -1;
+
+	while ( DirectoryTable[i].directoryName[0] != 0 )
+	{
+		if ( name.EqualsIgnoreCase(DirectoryTable[i].directoryName) )
+			return DirectoryTable[i].folderEnum;
+		i++;
+	}
+	return -1;
+}
+
+
+static NS_DEFINE_IID(kFileLocatorIID, NS_IFILELOCATOR_IID);
+static NS_DEFINE_IID(kFileLocatorCID, NS_FILELOCATOR_CID);
+
+void
+nsInstallFolder::SetAppShellDirectory(PRUint32 value)
+{
+    nsIFileLocator * appShellLocator;
+    
+    nsresult rv = nsComponentManager::CreateInstance(kFileLocatorCID, 
+                                                     nsnull,
+                                                     kFileLocatorIID,
+                                                     (void**) &appShellLocator);
+
+    if ( NS_SUCCEEDED(rv) )
+    {
+        mFileSpec = new nsFileSpec();
+        appShellLocator->GetFileLocation(value, mFileSpec);
+        NS_RELEASE(appShellLocator);
+    }
+}

mozilla/xpinstall/src/nsInstallFolder.h

@@ -0,0 +1,58 @@
+/* -*- Mode: C; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 2 -*- */
+/*
+ * 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 Mozilla Communicator client code, 
+ * released March 31, 1998. 
+ *
+ * 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.
+ *
+ * Contributors:
+ *     Daniel Veditz <dveditz@netscape.com>
+ *     Douglas Turner <dougt@netscape.com>
+ */
+
+
+#ifndef __NS_INSTALLFOLDER_H__
+#define __NS_INSTALLFOLDER_H__
+
+#include "nscore.h"
+#include "prtypes.h"
+
+#include "nsString.h"
+#include "nsFileSpec.h"
+#include "nsSpecialSystemDirectory.h"
+
+class nsInstallFolder
+{
+    public:
+        
+       nsInstallFolder(const nsString& aFolderID);
+       nsInstallFolder(const nsString& aFolderID, const nsString& aRelativePath);
+       virtual ~nsInstallFolder();
+
+       void GetDirectoryPath(nsString& aDirectoryPath);
+       
+    private:
+        
+        nsFileSpec*  mFileSpec;
+
+		void         SetDirectoryPath(const nsString& aFolderID, const nsString& aRelativePath);
+        void         PickDefaultDirectory();
+        PRInt32      MapNameToEnum(const nsString&  name);
+        void         SetAppShellDirectory(PRUint32 value);
+};
+
+
+#endif

mozilla/xpinstall/src/nsInstallObject.h

@@ -0,0 +1,52 @@
+/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 2 -*- */
+/*
+ * The contents of this file are subject to the Netscape Public License
+ * Version 1.0 (the "NPL"); you may not use this file except in
+ * compliance with the NPL.  You may obtain a copy of the NPL at
+ * http://www.mozilla.org/NPL/
+ *
+ * Software distributed under the NPL is distributed on an "AS IS" basis,
+ * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the NPL
+ * for the specific language governing rights and limitations under the
+ * NPL.
+ *
+ * The Initial Developer of this code under the NPL is Netscape
+ * Communications Corporation.  Portions created by Netscape are
+ * Copyright (C) 1998 Netscape Communications Corporation.  All Rights
+ * Reserved.
+ */
+
+#ifndef nsInstallObject_h__
+#define nsInstallObject_h__
+
+#include "prtypes.h"
+
+class nsInstall;
+
+class nsInstallObject 
+{
+    public:
+        /* Public Methods */
+        nsInstallObject(nsInstall* inInstall) {mInstall = inInstall; }
+
+        /* Override with your set-up action */
+        virtual PRInt32 Prepare() = 0;
+
+        /* Override with your Completion action */
+        virtual PRInt32 Complete() = 0;
+
+        /* Override with an explanatory string for the progress dialog */
+        virtual char* toString() = 0;
+
+        /* Override with your clean-up function */
+        virtual void Abort() = 0;
+
+        /* should these be protected? */
+        virtual PRBool CanUninstall() = 0;
+        virtual PRBool RegisterPackageNode() = 0;
+
+    protected:
+        nsInstall* mInstall;
+};
+
+#endif /* nsInstallObject_h__ */

mozilla/xpinstall/src/nsInstallPatch.cpp

@@ -0,0 +1,986 @@
+/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 2 -*- */
+/*
+ * The contents of this file are subject to the Netscape Public License
+ * Version 1.0 (the "NPL"); you may not use this file except in
+ * compliance with the NPL.  You may obtain a copy of the NPL at
+ * http://www.mozilla.org/NPL/
+ *
+ * Software distributed under the NPL is distributed on an "AS IS" basis,
+ * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the NPL
+ * for the specific language governing rights and limitations under the
+ * NPL.
+ *
+ * The Initial Developer of this code under the NPL is Netscape
+ * Communications Corporation.  Portions created by Netscape are
+ * Copyright (C) 1998 Netscape Communications Corporation.  All Rights
+ * Reserved.
+ */
+
+#include "nsFileSpec.h"
+#include "prmem.h"
+#include "nsInstall.h"
+#include "nsInstallPatch.h"
+#include "nsInstallResources.h"
+#include "nsIDOMInstallVersion.h"
+#include "zlib.h"
+
+#include "gdiff.h"
+
+#include "VerReg.h"
+#include "ScheduledTasks.h"
+#include "plstr.h"
+#include "xp_file.h" /* for XP_PlatformFileToURL */
+
+
+#ifdef XP_MAC
+#include "PatchableAppleSingle.h"
+#endif
+
+#define BUFSIZE     32768
+#define OPSIZE      1
+#define MAXCMDSIZE  12
+#define SRCFILE     0
+#define OUTFILE     1
+
+#define getshort(s) (uint16)( ((uchar)*(s) << 8) + ((uchar)*((s)+1)) )
+
+#define getlong(s)  \
+            (uint32)( ((uchar)*(s) << 24) + ((uchar)*((s)+1) << 16 ) + \
+                      ((uchar)*((s)+2) << 8) + ((uchar)*((s)+3)) )
+
+
+
+static int32   gdiff_parseHeader( pDIFFDATA dd );
+static int32   gdiff_validateFile( pDIFFDATA dd, int file );
+static int32   gdiff_valCRC32( pDIFFDATA dd, PRFileDesc* fh, uint32 chksum );
+static int32   gdiff_ApplyPatch( pDIFFDATA dd );
+static int32   gdiff_getdiff( pDIFFDATA dd, uchar *buffer, uint32 length );
+static int32   gdiff_add( pDIFFDATA dd, uint32 count );
+static int32   gdiff_copy( pDIFFDATA dd, uint32 position, uint32 count );
+static int32   gdiff_validateFile( pDIFFDATA dd, int file );
+
+
+nsInstallPatch::nsInstallPatch( nsInstall* inInstall,
+                                const nsString& inVRName,
+                                const nsString& inVInfo,
+                                const nsString& inJarLocation,
+                                PRInt32 *error)
+
+: nsInstallObject(inInstall)
+{
+    char tempTargetFile[MAXREGPATHLEN];
+    char* tempVersionString = inVRName.ToNewCString();
+
+    PRInt32 err = VR_GetPath(tempVersionString, MAXREGPATHLEN, tempTargetFile );
+    
+    delete [] tempVersionString;
+    
+    if (err != REGERR_OK)
+    {
+        *error = nsInstall::NO_SUCH_COMPONENT;
+        return;
+    }
+	nsString folderSpec(tempTargetFile);
+
+    mPatchFile      =   nsnull;
+    mTargetFile     =   nsnull;
+    mPatchedFile    =   nsnull;
+    mRegistryName   =   new nsString(inVRName);
+    mJarLocation    =   new nsString(inJarLocation);
+    mTargetFile     =   new nsFileSpec(folderSpec);
+    
+    mVersionInfo    =   new nsInstallVersion();
+    
+    mVersionInfo->Init(inVInfo);
+    
+}
+
+
+nsInstallPatch::nsInstallPatch( nsInstall* inInstall,
+                                const nsString& inVRName,
+                                const nsString& inVInfo,
+                                const nsString& inJarLocation,
+                                const nsString& folderSpec,
+                                const nsString& inPartialPath,
+                                PRInt32 *error)
+
+: nsInstallObject(inInstall)
+{
+    if ((inInstall == nsnull) || (inVRName == "null") || (inJarLocation == "null")) 
+    {
+        *error = nsInstall::INVALID_ARGUMENTS;
+        return;
+    }
+    
+    mPatchFile      =   nsnull;
+    mTargetFile     =   nsnull;
+    mPatchedFile    =   nsnull;
+    mRegistryName   =   new nsString(inVRName);
+    mJarLocation    =   new nsString(inJarLocation);
+    mVersionInfo    =   new nsInstallVersion();
+    
+    mVersionInfo->Init(inVInfo);
+    
+    mTargetFile = new nsFileSpec(folderSpec);
+    if(inPartialPath != "null")
+        *mTargetFile += inPartialPath;
+}
+
+nsInstallPatch::~nsInstallPatch()
+{
+    if (mVersionInfo)
+        delete mVersionInfo;
+
+    if (mTargetFile)
+        delete mTargetFile;
+
+    if (mJarLocation)
+        delete mJarLocation;
+    
+    if (mRegistryName)
+        delete mRegistryName;
+
+    if (mPatchedFile)
+        delete mPatchedFile;
+    
+    if (mPatchFile)
+        delete mPatchFile;
+
+}
+
+
+PRInt32 nsInstallPatch::Prepare()
+{
+    PRInt32 err;
+    PRBool deleteOldSrc;
+    
+    if (mTargetFile == nsnull)
+        return  nsInstall::INVALID_ARGUMENTS;
+
+    if (mTargetFile->Exists())
+    {
+        if (mTargetFile->IsFile())
+        {
+            err = nsInstall::SUCCESS;
+        }
+        else
+        {
+            err = nsInstall::FILE_IS_DIRECTORY;
+        }
+    }
+    else
+    {
+        err = nsInstall::FILE_DOES_NOT_EXIST;
+    }
+
+    if (err != nsInstall::SUCCESS)
+    {   
+        return err;
+    }
+
+    err =  mInstall->ExtractFileFromJar(*mJarLocation, mTargetFile, &mPatchFile);
+   
+    
+    nsFileSpec *fileName = nsnull;
+    nsVoidKey ikey( HashFilePath( nsFilePath(*mTargetFile) ) );
+    
+    mInstall->GetPatch(&ikey, fileName);
+
+    if (fileName != nsnull) 
+    {
+        deleteOldSrc = PR_TRUE;
+    } 
+    else 
+    {
+        fileName     = mTargetFile;
+        deleteOldSrc = PR_FALSE;
+    }
+
+    err = NativePatch(  *fileName,           // the file to patch
+                        *mPatchFile,         // the patch that was extracted from the jarfile
+                        &mPatchedFile);     // the new patched file
+    
+    if (err != nsInstall::SUCCESS)
+    {   
+        return err;
+    }
+
+    PR_ASSERT(mPatchedFile != nsnull);
+	mInstall->AddPatch(&ikey, mPatchedFile );
+	
+    if ( deleteOldSrc ) 
+    {
+		DeleteFileNowOrSchedule(*fileName );
+    }
+  
+    return err;
+}
+
+PRInt32 nsInstallPatch::Complete()
+{  
+    if ((mInstall == nsnull) || (mVersionInfo == nsnull) || (mPatchedFile == nsnull) || (mTargetFile == nsnull)) 
+    {
+        return nsInstall::INVALID_ARGUMENTS;
+    }
+    
+    PRInt32 err = nsInstall::SUCCESS;
+
+    nsFileSpec *fileName = nsnull;
+    nsVoidKey ikey( HashFilePath( nsFilePath(*mTargetFile) )  );
+    
+    mInstall->GetPatch(&ikey, fileName);
+    
+    if (fileName != nsnull && (*fileName == *mPatchedFile) )
+    {
+        // the patch has not been superceded--do final replacement
+		err = ReplaceFileNowOrSchedule( *mTargetFile, *mPatchedFile);
+        if ( 0 == err || nsInstall::REBOOT_NEEDED == err ) 
+        {
+            nsString tempVersionString;
+            mVersionInfo->ToString(tempVersionString);
+            
+            char* tempRegName = mRegistryName->ToNewCString();
+            char* tempVersion = tempVersionString.ToNewCString();
+
+            err = VR_Install( tempRegName, 
+							  (char*) (const char *) nsNSPRPath(*mTargetFile),
+                              tempVersion, 
+                              PR_FALSE );
+            
+            delete [] tempRegName;
+            delete [] tempVersion;
+
+        }
+        else
+        {
+            err = nsInstall::UNEXPECTED_ERROR;
+        }
+    }
+    else
+    {
+        // nothing -- old intermediate patched file was
+        // deleted by a superceding patch
+    }
+
+    return err;
+}
+
+void nsInstallPatch::Abort()
+{
+    nsFileSpec *fileName = nsnull;
+    nsVoidKey ikey( HashFilePath( nsFilePath(*mTargetFile) ) );
+
+    mInstall->GetPatch(&ikey, fileName);
+
+    if (fileName != nsnull && (*fileName == *mPatchedFile) )
+    {
+        DeleteFileNowOrSchedule( *mPatchedFile );
+    }
+}
+
+char* nsInstallPatch::toString()
+{
+	char* buffer = new char[1024];
+
+	// FIX!  sprintf( buffer, nsInstallResources::GetPatchFileString(), mPatchedFile->GetCString());
+
+	return buffer;
+}
+
+
+PRBool
+nsInstallPatch::CanUninstall()
+{
+    return PR_FALSE;
+}
+
+PRBool
+nsInstallPatch::RegisterPackageNode()
+{
+    return PR_FALSE;
+}
+
+
+PRInt32
+nsInstallPatch::NativePatch(const nsFileSpec &sourceFile, const nsFileSpec &patchFile, nsFileSpec **newFile)
+{
+
+	DIFFDATA	*dd;
+	PRInt32		status		= GDIFF_ERR_MEM;
+	char 		*tmpurl		= NULL;
+	char 		*realfile	= PL_strdup(nsNSPRPath(sourceFile)); // needs to be sourceFile!!!
+	nsFileSpec  outFileSpec = sourceFile;
+
+	dd = (DIFFDATA *)PR_Calloc( 1, sizeof(DIFFDATA));
+	if (dd != NULL)
+	{
+		dd->databuf = (uchar*)PR_Malloc(BUFSIZE);
+		if (dd->databuf == NULL) 
+		{
+			status = GDIFF_ERR_MEM;
+			goto cleanup;
+		}
+
+
+		dd->bufsize = BUFSIZE;
+
+		// validate patch header & check for special instructions
+		dd->fDiff = PR_Open (nsNSPRPath(patchFile), PR_RDONLY, 0666);
+
+
+		if (dd->fDiff != NULL)
+		{
+			status = gdiff_parseHeader(dd);
+		} else {
+			status = GDIFF_ERR_ACCESS;
+		}
+
+#ifdef dono
+#ifdef WIN32
+
+        /* unbind Win32 images */
+        if ( dd->bWin32BoundImage && status == GDIFF_OK ) {
+            tmpurl = WH_TempName( xpURL, NULL );
+            if ( tmpurl != NULL ) {
+                if (su_unbind( srcfile, srctype, tmpurl, xpURL ))  	
+				{
+                    PL_strfree(realfile);
+					realfile = tmpurl;
+                    realtype = xpURL;
+                    
+                }
+            }
+            else
+                status = GDIFF_ERR_MEM;
+        }
+#endif
+#endif
+
+#ifdef XP_MAC
+
+		if ( dd->bMacAppleSingle && status == GDIFF_OK ) 
+		{
+           // create a tmp file, so that we can AppleSingle the src file
+           nsSpecialSystemDirectory tempMacFile(nsSpecialSystemDirectory::OS_TemporaryDirectory);
+           nsString srcName = sourceFile.GetLeafName();
+           tempMacFile.SetLeafName(srcName);
+           tempMacFile.MakeUnique();
+           
+           // Encode! 
+		   // Encode src file, and put into temp file
+		   FSSpec sourceSpec = sourceFile.GetFSSpec();
+		   FSSpec tempSpec   = tempMacFile.GetFSSpec();
+		    
+			status = PAS_EncodeFile(&sourceSpec, &tempSpec);   
+				
+			if (status == noErr)
+			{
+				// set
+                PL_strfree(realfile);
+				realfile = PL_strdup(nsNSPRPath(tempMacFile));
+			}
+		}
+#endif 
+
+
+
+		if (status != NS_OK)
+			goto cleanup;
+
+		// make a unique file at the same location of our source file  (FILENAME-ptch.EXT)
+        nsString patchFileName = "-ptch";
+		nsString newFileName = sourceFile.GetLeafName();
+
+        PRInt32 index;
+		if ((index = newFileName.RFind(".")) > 0)
+		{
+            nsString extention;
+            nsString fileName;
+            newFileName.Right(extention, (newFileName.Length() - index) );        
+            newFileName.Left(fileName, (newFileName.Length() - (newFileName.Length() - index)));
+            newFileName = fileName + patchFileName + extention;
+
+        } else {
+            newFileName += patchFileName;
+        }
+        
+
+		outFileSpec.SetLeafName(newFileName); //????
+		outFileSpec.MakeUnique();
+
+        char *outFile = PL_strdup(nsNSPRPath(outFileSpec));
+
+		// apply patch to the source file
+		dd->fSrc = PR_Open ( realfile, PR_RDONLY, 0666);
+		dd->fOut = PR_Open ( outFile, PR_RDWR|PR_CREATE_FILE|PR_TRUNCATE, 0666);
+
+		if (dd->fSrc != NULL && dd->fOut != NULL)
+		{
+			status = gdiff_validateFile (dd, SRCFILE);
+
+			// specify why diff failed
+			if (status == GDIFF_ERR_CHECKSUM)
+				status = GDIFF_ERR_CHECKSUM_TARGET;
+
+			if (status == GDIFF_OK)
+				status = gdiff_ApplyPatch(dd);
+
+			if (status == GDIFF_OK)
+				status = gdiff_validateFile (dd, OUTFILE);
+
+			if (status == GDIFF_ERR_CHECKSUM)
+				status = GDIFF_ERR_CHECKSUM_RESULT;
+
+            if (status == GDIFF_OK)
+            {
+                *newFile = &outFileSpec;
+                if ( outFile != nsnull)
+                    PL_strfree( outFile );
+            }
+
+		} else {
+
+			status = GDIFF_ERR_ACCESS;
+		}		
+	}
+
+
+
+#ifdef XP_MAC
+	if ( dd->bMacAppleSingle && status == GDIFF_OK ) 
+	{
+        // create another file, so that we can decode somewhere
+        nsFileSpec anotherName = outFileSpec;
+        anotherName.MakeUnique();
+        
+		// Close the out file so that we can read it 		
+		PR_Close( dd->fOut );
+		dd->fOut = NULL;
+		
+		
+		FSSpec outSpec = outFileSpec.GetFSSpec();
+		FSSpec anotherSpec   = anotherName.GetFSSpec();
+		
+			
+        status =  PAS_DecodeFile(&outSpec, &anotherSpec);
+		if (status != noErr)
+		{
+		   	goto cleanup;
+        }
+		
+        nsFileSpec parent;
+        
+        outFileSpec.GetParent(parent);
+        
+        outFileSpec.Delete(PR_FALSE);
+        anotherName.Copy(parent);
+        
+        *newFile = &anotherName;
+	}
+	
+#endif 
+
+
+cleanup:
+    if ( dd != NULL ) 
+    {
+        if ( dd->fSrc != nsnull )
+            PR_Close( dd->fSrc );
+
+
+        if ( dd->fDiff != nsnull )
+            PR_Close( dd->fDiff );
+		
+		if ( dd->fOut != nsnull )
+        {
+            PR_Close( dd->fOut );
+        }
+        
+        if ( status != GDIFF_OK )
+		   	//XP_FileRemove( outfile, outtype );
+			newFile = NULL;
+		        
+		PR_FREEIF( dd->databuf );
+        PR_FREEIF( dd->oldChecksum );
+        PR_FREEIF( dd->newChecksum );
+        PR_DELETE(dd);
+    }
+
+	if ( tmpurl != NULL ) {
+        //XP_FileRemove( tmpurl, xpURL );
+		tmpurl = NULL;
+        PR_DELETE( tmpurl );
+    }
+    
+	/* lets map any GDIFF error to nice SU errors */
+
+	switch (status)
+	{
+        case GDIFF_OK:
+                break;
+		case GDIFF_ERR_HEADER:
+		case GDIFF_ERR_BADDIFF:
+		case GDIFF_ERR_OPCODE:
+		case GDIFF_ERR_CHKSUMTYPE:
+				status = nsInstall::PATCH_BAD_DIFF;
+				break;
+		case GDIFF_ERR_CHECKSUM_TARGET:
+				status = nsInstall::PATCH_BAD_CHECKSUM_TARGET;
+				break;
+		case GDIFF_ERR_CHECKSUM_RESULT:
+				status = nsInstall::PATCH_BAD_CHECKSUM_RESULT;
+				break;
+		case GDIFF_ERR_OLDFILE:
+		case GDIFF_ERR_ACCESS:
+		case GDIFF_ERR_MEM:
+		case GDIFF_ERR_UNKNOWN:
+		default:
+				status = nsInstall::UNEXPECTED_ERROR;
+				break;
+	}
+
+    return status;
+
+	// return -1;	//old return value
+}
+
+
+void* 
+nsInstallPatch::HashFilePath(const nsFilePath& aPath)
+{
+    PRUint32 rv = 0;
+
+	char* cPath = PL_strdup(nsNSPRPath(aPath));
+    
+    if(cPath != nsnull) 
+    {
+        char  ch;
+        char* filePath = PL_strdup(cPath);
+        PRUint32 cnt=0;
+
+        while ((ch = *filePath++) != 0) 
+        {
+            // FYI: rv = rv*37 + ch
+            rv = ((rv << 5) + (rv << 2) + rv) + ch;
+            cnt++;
+        }
+        
+        for (PRUint32 i=0; i<=cnt; i++)
+            *filePath--;
+		PL_strfree(filePath);
+    }
+
+	PL_strfree(cPath);
+
+    return (void*)rv;
+}
+
+
+
+
+/*---------------------------------------------------------
+ *  gdiff_parseHeader()
+ *
+ *  reads and validates the GDIFF header info
+ *---------------------------------------------------------
+ */
+static
+int32 gdiff_parseHeader( pDIFFDATA dd )
+{
+    int32   err = GDIFF_OK;
+    uint8   cslen;
+    uint8   oldcslen;
+    uint8   newcslen;
+    uint32  nRead;
+    uchar   header[GDIFF_HEADERSIZE];
+
+    /* Read the fixed-size part of the header */
+
+	nRead = PR_Read (dd->fDiff, header, GDIFF_HEADERSIZE);
+    if ( nRead != GDIFF_HEADERSIZE ||
+         memcmp( header, GDIFF_MAGIC, GDIFF_MAGIC_LEN ) != 0  ||
+         header[GDIFF_VER_POS] != GDIFF_VER )
+    {
+        err = GDIFF_ERR_HEADER;
+    }
+    else
+    {
+        /* get the checksum information */
+
+        dd->checksumType = header[GDIFF_CS_POS];
+        cslen = header[GDIFF_CSLEN_POS];
+
+        if ( cslen > 0 )
+        {
+            oldcslen = cslen / 2;
+            newcslen = cslen - oldcslen;
+            PR_ASSERT( newcslen == oldcslen );
+
+            dd->checksumLength = oldcslen;
+            dd->oldChecksum = (uchar*)PR_MALLOC(oldcslen);
+            dd->newChecksum = (uchar*)PR_MALLOC(newcslen);
+
+            if ( dd->oldChecksum != NULL && dd->newChecksum != NULL )
+            {
+				nRead = PR_Read (dd->fDiff, dd->oldChecksum, oldcslen);
+                if ( nRead == oldcslen )
+                {
+					nRead = PR_Read (dd->fDiff, dd->newChecksum, newcslen);
+                    if ( nRead != newcslen ) {
+                        err = GDIFF_ERR_HEADER;
+                    }
+                }
+                else {
+                    err = GDIFF_ERR_HEADER;
+                }
+            }
+            else {
+                err = GDIFF_ERR_MEM;
+            }
+        }
+
+
+        /* get application data, if any */
+
+        if ( err == GDIFF_OK )
+        {
+            uint32  appdataSize;
+            uchar   *buf;
+            uchar   lenbuf[GDIFF_APPDATALEN];
+
+			nRead = PR_Read(dd->fDiff, lenbuf, GDIFF_APPDATALEN);
+            if ( nRead == GDIFF_APPDATALEN ) 
+            {
+                appdataSize = getlong(lenbuf);
+
+                if ( appdataSize > 0 ) 
+                {
+                    buf = (uchar *)PR_MALLOC( appdataSize );
+
+                    if ( buf != NULL )
+                    {
+						nRead = PR_Read (dd->fDiff, buf, appdataSize);
+                        if ( nRead == appdataSize ) 
+                        {
+                            if ( 0 == memcmp( buf, APPFLAG_W32BOUND, appdataSize ) )
+                                dd->bWin32BoundImage = TRUE;
+
+                            if ( 0 == memcmp( buf, APPFLAG_APPLESINGLE, appdataSize ) )
+                                dd->bMacAppleSingle = TRUE;
+                        }
+                        else {
+                            err = GDIFF_ERR_HEADER;
+                        }
+
+                        PR_DELETE( buf );
+                    }
+                    else {
+                        err = GDIFF_ERR_MEM;
+                    }
+                }
+            }
+            else {
+                err = GDIFF_ERR_HEADER;
+            }
+        }
+    }
+
+    return (err);
+}
+
+
+/*---------------------------------------------------------
+ *  gdiff_validateFile()
+ *
+ *  computes the checksum of the file and compares it to 
+ *  the value stored in the GDIFF header
+ *---------------------------------------------------------
+ */
+static 
+int32 gdiff_validateFile( pDIFFDATA dd, int file )
+{
+    int32		result;
+    PRFileDesc*	fh;
+    uchar*		chksum;
+
+    /* which file are we dealing with? */
+    if ( file == SRCFILE ) {
+        fh = dd->fSrc;
+        chksum = dd->oldChecksum;
+    }
+    else { /* OUTFILE */
+        fh = dd->fOut;
+        chksum = dd->newChecksum;
+    }
+
+    /* make sure file's at beginning */
+    PR_Seek( fh, 0, PR_SEEK_SET );
+
+    /* calculate appropriate checksum */
+    switch (dd->checksumType)
+    {
+        case GDIFF_CS_NONE:
+            result = GDIFF_OK;
+            break;
+
+
+        case GDIFF_CS_CRC32:
+            if ( dd->checksumLength == CRC32_LEN )
+                result = gdiff_valCRC32( dd, fh, getlong(chksum) );
+            else
+                result = GDIFF_ERR_HEADER;
+            break;
+
+
+        case GDIFF_CS_MD5:
+
+
+        case GDIFF_CS_SHA:
+
+
+        default:
+            /* unsupported checksum type */
+            result = GDIFF_ERR_CHKSUMTYPE;
+            break;
+    }
+
+    /* reset file position to beginning and return status */
+    PR_Seek( fh, 0, PR_SEEK_SET );
+    return (result);
+}
+
+
+/*---------------------------------------------------------
+ *  gdiff_valCRC32()
+ *
+ *  computes the checksum of the file and compares it to 
+ *  the passed in checksum.  Assumes file is positioned at
+ *  beginning.
+ *---------------------------------------------------------
+ */
+static 
+int32 gdiff_valCRC32( pDIFFDATA dd, PRFileDesc* fh, uint32 chksum )
+{
+    uint32 crc;
+    uint32 nRead;
+
+    crc = crc32(0L, Z_NULL, 0);
+
+	nRead = PR_Read (fh, dd->databuf, dd->bufsize);
+    while ( nRead > 0 ) 
+    {
+        crc = crc32( crc, dd->databuf, nRead );
+		nRead = PR_Read (fh, dd->databuf, dd->bufsize);
+    }
+
+    if ( crc == chksum )
+        return GDIFF_OK;
+    else
+        return GDIFF_ERR_CHECKSUM;
+}
+
+
+/*---------------------------------------------------------
+ *  gdiff_ApplyPatch()
+ *
+ *  Combines patch data with source file to produce the
+ *  new target file.  Assumes all three files have been
+ *  opened, GDIFF header read, and all other setup complete
+ *
+ *  The GDIFF patch is processed sequentially which random
+ *  access is neccessary for the source file.
+ *---------------------------------------------------------
+ */
+static
+int32 gdiff_ApplyPatch( pDIFFDATA dd )
+{
+    int32   err;
+    XP_Bool done;
+    uint32  position;
+    uint32  count;
+    uchar   opcode;
+    uchar   cmdbuf[MAXCMDSIZE];
+
+    done = FALSE;
+    while ( !done ) {
+        err = gdiff_getdiff( dd, &opcode, OPSIZE );
+        if ( err != GDIFF_OK )
+            break;
+
+        switch (opcode)
+        {
+            case ENDDIFF:
+                done = TRUE;
+                break;
+
+            case ADD16:
+                err = gdiff_getdiff( dd, cmdbuf, ADD16SIZE );
+                if ( err == GDIFF_OK ) {
+                    err = gdiff_add( dd, getshort( cmdbuf ) );
+                }
+                break;
+
+            case ADD32:
+                err = gdiff_getdiff( dd, cmdbuf, ADD32SIZE );
+                if ( err == GDIFF_OK ) {
+                    err = gdiff_add( dd, getlong( cmdbuf ) );
+                }
+                break;
+
+            case COPY16BYTE:
+                err = gdiff_getdiff( dd, cmdbuf, COPY16BYTESIZE );
+                if ( err == GDIFF_OK ) {
+                    position = getshort( cmdbuf );
+                    count = *(cmdbuf + sizeof(short));
+                    err = gdiff_copy( dd, position, count );
+                }
+                break;
+
+            case COPY16SHORT:
+                err = gdiff_getdiff( dd, cmdbuf, COPY16SHORTSIZE );
+                if ( err == GDIFF_OK ) {
+                    position = getshort( cmdbuf );
+                    count = getshort(cmdbuf + sizeof(short));
+                    err = gdiff_copy( dd, position, count );
+                }
+                break;
+
+            case COPY16LONG:
+                err = gdiff_getdiff( dd, cmdbuf, COPY16LONGSIZE );
+                if ( err == GDIFF_OK ) {
+                    position = getshort( cmdbuf );
+                    count =  getlong(cmdbuf + sizeof(short));
+                    err = gdiff_copy( dd, position, count );
+                }
+                break;
+
+            case COPY32BYTE:
+                err = gdiff_getdiff( dd, cmdbuf, COPY32BYTESIZE );
+                if ( err == GDIFF_OK ) {
+                    position = getlong( cmdbuf );
+                    count = *(cmdbuf + sizeof(long));
+                    err = gdiff_copy( dd, position, count );
+                }
+                break;
+
+            case COPY32SHORT:
+                err = gdiff_getdiff( dd, cmdbuf, COPY32SHORTSIZE );
+                if ( err == GDIFF_OK ) {
+                    position = getlong( cmdbuf );
+                    count = getshort(cmdbuf + sizeof(long));
+                    err = gdiff_copy( dd, position, count );
+                }
+                break;
+
+            case COPY32LONG:
+                err = gdiff_getdiff( dd, cmdbuf, COPY32LONGSIZE );
+                if ( err == GDIFF_OK ) {
+                    position = getlong( cmdbuf );
+                    count = getlong(cmdbuf + sizeof(long));
+                    err = gdiff_copy( dd, position, count );
+                }
+                break;
+
+            case COPY64:
+                /* we don't support 64-bit file positioning yet */
+                err = GDIFF_ERR_OPCODE;
+                break;
+
+            default:
+                err = gdiff_add( dd, opcode );
+                break;
+        }
+
+        if ( err != GDIFF_OK )
+            done = TRUE;
+    }
+
+    /* return status */
+    return (err);
+}
+
+
+/*---------------------------------------------------------
+ *  gdiff_getdiff()
+ *
+ *  reads the next "length" bytes of the diff into "buffer"
+ *
+ *  XXX: need a diff buffer to optimize reads!
+ *---------------------------------------------------------
+ */
+static
+int32 gdiff_getdiff( pDIFFDATA dd, uchar *buffer, uint32 length )
+{
+    uint32 bytesRead;
+
+	bytesRead = PR_Read (dd->fDiff, buffer, length);
+    if ( bytesRead != length )
+        return GDIFF_ERR_BADDIFF;
+
+    return GDIFF_OK;
+}
+
+
+/*---------------------------------------------------------
+ *  gdiff_add()
+ *
+ *  append "count" bytes from diff file to new file
+ *---------------------------------------------------------
+ */
+static
+int32 gdiff_add( pDIFFDATA dd, uint32 count )
+{
+    int32   err = GDIFF_OK;
+    uint32  nRead;
+    uint32  chunksize;
+
+    while ( count > 0 ) {
+        chunksize = ( count > dd->bufsize) ? dd->bufsize : count;
+		nRead = PR_Read (dd->fDiff, dd->databuf, chunksize);
+        if ( nRead != chunksize ) {
+            err = GDIFF_ERR_BADDIFF;
+            break;
+        }
+
+		PR_Write (dd->fOut, dd->databuf, chunksize);
+
+        count -= chunksize;
+    }
+
+    return (err);
+}
+
+
+
+/*---------------------------------------------------------
+ *  gdiff_copy()
+ *
+ *  copy "count" bytes from "position" in source file
+ *---------------------------------------------------------
+ */
+static
+int32 gdiff_copy( pDIFFDATA dd, uint32 position, uint32 count )
+{
+    int32 err = GDIFF_OK;
+    uint32 nRead;
+    uint32 chunksize;
+
+	PR_Seek (dd->fSrc, position, PR_SEEK_SET);
+
+    while ( count > 0 ) {
+        chunksize = (count > dd->bufsize) ? dd->bufsize : count;
+
+		nRead = PR_Read (dd->fSrc, dd->databuf, chunksize);
+        if ( nRead != chunksize ) {
+            err = GDIFF_ERR_OLDFILE;
+            break;
+        }
+
+		PR_Write (dd->fOut, dd->databuf, chunksize);
+
+        count -= chunksize;
+    }
+
+    return (err);
+}
+

mozilla/xpinstall/src/nsInstallPatch.h

@@ -0,0 +1,79 @@
+/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 2 -*- */
+/*
+ * The contents of this file are subject to the Netscape Public License
+ * Version 1.0 (the "NPL"); you may not use this file except in
+ * compliance with the NPL.  You may obtain a copy of the NPL at
+ * http://www.mozilla.org/NPL/
+ *
+ * Software distributed under the NPL is distributed on an "AS IS" basis,
+ * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the NPL
+ * for the specific language governing rights and limitations under the
+ * NPL.
+ *
+ * The Initial Developer of this code under the NPL is Netscape
+ * Communications Corporation.  Portions created by Netscape are
+ * Copyright (C) 1998 Netscape Communications Corporation.  All Rights
+ * Reserved.
+ */
+
+#ifndef nsInstallPatch_h__
+#define nsInstallPatch_h__
+
+#include "prtypes.h"
+#include "nsString.h"
+
+#include "nsInstallObject.h"
+
+#include "nsInstall.h"
+#include "nsInstallFolder.h"
+#include "nsInstallVersion.h"
+
+
+class nsInstallPatch : public nsInstallObject 
+{
+    public:
+
+        nsInstallPatch( nsInstall* inInstall,
+                        const nsString& inVRName,
+                        const nsString& inVInfo,
+                        const nsString& inJarLocation,
+                        const nsString& folderSpec,
+                        const nsString& inPartialPath,
+                        PRInt32 *error);
+
+        nsInstallPatch( nsInstall* inInstall,
+                        const nsString& inVRName,
+                        const nsString& inVInfo,
+                        const nsString& inJarLocation,
+                        PRInt32 *error);
+
+        virtual ~nsInstallPatch();
+
+        PRInt32 Prepare();
+        PRInt32 Complete();
+        void  Abort();
+        char* toString();
+
+        PRBool CanUninstall();
+        PRBool RegisterPackageNode();
+	  
+  
+    private:
+        
+        
+        nsInstallVersion        *mVersionInfo;
+        
+        nsFileSpec              *mTargetFile;
+        nsFileSpec              *mPatchFile;
+        nsFileSpec              *mPatchedFile;
+
+        nsString                *mJarLocation;
+        nsString                *mRegistryName;
+        
+       
+
+        PRInt32  NativePatch(const nsFileSpec &sourceFile, const nsFileSpec &patchfile, nsFileSpec **newFile);
+        void*    HashFilePath(const nsFilePath& aPath);
+};
+
+#endif /* nsInstallPatch_h__ */

mozilla/xpinstall/src/nsInstallProgressDialog.cpp

@@ -0,0 +1,343 @@
+/* -*- Mode: C; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 2 -*- */
+/*
+ * 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 Mozilla Communicator client code, 
+ * released March 31, 1998. 
+ *
+ * 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.
+ *
+ * Contributors:
+ *     Douglas Turner <dougt@netscape.com>
+ */
+
+
+#include "nsIXPInstallProgress.h"
+#include "nsInstallProgressDialog.h"
+
+#include "nsIAppShellComponentImpl.h"
+
+#include "nsIServiceManager.h"
+#include "nsIDocumentViewer.h"
+#include "nsIContent.h"
+#include "nsINameSpaceManager.h"
+#include "nsIContentViewer.h"
+#include "nsIDOMElement.h"
+#include "nsINetService.h"
+
+#include "nsIWebShell.h"
+#include "nsIWebShellWindow.h"
+
+static NS_DEFINE_IID(kISupportsIID, NS_ISUPPORTS_IID);
+static NS_DEFINE_IID( kAppShellServiceCID, NS_APPSHELL_SERVICE_CID );
+static NS_DEFINE_IID( kNetServiceCID,      NS_NETSERVICE_CID );
+
+// Utility to set element attribute.
+static nsresult setAttribute( nsIDOMXULDocument *doc,
+                              const char *id,
+                              const char *name,
+                              const nsString &value ) {
+    nsresult rv = NS_OK;
+
+    if ( doc ) {
+        // Find specified element.
+        nsCOMPtr<nsIDOMElement> elem;
+        rv = doc->GetElementById( id, getter_AddRefs( elem ) );
+        if ( elem ) {
+            // Set the text attribute.
+            rv = elem->SetAttribute( name, value );
+            if ( NS_SUCCEEDED( rv ) ) {
+            } else {
+                 DEBUG_PRINTF( PR_STDOUT, "%s %d: SetAttribute failed, rv=0x%X\n",
+                               __FILE__, (int)__LINE__, (int)rv );
+            }
+        } else {
+            DEBUG_PRINTF( PR_STDOUT, "%s %d: GetElementById failed, rv=0x%X\n",
+                          __FILE__, (int)__LINE__, (int)rv );
+        }
+    } else {
+        rv = NS_ERROR_NULL_POINTER;
+    }
+
+    return rv;
+}
+
+
+// Utility to get element attribute.
+static nsresult getAttribute( nsIDOMXULDocument *doc,
+                              const char *id,
+                              const char *name,
+                              nsString &value ) {
+    nsresult rv = NS_OK;
+
+    if ( doc ) {
+        // Find specified element.
+        nsCOMPtr<nsIDOMElement> elem;
+        rv = doc->GetElementById( id, getter_AddRefs( elem ) );
+        if ( elem ) {
+            // Set the text attribute.
+            rv = elem->GetAttribute( name, value );
+            if ( NS_SUCCEEDED( rv ) ) {
+            } else {
+                 DEBUG_PRINTF( PR_STDOUT, "%s %d: SetAttribute failed, rv=0x%X\n",
+                               __FILE__, (int)__LINE__, (int)rv );
+            }
+        } else {
+            DEBUG_PRINTF( PR_STDOUT, "%s %d: GetElementById failed, rv=0x%X\n",
+                          __FILE__, (int)__LINE__, (int)rv );
+        }
+    } else {
+        rv = NS_ERROR_NULL_POINTER;
+    }
+
+    return rv;
+}
+
+
+nsInstallProgressDialog::nsInstallProgressDialog()
+{
+    NS_INIT_REFCNT();
+    mWindow = nsnull;
+    mDocument = nsnull;
+
+}
+
+nsInstallProgressDialog::~nsInstallProgressDialog()
+{
+}
+
+
+NS_IMPL_ADDREF( nsInstallProgressDialog );
+NS_IMPL_RELEASE( nsInstallProgressDialog );
+
+NS_IMETHODIMP 
+nsInstallProgressDialog::QueryInterface(REFNSIID aIID,void** aInstancePtr)
+{
+  if (aInstancePtr == NULL) {
+    return NS_ERROR_NULL_POINTER;
+  }
+
+  // Always NULL result, in case of failure
+  *aInstancePtr = NULL;
+
+  if (aIID.Equals(nsIXPInstallProgress::GetIID())) {
+    *aInstancePtr = (void*) ((nsInstallProgressDialog*)this);
+    NS_ADDREF_THIS();
+    return NS_OK;
+  }
+  if (aIID.Equals(nsIXULWindowCallbacks::GetIID())) {
+    *aInstancePtr = (void*) ((nsIXULWindowCallbacks*)this);
+    NS_ADDREF_THIS();
+    return NS_OK;
+  }
+  if (aIID.Equals(kISupportsIID)) {
+    *aInstancePtr = (void*) (nsISupports*)((nsIXPInstallProgress*)this);
+    NS_ADDREF_THIS();
+    return NS_OK;
+  }
+
+  return NS_ERROR_NO_INTERFACE;
+}
+
+NS_IMETHODIMP 
+nsInstallProgressDialog::BeforeJavascriptEvaluation()
+{
+    nsresult rv = NS_OK;
+
+    // Get app shell service.
+    nsIAppShellService *appShell;
+    rv = nsServiceManager::GetService( kAppShellServiceCID,
+                                       nsIAppShellService::GetIID(),
+                                       (nsISupports**)&appShell );
+
+    if ( NS_SUCCEEDED( rv ) ) 
+    {
+        // Open "progress" dialog.
+        nsIURL *url;
+        rv = NS_NewURL( &url, "resource:/res/xpinstall/progress.xul" );
+        
+        if ( NS_SUCCEEDED(rv) ) 
+        {
+        
+            nsIWebShellWindow *newWindow;
+
+            rv = appShell->CreateTopLevelWindow( nsnull,
+                                                 url,
+                                                 PR_TRUE,
+                                                 newWindow,
+                                                 nsnull,
+                                                 this,  // callbacks??
+                                                 0,
+                                                 0 );
+
+            if ( NS_SUCCEEDED( rv ) ) 
+            {
+                mWindow = newWindow;
+                NS_RELEASE( newWindow );
+
+                 if (mWindow != nsnull)
+                    mWindow->Show(PR_TRUE);
+            }
+            else 
+            {
+                DEBUG_PRINTF( PR_STDOUT, "Error creating progress dialog, rv=0x%X\n", (int)rv );
+            }
+            NS_RELEASE( url );
+        }
+        
+        nsServiceManager::ReleaseService( kAppShellServiceCID, appShell );
+    } 
+    else 
+    {
+        DEBUG_PRINTF( PR_STDOUT, "Unable to get app shell service, rv=0x%X\n", (int)rv );
+    }
+    return NS_OK;
+}
+
+NS_IMETHODIMP 
+nsInstallProgressDialog::AfterJavascriptEvaluation()
+{
+    if (mWindow)
+    {
+        mWindow->Close();
+    }
+
+    return NS_OK;
+}
+
+NS_IMETHODIMP 
+nsInstallProgressDialog::InstallStarted(const char *UIPackageName)
+{
+    setAttribute( mDocument, "dialog.uiPackageName", "value", nsString(UIPackageName) );
+    return NS_OK;
+}
+
+NS_IMETHODIMP 
+nsInstallProgressDialog::ItemScheduled(const char *message)
+{
+    PRInt32 maxChars = 40;
+
+    nsString theMessage(message);
+    PRInt32 len = theMessage.Length();
+    if (len > maxChars)
+    {
+        PRInt32 offset = (len/2) - ((len - maxChars)/2);
+        PRInt32 count  = (len - maxChars);
+        theMessage.Cut(offset, count); 
+        theMessage.Insert(nsString("..."), offset);
+    }
+    setAttribute( mDocument, "dialog.currentAction", "value", theMessage );
+    
+    nsString aValue;
+    getAttribute( mDocument, "data.canceled", "value", aValue );
+
+    if (aValue.EqualsIgnoreCase("true"))
+        return -1;
+
+    return NS_OK;
+}
+
+NS_IMETHODIMP 
+nsInstallProgressDialog::InstallFinalization(const char *message, PRInt32 itemNum, PRInt32 totNum)
+{
+
+    PRInt32 maxChars = 40;
+
+    nsString theMessage(message);
+    PRInt32 len = theMessage.Length();
+    if (len > maxChars)
+    {
+        PRInt32 offset = (len/2) - ((len - maxChars)/2);
+        PRInt32 count  = (len - maxChars);
+        theMessage.Cut(offset, count);  
+        theMessage.Insert(nsString("..."), offset);
+    }
+
+    setAttribute( mDocument, "dialog.currentAction", "value", theMessage );
+
+    nsresult rv = NS_OK;
+    char buf[16];
+    
+    PR_snprintf( buf, sizeof buf, "%lu", totNum );
+    setAttribute( mDocument, "dialog.progress", "max", buf );
+   
+    if (totNum != 0)
+    {
+        PR_snprintf( buf, sizeof buf, "%lu", ((totNum-itemNum)/totNum) );
+    }
+    else
+    {
+        PR_snprintf( buf, sizeof buf, "%lu", 0 );
+    }
+    setAttribute( mDocument, "dialog.progress", "value", buf );
+    
+    return NS_OK;
+}
+
+NS_IMETHODIMP 
+nsInstallProgressDialog::InstallAborted()
+{
+    return NS_OK;
+}
+
+
+
+
+// Do startup stuff from C++ side.
+NS_IMETHODIMP
+nsInstallProgressDialog::ConstructBeforeJavaScript(nsIWebShell *aWebShell) 
+{
+    nsresult rv = NS_OK;
+
+    // Get content viewer from the web shell.
+    nsCOMPtr<nsIContentViewer> contentViewer;
+    rv = aWebShell ? aWebShell->GetContentViewer(getter_AddRefs(contentViewer))
+                   : NS_ERROR_NULL_POINTER;
+
+    if ( contentViewer ) {
+        // Up-cast to a document viewer.
+        nsCOMPtr<nsIDocumentViewer> docViewer( do_QueryInterface( contentViewer, &rv ) );
+        if ( docViewer ) {
+            // Get the document from the doc viewer.
+            nsCOMPtr<nsIDocument> document;
+            rv = docViewer->GetDocument(*getter_AddRefs(document));
+            if ( document ) {
+                // Upcast to XUL document.
+                mDocument = do_QueryInterface( document, &rv );
+                if ( ! mDocument ) 
+                {
+                    DEBUG_PRINTF( PR_STDOUT, "%s %d: Upcast to nsIDOMXULDocument failed, rv=0x%X\n",
+                                  __FILE__, (int)__LINE__, (int)rv );
+                }
+            } 
+            else 
+            {
+                DEBUG_PRINTF( PR_STDOUT, "%s %d: GetDocument failed, rv=0x%X\n",
+                              __FILE__, (int)__LINE__, (int)rv );
+            }
+        } 
+        else 
+        {
+            DEBUG_PRINTF( PR_STDOUT, "%s %d: Upcast to nsIDocumentViewer failed, rv=0x%X\n",
+                          __FILE__, (int)__LINE__, (int)rv );
+        }
+    } 
+    else 
+    {
+        DEBUG_PRINTF( PR_STDOUT, "%s %d: GetContentViewer failed, rv=0x%X\n",
+                      __FILE__, (int)__LINE__, (int)rv );
+    }
+
+    return rv;
+}

mozilla/xpinstall/src/nsInstallProgressDialog.h

@@ -0,0 +1,67 @@
+/* -*- Mode: C; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 2 -*- */
+/*
+ * 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 Mozilla Communicator client code, 
+ * released March 31, 1998. 
+ *
+ * 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.
+ *
+ * Contributors:
+ *     Douglas Turner <dougt@netscape.com>
+ */
+#ifndef __nsInstallProgressDialog_h__
+#define __nsInstallProgressDialog_h__
+
+#include "nsIXPInstallProgress.h"
+#include "nsISupports.h"
+#include "nsISupportsUtils.h"
+
+#include "nsCOMPtr.h"
+
+#include "nsIWebShell.h"
+#include "nsIWebShellWindow.h"
+#include "nsIXULWindowCallbacks.h"    
+
+#include "nsIDocument.h"
+#include "nsIDOMXULDocument.h"
+
+
+class nsInstallProgressDialog : public nsIXPInstallProgress, public nsIXULWindowCallbacks
+{
+    public: 
+
+        nsInstallProgressDialog();
+        virtual ~nsInstallProgressDialog();
+        
+        NS_DECL_ISUPPORTS
+
+        
+        NS_IMETHOD BeforeJavascriptEvaluation();
+        NS_IMETHOD AfterJavascriptEvaluation();
+        NS_IMETHOD InstallStarted(const char *UIPackageName);
+        NS_IMETHOD ItemScheduled(const char *message);
+        NS_IMETHOD InstallFinalization(const char *message, PRInt32 itemNum, PRInt32 totNum);
+        NS_IMETHOD InstallAborted();
+
+        // Declare implementations of nsIXULWindowCallbacks interface functions.
+        NS_IMETHOD ConstructBeforeJavaScript(nsIWebShell *aWebShell);
+        NS_IMETHOD ConstructAfterJavaScript(nsIWebShell *aWebShell) { return NS_OK; }
+
+    private:
+
+        nsCOMPtr<nsIDOMXULDocument>  mDocument;
+        nsCOMPtr<nsIWebShellWindow>  mWindow;
+};
+#endif

mozilla/xpinstall/src/nsInstallResources.cpp

@@ -0,0 +1,67 @@
+ /* -*- Mode: C; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 2 -*- */
+/*
+ * 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 Mozilla Communicator client code, 
+ * released March 31, 1998. 
+ *
+ * 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.
+ *
+ * Contributors:
+ *     Daniel Veditz <dveditz@netscape.com>
+ *     Douglas Turner <dougt@netscape.com>
+ */
+
+#include "nsInstallResources.h"
+
+char* nsInstallResources::GetInstallFileString(void)
+{ 
+    return "Installing: %s"; 
+}
+
+char* nsInstallResources::GetReplaceFileString(void)
+{ 
+    return "Replacing %s"; 
+}     
+
+char* nsInstallResources::GetDeleteFileString(void)
+{ 
+    return "Deleting file: %s"; 
+} 
+
+char* nsInstallResources::GetDeleteComponentString(void) 
+{ 
+    return "Deleting component: %s"; 
+}
+
+char* nsInstallResources::GetExecuteString(void)         
+{ 
+    return "Executing: %s"; 
+}
+
+char* nsInstallResources::GetExecuteWithArgsString(void) 
+{ 
+    return "Executing: %s with argument: %s"; 
+}
+
+char* nsInstallResources::GetPatchFileString(void)       
+{ 
+    return "Patching: %s"; 
+}
+
+char* nsInstallResources::GetUninstallString(void)       
+{ 
+    return "Uninstalling: %s"; 
+}
+

mozilla/xpinstall/src/nsInstallResources.h

@@ -0,0 +1,45 @@
+/* -*- Mode: C; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 2 -*- */
+/*
+ * 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 Mozilla Communicator client code, 
+ * released March 31, 1998. 
+ *
+ * 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.
+ *
+ * Contributors:
+ *     Daniel Veditz <dveditz@netscape.com>
+ *     Douglas Turner <dougt@netscape.com>
+ */
+
+
+#ifndef __NS_INSTALLRESOURCES_H__
+#define __NS_INSTALLRESOURCES_H__
+
+class nsInstallResources
+{
+    public:
+       
+       static char* GetInstallFileString(void);
+       static char* GetReplaceFileString(void);     
+       static char* GetDeleteFileString(void);      
+       static char* GetDeleteComponentString(void); 
+       static char* GetExecuteString(void);         
+       static char* GetExecuteWithArgsString(void); 
+       static char* GetPatchFileString(void);       
+       static char* GetUninstallString(void);       
+};
+
+
+#endif

mozilla/xpinstall/src/nsInstallTrigger.cpp

@@ -0,0 +1,359 @@
+/* -*- Mode: C++; tab-width: 2; indent-tabs-mode: nil; c-basic-offset: 2 -*-
+ *
+ * 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 Mozilla Communicator client code.
+ *
+ * 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.
+ */
+
+#include "nsSoftwareUpdate.h"
+#include "nsSoftwareUpdateStream.h"
+#include "nsInstallTrigger.h"
+#include "nsIDOMInstallTriggerGlobal.h"
+
+#include "nscore.h"
+#include "nsIFactory.h"
+#include "nsISupports.h"
+#include "nsIScriptGlobalObject.h"
+
+#include "nsIPref.h"
+
+#include "nsRepository.h"
+#include "nsIServiceManager.h"
+
+#include "nsSpecialSystemDirectory.h"
+
+static NS_DEFINE_IID(kISupportsIID, NS_ISUPPORTS_IID);
+static NS_DEFINE_IID(kIFactoryIID, NS_IFACTORY_IID);
+static NS_DEFINE_IID(kIScriptObjectOwnerIID, NS_ISCRIPTOBJECTOWNER_IID);
+
+static NS_DEFINE_IID(kIInstallTrigger_IID, NS_IDOMINSTALLTRIGGERGLOBAL_IID);
+static NS_DEFINE_IID(kIInstallTrigger_CID, NS_SoftwareUpdateInstallTrigger_CID);
+
+
+
+
+
+
+nsInstallTrigger::nsInstallTrigger()
+{
+    mScriptObject   = nsnull;
+    NS_INIT_REFCNT();
+}
+
+nsInstallTrigger::~nsInstallTrigger()
+{
+}
+
+NS_IMETHODIMP 
+nsInstallTrigger::QueryInterface(REFNSIID aIID,void** aInstancePtr)
+{
+    if (aInstancePtr == NULL)
+    {
+        return NS_ERROR_NULL_POINTER;
+    }
+
+    // Always NULL result, in case of failure
+    *aInstancePtr = NULL;
+
+    if ( aIID.Equals(kIScriptObjectOwnerIID))
+    {
+        *aInstancePtr = (void*) ((nsIScriptObjectOwner*)this);
+        AddRef();
+        return NS_OK;
+    }
+    else if ( aIID.Equals(kIInstallTrigger_IID) )
+    {
+        *aInstancePtr = (void*) ((nsIDOMInstallTriggerGlobal*)this);
+        AddRef();
+        return NS_OK;
+    }
+    else if ( aIID.Equals(kISupportsIID) )
+    {
+        *aInstancePtr = (void*)(nsISupports*)(nsIScriptObjectOwner*)this;
+        AddRef();
+        return NS_OK;
+    }
+
+     return NS_NOINTERFACE;
+}
+
+NS_IMPL_ADDREF(nsInstallTrigger)
+NS_IMPL_RELEASE(nsInstallTrigger)
+
+
+
+NS_IMETHODIMP 
+nsInstallTrigger::GetScriptObject(nsIScriptContext *aContext, void** aScriptObject)
+{
+    NS_PRECONDITION(nsnull != aScriptObject, "null arg");
+    nsresult res = NS_OK;
+    
+    if (nsnull == mScriptObject) 
+    {
+         nsIScriptGlobalObject *global = aContext->GetGlobalObject();
+
+        res = NS_NewScriptInstallTriggerGlobal(  aContext, 
+                                                (nsISupports *)(nsIDOMInstallTriggerGlobal*)this, 
+                                                (nsISupports *)global, 
+                                                &mScriptObject);
+        NS_IF_RELEASE(global);
+
+    }
+  
+
+    *aScriptObject = mScriptObject;
+    return res;
+}
+
+NS_IMETHODIMP 
+nsInstallTrigger::SetScriptObject(void *aScriptObject)
+{
+  mScriptObject = aScriptObject;
+  return NS_OK;
+}
+
+static NS_DEFINE_IID(kPrefsIID, NS_IPREF_IID);
+static NS_DEFINE_IID(kPrefsCID,  NS_PREF_CID);
+
+NS_IMETHODIMP    
+nsInstallTrigger::UpdateEnabled(PRBool* aReturn)
+{
+    nsIPref * prefs;
+    
+    nsresult rv = nsServiceManager::GetService(kPrefsCID, 
+                                               kPrefsIID,
+                                               (nsISupports**) &prefs);
+
+
+    if ( NS_SUCCEEDED(rv) )
+    {
+        rv = prefs->GetBoolPref( (const char*) AUTOUPDATE_ENABLE_PREF, aReturn);
+
+        if (NS_FAILED(rv))
+        {
+            *aReturn = PR_FALSE;
+        }
+
+        NS_RELEASE(prefs);
+    }
+    else
+    {
+        *aReturn = PR_FALSE;  /* no prefs manager.  set to false */
+    }
+    
+    //FIX!!!!!!!!!!  
+    *aReturn = PR_TRUE; 
+    return NS_OK;
+}
+
+
+NS_IMETHODIMP    
+nsInstallTrigger::StartSoftwareUpdate(const nsString& aURL, PRInt32 aFlags, PRInt32* aReturn)
+{
+    nsString localFile;
+    CreateTempFileFromURL(aURL, localFile);
+
+    // start the download (this will clean itself up)
+    nsSoftwareUpdateListener *downloader = new nsSoftwareUpdateListener(aURL, localFile, aFlags);
+
+    *aReturn = NS_OK;  // maybe we should do something more.
+    return NS_OK;
+}
+
+NS_IMETHODIMP    
+nsInstallTrigger::StartSoftwareUpdate(const nsString& aURL, PRInt32* aReturn)
+{
+    nsString localFile;
+    CreateTempFileFromURL(aURL, localFile);
+
+    // start the download (this will clean itself up)
+    nsSoftwareUpdateListener *downloader = new nsSoftwareUpdateListener(aURL, localFile, 0);
+
+    *aReturn = NS_OK;  // maybe we should do something more.
+    return NS_OK;
+}
+
+NS_IMETHODIMP    
+nsInstallTrigger::ConditionalSoftwareUpdate(const nsString& aURL, const nsString& aRegName, PRInt32 aDiffLevel, const nsString& aVersion, PRInt32 aMode, PRInt32* aReturn)
+{
+    return NS_OK;
+}
+
+NS_IMETHODIMP    
+nsInstallTrigger::ConditionalSoftwareUpdate(const nsString& aURL, const nsString& aRegName, PRInt32 aDiffLevel, nsIDOMInstallVersion* aVersion, PRInt32 aMode, PRInt32* aReturn)
+{
+    return NS_OK;
+}
+
+NS_IMETHODIMP    
+nsInstallTrigger::ConditionalSoftwareUpdate(const nsString& aURL, const nsString& aRegName, nsIDOMInstallVersion* aVersion, PRInt32 aMode, PRInt32* aReturn)
+{
+    return NS_OK;
+}
+
+NS_IMETHODIMP    
+nsInstallTrigger::ConditionalSoftwareUpdate(const nsString& aURL, const nsString& aRegName, const nsString& aVersion, PRInt32 aMode, PRInt32* aReturn)
+{
+    return NS_OK;
+}
+
+NS_IMETHODIMP    
+nsInstallTrigger::ConditionalSoftwareUpdate(const nsString& aURL, const nsString& aRegName, const nsString& aVersion, PRInt32* aReturn)
+{
+    return NS_OK;
+}
+
+NS_IMETHODIMP    
+nsInstallTrigger::ConditionalSoftwareUpdate(const nsString& aURL, const nsString& aRegName, nsIDOMInstallVersion* aVersion, PRInt32* aReturn)
+{
+    return NS_OK;
+}
+
+NS_IMETHODIMP    
+nsInstallTrigger::CompareVersion(const nsString& aRegName, PRInt32 aMajor, PRInt32 aMinor, PRInt32 aRelease, PRInt32 aBuild, PRInt32* aReturn)
+{
+    return NS_OK;
+}
+
+NS_IMETHODIMP    
+nsInstallTrigger::CompareVersion(const nsString& aRegName, const nsString& aVersion, PRInt32* aReturn)
+{
+    return NS_OK;
+}
+
+NS_IMETHODIMP    
+nsInstallTrigger::CompareVersion(const nsString& aRegName, nsIDOMInstallVersion* aVersion, PRInt32* aReturn)
+{
+    return NS_OK;
+}
+
+
+
+// this will take a nsIUrl, and create a temporary file.  If it is local, we just us it.
+ 
+void
+nsInstallTrigger::CreateTempFileFromURL(const nsString& aURL, nsString& tempFileString)
+{
+    // Checking to see if the url is local
+
+    if ( aURL.EqualsIgnoreCase("file://", 7) )
+    {       
+        tempFileString.SetString( nsNSPRPath(nsFileURL(aURL)) );
+    }
+    else
+    {
+        nsSpecialSystemDirectory tempFile(nsSpecialSystemDirectory::OS_TemporaryDirectory);
+    
+        PRInt32 result = aURL.RFind("/");
+        if (result != -1)
+        {    
+            nsString jarName;
+                       
+            aURL.Right(jarName, (aURL.Length() - result) );
+            
+            PRInt32 argOffset = jarName.RFind("?");
+
+            if (argOffset != -1)
+            {
+                // we need to remove ? and everything after it
+                jarName.Truncate(argOffset);
+            }
+            
+            
+            tempFile += jarName;
+        }
+        else
+        {   
+            tempFile += "xpinstall.jar";
+        }
+
+        tempFile.MakeUnique();
+
+        tempFileString.SetString( nsNSPRPath( nsFilePath(tempFile) ) );
+    }
+}
+
+
+/////////////////////////////////////////////////////////////////////////
+// 
+/////////////////////////////////////////////////////////////////////////
+
+
+
+nsInstallTriggerFactory::nsInstallTriggerFactory(void)
+{
+    NS_INIT_REFCNT();
+}
+
+nsInstallTriggerFactory::~nsInstallTriggerFactory(void)
+{
+    NS_ASSERTION(mRefCnt == 0, "non-zero refcnt at destruction");
+}
+
+NS_IMETHODIMP
+nsInstallTriggerFactory::QueryInterface(const nsIID &aIID, void **aResult)
+{
+    if (! aResult)
+        return NS_ERROR_NULL_POINTER;
+
+    // Always NULL result, in case of failure
+    *aResult = nsnull;
+
+    if (aIID.Equals(kISupportsIID)) {
+        *aResult = NS_STATIC_CAST(nsISupports*, this);
+        AddRef();
+        return NS_OK;
+    } else if (aIID.Equals(kIFactoryIID)) {
+        *aResult = NS_STATIC_CAST(nsIFactory*, this);
+        AddRef();
+        return NS_OK;
+    }
+
+    return NS_NOINTERFACE;
+}
+
+NS_IMPL_ADDREF(nsInstallTriggerFactory);
+NS_IMPL_RELEASE(nsInstallTriggerFactory);
+
+NS_IMETHODIMP
+nsInstallTriggerFactory::CreateInstance(nsISupports *aOuter, REFNSIID aIID, void **aResult)
+{
+   if (! aResult)
+        return NS_ERROR_NULL_POINTER;
+
+    *aResult = nsnull;
+
+    nsresult rv;
+
+    nsInstallTrigger *inst = new nsInstallTrigger();
+    
+    if (! inst)
+        return NS_ERROR_OUT_OF_MEMORY;
+
+    if (NS_FAILED(rv = inst->QueryInterface(aIID, aResult))) 
+    {
+        // We didn't get the right interface.
+        NS_ERROR("didn't support the interface you wanted");
+    }
+    return rv;
+}
+
+    
+NS_IMETHODIMP
+nsInstallTriggerFactory::LockFactory(PRBool aLock)
+{
+    // Not implemented in simplest case.
+    return NS_OK;
+}

mozilla/xpinstall/src/nsInstallTrigger.h

@@ -0,0 +1,72 @@
+#ifndef __NS_INSTALLTRIGGER_H__
+#define __NS_INSTALLTRIGGER_H__
+
+#include "nscore.h"
+#include "nsString.h"
+#include "nsIFactory.h"
+#include "nsISupports.h"
+#include "nsIScriptObjectOwner.h"
+
+#include "nsIDOMInstallTriggerGlobal.h"
+#include "nsSoftwareUpdate.h"
+
+#include "prtypes.h"
+#include "nsHashtable.h"
+#include "nsVector.h"
+
+
+
+
+
+class nsInstallTrigger: public nsIScriptObjectOwner, public nsIDOMInstallTriggerGlobal
+{
+    public:
+        static const nsIID& IID() { static nsIID iid = NS_SoftwareUpdateInstallTrigger_CID; return iid; }
+
+        nsInstallTrigger();
+        ~nsInstallTrigger();
+        
+        NS_DECL_ISUPPORTS
+
+        NS_IMETHOD    GetScriptObject(nsIScriptContext *aContext, void** aScriptObject);
+        NS_IMETHOD    SetScriptObject(void* aScriptObject);
+
+        NS_IMETHOD    UpdateEnabled(PRBool* aReturn);
+        NS_IMETHOD    StartSoftwareUpdate(const nsString& aURL, PRInt32 aFlags, PRInt32* aReturn);
+        NS_IMETHOD    StartSoftwareUpdate(const nsString& aURL, PRInt32* aReturn);
+        NS_IMETHOD    ConditionalSoftwareUpdate(const nsString& aURL, const nsString& aRegName, PRInt32 aDiffLevel, const nsString& aVersion, PRInt32 aMode, PRInt32* aReturn);
+        NS_IMETHOD    ConditionalSoftwareUpdate(const nsString& aURL, const nsString& aRegName, PRInt32 aDiffLevel, nsIDOMInstallVersion* aVersion, PRInt32 aMode, PRInt32* aReturn);
+        NS_IMETHOD    ConditionalSoftwareUpdate(const nsString& aURL, const nsString& aRegName, nsIDOMInstallVersion* aVersion, PRInt32 aMode, PRInt32* aReturn);
+        NS_IMETHOD    ConditionalSoftwareUpdate(const nsString& aURL, const nsString& aRegName, const nsString& aVersion, PRInt32 aMode, PRInt32* aReturn);
+        NS_IMETHOD    ConditionalSoftwareUpdate(const nsString& aURL, const nsString& aRegName, const nsString& aVersion, PRInt32* aReturn);
+        NS_IMETHOD    ConditionalSoftwareUpdate(const nsString& aURL, const nsString& aRegName, nsIDOMInstallVersion* aVersion, PRInt32* aReturn);
+        NS_IMETHOD    CompareVersion(const nsString& aRegName, PRInt32 aMajor, PRInt32 aMinor, PRInt32 aRelease, PRInt32 aBuild, PRInt32* aReturn);
+        NS_IMETHOD    CompareVersion(const nsString& aRegName, const nsString& aVersion, PRInt32* aReturn);
+        NS_IMETHOD    CompareVersion(const nsString& aRegName, nsIDOMInstallVersion* aVersion, PRInt32* aReturn);
+
+        
+    private:
+        void *mScriptObject;
+        void CreateTempFileFromURL(const nsString& aURL, nsString& tempFileString);
+
+};
+
+
+class nsInstallTriggerFactory : public nsIFactory 
+{
+    public:
+        
+        nsInstallTriggerFactory();
+        ~nsInstallTriggerFactory();
+        
+        NS_DECL_ISUPPORTS
+
+              NS_IMETHOD CreateInstance(nsISupports *aOuter,
+                                        REFNSIID aIID,
+                                        void **aResult);
+
+              NS_IMETHOD LockFactory(PRBool aLock);
+
+};
+
+#endif

mozilla/xpinstall/src/nsInstallUninstall.cpp

@@ -0,0 +1,196 @@
+/* -*- Mode: C; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 2 -*- */
+/*
+ * 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 Mozilla Communicator client code, 
+ * released March 31, 1998. 
+ *
+ * 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.
+ *
+ * Contributors:
+ *     Daniel Veditz <dveditz@netscape.com>
+ *     Douglas Turner <dougt@netscape.com>
+ */
+
+#include "nsInstall.h"
+#include "nsInstallUninstall.h"
+#include "nsInstallResources.h"
+#include "VerReg.h"
+#include "prmem.h"
+#include "nsFileSpec.h"
+#include "ScheduledTasks.h"
+
+extern "C" NS_EXPORT PRInt32 SU_Uninstall(char *regPackageName);
+REGERR su_UninstallProcessItem(char *component_path);
+
+
+nsInstallUninstall::nsInstallUninstall( nsInstall* inInstall,
+                                        const nsString& regName,
+                                        PRInt32 *error)
+
+: nsInstallObject(inInstall)
+{
+    if (regName == "null") 
+    {
+        *error = nsInstall::INVALID_ARGUMENTS;
+        return;
+    }
+    
+    mRegName.SetString(regName);
+
+    char* userName = (char*)PR_Malloc(MAXREGPATHLEN);
+    PRInt32 err = VR_GetUninstallUserName( (char*) (const char*) nsAutoCString(regName), 
+                                           userName, 
+                                           MAXREGPATHLEN );
+    
+    mUIName.SetString(userName);
+    
+    if (err != REGERR_OK)
+    {
+        *error = nsInstall::NO_SUCH_COMPONENT;
+    }
+    
+    PR_FREEIF(userName);
+    
+}
+
+nsInstallUninstall::~nsInstallUninstall()
+{
+}
+
+
+PRInt32 nsInstallUninstall::Prepare()
+{
+    // no set-up necessary
+    return nsInstall::SUCCESS;
+}
+
+PRInt32 nsInstallUninstall::Complete()
+{
+    PRInt32 err = nsInstall::SUCCESS;
+
+    if (mInstall == NULL) 
+       return nsInstall::INVALID_ARGUMENTS;
+
+    err = SU_Uninstall( (char*)(const char*) nsAutoCString(mRegName) );
+    
+    return err;
+}
+
+void nsInstallUninstall::Abort()
+{
+}
+
+char* nsInstallUninstall::toString()
+{
+    char* buffer = new char[1024];
+    
+    char* temp = mUIName.ToNewCString();
+    sprintf( buffer, nsInstallResources::GetUninstallString(), temp);
+    delete [] temp;
+
+    return buffer;
+}
+
+
+PRBool
+nsInstallUninstall::CanUninstall()
+{
+    return PR_FALSE;
+}
+
+PRBool
+nsInstallUninstall::RegisterPackageNode()
+{
+    return PR_FALSE;
+}
+
+extern "C" NS_EXPORT PRInt32 SU_Uninstall(char *regPackageName)
+{
+    REGERR status = REGERR_FAIL;
+    char pathbuf[MAXREGPATHLEN+1] = {0};
+    char sharedfilebuf[MAXREGPATHLEN+1] = {0};
+    REGENUM state = 0;
+    int32 length;
+    int32 err;
+
+    if (regPackageName == NULL)
+        return REGERR_PARAM;
+
+    if (pathbuf == NULL)
+        return REGERR_PARAM;
+
+    /* Get next path from Registry */
+    status = VR_Enum( regPackageName, &state, pathbuf, MAXREGPATHLEN );
+
+    /* if we got a good path */
+    while (status == REGERR_OK)
+    {
+        char component_path[2*MAXREGPATHLEN+1] = {0};
+        strcat(component_path, regPackageName);
+        length = strlen(regPackageName);
+        if (component_path[length - 1] != '/')
+            strcat(component_path, "/");
+        strcat(component_path, pathbuf);
+        err = su_UninstallProcessItem(component_path);
+        status = VR_Enum( regPackageName, &state, pathbuf, MAXREGPATHLEN );  
+    }
+    
+    err = VR_Remove(regPackageName);
+    // there is a problem here.  It looks like if the file is refcounted, we still blow away the reg key
+    // FIX!
+    state = 0;
+    status = VR_UninstallEnumSharedFiles( regPackageName, &state, sharedfilebuf, MAXREGPATHLEN );
+    while (status == REGERR_OK)
+    {
+        err = su_UninstallProcessItem(sharedfilebuf);
+        err = VR_UninstallDeleteFileFromList(regPackageName, sharedfilebuf);
+        status = VR_UninstallEnumSharedFiles( regPackageName, &state, sharedfilebuf, MAXREGPATHLEN );
+    }
+
+    err = VR_UninstallDeleteSharedFilesKey(regPackageName);
+    err = VR_UninstallDestroy(regPackageName);
+    return err;
+}
+
+REGERR su_UninstallProcessItem(char *component_path)
+{
+    int refcount;
+    int err;
+    char filepath[MAXREGPATHLEN];
+
+    err = VR_GetPath(component_path, sizeof(filepath), filepath);
+    if ( err == REGERR_OK )
+    {
+        err = VR_GetRefCount(component_path, &refcount);  
+        if ( err == REGERR_OK )
+        {
+            --refcount;
+            if (refcount > 0)
+                err = VR_SetRefCount(component_path, refcount);  
+            else 
+            {
+                err = VR_Remove(component_path);
+                DeleteFileNowOrSchedule(nsFileSpec(filepath));
+            }
+        }
+        else
+        {
+            /* delete node and file */
+            err = VR_Remove(component_path);
+            DeleteFileNowOrSchedule(nsFileSpec(filepath));
+        }
+    }
+    return err;
+}

mozilla/xpinstall/src/nsInstallUninstall.h

@@ -0,0 +1,63 @@
+/* -*- Mode: C; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 2 -*- */
+/*
+ * 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 Mozilla Communicator client code, 
+ * released March 31, 1998. 
+ *
+ * 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.
+ *
+ * Contributors:
+ *     Daniel Veditz <dveditz@netscape.com>
+ *     Douglas Turner <dougt@netscape.com>
+ */
+
+
+#ifndef nsInstallUninstall_h__
+#define nsInstallUninstall_h__
+
+#include "prtypes.h"
+#include "nsString.h"
+#include "nsInstallObject.h"
+#include "nsInstall.h"
+
+class nsInstallUninstall : public nsInstallObject 
+{
+    public:
+          
+        nsInstallUninstall( nsInstall* inInstall,
+                            const nsString& regName,
+                            PRInt32 *error);
+
+
+        virtual ~nsInstallUninstall();
+
+        PRInt32 Prepare();
+        PRInt32 Complete();
+        void  Abort();
+        char* toString();
+
+        PRBool CanUninstall();
+        PRBool RegisterPackageNode();
+	  
+  
+    private:
+          
+        nsString mRegName;        // Registry name of package
+        nsString mUIName;         // User name of package
+
+        
+};
+
+#endif /* nsInstallUninstall_h__ */

mozilla/xpinstall/src/nsInstallVersion.cpp

@@ -0,0 +1,399 @@
+/* -*- Mode: C++; tab-width: 2; indent-tabs-mode: nil; c-basic-offset: 2 -*-
+ *
+ * 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 Mozilla Communicator client code.
+ *
+ * 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.
+ */
+
+#include "nsSoftwareUpdate.h"
+
+#include "nsInstallVersion.h"
+#include "nsIDOMInstallVersion.h"
+
+#include "nscore.h"
+#include "nsIFactory.h"
+#include "nsISupports.h"
+#include "nsIScriptGlobalObject.h"
+
+#include "prprf.h"
+
+static NS_DEFINE_IID(kISupportsIID, NS_ISUPPORTS_IID);
+static NS_DEFINE_IID(kIFactoryIID, NS_IFACTORY_IID);
+static NS_DEFINE_IID(kIScriptObjectOwnerIID, NS_ISCRIPTOBJECTOWNER_IID);
+
+static NS_DEFINE_IID(kIInstallVersion_IID, NS_IDOMINSTALLVERSION_IID);
+
+
+nsInstallVersion::nsInstallVersion()
+{
+    mScriptObject   = nsnull;
+    NS_INIT_REFCNT();
+}
+
+nsInstallVersion::~nsInstallVersion()
+{
+}
+
+NS_IMETHODIMP 
+nsInstallVersion::QueryInterface(REFNSIID aIID,void** aInstancePtr)
+{
+    if (aInstancePtr == NULL)
+    {
+        return NS_ERROR_NULL_POINTER;
+    }
+
+    // Always NULL result, in case of failure
+    *aInstancePtr = NULL;
+
+    if ( aIID.Equals(kIScriptObjectOwnerIID))
+    {
+        *aInstancePtr = (void*) ((nsIScriptObjectOwner*)this);
+        AddRef();
+        return NS_OK;
+    }
+    else if ( aIID.Equals(kIInstallVersion_IID) )
+    {
+        *aInstancePtr = (void*) ((nsIDOMInstallVersion*)this);
+        AddRef();
+        return NS_OK;
+    }
+    else if ( aIID.Equals(kISupportsIID) )
+    {
+        *aInstancePtr = (void*)(nsISupports*)(nsIScriptObjectOwner*)this;
+        AddRef();
+        return NS_OK;
+    }
+
+     return NS_NOINTERFACE;
+}
+
+
+NS_IMPL_ADDREF(nsInstallVersion)
+NS_IMPL_RELEASE(nsInstallVersion)
+
+
+
+NS_IMETHODIMP 
+nsInstallVersion::GetScriptObject(nsIScriptContext *aContext, void** aScriptObject)
+{
+    NS_PRECONDITION(nsnull != aScriptObject, "null arg");
+    nsresult res = NS_OK;
+    
+    if (nsnull == mScriptObject) 
+    {
+        res = NS_NewScriptInstallVersion(aContext, 
+                                         (nsISupports *)(nsIDOMInstallVersion*)this, 
+                                         nsnull, 
+                                         &mScriptObject);
+    }
+  
+
+    *aScriptObject = mScriptObject;
+    return res;
+}
+
+NS_IMETHODIMP 
+nsInstallVersion::SetScriptObject(void *aScriptObject)
+{
+  mScriptObject = aScriptObject;
+  return NS_OK;
+}
+
+//  this will go away when our constructors can have parameters.
+NS_IMETHODIMP    
+nsInstallVersion::Init(PRInt32 aMajor, PRInt32 aMinor, PRInt32 aRelease, PRInt32 aBuild)
+{
+    major   = aMajor;
+    minor   = aMinor;
+    release = aRelease;
+    build   = aBuild;
+
+    return NS_OK;
+}
+
+NS_IMETHODIMP    
+nsInstallVersion::Init(const nsString& version)
+{
+    PRInt32 errorCode;
+    PRInt32 aMajor, aMinor, aRelease, aBuild;
+
+    major = minor = release = build = 0;
+    
+    errorCode = nsInstallVersion::StringToVersionNumbers(version, &aMajor, &aMinor, &aRelease, &aBuild);    
+    if (NS_SUCCEEDED(errorCode)) 
+    {
+        Init(aMajor, aMinor, aRelease, aBuild);
+    }
+    
+    return NS_OK;
+}
+
+
+NS_IMETHODIMP    
+nsInstallVersion::GetMajor(PRInt32* aMajor)
+{
+    *aMajor = major;
+    return NS_OK;
+}
+
+NS_IMETHODIMP    
+nsInstallVersion::SetMajor(PRInt32 aMajor)
+{
+    major = aMajor;
+    return NS_OK;
+}
+
+NS_IMETHODIMP    
+nsInstallVersion::GetMinor(PRInt32* aMinor)
+{
+    *aMinor = minor;
+    return NS_OK;
+}
+
+NS_IMETHODIMP    
+nsInstallVersion::SetMinor(PRInt32 aMinor)
+{
+    minor = aMinor;
+    return NS_OK;
+}
+
+NS_IMETHODIMP    
+nsInstallVersion::GetRelease(PRInt32* aRelease)
+{
+    *aRelease = release;
+    return NS_OK;
+}
+
+NS_IMETHODIMP    
+nsInstallVersion::SetRelease(PRInt32 aRelease)
+{
+    release = aRelease;
+    return NS_OK;
+}
+
+NS_IMETHODIMP    
+nsInstallVersion::GetBuild(PRInt32* aBuild)
+{
+    *aBuild = build;
+    return NS_OK;
+}
+
+NS_IMETHODIMP    
+nsInstallVersion::SetBuild(PRInt32 aBuild)
+{
+    build = aBuild;
+    return NS_OK;
+}
+
+
+NS_IMETHODIMP    
+nsInstallVersion::CompareTo(nsIDOMInstallVersion* aVersion, PRInt32* aReturn)
+{
+    PRInt32 aMajor, aMinor, aRelease, aBuild;
+    
+    aVersion->GetMajor(&aMajor);
+    aVersion->GetMinor(&aMinor);
+    aVersion->GetRelease(&aRelease);
+    aVersion->GetBuild(&aBuild);
+
+    CompareTo(aMajor, aMinor, aRelease, aBuild, aReturn);
+    
+    return NS_OK;
+}
+
+
+NS_IMETHODIMP    
+nsInstallVersion::CompareTo(const nsString& aAString, PRInt32* aReturn)
+{
+    return NS_OK;
+}
+
+NS_IMETHODIMP    
+nsInstallVersion::CompareTo(PRInt32 aMajor, PRInt32 aMinor, PRInt32 aRelease, PRInt32 aBuild, PRInt32* aReturn)
+{
+    int diff;
+    
+    if ( major == aMajor ) 
+    {
+        if ( minor == aMinor ) 
+        {
+            if ( release == aRelease ) 
+            {
+                if ( build == aBuild )
+                    diff = EQUAL;
+                else if ( build > aBuild )
+                    diff = BLD_DIFF;
+                else
+                    diff = BLD_DIFF_MINUS;
+            }
+            else if ( release > aRelease )
+                diff = REL_DIFF;
+            else
+                diff = REL_DIFF_MINUS;
+        }
+        else if (  minor > aMinor )
+            diff = MINOR_DIFF;
+        else
+            diff = MINOR_DIFF_MINUS;
+    }
+    else if ( major > aMajor )
+        diff = MAJOR_DIFF;
+    else
+        diff = MAJOR_DIFF_MINUS;
+
+    *aReturn = diff;
+
+    return NS_OK;
+}
+
+
+NS_IMETHODIMP    
+nsInstallVersion::ToString(nsString& aReturn)
+{
+    char *result=NULL;
+    result = PR_sprintf_append(result, "%d.%d.%d.%d", major, minor, release, build);
+    
+    aReturn = result;
+
+    return NS_OK;
+}
+
+
+nsresult
+nsInstallVersion::StringToVersionNumbers(const nsString& version, PRInt32 *aMajor, PRInt32 *aMinor, PRInt32 *aRelease, PRInt32 *aBuild)    
+{
+    PRInt32 errorCode;
+
+    int dot = version.Find('.', 0);
+    
+    if ( dot == -1 ) 
+    {
+        *aMajor = version.ToInteger(&errorCode);
+    }
+    else  
+    {
+        nsString majorStr;
+        version.Mid(majorStr, 0, dot);
+        *aMajor  = majorStr.ToInteger(&errorCode);
+
+        int prev = dot+1;
+        dot = version.Find('.',prev);
+        if ( dot == -1 ) 
+        {
+            nsString minorStr;
+            version.Mid(minorStr, prev, version.Length() - prev);
+            *aMinor = minorStr.ToInteger(&errorCode);
+        }
+        else 
+        {
+            nsString minorStr;
+            version.Mid(minorStr, prev, dot - prev);
+            *aMinor = minorStr.ToInteger(&errorCode);
+
+            prev = dot+1;
+            dot = version.Find('.',prev);
+            if ( dot == -1 ) 
+            {
+                nsString releaseStr;
+                version.Mid(releaseStr, prev, version.Length() - prev);
+                *aRelease = releaseStr.ToInteger(&errorCode);
+            }
+            else 
+            {
+                nsString releaseStr;
+                version.Mid(releaseStr, prev, dot - prev);
+                *aRelease = releaseStr.ToInteger(&errorCode);
+    
+                prev = dot+1;
+                if ( version.Length() > dot ) 
+                {
+                    nsString buildStr;
+                    version.Mid(buildStr, prev, version.Length() - prev);
+                    *aBuild = buildStr.ToInteger(&errorCode);
+               }
+            }
+        }
+    }
+
+    return errorCode;
+}
+
+/////////////////////////////////////////////////////////////////////////
+// 
+/////////////////////////////////////////////////////////////////////////
+
+nsInstallVersionFactory::nsInstallVersionFactory(void)
+{
+    NS_INIT_REFCNT();
+}
+
+nsInstallVersionFactory::~nsInstallVersionFactory(void)
+{
+    NS_ASSERTION(mRefCnt == 0, "non-zero refcnt at destruction");
+}
+
+NS_IMETHODIMP
+nsInstallVersionFactory::QueryInterface(const nsIID &aIID, void **aResult)
+{
+    if (! aResult)
+        return NS_ERROR_NULL_POINTER;
+
+    // Always NULL result, in case of failure
+    *aResult = nsnull;
+
+    if (aIID.Equals(kISupportsIID)) {
+        *aResult = NS_STATIC_CAST(nsISupports*, this);
+        AddRef();
+        return NS_OK;
+    } else if (aIID.Equals(kIFactoryIID)) {
+        *aResult = NS_STATIC_CAST(nsIFactory*, this);
+        AddRef();
+        return NS_OK;
+    }
+    return NS_NOINTERFACE;
+}
+
+NS_IMPL_ADDREF(nsInstallVersionFactory);
+NS_IMPL_RELEASE(nsInstallVersionFactory);
+
+NS_IMETHODIMP
+nsInstallVersionFactory::CreateInstance(nsISupports *aOuter, REFNSIID aIID, void **aResult)
+{
+    if (aResult == NULL)
+    {
+        return NS_ERROR_NULL_POINTER;
+    }
+
+    *aResult = NULL;
+
+    /* do I have to use iSupports? */
+    nsInstallVersion *inst = new nsInstallVersion();
+
+    if (inst == NULL)
+        return NS_ERROR_OUT_OF_MEMORY;
+
+    nsresult result =  inst->QueryInterface(aIID, aResult);
+
+    if (NS_FAILED(result)) 
+        delete inst;
+
+    return result;
+}
+
+NS_IMETHODIMP
+nsInstallVersionFactory::LockFactory(PRBool aLock)
+{
+  return NS_OK;
+}