Removed some remaining SelectVisible calls in favor of CanSeeBug

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

mozilla/tools/patcher/MozAUSConfig.pm

@@ -1,803 +0,0 @@
-#!/usr/bin/perl
-#
-# ***** BEGIN LICENSE BLOCK *****
-# Version: MPL 1.1/GPL 2.0/LGPL 2.1
-#
-# 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 Patcher 2, a patch generator for the AUS2 system.
-#
-# The Initial Developer of the Original Code is
-#   Mozilla Corporation
-#
-# Portions created by the Initial Developer are Copyright (C) 2006
-# the Initial Developer. All Rights Reserved.
-#
-# Contributor(s):
-#   Chase Phillips (chase@mozilla.org)
-#   J. Paul Reed (preed@mozilla.com)
-#
-# Alternatively, the contents of this file may be used under the terms of
-# either the GNU General Public License Version 2 or later (the "GPL"), or
-# the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
-# in which case the provisions of the GPL or the LGPL are applicable instead
-# of those above. If you wish to allow use of your version of this file only
-# under the terms of either the GPL or the LGPL, and not to allow others to
-# use your version of this file under the terms of the MPL, indicate your
-# decision by deleting the provisions above and replace them with the notice
-# and other provisions required by the GPL or the LGPL. If you do not delete
-# the provisions above, a recipient may use your version of this file under
-# the terms of any one of the MPL, the GPL or the LGPL.
-#
-# ***** END LICENSE BLOCK *****
-#
-
-package MozAUSConfig;
-
-use Cwd;
-use Config::General;
-use Data::Dumper;
-
-require Exporter;
-
-@ISA = qw(Exporter);
-@EXPORT = qw(new DEFAULT_MAR_NAME);
-
-use MozAUSLib qw(SubstitutePath);
-
-use strict;
-
-##
-## CONSTANTS
-##
-
-use vars qw( @RUN_MODES
-             $DEFAULT_APP $DEFAULT_MODE $DEFAULT_CONFIG_FILE
-             $DEFAULT_DOWNLOAD_DIR $DEFAULT_DELIVERABLE_DIR
-             $DEFAULT_MAR_NAME
-           );
-
-@RUN_MODES = qw( build-tools
-                 build-tools-hg
-                 download 
-                 create-patches create-patchinfo );
-
-$DEFAULT_CONFIG_FILE = 'patcher2.cfg';
-$DEFAULT_APP = 'MyApp';
-$DEFAULT_DOWNLOAD_DIR = 'downloads';
-$DEFAULT_DELIVERABLE_DIR = 'temp';
-$DEFAULT_MAR_NAME = '%app%-%version%.%locale%.%platform%.complete.mar';
-
-sub new
-{
-    my $class = shift;
-    my $this = {};
-    bless($this, $class);
-    return $this->Initialize() ? $this : undef;
-}
-
-sub Initialize
-{
-    my $this = shift;
-    $this->{'mStartingDir'} = getcwd();
-    return ($this->ProcessCommandLineArgs() and
-            $this->ReadConfig() and 
-            $this->ExpandConfig() and
-            $this->ReadPastUpdates() and
-            $this->CreateUpdateGraph() and
-            $this->TransferChannels());
-}
-
-sub GetStartingDir
-{
-    my $this = shift;
-    die "ASSERT: mStartingDir must be a full path: $this->{'mStartingDir'}\n"
-     if ($this->{'mStartingDir'} !~ m:^/:);
-    return $this->{'mStartingDir'};
-}
-
-sub ProcessCommandLineArgs
-{
-    my $this = shift;
-    my (%args);
-
-    Getopt::Long::Configure('bundling_override', 'ignore_case_always', 
-     'pass_through');
-    Getopt::Long::GetOptions(\%args,
-     'help|h|?', 'man', 'version', 'app=s', 'brand=s', 'config=s', 'verbose',
-     'dry-run', 'tools-dir=s', 'download-dir=s', 'deliverable-dir=s',
-     'tools-revision=s', 'partial-patchlist-file=s', @RUN_MODES)
-     or return 0;
-
-    $this->{'mConfigFilename'} = defined($args{'config'}) ? $args{'config'} :
-     $DEFAULT_CONFIG_FILE;
-
-    $this->{'mApp'} = defined($args{'app'}) ? $args{'app'} : $DEFAULT_APP;
-    $this->{'mBrand'} = defined($args{'brand'}) ? $args{'brand'} : ucfirst($this->{'mApp'});
-
-    $this->{'mVerbose'} = defined($args{'verbose'}) ? $args{'verbose'} : 0;
-    
-    $this->{'mDownloadDir'} = defined($args{'mDownloadDir'}) ? 
-     $args{'mDownloadDir'} : $DEFAULT_DOWNLOAD_DIR;
-    $this->{'mDeliverableDir'} = defined($args{'mDeliverableDir'}) ? 
-     $args{'mDeliverableDir'} : $DEFAULT_DELIVERABLE_DIR;
-    $this->{'mPartialPatchlistFile'} = defined($args{'partial-patchlist-file'})      ? $args{'partial-patchlist-file'} : undef;
-
-    # Is this a dry run, and we'll just print what we *would* do?
-    $this->{'dryRun'} = defined($args{'dryRun'}) ? 1 : 0;
-
-    ## Expects to be the dir that $mToolsDir/mozilla/[all the tools] will be in.
-    $this->{'mToolsDir'} = defined($args{'mToolsDir'}) ? $args{'mToolsDir'} : getcwd();
-
-    # A bunch of paths need to be full pathed; they're all part of $this, so all
-    # we really need is the key values; check them all here.
-    foreach my $pathKey (qw(mDownloadDir mDeliverableDir mToolsDir)) {
-        if ($this->{$pathKey} !~ m:^/:) {
-            $this->{$pathKey} = $this->GetStartingDir() . '/' .
-             $this->{$pathKey};
-        }
-    }
-
-    # the tag we would use for pulling the mozilla tree in BuildTools()
-    $this->{'mToolsRevision'} = defined($args{'tools-revision'}) ?
-     $args{'tools-revision'} : 'HEAD';
-
-    $this->{'run'} = [];
-
-    foreach my $mode (@RUN_MODES) {
-        push(@{$this->{'run'}}, $mode) if defined $args{$mode};
-    }
-
-    return 0 if (not scalar(@{$this->{'run'}}));
-
-    return 1;
-}
-
-sub ReadConfig
-{
-    my $this = shift;
-
-    my $configFile = $this->{'mConfigFilename'};
-    if (not -r $configFile) {
-        die "Config file '$configFile' isn't readable";   
-    }
-    my $configObj = new Config::General(-ConfigFile => $configFile);
-
-    my %rawConfig = $configObj->getall();
-
-    $this->{'mRawConfig'} = \%rawConfig;
-    return $this->CookConfig();
-}
-
-sub CookConfig
-{
-    my $this = shift;
-    $this->{'mAppConfig'} = $this->{'mRawConfig'}->{'app'}->{$this->GetApp()};
-    return 1;
-}
-
-sub GetAppConfig
-{
-    my $this = shift;
-    return $this->{'mAppConfig'};
-}
-
-sub GetAllAppReleases
-{
-    my $this = shift;
-    return $this->GetAppConfig()->{'release'};
-}
-
-sub GetAppRelease
-{
-    my $this = shift;
-    my $release = shift;
-    return $this->GetAppConfig()->{'release'}->{$release};
-}
-
-sub GetPastUpdates
-{
-    my $this = shift;
-    return $this->GetAppConfig()->{'mPastUpdates'};
-}
-
-sub  GetCurrentUpdate
-{
-    my $this = shift;
-    my $updateData = $this->GetAppConfig()->{'update_data'};
-    my @updateKeys = keys(%{$updateData});
-    die "ASSERT: MozAUSConfig::GetCurrentUpdate() must return 1 update\n"
-     if (scalar(@updateKeys) != 1);
-    ## Stupid...
-    return $this->GetAppConfig()->{'update_data'}->{$updateKeys[0]};
-}
-
-##
-## Creates a platform entry in each release hash that maps platform 
-## -> buildid/the locales the platform needs updates for; takes into account
-## the exceptions list, and prunes those.
-##
-
-sub ExpandConfig
-{
-    my $this = shift;
-
-    my $prefix_dir = $this->{'prefix'};
-    my $buildinfo_dir = "$prefix_dir/build";
-
-    # Expand basic release config into information about locales, pruning as needed.
-
-    my $r_config = $this->GetAppConfig()->{'release'};
-    for my $r (keys(%{$this->GetAllAppReleases()})) {
-        my $rl_config = $r_config->{$r};
-        my $locale_list = $rl_config->{'locales'};
-
-        my @locales = split(/\s+/, $locale_list);
-
-        my $rlp_config = $rl_config->{'platforms'};
-        my @platforms = keys(%{$rlp_config});
-        for my $p (@platforms) {
-            my $build_id = $rlp_config->{$p};
-            delete($rlp_config->{$p});
-            if (!exists($rlp_config->{$p}->{'locales'})
-                or !defined($rlp_config->{$p}->{'locales'})) {
-                $rlp_config->{$p}->{'locales'} = [];
-            }
-            $rlp_config->{$p}->{'build_id'} = $build_id;
-
-            my $platform_locales = $rlp_config->{$p}->{'locales'};
-
-            for my $l (@locales) {
-                if (exists($rl_config->{'exceptions'}->{$l})
-                    and defined($rl_config->{'exceptions'}->{$l})) {
-
-                    my @e = split(/\s*,\s*/, $rl_config->{'exceptions'}->{$l});
-
-                    push(@$platform_locales, $l) if grep(/^$p$/, @e);
-                    next;
-                }
-
-                push(@$platform_locales, $l);
-            }
-
-            my @sorted_locales = sort(@{$platform_locales});
-            $rlp_config->{$p}->{'locales'} = \@sorted_locales;
-        }
-    }
-
-    return 1;
-}
-
-#
-# Parses all the past-update lines, and adds the past update channels to the
-# update-TO release. Not that useful?
-#
-
-sub ReadPastUpdates
-{
-    my $this = shift;
-
-    my(@update_config, @updates);
-    my $update = $this->{'mAppConfig'}->{'past-update'};
-    # An artifact of Config::General; if multiple |past-update|s are 
-    # defined, you get them in an array ref; otherwise, it's just a string.
-    if (ref($update) eq 'ARRAY') {
-        @update_config = @{$update};
-    } else {
-        push(@update_config, $update);
-    }
-
-    for my $u (@update_config) {
-        # Parse apart the update definition into from/to/update channels and 
-        # stuff the info into @updates.
-        if ( $u =~ /^\s*(\S+)\s+(\S+)\s+([\w\s\-]+)$/ ) {
-            my $update_node = {};
-            $update_node->{'from'} = $1;
-            $update_node->{'to'} = $2;
-            my @update_channels = split(/\s+/, $3);
-            $update_node->{'channels'} = \@update_channels;
-
-            push(@updates, $update_node);
-        }
-        else {
-            print STDERR "read_past_updates(): Invalid past-update specification: $u\n";
-        }
-    }
-
-    my $appConfig = $this->GetAppConfig();
-    $appConfig->{'mPastUpdates'} = [];
-
-    for my $u (@updates) {
-        my $u_from = $u->{'from'};
-        my $u_to = $u->{'to'};
-        my @u_channels = @{$u->{'channels'}};
-
-        # If the release that this update points to isn't defined, ...
-        if (!exists($this->{'mAppConfig'}->{'release'}->{$u_to}) or
-            !defined($this->{'mAppConfig'}->{'release'}->{$u_to})) {
-            # Skip to the next update.
-            print STDERR "Warning: a past-update mentions release $u_to which doesn't exist.\n";
-            next;
-        }
-
-        my $pastUpdateNode = { 'from' => $u_from,
-                               'to' => $u_to,
-                               'channels' => \@u_channels };
-
-        push(@{$appConfig->{'mPastUpdates'}}, $pastUpdateNode);
-
-        my $ur_config = $this->{'mAppConfig'}->{'release'}->{$u_to};
-        foreach my $channel (@u_channels) {
-            $this->AddChannelToRelease(release => $ur_config,
-                                       channel => $channel);
-        }
-    }
-
-    return 1;
-}
-
-sub CreateUpdateGraph
-{
-    my $this = shift;
-    my %args = @_;
-
-    my $appConfig = $this->GetAppConfig();
-
-    my $temp_prefix = lc($this->GetApp());
-
-    my @updates;
-    my $update = $appConfig->{'current-update'};
-    if (ref($update) eq 'ARRAY') {
-        @updates = @$update;
-    } else {
-        push(@updates, $update);
-    }
-
-    if (!defined($appConfig->{'update_data'})) {
-        $appConfig->{'update_data'} = {};
-    }
-
-    my $u_config = $appConfig->{'update_data'};
-
-    for my $u (@updates) {
-        my $u_from = $u->{'from'};
-        my $u_to = $u->{'to'};
-        my $u_channel = $u->{'channel'};
-        my $u_testchannel = $u->{'testchannel'};
-        my $u_partial = $u->{'partial'};
-        my $u_complete = $u->{'complete'};
-        my $u_details = $u->{'details'};
-        my $u_license = $u->{'license'};
-        my $u_updateType = $u->{'updateType'};
-        my $u_rcInfo = exists($u->{'rc'}) ? $u->{'rc'} : undef;
-        my $u_force = [];
-      
-        if (defined($u->{'force'})) {
-            if (ref($u->{'force'}) eq 'ARRAY') {
-                $u_force = $u->{'force'};
-            } else {
-                push(@{$u_force}, $u->{'force'}); 
-            }
-        }
-
-        my $u_key = "$u_from-$u_to";
-
-        # If the release that this update points to isn't defined, ...
-        # TODO - check the from release
-        if (not defined($this->GetAppRelease($u_to))) {
-            # Skip to the next update.
-            print STDERR "Update $u_key refers to a non-existant release endpoint: $u_to\n";
-            next;
-        }
-
-        # Add the channel(s) to the update information.
-        my $ur_config = $appConfig->{'release'}->{$u_from};
-        my @channels = split(/\s+/, $u_channel);
-        for my $c (@channels) {
-            $this->AddChannelToRelease(release => $ur_config, channel => $c);
-        }
-
-        if (!defined($u_config->{$u_key})) {
-            $u_config->{$u_key} = {};
-        }
-
-        $u_config->{$u_key}->{'from'} = $u_from;
-        $u_config->{$u_key}->{'to'} = $u_to;
-        $u_config->{$u_key}->{'channel'} = $u_channel;
-        $u_config->{$u_key}->{'testchannel'} = $u_testchannel;
-        $u_config->{$u_key}->{'partial'} = $u_partial;
-        $u_config->{$u_key}->{'complete'} = $u_complete;
-        $u_config->{$u_key}->{'details'} = $u_details;
-        $u_config->{$u_key}->{'license'} = $u_license;
-        $u_config->{$u_key}->{'updateType'} = $u_updateType;
-        $u_config->{$u_key}->{'force'} = $u_force;
-        $u_config->{$u_key}->{'platforms'} = {};
-
-        # Add the keys that specify channel-specific snippet directories
-        foreach my $c (@channels) {
-            my $testKey = $c . '-dir';
-            if (exists($u->{$testKey})) {
-                $u_config->{$u_key}->{$testKey} = $u->{$testKey};
-            }
-        }
-
-        # Creates a hash of channel -> rc number the channel thinks its on
-        $u_config->{$u_key}->{'rc'} = {};
-        if (defined($u_rcInfo)) {
-            foreach my $channel (keys(%{$u_rcInfo})) {
-                # Such a hack... this isn't a channel name at all; it's a config
-                # variable, to control the behavior of sending the complete 
-                # "jump" updates to the RC channels...
-                if ($channel eq 'DisableCompleteJump') {
-                    $u_config->{$u_key}->{'DisableCompleteJump'} = $u_rcInfo->{$channel};
-                    next;
-                }
-                $u_config->{$u_key}->{'rc'}->{$channel} = $u_rcInfo->{$channel};
-            }
-        }
-
-        my $r_config = $this->{'mAppConfig'}->{'release'};
-        my @releases = keys %$r_config;
-
-        # Find the set of locales that intersect for each platform by calculating how many times they appear.
-
-        my $locale_intersection = {};
-
-        for my $side ('from', 'to') {
-            my $subu = $side eq 'from' ? $u_from : $u_to;
-
-            if (!defined($r_config->{$subu})) {
-                die "ERROR: trying to update from/to a build that we have no release info about!";
-            }
-
-            my $rl_config = $r_config->{$subu};
-            my $rlp_config = $rl_config->{'platforms'};
-            my @platforms = keys %$rlp_config;
-            for my $p (@platforms) {
-                my $platform_locales = $rlp_config->{$p}->{'locales'};
-
-                for my $l (@$platform_locales) {
-                    if (!defined($locale_intersection->{$p})) {
-                        $locale_intersection->{$p} = {};
-                    }
-
-                    if (!defined($locale_intersection->{$p}->{$l})) {
-                        $locale_intersection->{$p}->{$l} = 0;
-                    }
-
-                    $locale_intersection->{$p}->{$l}++;
-                }
-            }
-        } # for my $side ("from", "to")
-
-        # Store the set of locales that intersect in the $update_locales hash.
-
-        my $update_locales = {};
-
-        for my $platform (keys %$locale_intersection) {
-            for my $locale (keys %{$locale_intersection->{$platform}}) {
-                if ($locale_intersection->{$platform}->{$locale} > 1) {
-                    if (!defined($update_locales->{$platform})) {
-                        $update_locales->{$platform} = [];
-                    }
-
-                    push(@{$update_locales->{$platform}}, $locale);
-                }
-            }
-        }
-
-
-
-        # Now build an update based on each side of the update graph that 
-        # only creates an update between the locale intersection.
-
-        for my $side ('from', 'to') {
-            my $subu = $side eq 'from' ? $u_from : $u_to;
-
-            if (!defined($r_config->{$subu})) {
-                die "ERROR: trying to update from/to a build that we have no release info about!";
-            }
-
-            my $rl_config = $r_config->{$subu};
-            my $rlp_config = $rl_config->{'platforms'};
-            my @platforms = keys %$rlp_config;
-            for my $p (@platforms) {
-                if (!defined($u_config->{$u_key}->{'platforms'}->{$p})) {
-                    $u_config->{$u_key}->{'platforms'}->{$p} = {};
-                }
-
-                my $up_config = $u_config->{$u_key}->{'platforms'}->{$p};
-
-                $up_config->{'build_id'} = $rlp_config->{$p}->{'build_id'};
-
-                if (!defined($up_config->{'locales'})) {
-                    $up_config->{'locales'} = {};
-                }
-
-                my $ul_config = $up_config->{'locales'};
-
-                my $platform_locales = $update_locales->{$p};
-                for my $l (@$platform_locales) {
-                    if (!defined($ul_config->{$l})) {
-                        $ul_config->{$l} = {};
-                    }
-
-                    $ul_config->{$l}->{$side} = $this->GatherCompleteData(
-                     release => $subu,
-                     completemarurl => $rl_config->{'completemarurl'},
-                     platform => $p,
-                     locale => $l,
-                     build_id => $rlp_config->{$p}->{'build_id'},
-                     version => $rl_config->{'version'},
-                     prettyVersion => $rl_config->{'prettyVersion'},
-                     extensionVersion => $rl_config->{'extension-version'},
-                     schemaVersion => $rl_config->{'schema'} );
-                }
-            }
-        } # for my $side ("from", "to")
-    }
-    return 1;
-}
-
-sub GatherCompleteData
-{
-    my $this = shift;
-
-    my %args = @_;
-
-    my $completemarurl = $args{'completemarurl'};
-    my $platform = $args{'platform'};
-    my $locale = $args{'locale'};
-    my $release = $args{'release'};
-    my $build_id = $args{'build_id'};
-    my $version = $args{'version'};
-    my $prettyVersion = $args{'prettyVersion'};
-    my $extensionVersion = $args{'extensionVersion'};
-    my $schemaVersion = $args{'schemaVersion'};
-
-    my $config = $args{'config'};
-
-    #my $startdir = getcwd();
-    $completemarurl = SubstitutePath(path => $completemarurl,
-                                     platform => $platform,
-                                     locale => $locale,
-                                     version => $version );
-
-    my $filename = SubstitutePath(path => $DEFAULT_MAR_NAME,
-                                  platform => $platform,
-                                  locale => $locale,
-                                  version => $release,
-                                  app => lc($this->GetApp()));
-
-    my $local_filename = "$release/ftp/$filename";
-
-    my $node = {};
-    $node->{'path'} = $local_filename;
-
-    if ( -e $local_filename ) {
-        #printf("found $local_filename\n");
-        #my $md5 = `md5sum $local_filename`;
-        #chomp($md5);
-        #$md5 =~ s/^([^\s]*)\s+.*$/$1/g;
-
-        #$node->{'md5'} = $md5;
-        #$node->{'size'} = (stat($local_filename))[7];
-    } else {
-        #printf("did not find $local_filename\n");
-    }
-
-    $node->{'url'} = $completemarurl;
-    $node->{'build_id'} = $build_id;
-    # XXX - This is a huge hack and needs to be fixed. It's to support 
-    # Y!/Google builds, wherein we specify the version as 
-    # Firefox_version-google/yahoo. However, since this is used for appv 
-    # and extv, the version needs to NOT have these -google/-yahoo identifiers.
-    my $numericVersion = $version;
-    $numericVersion =~ s/\-.*$//;
-    $node->{'appv'} = $numericVersion;
-
-    # appv is used for directory creation and possibly other things.
-    # patcher will use prettyAppv in the snippets it creates, and appv for any
-    # other weird things it chooses to use it for
-    $node->{'prettyAppv'} = defined($prettyVersion) ?
-     $prettyVersion : $numericVersion;
-
-    # Most of the time, the extv should be the same as the appv; sometimes,
-    # however, this won't be the case. This adds support to allow you to specify
-    # an extv that is different from the appv. 
-    $node->{'extv'} = defined($extensionVersion) ? 
-     $extensionVersion : $numericVersion;
-
-    if (defined($schemaVersion)) {
-        $node->{'schema'} = $schemaVersion;
-    }
-
-    #chdir($startdir);
-
-    return $node;
-}
-
-
-sub AddChannelToRelease
-{
-    my $this = shift;
-    my %args = @_;
-    my $rconfig = $args{'release'};
-    my $newChannel = $args{'channel'};
-
-    # Validate arguments...
-    die "ASSERT: AddChannelToRelease(): Invalid release config" if (not defined($rconfig));
-
-    die "ASSERT: AddChannelToRelease(): Invalid new channel" if (not defined($newChannel));
-
-    if (!defined($rconfig->{'all_channels'})) {
-        # Create the release's all_channels.
-        $rconfig->{'all_channels'} = [];
-    }
-
-    # return if the release already has this channel in all_channels, ...
-    return if (grep(/^$newChannel$/, @{$rconfig->{'all_channels'}}));
-
-    # Add the new channel to all_channels.
-    push(@{$rconfig->{'all_channels'}}, $newChannel);
-    return 1;
-}
-
-##
-## Copies the channels defined in a from-release to the to-releae in an update,
-## presumably so users of the from-release will get the update in the
-## to-release.
-##
-
-sub TransferChannels
-{
-    my $this = shift;
-
-    my $u_config = $this->GetAppConfig()->{'update_data'};
-    my @updates = keys %$u_config;
-
-    for my $u (@updates) {
-        # If the update config doesn't have all_channels defined, define it as a list.
-        if (!defined($u_config->{$u}->{'all_channels'})) {
-            $u_config->{$u}->{'all_channels'} = [];
-        }
-
-        # Select the lhs of the update config.
-        my $u_from = $u_config->{$u}->{'from'};
-        # Correlate the lhs of the update config with its release config.
-        my $rconfig = $this->{'mAppConfig'}->{'release'}->{$u_from};
-
-        # If the lhs side of the update's release configuration has all_channels defined, push
-        # those entries onto the update's all_channels.
-        if (defined($rconfig->{'all_channels'})) {
-            my @all_channels = @{$rconfig->{'all_channels'}};
-            push(@{$u_config->{$u}->{'all_channels'}}, @all_channels);
-        }
-    }
-    return 1;
-}
-
-
-sub RemoveBrokenUpdates
-{
-    my $this = shift;
-
-    my $temp_prefix = lc($this->GetApp());
-    my $startdir = getcwd();
-    chdir("temp/$temp_prefix") or die "ASSERT: chdir(temp/$temp_prefix) FAILED; cwd: " . getcwd();
-
-    my $u_config = $this->GetAppConfig()->{'update_data'};
-    my @updates = keys %$u_config;
-
-    my $i = 0;
-    for my $u (@updates) {
-        my $partial = $u_config->{$u}->{'partial'};
-        my $partial_path = $partial->{'path'};
-        my $partial_url = $partial->{'url'};
-
-        my @platforms = sort keys %{$u_config->{$u}->{'platforms'}};
-        for my $p (@platforms) {
-            my $ul_config = $u_config->{$u}->{'platforms'}->{$p}->{'locales'};
-            my @locales = sort keys %$ul_config;
-
-            for my $l (@locales) {
-                my $from = $ul_config->{$l}->{'from'};
-                my $to = $ul_config->{$l}->{'to'};
-
-                my $from_path = $from->{'path'};
-                my $to_path = $to->{'path'};
-
-                my $to_name = $u_config->{$u}->{'to'};
-
-                my $gen_partial_path = $partial_path;
-                $gen_partial_path = SubstitutePath(path => $partial_path,
-                                                   platform => $p,
-                                                   version => $to->{'appv'},
-                                                   locale => $l);
-
-                my $gen_partial_url = $partial_url;
-                $gen_partial_url = SubstitutePath(path => $partial_url,
-                                                  platform => $p,
-                                                  version => $to->{'appv'},
-                                                  locale => $l);
-
-                my $partial_pathname = "$u/ftp/$gen_partial_path";
-
-                # Go to next iteration if this partial patch already exists.
-                next if -e $partial_pathname;
-                $i++;
-
-                if ( ! -f $from_path or
-                     ! -f $to_path ) {
-                    # remove this update
-                    delete($ul_config->{$l});
-                }
-            }
-        }
-    }
-
-    #printf("%s", Data::Dumper::Dumper($u_config));
-
-    chdir($startdir);
-} # remove_broken_updates
-
-
-
-sub RequestedStep
-{
-    my $this = shift;
-    my $checkStep = shift;
-    return grep(/^$checkStep$/, @{$this->{'run'}});
-}
-
-sub GetDeliverableDir
-{
-    my $this = shift;
-    die "ASSERT: GetDownloadDir() must return a full path" if
-     ($this->{'mDeliverableDir'} !~ m:^/:);
-    return $this->{'mDeliverableDir'};
-}
-
-sub GetApp
-{
-    my $this = shift;
-    return $this->{'mBrand'};
-}
-
-sub GetDownloadDir
-{
-    my $this = shift;
-    die "ASSERT: GetDownloadDir() must return a full path" if
-     ($this->{'mDownloadDir'} !~ m:^/:);
-    return $this->{'mDownloadDir'};
-}
-
-sub GetToolsDir
-{
-    my $this = shift;
-    die "ASSERT: GetToolsDir() must return a full path" if
-     ($this->{'mToolsDir'} !~ m:^/:);
-    return $this->{'mToolsDir'};
-}
-
-sub IsDryRun
-{
-    my $this = shift;
-    return 1 == $this->{'dryRun'};
-}
-
-sub GetToolsRevision
-{
-    my $this = shift;
-    return $this->{'mToolsRevision'};
-}
-
-1;

mozilla/tools/patcher/MozAUSLib.pm

@@ -1,413 +0,0 @@
-#!/usr/bin/perl
-#
-# ***** BEGIN LICENSE BLOCK *****
-# Version: MPL 1.1/GPL 2.0/LGPL 2.1
-#
-# 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 Patcher 2, a patch generator for the AUS2 system.
-#
-# The Initial Developer of the Original Code is
-#   Mozilla Corporation
-#
-# Portions created by the Initial Developer are Copyright (C) 2006
-# the Initial Developer. All Rights Reserved.
-#
-# Contributor(s):
-#   Chase Phillips (chase@mozilla.org)
-#   J. Paul Reed (preed@mozilla.com)
-#
-# Alternatively, the contents of this file may be used under the terms of
-# either the GNU General Public License Version 2 or later (the "GPL"), or
-# the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
-# in which case the provisions of the GPL or the LGPL are applicable instead
-# of those above. If you wish to allow use of your version of this file only
-# under the terms of either the GPL or the LGPL, and not to allow others to
-# use your version of this file under the terms of the MPL, indicate your
-# decision by deleting the provisions above and replace them with the notice
-# and other provisions required by the GPL or the LGPL. If you do not delete
-# the provisions above, a recipient may use your version of this file under
-# the terms of any one of the MPL, the GPL or the LGPL.
-#
-# ***** END LICENSE BLOCK *****
-#
-
-package MozAUSLib;
-
-use Cwd;
-use File::Path;
-use File::Copy qw(move copy);
-use English;
-
-use File::Spec::Functions;
-
-use MozBuild::Util qw(RunShellCommand MkdirWithPath HashFile);
-
-require Exporter;
-
-@ISA = qw(Exporter);
-@EXPORT_OK = qw(CreatePartialMarFile CreatePartialMarPatchInfo
-                GetAUS2PlatformStrings GetBouncerPlatformStrings
-                ValidateToolsDirectory
-                EnsureDeliverablesDir
-                SubstitutePath
-                GetSnippetDirFromChannel
-                CachedHashFile
-               );
-
-use strict;
-
-##
-## CONSTANTS 
-##
-
-use vars qw($MAR_BIN $MBSDIFF_BIN $MAKE_BIN
-            $INCREMENTAL_UPDATE_BIN $UNWRAP_FULL_UPDATE_BIN
-            $FAST_INCREMENTAL_UPDATE_BIN
-            $TMPDIR_PREFIX 
-            %BOUNCER_PLATFORMS %FILEPATH_PLATFORMS %AUS2_PLATFORMS
-            $DEFAULT_PARTIAL_MAR_OUTPUT_FILE
-            $DEFAULT_SNIPPET_BASE_DIR $DEFAULT_SNIPPET_TEST_DIR
-            $SNIPPET_CHECKSUM_HASH_CACHE);
-
-$MAR_BIN = 'dist/host/bin/mar';
-$MBSDIFF_BIN = 'dist/host/bin/mbsdiff';
-
-$INCREMENTAL_UPDATE_BIN = 'tools/update-packaging/make_incremental_update.sh';
-$FAST_INCREMENTAL_UPDATE_BIN = 'tools/update-packaging/make_incremental_updates.py';
-$UNWRAP_FULL_UPDATE_BIN = 'tools/update-packaging/unwrap_full_update.pl';
-
-$MAKE_BIN = '/usr/bin/make';
-$TMPDIR_PREFIX = '/dev/shm/tmp/MozAUSLib';
-
-%BOUNCER_PLATFORMS = ( 'win32' => 'win',
-                       'wince-arm' => 'wince',
-                       'linux-i686' => 'linux',
-                       'linux-x86_64' => 'linux64',
-                       'mac' => 'osx',
-                       'mac64' => 'osx64',
-                       'unimac' => 'osx',
-                     );
-
-%FILEPATH_PLATFORMS = ( 'win32' => 'win32',
-                        'linux-i686' => 'linux-i686',
-                        'linux-x86_64' => 'linux-x86_64',
-                        'mac' => 'mac',
-                        'mac64' => 'mac',
-                      );
-
-%AUS2_PLATFORMS = ( 'macppc' => ['Darwin_ppc-gcc3'],
-                    'mac' => ['Darwin_x86-gcc3-u-ppc-i386'],
-                    'mac64' => ['Darwin_x86_64-gcc3',
-                                'Darwin_x86-gcc3-u-i386-x86_64',
-                                'Darwin_x86_64-gcc3-u-i386-x86_64'],
-                    'linux-i686' => ['Linux_x86-gcc3'],
-                    'linux-x86_64' => ['Linux_x86_64-gcc3'],
-                    'win32' => ['WINNT_x86-msvc'],
-                    'wince-arm' => ['WINCE_arm-msvc'],
-                  );
-
-$DEFAULT_PARTIAL_MAR_OUTPUT_FILE = 'partial.mar';
-
-$DEFAULT_SNIPPET_BASE_DIR = 'aus2';
-$DEFAULT_SNIPPET_TEST_DIR = $DEFAULT_SNIPPET_BASE_DIR . '.test';
-
-##
-## Global, used by CachedHashFile()
-##
-
-$SNIPPET_CHECKSUM_HASH_CACHE = {};
-
-sub CachedHashFile {
-   my %args = @_;
-
-   if (! exists($args{'file'}) || !exists($args{'type'})) {
-      die("ASSERT: CachedHashFile: null file and/or type");
-   }
-
-   # Let HashFile do all the heavy error checking lifting...
-   my $file = $args{'file'};
-   my $checksumType = $args{'type'};
-
-   if (! exists($SNIPPET_CHECKSUM_HASH_CACHE->{$file})) {
-      $SNIPPET_CHECKSUM_HASH_CACHE->{$file} = {};
-   }
-
-   if (! exists($SNIPPET_CHECKSUM_HASH_CACHE->{$file}->{$checksumType})) {
-      $SNIPPET_CHECKSUM_HASH_CACHE->{$file}->{$checksumType} = 
-       HashFile(file => $file, type => $checksumType);
-   }
-
-   return $SNIPPET_CHECKSUM_HASH_CACHE->{$file}->{$checksumType};
-
-}
-
-sub EnsureDeliverablesDir
-{
-   my %args = @_;
-
-   die "ASSERT: null config spec\n" if (not defined($args{'config'}));
-   my $configSpec = $args{'config'};
-
-   my $fullDeliverableDirPath = catfile($configSpec->GetDeliverableDir(),
-                                        lc($configSpec->GetApp()));
-
-   MkdirWithPath(dir => $fullDeliverableDirPath, mask => 0751) or
-    die "ASSERT: EnsureDeliverablesDir(): " .
-    "MkdirWithPath($fullDeliverableDirPath) failed\n";
-   return $fullDeliverableDirPath;
-}
-
-sub ValidateToolsDirectory
-{
-    my %args = @_;
-    my $toolsDir= $args{'toolsDir'};
-
-    if ($toolsDir !~ /^\//) {
-       die "ASSERT: ValidateToolsDirectory() requires a full path: $toolsDir\n";
-    }
-
-    my $binPrefix = "$toolsDir/mozilla";
-    return (-d $binPrefix and
-            -x "$binPrefix/$MAR_BIN" and
-            -x "$binPrefix/$MBSDIFF_BIN" and
-            -x "$binPrefix/$FAST_INCREMENTAL_UPDATE_BIN" and
-            -x "$binPrefix/$INCREMENTAL_UPDATE_BIN" and
-            -x "$binPrefix/$UNWRAP_FULL_UPDATE_BIN");
-}
-
-sub GetAUS2PlatformStrings
-{
-    my %retHash = %AUS2_PLATFORMS;
-    return %retHash;
-}
-
-sub GetBouncerPlatformStrings
-{
-    my %retHash = %BOUNCER_PLATFORMS;
-    return %retHash;
-}
-
-sub GetFilepathPlatformStrings
-{
-    my %retHash = %FILEPATH_PLATFORMS;
-    return %retHash;
-}
-
-sub CreatePartialMarFile
-{
-    my %args = @_;
-
-    my $fromCompleteMar = $args{'from'};
-    my $toCompleteMar = $args{'to'};
-    my $outputDir = $args{'outputDir'} || getcwd();
-    my $outputFile = $args{'outputFile'} || $DEFAULT_PARTIAL_MAR_OUTPUT_FILE;
-    my $mozdir = $args{'mozdir'};
-    my $forceList = $args{'force'};
-
-    my $startingWd = getcwd();
-
-    if (not defined($mozdir)) {
-        die "ASSERT: CreatePartialMarFile(): mozdir undefined\n";
-    }
-
-    if (not ValidateToolsDirectory(toolsDir => $mozdir)) {
-        print STDERR "Invalid Mozilla working dir: $mozdir\n";
-        return -1;
-    } else {
-        # We actually want the CVS directory itself...
-        $mozdir .= '/mozilla';
-    }
-
-    my $mar = "$mozdir/$MAR_BIN";
-    my $mbsdiff = "$mozdir/$MBSDIFF_BIN";
-    my $makeIncrementalUpdate = "$mozdir/$INCREMENTAL_UPDATE_BIN";
-
-    # Seed PRNG.
-    srand (time() ^ $PID ^ unpack "%L*", `ps axww|gzip`);
-    my $tmpDir = "$TMPDIR_PREFIX.CreatePartialMarFile/$PID/" . 
-     int(rand(1000000));
-
-    my $fromDir = "$tmpDir/from"; 
-    my $toDir = "$tmpDir/to";
-    my $partialDir = "$tmpDir/partial";
-
-    my @createdDirs = ($tmpDir, $fromDir, $toDir, $partialDir);
-
-    foreach my $dir (@createdDirs) {
-        if (not MkdirWithPath(dir => $dir)) {
-            print STDERR "MkdirWithPath() failed on $dir: $EVAL_ERROR\n";
-            return -1;
-        }
-    }
-
-    if ( not -r $fromCompleteMar) {
-        print STDERR "CreatePartialMarFile: $fromCompleteMardoesn't exist!";
-        return -1;
-    }
-
-    if ( not -r $toCompleteMar ) {
-        print STDERR "CreatePartialMarFile: $toCompleteMar doesn't exist!";
-        return -1;
-    }
-
-    # XXX - Add check here to verify md5/sha1 checksum of file is as-expected.
-
-    # Extract the source MAR file.
-    $ENV{'MAR'} = $mar;
-
-    my $extractCommand = catfile($mozdir, $UNWRAP_FULL_UPDATE_BIN);
-    my $unwrapArgs = [catfile($startingWd, $fromCompleteMar)];
-
-    printf("Decompressing $fromCompleteMar with $extractCommand " .
-     join(" ", @{$unwrapArgs}) . "...\n");
-    chdir($fromDir) or die "chdir() $fromDir failed: $ERRNO";
-
-    my $rv = RunShellCommand(command => $extractCommand,
-                             args => $unwrapArgs,
-                             output => 1);
-    
-    if ($rv->{'exitValue'} != 0) {
-        die "FAILED: $extractCommand: $rv->{'exitValue'}, output: $rv->{'output'}\n";
-    }
-
-    printf("done\n");
-
-    # Extract the destination MAR file.
- 
-    $unwrapArgs = [catfile($startingWd, $toCompleteMar)];
-    printf("Decompressing $toCompleteMar with $extractCommand " .
-     join(" ", @{$unwrapArgs}) . "...\n");
-    chdir($toDir) or die "chdir() $toDir failed: $ERRNO";;
-
-    $rv = RunShellCommand(command => $extractCommand,
-                          args => $unwrapArgs,
-                          output => 1);
-
-    if ($rv->{'exitValue'} != 0) {
-        die "FAILED: $extractCommand: $rv->{'exitValue'}, output: $rv->{'output'}\n";
-    }
-
-    printf("done\n");
-
-    # Build the partial patch.
-    chdir($mozdir);
-
-    my $outputMar = catfile($mozdir, $DEFAULT_PARTIAL_MAR_OUTPUT_FILE);
-    $ENV{'MBSDIFF'} = $mbsdiff;
-
-    my $incrUpdateArgs = [];
-    
-    # Tack any force arguments onto the beginning of the arg list
-    if (defined($forceList) && scalar(@{$forceList}) > 0) {
-        foreach my $file (@{$forceList}) {
-            push(@{$incrUpdateArgs}, ('-f', $file));
-        }
-    }
-
-    push(@{$incrUpdateArgs}, ($outputMar, $fromDir, $toDir));
-
-    printf("Building partial update with: $makeIncrementalUpdate " . 
-     join(" ", @{$incrUpdateArgs}) . "\n...");
-
-    $rv = RunShellCommand(command => $makeIncrementalUpdate,
-                          args => $incrUpdateArgs,
-                          output => 1);
-
-    if ($rv->{'exitValue'} != 0) {
-        die "FAILED: $makeIncrementalUpdate: $rv->{'exitValue'}, " . 
-         "output: $rv->{'output'}\n";
-    }
-
-    printf("done\n");
-
-    if (-f $outputMar) {
-        printf("Found $outputMar.\n");
-    } else {
-        print STDERR "Couldn't find partial output mar: $outputMar\n";
-    }
-
-    my $finalDeliverable = catfile($outputDir, $outputFile);
-    printf("Moving $outputMar to $finalDeliverable... \n");
-    move($outputMar, $finalDeliverable) or 
-     die "move($outputMar, $finalDeliverable) failed: $ERRNO";
-    printf("done\n");
-
-    printf("Removing temporary directories...\n");
-    foreach my $dir (@createdDirs ) {
-        printf("\tRemoving $dir...\n");
-        eval { rmtree($dir) };
-        if ($EVAL_ERROR) {
-            print STDERR "rmtree on $dir failed; $EVAL_ERROR";
-            return 1;
-        }
-    }
-    printf("done\n");
-
-    chdir($startingWd) or die "Couldn't chdir() back to $startingWd: $ERRNO";
-    return 1;
-}
-
-sub SubstitutePath
-{
-    my %args = @_;
-
-    my $string = $args{'path'} || 
-     die 'ASSERT: SubstitutePath() called with null path';
-    my $platform = $args{'platform'} || 'UNDEFINED';
-    my $locale = $args{'locale'} ||'UNDEFINED';
-    my $version = $args{'version'} || 'UNDEFINED';
-    my $app = $args{'app'} || 'UNDEFINED';
-    my $filepath_platform = 'UNDEFINED';
-
-    my %bouncer_platforms = GetBouncerPlatformStrings();
-    my $bouncer_platform = $bouncer_platforms{$platform};
-    
-    if ($platform ne 'UNDEFINED') {
-        my %filepath_platforms = GetFilepathPlatformStrings();
-        $filepath_platform = $filepath_platforms{$platform};
-    }
-
-    $string =~ s/%platform%/$filepath_platform/g;
-    $string =~ s/%locale%/$locale/g;
-    $string =~ s/%bouncer\-platform%/$bouncer_platform/g;
-    $string =~ s/%version%/$version/g;
-    $string =~ s/%app%/$app/g;
-
-    return $string;
-}
-
-sub GetSnippetDirFromChannel {
-    my %args = @_;
-    die 'ASSERT: GetSnippetDirFromChannel(): null/invalid update config ' .
-     "object\n" if (!exists($args{'config'}) || ref($args{'config'}) ne 'HASH');
-    die "ASSERT: GetSnippetDirFromChannel(): null channel\n" if (
-     !exists($args{'channel'}));  
-
-    my $channel = $args{'channel'};
-    my $currentUpdateConfig = $args{'config'};
-
-    die "ASSERT: GetSnippetDirFromChannel(): invalid update config object\n"
-     if (! exists($currentUpdateConfig->{'to'}) || 
-     !exists($currentUpdateConfig->{'from'}));
-
-    my $snippetDirTestKey = $channel . '-dir';
-  
-    if (exists($currentUpdateConfig->{$snippetDirTestKey})) {
-        return $DEFAULT_SNIPPET_BASE_DIR . '.' . 
-         $currentUpdateConfig->{$snippetDirTestKey};
-    } elsif ($channel =~ /test(-\w+)?$/) {
-        return $DEFAULT_SNIPPET_TEST_DIR;
-    } else {
-        return $DEFAULT_SNIPPET_BASE_DIR;
-    }
-}
-1;

mozilla/tools/patcher/README

@@ -1,22 +0,0 @@
-patcher is a tool to generate updates for Mozilla based products.
-
-Run ./patcher2.pl --help for usage info.
-
-Features:
-
-* download complete updates
-* generate partial patches
-* generate configuration files for AUS (Automatic Update Service)
-
-Requires:
-
-* MozBuild package (from mozilla/tools/build/MozBuild)
-* Config::General
-* wget
-
-Patcher is only supported on Linux right now.
-
-Troubleshooting:
-
-* "Can't use an undefined value as a HASH reference at MozAUSConfig.pm line 236."
-Make sure that "--app" is specified on the command line.

mozilla/tools/patcher/patcher2.cfg

@@ -1,130 +0,0 @@
-# ***** BEGIN LICENSE BLOCK *****
-# Version: MPL 1.1/GPL 2.0/LGPL 2.1
-#
-# 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 Patcher 2, a patch generator for the AUS2 system.
-#
-# The Initial Developer of the Original Code is
-#   Mozilla Corporation
-#
-# Portions created by the Initial Developer are Copyright (C) 2006
-# the Initial Developer. All Rights Reserved.
-#
-# Contributor(s):
-#   Chase Phillips (chase@mozilla.org)
-#   J. Paul Reed (preed@mozilla.com)
-#
-# Alternatively, the contents of this file may be used under the terms of
-# either the GNU General Public License Version 2 or later (the "GPL"), or
-# the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
-# in which case the provisions of the GPL or the LGPL are applicable instead
-# of those above. If you wish to allow use of your version of this file only
-# under the terms of either the GPL or the LGPL, and not to allow others to
-# use your version of this file under the terms of the MPL, indicate your
-# decision by deleting the provisions above and replace them with the notice
-# and other provisions required by the GPL or the LGPL. If you do not delete
-# the provisions above, a recipient may use your version of this file under
-# the terms of any one of the MPL, the GPL or the LGPL.
-#
-# ***** END LICENSE BLOCK *****
-#
-#
-###
-### NOTICE: This is a sample configuration; these are dummy values; you'll
-###         need to customize for your app.
-###
-#
-
-<app MyApp>
-  past-update = 1.0 1.0.1 beta betatest release releasetest
-
-  <current-update>
-    from = 1.0.1
-    to   = 1.0.2
-    channel = beta release
-    testchannel = betatest releasetest
-    details = "http://www.example.com/myapp/releases/1.0.2.html"
-
-    <complete>
-      path = "myapp/1.0.2-candidates/myapp-1.0.2.%locale%.%platform%.mar"
-      url = "http://download.example.com/1.0.2/myapp.%locale%.mar"
-      testurl = "http://staging.example.com/1.0.2/myapp.%locale%.mar"
-    </complete>
-    <partial>
-      path = "myapp/1.0.2-candidates/myapp-1.0.2.%locale%.%platform%.partial.mar"
-      url = "http://download.example.com/1.0.2/myapp.%locale%.partial.mar"
-      testurl = "http://staging.example.com/1.0.2/myapp.%locale%.partial.mar"
-    </partial>
-  </current-update>
-
-  <release 1.0>
-    version = 1.0
-    completemarurl = "http://download.example.com/1.0.0/myapp.%locale%.mar"
-
-    <platforms>
-      win32      = 2000111111
-      linux-i686 = 2000111111
-      macppc     = 2000111111
-    </platforms>
-
-    locales = ar ca cs da de el en-GB en-US es-AR es-ES eu fi fr ga-IE \
-              pl pt-BR ro ru sk sl sv-SE tr zh-CN zh-TW
-
-    <exceptions>
-      pa-IN = win32, linux-i686
-      gu-IN = win32, linux-i686
-      ja = win32, linux-i686
-      ja-JP-mac = macppc, mac
-    </exceptions>
-  </release>
-  <release 1.0.1>
-    version = 1.0.1
-    completemarurl = "http://download.example.com/1.0.1/myapp.%locale%.mar"
-
-    <platforms>
-      win32      = 2000111112
-      linux-i686 = 2000111112
-      macppc     = 2000111112
-    </platforms>
-
-    locales = ar ca cs da de el en-GB en-US es-AR es-ES eu fi fr ga-IE \
-              pl pt-BR ro ru sk sl sv-SE tr zh-CN zh-TW
-
-    <exceptions>
-      pa-IN = win32, linux-i686
-      gu-IN = win32, linux-i686
-      ja = win32, linux-i686
-      ja-JP-mac = macppc
-    </exceptions>
-  </release>
-  <release 1.0.2>
-    version = 1.0.2
-    completemarurl = "http://download.example.com/1.0.2/myapp.%locale%.mar"
-
-    <platforms>
-      win32      = 2000111113
-      linux-i686 = 2000111113
-      macppc     = 2000111113
-      mac        = 2000111113
-    </platforms>
-
-    locales = ar bg ca cs da de el en-GB en-US es-AR es-ES eu fi fr ga-IE \
-              pl pt-BR ro ru sk sl sv-SE tr zh-CN zh-TW
-
-    <exceptions>
-      pa-IN = win32, linux-i686
-      gu-IN = win32, linux-i686
-      ja = win32, linux-i686
-      ja-JP-mac = mac, macppc
-    </exceptions>
-  </release>
-</app>

mozilla/tools/release/Bootstrap/Config.pm

@@ -1,383 +0,0 @@
-#
-# Config object for release automation
-#
-
-package Bootstrap::Config;
-
-use strict;
-
-use POSIX "uname";
-use File::Copy qw(move);
-
-use Bootstrap::Util qw(GetLocaleManifest CvsCatfile);
-use Bootstrap::Util qw(GetFtpNightlyDir);
-
-# shared static config
-my %config;
-
-# single shared instance
-my $singleton = undef;
-
-sub new {
-    my $proto = shift;
-    my $class = ref($proto) || $proto;
-
-    return $singleton if defined $singleton;
-
-    my $this = {};
-    bless($this, $class);
-    $this->Parse();
-    $singleton = $this;
-    
-    return $this;
-}
-
-sub Parse {
-    my $this = shift;
-    
-    open(CONFIG, "< bootstrap.cfg") 
-      || die("Can't open config file bootstrap.cfg");
-
-    while (<CONFIG>) {
-        # no comments or empty lines
-        next if ($_ =~ /^#/ || $_ =~ /^\s*$/);
-        s/^\s+//; # no leading white
-        s/\s+$//; # no trailing white
-        chomp $_; # no newline
-        my ($var, $value) = split(/\s*=\s*/, $_, 2);
-        $this->Set(var => $var, value => $value);
-    }
-    close(CONFIG);
-}
-
-##
-# Get checks to see if a variable exists and returns it.
-# Returns scalar
-#
-# This method supports system-specific overrides, or "sysvar"s.
-#  For example, if a caller is on win32 and does 
-#  Get(sysvar => "buildDir") and win32_buildDir exists, the value of 
-#  win32_buildDir will be returned. If not, the value of buildDir will
-#  be returned. Otherwise, the die() assertion will be hit.
-##
-
-sub Get {
-    my $this = shift;
-
-    my %args = @_;
-    my $var = $args{'var'};
-    # sysvar will attempt to prepend the OS name to the requested var
-    my $sysvar = $args{'sysvar'};
-
-    if ((! defined($args{'var'})) && (! defined($args{'sysvar'}))) {
-      die "ASSERT: Bootstep::Config::Get(): null var requested";
-    } elsif ((defined($args{'var'})) && (defined($args{'sysvar'}))) {
-      die "ASSERT: Bootstep::Config::Get(): both var and sysvar requested";
-    }
-
-    if (defined($args{'sysvar'})) {
-        # look for a system specific var first
-        my $osname = $this->SystemInfo(var => 'osname');
-        my $sysvarOverride = $osname . '_' . $sysvar;
-
-        if ($this->Exists(var => $sysvarOverride)) {
-            return $config{$sysvarOverride};
-        } elsif ($this->Exists(var => $sysvar)) {
-            return $config{$sysvar};
-        } else {
-            die("No such system config variable: $sysvar");
-        }
-    } elsif ($this->Exists(var => $var)) {
-        return $config{$var};
-    } else {
-        die("No such config variable: $var");
-    }
-}
-
-sub Set {
-    my $this = shift;
-
-    my %args = @_;
-
-    die "ASSERT: Config::Set(): null var and/or value\n" if
-     (!exists($args{'var'}) || !exists($args{'value'}));
-
-    die "ASSERT: Config::Set(): Cannot set null var\n" if
-     (!defined($args{'var'}) || 
-     (defined($args{'var'}) && $args{'var'} =~ /^\s*$/));
-
-    my $var = $args{'var'};
-    my $value = $args{'value'};
-    my $force = exists($args{'force'}) ? $args{'force'} : 0;
-
-    die "ASSERT: Config::Set(): $var already exists ($value)\n" if 
-     (!$force && exists($config{$var}));
-
-    die "ASSERT: Config::Set(): Attempt to set null value for var $var\n" if 
-     (!$force && (!defined($value) || $value =~ /^\s*$/));
-
-    return ($config{$var} = $value);
-}
- 
-sub GetLocaleInfo {
-    my $this = shift;
-
-    if (! $this->Exists(var => 'localeInfo')) {
-        my $localeFileTag = $this->Get(var => 'productTag') . '_RELEASE';
-        $config{'localeInfo'} = GetLocaleManifest(
-         app => $this->Get(var => 'appName'),
-         cvsroot => $this->Get(var => 'mozillaCvsroot'),
-         tag => $localeFileTag);
-    }
-
-    return $this->Get(var => 'localeInfo');
-}
-
-##
-# GetFtpCandidateDir - construct the FTP path for pushing builds & updates to
-# returns scalar
-#
-# mandatory argument:
-#    bitsUnsigned - boolean - 1 for unsigned, 0 for signed
-#      adds "unsigned/" prefix for windows and version >= 2.0
-##
-
-sub GetFtpCandidateDir {
-    my $this = shift;
-    my %args = @_;
-
-    if (! defined($args{'bitsUnsigned'})) {
-      die "ASSERT: Bootstep::Config::GetFtpCandidateDir(): bitsUnsigned is a required argument";
-    }
-    my $bitsUnsigned = $args{'bitsUnsigned'};
-
-    my $version = $this->Get(var => 'version');
-    my $build = $this->Get(var => 'build');
-
-    my $candidateDir = CvsCatfile(GetFtpNightlyDir(), $version . '-candidates', 'build' . $build ) . '/';
-
-    my $osFileMatch = $this->SystemInfo(var => 'osname');
-
-    if ($bitsUnsigned && ($osFileMatch eq 'win32')  && ($version ge '2.0')) {
-        $candidateDir .= 'unsigned/';
-    }
-
-    return $candidateDir;  
-}
-
-sub GetLinuxExtension {
-    my $this = shift;
-
-    # We are assuming tar.bz2 to help minimize bootstrap.cfg variables in
-    # the future. tar.gz support can probably be removed once we stop
-    # building/releasing products that use it.
-    my $useTarGz = $this->Exists(var => 'useTarGz') ?
-     $this->Get(var => 'useTarGz') : 0;
-    return ($useTarGz) ? 'gz' : 'bz2';
-}
-
-sub GetVersion {
-    my $this = shift;
-    my %args = @_;
-    
-    if (! defined($args{'longName'})) {
-      die "ASSERT: Bootstep::Config::GetVersion(): longName is a required argument";
-    }
-    my $longName = $args{'longName'};
-
-    my $version = $this->Get(var => 'version');
-    my $longVersion = $version;
-    $longVersion =~ s/a([0-9]+)$/ Alpha $1/;
-    $longVersion =~ s/b([0-9]+)$/ Beta $1/;
-    $longVersion =~ s/rc([0-9]+)$/ RC $1/;
-
-    return ($longName) ? $longVersion : $version;
-}
-
-# Sometimes we need the application version to be different from what we "call"
-# the build, eg public release candidates for a major release (3.0 RC1). The var
-# appVersion is an optional definition used for $appName/config/version.txt, and
-# hence in the filenames coming off the tinderbox.
-sub GetAppVersion {
-    my $this = shift;
-
-    return ($this->Exists(var => 'appVersion')) ? 
-      $this->Get(var => 'appVersion') : $this->GetVersion(longName => 0);
-}
-
-sub GetOldVersion {
-    my $this = shift;
-    my %args = @_;
-    
-    if (! defined($args{'longName'})) {
-      die "ASSERT: Bootstep::Config::GetOldVersion(): longName is a required argument";
-    }
-    my $longName = $args{'longName'};
-
-    my $oldVersion = $this->Get(var => 'oldVersion');
-    my $oldLongVersion = $oldVersion;
-    $oldLongVersion =~ s/a([0-9]+)$/ Alpha $1/;
-    $oldLongVersion =~ s/b([0-9]+)$/ Beta $1/;
-    $oldLongVersion =~ s/rc([0-9]+)$/ RC $1/;
-
-    return ($longName) ? $oldLongVersion : $oldVersion;
-}
-
-# Like GetAppVersion(), but for the previous release 
-# eg we're doing 3.0RC2 and need to refer to 3.0RC1
-sub GetOldAppVersion {
-    my $this = shift;
-
-    return ($this->Exists(var => 'oldAppVersion')) ?
-      $this->Get(var => 'oldAppVersion') : $this->GetOldVersion(longName => 0);
-}
-
-##
-# Exists checks to see if a config variable exists.
-# Returns boolean (1 or 0)
-#
-# This method supports system-specific overrides, or "sysvar"s.
-#  For example, if a caller is on win32 and does 
-#  Exists(sysvar => "win32_buildDir") and only buildDir exists, a 0
-#  will be returned. There is no "fallback" as in the case of Get.
-##
-
-sub Exists {
-    my $this = shift;
-    my %args = @_;
-    my $var = $args{'var'};
-    # sysvar will attempt to prepend the OS name to the requested var
-    my $sysvar = $args{'sysvar'};
-
-    if ((! defined($args{'var'})) && (! defined($args{'sysvar'}))) {
-      die "ASSERT: Bootstep::Config::Get(): null var requested";
-    } elsif ((defined($args{'var'})) && (defined($args{'sysvar'}))) {
-      die "ASSERT: Bootstep::Config::Get(): both var and sysvar requested";
-    }
-
-    if (defined($args{'sysvar'})) {
-        # look for a system specific var first
-        my $osname = $this->SystemInfo(var => 'osname');
-        my $sysvarOverride = $osname . '_' . $sysvar;
-
-        if (exists($config{$sysvarOverride})) {
-            return 1;
-        } elsif (exists($config{$sysvar})) {
-            return 1;
-        } else {
-            return 0;
-        }
-    } else {
-        return exists($config{$var});
-    }
-}
-
-sub SystemInfo {
-    my $this = shift;
-    my %args = @_;
-
-    my $var = $args{'var'};
-
-    my ($sysname, $hostname, $release, $version, $machine ) = uname;
-
-    if ($var eq 'sysname') {
-        return $sysname;
-    } elsif ($var eq 'hostname') {
-        return $hostname;
-    } elsif ($var eq 'release') {
-        return $release;
-    } elsif ($var eq 'version') {
-        return $version;
-    } elsif ($var eq 'machine') {
-        return $machine;
-    } elsif ($var eq 'osname') {
-        if ($sysname =~ /cygwin/i || $sysname =~ /mingw32/i) {
-            return 'win32';
-        } elsif ($sysname =~ /darwin/i) {
-            return 'macosx';
-        } elsif ($sysname =~ /linux/i) {
-            return 'linux';
-        } else {
-            die("Unrecognized OS: $sysname");
-        }
-    } else {
-        die("No system info named $var");
-    }
-}
-
-##
-# Bump - modifies config files
-#
-# Searches and replaces lines of the form:
-#   # CONFIG: $BuildTag = '%productTag%_RELEASE';
-#   $BuildTag = 'FIREFOX_1_5_0_9_RELEASE';
-#
-# The comment containing "CONFIG:" is parsed, and the value in between %%
-# is treated as the key. The next line will be overwritten by the value
-# matching this key in the private %config hash.
-#
-# If any of the requested keys are not found, this function calls die().
-##
-
-sub Bump {
-    my $this = shift;
-    my %args = @_;
-
-    my $config = new Bootstrap::Config();
-
-    my $configFile = $args{'configFile'};
-    if (! defined($configFile)) {
-        die('ASSERT: Bootstrap::Config::Bump - configFile is a required argument');
-    }
-
-    my $tmpFile = $configFile . '.tmp';
-
-    open(INFILE, "< $configFile") 
-     or die ("Bootstrap::Config::Bump - Could not open $configFile for reading: $!");
-    open(OUTFILE, "> $tmpFile") 
-     or die ("Bootstrap::Config::Bump - Could not open $tmpFile for writing: $!");
-
-    my $skipNextLine = 0;
-    my $KEY_REGEX = qr/ ([\w\-]+) /x;
-    foreach my $line (<INFILE>) {
-        if ($skipNextLine) {
-            $skipNextLine = 0;
-            next;
-        } elsif ($line =~ /^# CONFIG:\s+/) {
-            print OUTFILE $line;
-            $skipNextLine = 1;
-            my $interpLine = $line;
-            $interpLine =~ s/^#\s+CONFIG:\s+//;
-            foreach my $variable (grep(/%/,split(/(%$KEY_REGEX?%)/, $line))) {
-                my $key = $variable;
-                if (! ($key =~ s/.*%($KEY_REGEX)%.*/$1/)) {
-                    die("ASSERT: could not parse $variable");
-                }
-
-                $key =~ s/^%(.*)%$/$1/;
-
-                if ($key =~ /^\s*$/) {
-                    die("ASSERT: could not get key from $variable");
-                }
-
-                if (! $config->Exists(sysvar => $key)) {
-                    die("ASSERT: no replacement found for $key");
-                }
-                my $value = $config->Get(sysvar => $key);
-                $interpLine =~ s/\%$key\%/$value/g;
-            }
-            print OUTFILE $interpLine;
-        } else {
-            print OUTFILE $line;
-        }
-    }
-
-    close(INFILE) or die ("Bootstrap::Config::Bump - Could not close $configFile for reading: $!");
-    close(OUTFILE) or die ("Bootstrap::Config::Bump - Could not close $tmpFile for writing: $!");
-
-    move($tmpFile, $configFile)
-     or die("Cannot rename $tmpFile to $configFile: $!");
-
-}
-
-1;

mozilla/tools/release/Bootstrap/Step.pm

@@ -1,436 +0,0 @@
-#
-# Base class for all Steps.
-#
-
-package Bootstrap::Step;
-
-use IO::Handle;
-use File::Spec::Functions;
-use POSIX qw(strftime);
-use File::Basename;
-use File::Path;
-use File::Temp qw(tempfile);
-
-use Bootstrap::Config;
-use Bootstrap::Util qw(CvsCatfile GetPushRepo);
-use MozBuild::Util qw(RunShellCommand Email);
-
-use base 'Exporter';
-
-our @EXPORT = qw(catfile);
-
-my $DEFAULT_LOGFILE = 'default.log';
-
-sub new {
-    my $proto = shift;
-    my $class = ref($proto) || $proto;
-    my $this = {};
-    bless($this, $class);
-    return $this;
-}
-
-sub Shell {
-    my $this = shift;
-    my %args = @_;
-    my $cmd = $args{'cmd'};
-    my $cmdArgs = exists($args{'cmdArgs'}) ? $args{'cmdArgs'} : [];
-    my $dir = $args{'dir'};
-    my $timeout = exists($args{'timeout'}) ? $args{'timeout'} :
-     $Bootstrap::Util::DEFAULT_SHELL_TIMEOUT;
-    my $ignoreExitValue = exists($args{'ignoreExitValue'}) ? 
-     $args{'ignoreExitValue'} : 0;
-    my $rv = '';
-    my $config = new Bootstrap::Config();
-
-    my $logFile = exists($args{'logFile'}) ? $args{'logFile'} : 
-     catfile($config->Get(sysvar => 'logDir'), $DEFAULT_LOGFILE);
-
-    if (ref($cmdArgs) ne 'ARRAY') {
-        die("ASSERT: Bootstrap::Step::Shell(): cmdArgs is not an array ref\n");
-    }
-
-    my %runShellCommandArgs = (command => $cmd,
-                               args => $cmdArgs,
-                               timeout => $timeout,
-                               logfile => $logFile);
-
-    if ($config->Exists(var => 'dumpLogs')) {
-        if ($config->Get(var => 'dumpLogs')) {
-            $runShellCommandArgs{'output'} = 1;
-        }
-    }
-
-    if ($dir) {
-        $runShellCommandArgs{'dir'} = $dir;
-    }
-
-    if ($args{'prependToPath'}) {
-        $runShellCommandArgs{'prependToPath'} = $args{'prependToPath'};
-    }
-    
-    if ($args{'appendToPath'}) {
-        $runShellCommandArgs{'appendToPath'} = $args{'appendToPath'};
-    }
-
-    $this->Log(msg => 'Running shell command' .
-     (defined($dir) ? " in $dir" : '') . ':');
-    $this->Log(msg => '  arg0: ' . $cmd); 
-    my $argNum = 1;
-    foreach my $arg (@{$cmdArgs}) {
-        $this->Log(msg => '  arg' . $argNum . ': ' . $arg); 
-        $argNum += 1;
-    }
-    $this->Log(msg => 'Starting time is ' . $this->CurrentTime());
-    $this->Log(msg => 'Logging output to ' . $logFile);
-
-    $this->Log(msg => 'Timeout: ' . $timeout);
-
-    $rv = RunShellCommand(%runShellCommandArgs);
-
-    my $exitValue = $rv->{'exitValue'};
-    my $timedOut  = $rv->{'timedOut'};
-    my $signalNum  = $rv->{'signalNum'};
-    my $dumpedCore = $rv->{'dumpedCore'};
-    if ($timedOut) {
-        $this->Log(msg => "output: $rv->{'output'}") if $rv->{'output'};
-        die('FAIL shell call timed out after ' . $timeout . ' seconds');
-    }
-    if ($signalNum) {
-        $this->Log(msg => 'WARNING shell recieved signal ' . $signalNum);
-    }
-    if ($dumpedCore) {
-        $this->Log(msg => "output: $rv->{'output'}") if $rv->{'output'};
-        die("FAIL shell call dumped core");
-    }
-    if ($ignoreExitValue) {
-        $this->Log(msg => "Exit value $rv->{'output'}, but ignoring as told");
-    } elsif ($exitValue) {
-        if ($exitValue != 0) {
-            $this->Log(msg => "output: $rv->{'output'}") if $rv->{'output'};
-            die("shell call returned bad exit code: $exitValue");
-        }
-    }
-
-    if ($rv->{'output'} && not defined($logFile)) {
-        $this->Log(msg => "output: $rv->{'output'}");
-    }
-
-    # current time
-    $this->Log(msg => 'Ending time is ' . $this->CurrentTime());
-}
-
-sub Log {
-    my $this = shift;
-    my %args = @_;
-    my $msg = $args{'msg'};
-    print "log: $msg\n";
-}
-
-sub CheckLog {
-    my $this = shift;
-    my %args = @_;
-
-    my $log = $args{'log'};
-    my $notAllowed = $args{'notAllowed'};
-    my $checkFor = $args{'checkFor'};
-    my $checkForOnly = $args{'checkForOnly'};
-
-    if (not defined($log)) {
-        die("No log file specified");
-    }
-
-    open (FILE, "< $log") or die("Cannot open file $log: $!");
-    my @contents = <FILE>;
-    close FILE or die("Cannot close file $log: $!");
-  
-    if ($notAllowed) {
-        my @errors = grep(/$notAllowed/i, @contents);
-        if (@errors) {
-            die("Errors in log ($log): \n\n @errors");
-        }
-    }
-    if ($checkFor) {
-        if (not grep(/$checkFor/i, @contents)) {
-            die("$checkFor is not present in file $log");
-        }
-    }
-    if ($checkForOnly) {
-        if (not grep(/$checkForOnly/i, @contents)) {
-            die("$checkForOnly is not present in file $log");
-        }
-        my @errors = grep(!/$checkForOnly/i, @contents);
-        if (@errors) {
-            die("Errors in log ($log): \n\n @errors");
-        }
-    }
-}
-
-sub CurrentTime {
-    my $this = shift;
-
-    return strftime("%T %D", localtime());
-}
-
-# Overridden by child if needed
-sub Push {
-    my $this = shift;
-}
-
-# Overridden by child if needed
-sub Announce {
-    my $this = shift;
-}
-
-sub SendAnnouncement {
-    my $this = shift;
-    my %args = @_;
-    
-    my $config = new Bootstrap::Config();
-
-    my $blat = $config->Get(var => 'blat');
-    my $sendmail = $config->Get(var => 'sendmail');
-    my $from = $config->Get(var => 'from');
-    my $to = $config->Get(var => 'to');
-    my @ccList = $config->Exists(var => 'cc') ? split(/[,\s]+/, 
-     $config->Get(var => 'cc')) : ();
-    my $hostname = $config->SystemInfo(var => 'hostname');
-
-    # This allows for per-step CC, since some consumers only care about
-    # certain steps, e.g. partner repacks
-    if ($args{'cc'}) {
-        push @ccList, split(/[,\s]+/,$args{'cc'});
-    }
-
-    my $subject = $hostname . ' - ' . $args{'subject'};
-    my $message = $hostname . ' - ' . $args{'message'};
-
-    eval {
-        Email(
-          blat => $blat,
-          sendmail => $sendmail,
-          from => $from,
-          to => $to,
-          cc => \@ccList,
-          subject => $subject,
-          message => $message,
-        );
-    };
-    if ($@) {
-        die("Could not send announcement email: $@");
-    }
-}
-    
-sub GetBuildIDFromFTP() {
-    my $this = shift;
-    my %args = @_;
-
-    my $os = $args{'os'};
-    if (! defined($os)) {
-        die("ASSERT: Bootstrap::Step::GetBuildID(): os is required argument");
-    }
-    my $releaseDir = $args{'releaseDir'};
-    if (! defined($releaseDir)) {
-        die("ASSERT: Bootstrap::Step::GetBuildID(): releaseDir is required argument");
-    }
-
-    my $config = new Bootstrap::Config();
-    my $stagingServer = $config->Get(var => 'stagingServer');
-
-    return MozBuild::Util::GetBuildIDFromFTP(os => $os,
-                                             releaseDir => $releaseDir,
-                                             stagingServer => $stagingServer);
-}
-
-sub CvsCo {
-    my $this = shift;
-    my %args = @_;
-
-    # Required arguments
-    die "ASSERT: Bootstrap::Util::CvsCo(): null cvsroot" if
-     (!exists($args{'cvsroot'}));
-    my $cvsroot = $args{'cvsroot'};
-
-    die "ASSERT: Bootstrap::Util::CvsCo(): null modules" if
-     (!exists($args{'modules'}));
-    my $modules = $args{'modules'};
-
-    die "ASSERT: Bootstrap::Util::CvsCo(): bad modules data" if
-     (ref($modules) ne 'ARRAY');
-
-    # Optional arguments
-    my $logFile = $args{'logFile'};
-    my $tag = exists($args{'tag'}) ? $args{'tag'} : 0; 
-    my $date = exists($args{'date'}) ? $args{'date'} : 0;
-    my $checkoutDir = exists($args{'checkoutDir'}) ? $args{'checkoutDir'} : 0;
-    my $workDir = exists($args{'workDir'}) ? $args{'workDir'} : 0;
-    my $ignoreExitValue = exists($args{'ignoreExitValue'}) ?
-        $args{'ignoreExitValue'} : 0;
-    my $timeout = exists($args{'timeout'}) ? $args{'timeout'} :
-     $Bootstrap::Util::DEFAULT_SHELL_TIMEOUT;
-
-    my $config = new Bootstrap::Config();
-
-    my $useCvsCompression = 0;
-    if ($config->Exists(var => 'useCvsCompression')) {
-        $useCvsCompression = $config->Get(var => 'useCvsCompression');
-    }
-
-    my @cmdArgs;
-    push(@cmdArgs, '-z3') if ($useCvsCompression);
-    push(@cmdArgs, ('-d', $cvsroot));
-    push(@cmdArgs, 'co');
-    # Don't use a tag/branch if pulling from HEAD
-    push(@cmdArgs, ('-r', $tag)) if ($tag && $tag ne 'HEAD');
-    push(@cmdArgs, ('-D', $date)) if ($date);
-    push(@cmdArgs, ('-d', $checkoutDir)) if ($checkoutDir);
-    push(@cmdArgs, @{$modules});
-
-    my %cvsCoArgs = (cmd => 'cvs',
-                     cmdArgs => \@cmdArgs,
-                     dir => $workDir,
-                     timeout => $timeout,
-                     ignoreExitValue => $ignoreExitValue,
-    );
-    if ($logFile) {
-        $cvsCoArgs{'logFile'} = $logFile;
-    }
-
-    $this->Shell(%cvsCoArgs);
-}
-
-sub HgClone {
-    my $this = shift;
-    my %args = @_;
-
-    # Required arguments
-    die "ASSERT: Bootstrap::Step::HgClone(): null repo" if
-     (!exists($args{'repo'}));
-    my $repo = $args{'repo'};
-
-    die "ASSERT: Bootstrap::Step::HgClone(): null workDir" if
-     (!exists($args{'workDir'}));
-    my $workDir = $args{'workDir'};
-
-    my $tag;
-    if (exists($args{'tag'})) {
-        $tag = $args{'tag'};
-    }
-
-    my $repoDir = catfile($workDir, basename($repo));
-    if (-e $repoDir) {
-        $this->Log(msg => $repoDir . ' exists, removing it.');
-        rmtree($repoDir);
-    }
-    $this->Shell(
-      cmd => 'hg',
-      cmdArgs => ['clone', $repo],
-      dir => $workDir
-    );
- 
-    if ($tag) {        
-        $this->HgUpdate(
-            repoDir => $repoDir,
-            tag => $args{'tag'},
-        )
-    }
-}
-
-sub HgUpdate {
-    my $this = shift;
-    my %args = @_;
-
-    # Required arguments
-    die "ASSERT: Bootstrap::Step::HgUpdate(): null repoDir" if
-     (!exists($args{'repoDir'}));
-    my $repoDir = $args{'repoDir'};
-
-    die "ASSERT: Bootstrap::Step::HgUpdate(): repoDir doesn't exist" if
-     (! -e $repoDir);
-
-    if (!exists($args{'tag'}) or
-        $args{'tag'} =~ /^default$/i) {
-        # No need to update if no tag is set or we're using the default 
-        return;
-    }
-    my $tag = $args{'tag'};
- 
-    $this->Shell(
-        cmd => 'hg',
-        cmdArgs => ['up', '-C', '-r', $tag],
-        dir => $repoDir            
-    );
-}
-
-sub HgPush {
-    my $this = shift;
-    my %args = @_;
-    my $config = new Bootstrap::Config();
-
-    # Required arguments
-    die "ASSERT: Bootstrap::Step::HgPush(): null repo" if
-     (!exists($args{'repo'}));
-    my $repo = $args{'repo'};
-
-    die "ASSERT: Bootstrap::Step::HgPush(): null dir" if
-     (!exists($args{'workDir'}));
-    my $workDir = $args{'workDir'};
-
-    # Required config file variables
-    die "ASSERT: Bootstrap::Step::HgPush(): null hgSshKey" if
-     (! $config->Exists(sysvar => 'hgSshKey'));
-    my $hgSshKey = $config->Get(sysvar => 'hgSshKey');
-
-    die "ASSERT: Bootstrap::Step::HgPush(): null hgUsername" if
-     (! $config->Exists(var => 'hgUsername'));
-    my $hgUsername = $config->Get(var => 'hgUsername');
-
-    my $pushRepo = GetPushRepo(repo => $repo);
-
-    my @cmdArgs = ['push', '-e',
-                   'ssh -l ' . $hgUsername . ' -i "' . $hgSshKey . '"',
-                   $pushRepo];
-
-    $this->Shell(
-      cmd => 'hg',
-      cmdArgs => @cmdArgs,
-      dir => $workDir
-    );
-}
-
-sub CreateCandidatesDir() {
-    my $this = shift;
-
-    my $config = new Bootstrap::Config();
-
-    my $stagingUser = $config->Get(var => 'stagingUser');    
-    my $stagingServer = $config->Get(var => 'stagingServer');    
-    my $candidateDir = $config->GetFtpCandidateDir(bitsUnsigned => 1);
-
-    $this->Shell(
-      cmd => 'ssh',
-      cmdArgs => ['-2', '-l', $stagingUser, $stagingServer,
-                  'mkdir -p ' . $candidateDir],
-    );
-
-    # Make sure permissions are created on the server correctly;
-    #
-    # Note the '..' at the end of the chmod string; this is because
-    # Config::GetFtpCandidateDir() returns the full path, including the
-    # buildN directories on the end. What we really want to ensure
-    # have the correct permissions (from the mkdir call above) is the
-    # firefox/nightly/$version-candidates/ directory.
-    #
-    # XXX - This is ugly; another solution is to fix the umask on stage, or
-    # change what GetFtpCandidateDir() returns.
-
-    my $chmodArg = CvsCatfile($config->GetFtpCandidateDir(bitsUnsigned => 0), 
-     '..');
-
-    $this->Shell(
-      cmd => 'ssh',
-      cmdArgs => ['-2', '-l', $stagingUser, $stagingServer,
-                  'chmod 0755 ' . $chmodArg],
-    );
-}
-
-1;

mozilla/tools/release/Bootstrap/Step/Build.pm

@@ -1,352 +0,0 @@
-#
-# Build step. Calls tinderbox to produce en-US Firefox build.
-#
-package Bootstrap::Step::Build;
-
-use File::Temp qw(tempfile);
-
-use Bootstrap::Step;
-use Bootstrap::Util qw(CvsCatfile);
-
-use MozBuild::Util qw(MkdirWithPath);
-
-@ISA = ("Bootstrap::Step");
-
-sub Execute {
-    my $this = shift;
-
-    my $config = new Bootstrap::Config();
-    my $version = $config->GetVersion(longName => 0);
-    my $buildDir = $config->Get(sysvar => 'buildDir');
-    my $productTag = $config->Get(var => 'productTag');
-    my $build = $config->Get(var => 'build');
-    my $buildPlatform = $config->Get(sysvar => 'buildPlatform');
-    my $logDir = $config->Get(sysvar => 'logDir');
-    my $sysname = $config->SystemInfo(var => 'sysname');    
-    my $buildTag = $productTag . '_BUILD' . $build;
-
-    if ($version eq 'nightly') {
-        $this->Log(msg => 'Skip force-clobber for nightly mode');
-    } else {
-        my $lastBuilt = catfile($buildDir, $buildPlatform, 'last-built');
-        if (! unlink($lastBuilt)) {
-            $this->Log(msg => "Cannot unlink last-built file $lastBuilt: $!");
-        } else {
-            $this->Log(msg => "Unlinked $lastBuilt");
-        }
-    }
-
-    my $buildLog = catfile($logDir, 'build_' . $buildTag . '-build.log');
- 
-    # For Cygwin only, ensure that the system mount point is binmode
-    # This forces CVS to use Unix-style linefeed EOL characters.
-    if ($sysname =~ /cygwin/i) {
-        $this->Shell(
-          cmd => 'mount',
-          cmdArgs => ['-b', '-sc', '/cygdrive'],
-          dir => $buildDir,
-        );
-    }
-  
-    $this->Shell(
-      cmd => './build-seamonkey.pl',
-      cmdArgs => ['--once', '--mozconfig', 'mozconfig', '--depend', 
-                  '--config-cvsup-dir', 
-                  catfile($buildDir, 'tinderbox-configs')],
-      dir => $buildDir,
-      logFile => $buildLog,
-      timeout => 36000
-    );
-
-    if ($version eq 'nightly') {
-        $this->Log(msg => 'Nightly mode: skipping buildID storage and Talkback' . 
-                             ' symbol push to Breakpad server');
-    } else {
-        $this->StoreBuildID();
-        # proxy for version is 2.0.0.* and osname is win32
-        if ($sysname =~ /cygwin/i) {
-           $this->PublishTalkbackSymbols();
-        }
-    }
-
-}
-
-sub Verify {
-    my $this = shift;
-
-    my $config = new Bootstrap::Config();
-    my $version = $config->GetVersion(longName => 0);
-    my $buildDir = $config->Get(sysvar => 'buildDir');
-    my $productTag = $config->Get(var => 'productTag');
-    my $build = $config->Get(var => 'build');
-    my $buildTag = $productTag.'_BUILD'.$build;
-    my $logDir = $config->Get(sysvar => 'logDir');
-
-    if ($version eq 'nightly') {
-        $this->Log(msg => 'Skip Verify for nightly mode');
-        return;
-    }
-
-    my $buildLog = catfile($logDir, 'build_' . $buildTag . '-build.log');
-
-    $this->CheckLog(
-        log => $buildLog,
-        notAllowed => 'tinderbox: status: failed',
-    );
-
-    my $logParser = new MozBuild::TinderLogParse(
-        logFile => $buildLog,
-    );
-
-    if (! defined($logParser->GetBuildID())) {
-        die("No buildID found in $buildLog");
-    }
-    if (! defined($logParser->GetPushDir())) {
-        die("No pushDir found in $buildLog");
-    }
-}
-
-sub Push {
-    my $this = shift;
-
-    my $config = new Bootstrap::Config();
-    my $version = $config->GetVersion(longName => 0);
-    my $productTag = $config->Get(var => 'productTag');
-    my $build = $config->Get(var => 'build');
-    my $logDir = $config->Get(sysvar => 'logDir');
-    my $stagingUser = $config->Get(var => 'stagingUser');
-    my $stagingServer = $config->Get(var => 'stagingServer');
-
-    if ($version eq 'nightly') {
-        $this->Log(msg => 'Skip Push for nightly mode');
-        return;
-    }
-
-    my $buildTag = $productTag . '_BUILD' . $build;
-    my $buildLog = catfile($logDir, 'build_' . $buildTag . '-build.log');
-    my $pushLog  = catfile($logDir, 'build_' . $buildTag . '-push.log');
-
-    my $logParser = new MozBuild::TinderLogParse(
-        logFile => $buildLog,
-    );
-    my $pushDir = $logParser->GetPushDir();
-    if (! defined($pushDir)) {
-        die("No pushDir found in $buildLog");
-    }
-    $pushDir =~ s!^http://ftp.mozilla.org/pub/mozilla.org!/home/ftp/pub!;
-
-    my $candidateDir = $config->GetFtpCandidateDir(bitsUnsigned => 1);
-    $this->CreateCandidatesDir();
-
-    my $osFileMatch = $config->SystemInfo(var => 'osname');    
-    # TODO - use a more generic function for this kind of remapping
-    if ($osFileMatch eq 'win32')  {
-      $osFileMatch = 'win';
-    } elsif ($osFileMatch eq 'macosx') {
-      $osFileMatch = 'mac';
-    }
-
-    $this->Shell(
-      cmd => 'ssh',
-      cmdArgs => ['-2', '-l', $stagingUser, $stagingServer,
-                  'rsync', '-av', 
-                  '--include=*' . $osFileMatch . '*',
-                  '--exclude=*', 
-                  $pushDir, 
-                  $candidateDir],
-      logFile => $pushLog,
-    );
-}
-
-sub Announce {
-    my $this = shift;
-
-    my $config = new Bootstrap::Config();
-    my $version = $config->GetVersion(longName => 0);
-    my $product = $config->Get(var => 'product');
-    my $productTag = $config->Get(var => 'productTag');
-    my $build = $config->Get(var => 'build');
-    my $logDir = $config->Get(sysvar => 'logDir');
-
-    if ($version eq 'nightly') {
-        $this->Log(msg => 'Skip Announce for nightly mode');
-        return;
-    }
-
-    my $buildTag = $productTag . '_BUILD' . $build;
-    my $buildLog = catfile($logDir, 'build_' . $buildTag . '-build.log');
-
-    my $logParser = new MozBuild::TinderLogParse(
-        logFile => $buildLog,
-    );
-    my $buildID = $logParser->GetBuildID();
-    my $pushDir = $logParser->GetPushDir();
-
-    if (! defined($buildID)) {
-        die("No buildID found in $buildLog");
-    } 
-    if (! defined($pushDir)) {
-        die("No pushDir found in $buildLog");
-    } 
-
-    $this->SendAnnouncement(
-      subject => "$product $version build step finished",
-      message => "$product $version en-US build was copied to the candidates dir.\nBuild ID is $buildID\nPush Dir was $pushDir",
-    );
-}
-
-sub StoreBuildID() {
-    my $this = shift;
-
-    my $config = new Bootstrap::Config();
-    my $productTag = $config->Get(var => 'productTag');
-    my $build = $config->Get(var => 'build');
-    my $logDir = $config->Get(sysvar => 'logDir');
-    my $stagingUser = $config->Get(var => 'stagingUser');
-    my $stagingServer = $config->Get(var => 'stagingServer');
-
-    my $buildTag = $productTag . '_BUILD' . $build;
-    my $buildLog = catfile($logDir, 'build_' . $buildTag . '-build.log');
-    my $pushLog  = catfile($logDir, 'build_' . $buildTag . '-push.log');
-
-    my $logParser = new MozBuild::TinderLogParse(
-        logFile => $buildLog,
-    );
-    my $pushDir = $logParser->GetPushDir();
-    if (! defined($pushDir)) {
-        die("No pushDir found in $buildLog");
-    }
-    $pushDir =~ s!^http://ftp.mozilla.org/pub/mozilla.org!/home/ftp/pub!;
-
-    # drop os-specific buildID file on FTP
-    my $buildID = $logParser->GetBuildID();
-    if (! defined($buildID)) {
-        die("No buildID found in $buildLog");
-    }
-    if (! $buildID =~ /^\d+$/) {
-        die("ASSERT: Build: build ID is not numerical: $buildID")
-    }
-
-
-    my $osFileMatch = $config->SystemInfo(var => 'osname');    
-
-    my ($bh, $buildIDTempFile) = tempfile(DIR => '.');
-    print $bh 'buildID=' . $buildID;
-    $bh->close() || 
-     die("Could not open buildID temp file $buildIDTempFile: $!");
-    chmod(0644, $buildIDTempFile);
-
-    my $buildIDFile = $osFileMatch . '_info.txt';
-    $this->Shell(
-      cmd => 'scp',
-      cmdArgs => ['-p', $buildIDTempFile, 
-                  $stagingUser . '@' . $stagingServer . ':' .
-                  $pushDir . '/' . $buildIDFile],
-      logFile => $pushLog,
-    );
-}
-
-sub PublishTalkbackSymbols() {
-    my $this = shift;
-
-    my $config = new Bootstrap::Config();
-    my $product = $config->Get(var => 'product');
-    my $version = $config->Get(var => 'version');
-    my $build = $config->Get(var => 'build');
-    my $productTag = $config->Get(var => 'productTag');
-    my $logDir = $config->Get(sysvar => 'logDir');
-    my $buildDir = $config->Get(sysvar => 'buildDir');
-    my $buildPlatform = $config->Get(sysvar => 'buildPlatform');
-    my $symbolDir = $config->Get(var => 'symbolDir');
-    my $mozillaCvsroot = $config->Get(var => 'mozillaCvsroot');
-    my $symbolServer = $config->Get(var => 'symbolServer');
-    my $symbolServerUser = $config->Get(var => 'symbolServerUser');
-    my $symbolServerPath = $config->Get(var => 'symbolServerPath');
-    my $symbolServerKey = $config->Get(var => 'symbolServerKey');
-
-    my $buildTag = $productTag . '_BUILD' . $build;
-    my $buildLog = catfile($logDir, 'build_' . $buildTag . '-build.log');
-    my $symbolLog  = catfile($logDir, 'build_' . $buildTag . '-symbols.log');
-    my $versionedSymbolDir = catfile($symbolDir, $product . '-' . $version,
-                                     'build' . $build);
-
-    # Create symbols work area.
-    if (-e $versionedSymbolDir) {
-       die("ASSERT: Build:PublishTalkbackSymbols(): $versionedSymbolDir already exists?"); 
-    }
-    MkdirWithPath(dir => $versionedSymbolDir) 
-       or die("Cannot mkdir $versionedSymbolDir: $!");
-
-    # checkouts
-    $this->CvsCo(cvsroot => $mozillaCvsroot,
-                 checkoutDir => 'tools',
-                 modules => [CvsCatfile('mozilla', 'toolkit', 
-                                        'crashreporter', 'tools')],
-                 logFile => $symbolLog,
-                 workDir => $versionedSymbolDir
-    );
-
-    # unpack the symbols tarball from tinderbox
-    my $logParser = new MozBuild::TinderLogParse(
-        logFile => $buildLog,
-    );
-    my $buildID = $logParser->GetBuildID();
-    if (! $buildID =~ /^\d{10}$/) {
-       die("ASSERT: Build:PublishTalkbackSymbols(): No buildID found in $buildLog");
-    }
-
-    # yields dir $versionedSymbolDir/$buildID
-    $this->Shell(
-       cmd => 'tar',
-       cmdArgs => ['xfj', 
-                   catfile($buildDir, $buildPlatform, $buildID, 'symbols', 
-                           $buildID.'.tar.bz2')],
-       dir => $versionedSymbolDir,
-       logFile => $symbolLog,
-    );
-
-    # process symbols
-    my $symbolOutputDir = catfile($versionedSymbolDir,'symbol');
-    MkdirWithPath(dir => $symbolOutputDir) 
-       or die("Cannot mkdir $symbolOutputDir: $!");
-
-    my @pdbFiles = glob(catfile($versionedSymbolDir, $buildID, '*.pdb'));
-    foreach $pdbFile (@pdbFiles) {
-       $pdbFile =~ s/.*($buildID.*)/$1/;
-       $this->Shell(
-          cmd => 'tools/symbolstore.py',
-          cmdArgs => ['-c', 'tools/win32/dump_syms.exe',
-                      'symbol',
-                      $pdbFile],
-          logFile => catfile($symbolOutputDir, 
-                             $product . '-' . $version . 'build' . $build .
-                                '-WINNT-' . $buildID . '-symbols.txt'),
-          dir => $versionedSymbolDir,
-          timeout => 600,
-       );
-    }
-
-    # push the symbols to the server
-    $this->Shell(
-       cmd => 'zip',
-       cmdArgs => ['-r', catfile($versionedSymbolDir, 'symbols.zip'), '.'],
-       dir => $symbolOutputDir,
-       logFile => $symbolLog,
-       timeout => 600,
-    );
-
-    $ENV{'SYMBOL_SERVER_HOST'} = $symbolServer;
-    $ENV{'SYMBOL_SERVER_USER'} = $symbolServerUser;
-    $ENV{'SYMBOL_SERVER_SSH_KEY'} = $symbolServerKey;
-    $ENV{'SYMBOL_SERVER_PATH'} = $symbolServerPath;
-
-    $this->Shell(
-       cmd => catfile('tools', 'upload_symbols.sh'),
-       cmdArgs => ['symbols.zip'],
-       dir => $versionedSymbolDir,
-       logFile => $symbolLog,
-       timeout => 600,
-    );
-}
-
-1;

mozilla/tools/release/Bootstrap/Step/PartnerRepack.pm

@@ -1,153 +0,0 @@
-#
-# PartnerRepack step. Unpacks, modifies, repacks a Firefox en-US build.
-#
-package Bootstrap::Step::PartnerRepack;
-use Bootstrap::Step;
-use Bootstrap::Config;
-use Bootstrap::Util qw(CvsCatfile);
-use MozBuild::Util qw(MkdirWithPath);
-@ISA = ("Bootstrap::Step");
-
-sub Execute {
-    my $this = shift;
-
-    my $config = new Bootstrap::Config();
-    my $product = $config->Get(var => 'product');
-    my $version = $config->GetVersion(longName => 0);
-    my $build = $config->Get(var => 'build');
-    my $logDir = $config->Get(sysvar => 'logDir');
-    my $hgPartnersRepo = $config->Get(var => 'hgPartnersRepo');
-    my $hgPartnersTag = $config->Get(var => 'hgPartnersTag');
-    my $partnerRepackDir = $config->Get(var => 'partnerRepackDir');
-    my $mozillaCvsroot = $config->Get(var => 'mozillaCvsroot');
-
-    my $buildLog = catfile($logDir,
-                           'repack_' . $version . '-build-partner-repack.log');
-
-    MkdirWithPath(dir => $partnerRepackDir)
-      or die("Cannot mkdir $partnerRepackDir: $!");
-
-    $this->CvsCo(cvsroot => $mozillaCvsroot,
-                 checkoutDir => 'package_tools',
-                 modules => [CvsCatfile('mozilla', 'build',
-                                        'package','mac_osx')],
-                 logFile => $buildLog,
-                 workDir => $partnerRepackDir
-    );
-
-    $this->HgClone(
-      repo => $hgPartnersRepo,
-      tag => $hgPartnersTag,
-      workDir => $partnerRepackDir
-    );
-    
-    $this->Shell(
-      cmd => './partner-repacks.py',
-      cmdArgs => ['--version', $version,
-                  '--build-number', $build],
-      dir => catfile($partnerRepackDir, 'partner-repacks', 'scripts'),
-      appendToPath => "${partnerRepackDir}/package_tools",
-      logFile => $buildLog,
-      timeout => 3600
-    );
-    
-}
-
-# Make sure we have appropriate repacks for every partner in the repo.
-sub Verify {
-    my $this = shift;
-
-    my $config = new Bootstrap::Config();
-    my $product = $config->Get(var => 'product');
-    my $build = $config->Get(var => 'build');
-    my $version = $config->GetVersion(longName => 0);
-    my $logDir = $config->Get(sysvar => 'logDir');
-    my $hgPartnersRepo = $config->Get(var => 'hgPartnersRepo');
-    my $hgPartnersTag = $config->Get(var => 'hgPartnersTag');
-    my $partnerRepackDir = $config->Get(var => 'partnerRepackDir');
-
-    my $buildLog = catfile($logDir,
-                           'repack_' . $version . '-build-partner-repack.log');
-
-    $this->Shell(
-      cmd => './partner-repacks.py',
-      cmdArgs => ['--version', $version,
-                  '--build-number', $build,
-                  '--verify-only'],
-      dir => catfile($partnerRepackDir, 'partner-repacks', 'scripts'),
-      logFile => $buildLog,
-      timeout => 3600
-    );
-}
-
-sub Push {
-    my $this = shift;
-
-    my $config = new Bootstrap::Config();
-    my $product = $config->Get(var => 'product');
-    my $version = $config->GetVersion(longName => 0);
-    my $build = $config->Get(var => 'build');
-    my $logDir = $config->Get(sysvar => 'logDir');
-    my $stagingUser = $config->Get(var => 'stagingUser');
-    my $stagingServer = $config->Get(var => 'stagingServer');
-    my $partnerRepackDir = $config->Get(var => 'partnerRepackDir');
-    my $remoteRepackDir = $config->Get(var => 'remoteRepackDir');
-    my $linuxExtension = $config->GetLinuxExtension();
-
-    my $pushLog = catfile($logDir,
-                             'repack_' . $version . '-push-partner-repack.log');
-    
-    my $pushDir = catfile($partnerRepackDir, "partner-repacks",
-                             "scripts", "repacked_builds");
-    
-    $this->Shell(
-        cmd => 'ssh',
-        cmdArgs => ['-2', '-l', $stagingUser, $stagingServer,
-                    'mkdir', '-p', $remoteRepackDir
-                    ],
-        logFile => $pushLog,
-    );
-
-    $this->Shell(
-      cmd => 'rsync',
-      cmdArgs => ['-Lav',
-                  '-e', 'ssh',
-                  '--include=*.dmg',
-                  '--include=*.exe',
-                  '--include=*.tar.'.$linuxExtension,
-                  '.',
-                  $stagingServer . ":" . $remoteRepackDir,
-                 ],
-      dir => $pushDir,
-      logFile => $pushLog,
-      timeout => 3600
-    );
-}
-
-sub Announce {
-    my $this = shift;
-
-    my $config = new Bootstrap::Config();
-    my $product = $config->Get(var => 'product');
-    my $productTag = $config->Get(var => 'productTag');
-    my $version = $config->GetVersion(longName => 0);
-    my $build = $config->Get(var => 'build');
-    my $logDir = $config->Get(sysvar => 'logDir');
-    my $stagingServer = $config->Get(var => 'stagingServer');
-    my $remoteRepackDir = $config->Get(var => 'remoteRepackDir');
-    my $partnerRepackCC = $config->Get(var => 'partnerRepackCC');
-
-    my $buildLog = catfile($logDir,
-                           'repack_' . $version . '-build-partner-repack.log');
-
-    $remoteRepackDir =~ s|^/home/ftp||;
-
-    $this->SendAnnouncement(
-      subject => "$product $version partner repack step finished",
-      message => "$product $version partner repacks were copied to the staging directory:\n\n" .
-                 "http://${stagingServer}${remoteRepackDir}/${version}/build${build}/",
-      cc => $partnerRepackCC,
-    );
-}
-
-1;

mozilla/tools/release/Bootstrap/Step/PatcherConfig.pm

@@ -1,199 +0,0 @@
-#
-# Updates step. Configures patcher files.
-# 
-# 
-package Bootstrap::Step::PatcherConfig;
-
-use File::Temp qw(tempfile);
-
-use MozBuild::Util qw(MkdirWithPath);
-
-use Bootstrap::Step;
-use Bootstrap::Config;
-use Bootstrap::Util qw(CvsCatfile GetBouncerPlatforms
-                       GetBouncerToPatcherPlatformMap);
-
-@ISA = ("Bootstrap::Step");
-
-use strict;
-
-# Channels that we want to add an extra annotation to
-my $RELEASE_CANDIDATE_CHANNELS = ['betatest','DisableCompleteJump'];
-
-sub Execute {
-    my $this = shift;
-
-    my $config = new Bootstrap::Config();
-    my $logDir = $config->Get(sysvar => 'logDir');
-    my $configBumpDir = $config->Get(var => 'configBumpDir');
-    my $product = $config->Get(var => 'product');
-    my $build = $config->Get(var => 'build');
-    my $version = $config->GetVersion(longName => 0);
-    my $appVersion = $config->GetAppVersion();
-    my $longVersion = $config->GetVersion(longName => 1);
-    my $oldVersion = $config->GetOldVersion(longName => 0);
-    my $oldAppVersion = $config->GetOldAppVersion();
-    my $oldLongVersion = $config->GetOldVersion(longName => 1);
-    my $oldBuild = $config->Get(var => 'oldBuild');
-    my $mozillaCvsroot = $config->Get(var => 'mozillaCvsroot');
-    my $patcherConfig = $config->Get(var => 'patcherConfig');
-    my $ftpServer = $config->Get(var => 'ftpServer');
-    my $bouncerServer = $config->Get(var => 'bouncerServer');
-    my $hgToolsRepo = $config->Get(var => 'hgToolsRepo');
-    my $appName = $config->Get(var => 'appName');
-    my $releaseTag = $config->Get(var => 'productTag') . '_RELEASE';
-    my $stagingServer = $config->Get(var => 'stagingServer');
-    my $ausServerUrl = $config->Get(var => 'ausServerUrl');
-    my $useBetaChannel = $config->Get(var => 'useBetaChannel');
-    my $linuxExtension = $config->GetLinuxExtension();
-
-    my $versionedConfigBumpDir = catfile($configBumpDir, 
-                                          "$product-$version-build$build");
-
-    my $checkedOutPatcherConfig = catfile($versionedConfigBumpDir, 'patcher', 
-                                          $patcherConfig);
-
-    # Create patcher config area in the config bump area.
-    if (not -d $versionedConfigBumpDir) {
-        MkdirWithPath(dir => $versionedConfigBumpDir) 
-          or die("Cannot mkdir $versionedConfigBumpDir: $!");
-    }
-
-    # checkout config to bump
-    $this->CvsCo(cvsroot => $mozillaCvsroot,
-                 checkoutDir => 'patcher',
-                 modules => [CvsCatfile('mozilla', 'tools', 'patcher-configs',
-                                        $patcherConfig)],
-                 logFile => catfile($logDir, 'patcherconfig-checkout.log'),
-                 workDir => $versionedConfigBumpDir
-    );
-
-    # Do all the work...
-    # bug 456400 moved the BumpPatcherConfig logic to an external script to
-    # more easily support both CVS and Mercurial based releases
-
-    $this->HgClone(
-      repo => $hgToolsRepo,
-      workDir => catfile($versionedConfigBumpDir)
-    );
-    $this->CvsCo(
-      cvsroot => $mozillaCvsroot,
-      modules => ['mozilla/' . $appName . '/locales/shipped-locales'],
-      tag => $releaseTag,
-      workDir => $versionedConfigBumpDir,
-      checkoutDir => 'locales'
-    );
-    my $shippedLocales = $versionedConfigBumpDir . '/locales/shipped-locales';
-    my @args = (catfile($versionedConfigBumpDir, 'tools', 'release',
-                        'patcher-config-bump.pl'),
-            '-p', $product,
-            '-v', $version,
-            '-o', $oldVersion,
-            '-a', $appVersion,
-            '-b', $build,
-            '-c', $checkedOutPatcherConfig,
-            '-t', $stagingServer,
-            '-f', $ftpServer,
-            '-d', $bouncerServer,
-            '-l', $shippedLocales);
-
-    if ($useBetaChannel) {
-        push(@args, '-u');
-    }
-
-    $this->Shell(
-      cmd => 'perl',
-      cmdArgs => \@args
-    );
-
-    # verify that BumpPatcherConfig() actually did something.
-    $this->Log(msg=> 'Ignoring shell value here because cvs diff returns a ' .
-     'non-zero value if a diff exists; this is an assertion that a diff does ' .
-     'exist');
-
-    $this->Shell(
-      cmd => 'cvs',
-      cmdArgs => ['diff', $patcherConfig ],
-      logFile => catfile($logDir, 'patcherconfig-diff.log'),
-      ignoreExitValue => 1,
-      dir => catfile($versionedConfigBumpDir, 'patcher'),
-    ); 
-
-    $this->Shell(
-      cmd => 'cvs',
-      cmdArgs => ['-d', $mozillaCvsroot,
-                  'ci', '-m', "\"Automated configuration bump: $patcherConfig, "
-                   .  "for $product $version build$build\"", $patcherConfig],
-      logFile => catfile($logDir, 'patcherconfig-checkin.log'),
-      dir => catfile($versionedConfigBumpDir, 'patcher'),
-    ); 
-
-    # bump the update verify configs too
-    my $oldCandidatesDir = CvsCatfile('pub', 'mozilla.org', $product, 'nightly',
-                                     $oldVersion . '-candidates',
-                                     'build' . $oldBuild . '/');
-
-    my $oldTagVersion = $oldVersion;
-    $oldTagVersion =~ s/\./_/g;
-    my $oldReleaseTag = uc($product).'_'.$oldTagVersion.'_RELEASE';
-
-    $this->CvsCo(
-      cvsroot => $mozillaCvsroot,
-      modules => [CvsCatfile('mozilla', $appName, 'locales',
-                             'shipped-locales')],
-      tag => $oldReleaseTag,
-      workDir => $versionedConfigBumpDir,
-      checkoutDir => 'old-locales'
-    );
-    my $oldShippedLocales = catfile($versionedConfigBumpDir, 'old-locales',
-                                 'shipped-locales');
-
-    foreach my $osname (qw/ linux macosx win32/ ) {
-        my $verifyConfig = $config->Get(var => $osname.'_verifyConfig');
-        my @args = (catfile($versionedConfigBumpDir, 'tools', 'release',
-                            'update-verify-bump.pl'),
-                '-o', $osname,
-                '-p', $product,
-                '--old-version=' . $oldVersion,
-                '--old-app-version=' . $oldAppVersion,
-                '--old-long-version=' . $oldLongVersion,
-                '-v', $version,
-                '--app-version=' . $appVersion,
-                '--long-version=' . $longVersion,
-                '-n', $build,
-                '-a', $ausServerUrl,
-                '-s', $stagingServer,
-                '-c', catfile($versionedConfigBumpDir, 'tools', 'release', 'updates',
-                              $verifyConfig),
-                '-d', $oldCandidatesDir,
-                '-e', $linuxExtension,
-                '-l', $oldShippedLocales
-        );
-
-        $this->Shell(
-          cmd => 'perl',
-          cmdArgs => \@args
-        );
-    }
-
-    $this->Shell(
-      cmd => 'hg',
-      cmdArgs => ['commit', '-m',
-                  '"Automated configuration bump: update verify configs for '
-                  . $product  . ' ' . $version . "build$build" . '"'],
-      logFile => catfile($logDir, 'update_verify-checkin.log'),
-      dir => catfile($versionedConfigBumpDir, 'tools')
-    );
-    $this->HgPush(
-      repo => $hgToolsRepo,
-      workDir => catfile($versionedConfigBumpDir, 'tools')
-    );
-
-}
-
-sub Verify {
-    my $this = shift;
-    return;
-}
-
-1;

mozilla/tools/release/Bootstrap/Step/Repack.pm

@@ -1,257 +0,0 @@
-#
-# Repack step. Unpacks, modifies, repacks a Firefox en-US build.
-# Primary use is for l10n (localization) builds.
-#
-package Bootstrap::Step::Repack;
-use Bootstrap::Step;
-use Bootstrap::Config;
-use Bootstrap::Util qw(CvsCatfile);
-use MozBuild::Util qw(MkdirWithPath);
-@ISA = ("Bootstrap::Step");
-
-sub Execute {
-    my $this = shift;
-
-    my $config = new Bootstrap::Config();
-    my $l10n_buildDir = $config->Get(sysvar => 'l10n_buildDir');
-    my $productTag = $config->Get(var => 'productTag');
-    my $build = $config->Get(var => 'build');
-    my $logDir = $config->Get(sysvar => 'logDir');
-    my $l10n_buildPlatform = $config->Get(sysvar => 'l10n_buildPlatform');
-    my $sysname = $config->SystemInfo(var => 'sysname');
-    my $buildTag = $productTag . '_BUILD' . $build;
-
-    my $buildLog = catfile($logDir, 'repack_' . $buildTag . '-build-l10n.log');
-    my $lastBuilt = catfile($l10n_buildDir, $l10n_buildPlatform, 'last-built');
-    unlink($lastBuilt) 
-      or $this->Log(msg => "Cannot unlink last-built file $lastBuilt: $!");
-    $this->Log(msg => "Unlinked $lastBuilt");
-
-    # For Cygwin only, ensure that the system mount point is textmode
-    # This forces CVS to use DOS-style carriage-return EOL characters.
-    if ($sysname =~ /cygwin/i) {
-        $this->Shell(
-          cmd => 'mount',
-          cmdArgs => ['-t', '-sc', '/cygdrive'],
-          dir => $buildDir,
-        );
-    }
-
-    $this->Shell(
-      cmd => './build-seamonkey.pl',
-      cmdArgs => ['--once', '--mozconfig', 'mozconfig', '--depend', 
-                  '--config-cvsup-dir', 
-                  catfile($l10n_buildDir, 'tinderbox-configs')],
-      dir => $l10n_buildDir,
-      logFile => $buildLog,
-      timeout => 36000
-    );
-
-    # For Cygwin only, set the system mount point back to binmode
-    # This forces CVS to use Unix-style linefeed EOL characters.
-    if ($sysname =~ /cygwin/i) {
-        $this->Shell(
-          cmd => 'mount',
-          cmdArgs => ['-b', '-sc', '/cygdrive'],
-          dir => $buildDir,
-        );
-    }
-}
-
-sub Verify {
-    my $this = shift;
-
-    my $config = new Bootstrap::Config();
-    my $productTag = $config->Get(var => 'productTag');
-    my $product = $config->Get(var => 'product');
-    my $build = $config->Get(var => 'build');
-    my $oldBuild = $config->Get(var => 'oldBuild');
-    my $logDir = $config->Get(sysvar => 'logDir');
-    my $version = $config->GetVersion(longName => 0);
-    my $oldVersion = $config->GetOldVersion(longName => 0);
-    my $mozillaCvsroot = $config->Get(var => 'mozillaCvsroot');
-    my $verifyDir = $config->Get(var => 'verifyDir');
-    my $hgToolsRepo = $config->Get(var => 'hgToolsRepo');
-    my $hgToolsTag = $config->Get(var => 'hgToolsTag');
-    my $stagingServer = $config->Get(var => 'stagingServer');
-    my $linuxExtension = $config->GetLinuxExtension();
-    my $buildTag = $productTag.'_BUILD'.$build;
-
-    # l10n metadiff test
-
-    my $verifyDirVersion = catfile($verifyDir, $product . '-' . $version);
-
-    MkdirWithPath(dir => $verifyDirVersion)
-      or die("Cannot mkdir $verifyDirVersion: $!");
-
-
-    $this->HgClone(
-      repo => $hgToolsRepo,
-      tag => $hgToolsTag,
-      workDir => $verifyDirVersion
-    );
-
-    # Download current release
-    $this->Shell(
-      cmd => 'rsync',
-      cmdArgs => ['-Lav', 
-                  '-e', 'ssh', 
-                  '--include=*.dmg',
-                  '--include=*.exe',
-                  '--include=*.tar.'.$linuxExtension,
-                  '--exclude=*',
-                  $stagingServer . ':/home/ftp/pub/' . $product
-                  . '/nightly/' . $version . '-candidates/build' . $build . '/*',
-                  $product . '-' . $version . '-build' . $build . '/',
-                 ],
-      dir => catfile($verifyDirVersion, 'tools', 'release', 'l10n'),
-      logFile => 
-        catfile($logDir, 'repack_verify-download_' . $version . '.log'),
-      timeout => 3600
-    );
-
-    # Download previous release
-    $this->Shell(
-      cmd => 'rsync',
-      cmdArgs => ['-Lav', 
-                  '-e', 'ssh', 
-                  '--include=*.dmg',
-                  '--include=*.exe',
-                  '--include=*.tar.'.$linuxExtension,
-                  '--exclude=*',
-                  $stagingServer . ':/home/ftp/pub/' . $product
-                  . '/nightly/' . $oldVersion . '-candidates/build' 
-                  . $oldBuild . '/*',
-                  $product . '-' . $oldVersion . '-build' . $oldBuild . '/',
-                 ],
-      dir => catfile($verifyDirVersion, 'tools', 'release', 'l10n'),
-      logFile => 
-        catfile($logDir, 'repack_verify-download_' . $oldVersion . '.log'),
-      timeout => 3600
-    );
-
-    my $newProduct = $product . '-' . $version . '-' . 'build' . $build;
-    my $oldProduct = $product . '-' . $oldVersion . '-' . 'build' . $oldBuild;
-
-    foreach my $product ($newProduct, $oldProduct) {
-        MkdirWithPath(dir => catfile($verifyDirVersion, 'l10n', $product))
-          or die("Cannot mkdir $verifyDirVersion/$product: $!");
-
-        $this->Shell(
-          cmd => './verify_l10n.sh',
-          cmdArgs => [$product],
-          dir => catfile($verifyDirVersion, 'tools', 'release', 'l10n'),
-          logFile => catfile($logDir, 
-                             'repack_' . $product . '-l10n_verification.log'),
-        );
-
-
-        foreach my $rule ('^FAIL', '^Binary') {
-            eval {
-                $this->CheckLog(
-                    log => $logDir . 
-                           '/repack_' . $product . '-l10n_verification.log',
-                    notAllowed => $rule,
-                );
-            };
-            if ($@) {
-                $this->Log('msg' => 
-                           "WARN: $rule found in l10n metadiff output!");
-            }
-        }
-
-        $this->CheckLog(
-            log => $logDir . '/repack_' . $product . '-l10n_verification.log',
-            notAllowed => '^Only',
-        );
-    }
-
-    # generate metadiff
-    $this->Shell(
-      cmd => 'diff',
-      cmdArgs => ['-r', 
-                  catfile($newProduct, 'diffs'),
-                  catfile($oldProduct, 'diffs'),
-                 ],
-      ignoreExitValue => 1,
-      dir => catfile($verifyDirVersion, 'tools', 'release', 'l10n'),
-      logFile => catfile($logDir, 'repack_metadiff-l10n_verification.log'),
-    );
-}
-
-sub Push {
-    my $this = shift;
-
-    my $config = new Bootstrap::Config();
-    my $productTag = $config->Get(var => 'productTag');
-    my $build = $config->Get(var => 'build');
-    my $logDir = $config->Get(sysvar => 'logDir');  
-    my $stagingUser = $config->Get(var => 'stagingUser');
-    my $stagingServer = $config->Get(var => 'stagingServer');
-
-    my $buildTag = $productTag . '_BUILD' . $build;
-    my $buildLog = catfile($logDir, 'repack_' . $buildTag . '-build-l10n.log');
-    my $pushLog  = catfile($logDir, 'repack_' . $buildTag . '-push-l10n.log');
-    
-    my $logParser = new MozBuild::TinderLogParse(
-        logFile => $buildLog,
-    );
-    my $pushDir = $logParser->GetPushDir();
-    if (! defined($pushDir)) {
-        die("No pushDir found in $buildLog");
-    }
-    $pushDir =~ s!^http://ftp.mozilla.org/pub/mozilla.org!/home/ftp/pub!;
-
-    my $candidateDir = $config->GetFtpCandidateDir(bitsUnsigned => 1);
-    $this->CreateCandidatesDir();
-
-    my $osFileMatch = $config->SystemInfo(var => 'osname');    
-    # TODO - use a more generic function for this kind of remapping
-    if ($osFileMatch eq 'win32')  {
-      $osFileMatch = 'win';
-    } elsif ($osFileMatch eq 'macosx') {
-      $osFileMatch = 'mac';
-    }
-
-    $this->Shell(
-      cmd => 'ssh',
-      cmdArgs => ['-2', '-l', $stagingUser, $stagingServer,
-                  'rsync', '-av',
-                  '--include=*' . $osFileMatch . '*',
-                  '--include=*.xpi',
-                  '--exclude=*', 
-                  $pushDir, $candidateDir],
-      logFile => $pushLog,
-    );
-}
-
-sub Announce {
-    my $this = shift;
-
-    my $config = new Bootstrap::Config();
-    my $product = $config->Get(var => 'product');
-    my $productTag = $config->Get(var => 'productTag');
-    my $version = $config->GetVersion(longName => 0);
-    my $build = $config->Get(var => 'build');
-    my $logDir = $config->Get(sysvar => 'logDir');
-
-    my $buildTag = $productTag . '_BUILD' . $build;
-    my $buildLog = catfile($logDir, 'repack_' . $buildTag . '-build-l10n.log');
-
-    my $logParser = new MozBuild::TinderLogParse(
-        logFile => $buildLog,
-    );
-    my $buildID = $logParser->GetBuildID();
-    my $pushDir = $logParser->GetPushDir();
-
-    if (! defined($pushDir)) {
-        die("No pushDir found in $buildLog");
-    } 
-
-    $this->SendAnnouncement(
-      subject => "$product $version l10n repack step finished",
-      message => "$product $version l10n builds were copied to the candidates directory.\nPush Dir was $pushDir",
-    );
-}
-
-1;

mozilla/tools/release/Bootstrap/Step/Sign.pm

@@ -1,46 +0,0 @@
-#
-# Sign step. Wait for signed builds to appear.
-# 
-package Bootstrap::Step::Sign;
-use Bootstrap::Step;
-use Bootstrap::Config;
-@ISA = ("Bootstrap::Step");
-
-sub Execute {
-    my $this = shift;
-
-    my $config = new Bootstrap::Config();
-    my $product = $config->Get(var => 'product');
-    my $version = $config->Get(var => 'version');
-    my $build = $config->Get(var => 'build');
-    my $stagingServer = $config->Get(var => 'stagingServer');
-
-    my $logFile = 'win32_signing_build' . $build . '.log';
-    my $url = 'http://' . $stagingServer . '/pub/mozilla.org/' . $product . 
-     '/nightly/' .  $version . '-candidates/' . 'build' . $build . '/' . $logFile;
-
-    $this->Log(msg => 'Looking for url ' . $url);
-
-    while (system('wget', '-q', '--spider', $url)) {
-        sleep(10);
-    }
-
-    $this->Log(msg => 'Found signing log');
-}
-
-sub Verify {}
-
-sub Announce {
-    my $this = shift;
-
-    my $config = new Bootstrap::Config();
-    my $product = $config->Get(var => 'product');
-    my $version = $config->GetVersion(longName => 0);
-
-    $this->SendAnnouncement(
-      subject => "$product $version sign step finished",
-      message => "$product $version win32 builds have been signed and copied to the candidates dir.",
-    );
-}
-
-1;

mozilla/tools/release/Bootstrap/Step/Source.pm

@@ -1,143 +0,0 @@
-#
-# Source step. Creates a source tarball equivalent to what was used to 
-# build the binary release, in the Build step.
-# 
-package Bootstrap::Step::Source;
-use Bootstrap::Step;
-use Bootstrap::Config;
-use File::Copy qw(move);
-use File::Find qw(find);
-use MozBuild::Util qw(MkdirWithPath);
-@ISA = ("Bootstrap::Step");
-
-sub Execute {
-    my $this = shift;
-
-    my $config = new Bootstrap::Config();
-    my $product = $config->Get(var => 'product');
-    my $appName = $config->Get(var => 'appName');
-    my $productTag = $config->Get(var => 'productTag');
-    my $version = $config->GetVersion(longName => 0);
-    my $build = $config->Get(var => 'build');
-    my $logDir = $config->Get(sysvar => 'logDir');
-    my $sourceDir = $config->Get(var => 'sourceDir');
-    my $mozillaCvsroot = $config->Get(var => 'mozillaCvsroot');
-
-    # create staging area
-    my $versionedSourceDir = catfile($sourceDir, $product . '-' . $version, 
-                           'batch-source', 'build' . $build);
-
-    if (not -d $versionedSourceDir) {
-        MkdirWithPath(dir => $versionedSourceDir) 
-          or die("Cannot create $versionedSourceDir: $!");
-    }
-
-    $this->CvsCo(cvsroot => $mozillaCvsroot,
-                 tag => $productTag . '_RELEASE',
-                 modules => ['mozilla/client.mk',
-                             catfile('mozilla', $appName, 'config')],
-                 workDir => $versionedSourceDir,
-                 logFile => catfile($logDir, 'source.log')
-    );
-                 
-    $this->Shell(
-      cmd => 'make',
-      cmdArgs => ['-f', 'client.mk', 'checkout',
-                  'MOZ_CO_PROJECT=' . $appName . ',xulrunner'],
-      dir => catfile($versionedSourceDir, 'mozilla'),
-      logFile => catfile($logDir, 'source.log'),
-    );
-
-    # change all CVS/Root files to anonymous CVSROOT
-    File::Find::find(\&CvsChrootCallback, catfile($versionedSourceDir, 
-                     'mozilla'));
-
-    # remove leftover mozconfig files
-    unlink(glob(catfile($versionedSourceDir, 'mozilla', '.mozconfig*')));
-
-    my $tarFile = $product . '-' . $version . '-' . 'source' . '.tar.bz2';
-
-    $this->Shell(
-      cmd => 'tar',
-      cmdArgs => ['-cjf', $tarFile, 'mozilla'],
-      dir => catfile($versionedSourceDir),
-      logFile => catfile($logDir, 'source.log'),
-    );
-              
-    chmod(0644, glob("$versionedSourceDir/$tarFile"));
-}
-
-sub Verify {
-    my $this = shift;
-
-    my $config = new Bootstrap::Config();
-    my $logDir = $config->Get(sysvar => 'logDir');
-
-    my $logFile = catfile($logDir, 'source.log');
-
-    $this->CheckLog(
-        log => $logFile,
-        checkFor => '^checkout finish',
-    );
-
-    $this->CheckLog(
-        log => $logFile,
-        notAllowed => '^tar',
-    );
-}
-
-sub Push {
-    my $this = shift;
-
-    my $config = new Bootstrap::Config();
-    my $product = $config->Get(var => 'product');
-    my $version = $config->GetVersion(longName => 0);
-    my $build = $config->Get(var => 'build');
-    my $logDir = $config->Get(sysvar => 'logDir');
-    my $sourceDir = $config->Get(var => 'sourceDir');
-    my $stagingUser = $config->Get(var => 'stagingUser');
-    my $stagingServer = $config->Get(var => 'stagingServer');
-
-    my $candidateDir = $config->GetFtpCandidateDir(bitsUnsigned => 0);
-
-    my $versionedSourceDir =  catfile($sourceDir, $product . '-' . $version);
-
-    $this->CreateCandidatesDir();
-
-    $this->Shell(
-      cmd => 'rsync',
-      cmdArgs => ['-av', '-e', 'ssh', catfile('batch-source', 'build' . $build, 
-                            $product . '-' . $version . '-source.tar.bz2'),
-                  $stagingUser . '@' . $stagingServer . ':' . $candidateDir],
-      logFile => catfile($logDir, 'source.log'),
-      dir => catfile($versionedSourceDir),
-    );
-}
-
-sub Announce {
-    my $this = shift;
-
-    my $config = new Bootstrap::Config();
-    my $product = $config->Get(var => 'product');
-    my $version = $config->GetVersion(longName => 0);
-
-    $this->SendAnnouncement(
-      subject => "$product $version source step finished",
-      message => "$product $version source archive was copied to the candidates dir.",
-    );
-}
-
-# Change the CVS/Root file to be the anonymous CVS Root
-sub CvsChrootCallback {
-    my $config = new Bootstrap::Config();
-    my $anonCvsroot = $config->Get(var => 'anonCvsroot');
-
-    my $dirent = $File::Find::name;
-    if ((-f $dirent) and ($dirent =~ /.*CVS\/Root$/)) {
-        open(FILE, "> $dirent");
-        print FILE "$anonCvsroot\n";
-        close(FILE);
-    }
-}
-
-1;

mozilla/tools/release/Bootstrap/Step/Stage.pm

@@ -1,885 +0,0 @@
-#
-# Stage step. Copies nightly build format filenames to release directory
-# structure.
-# 
-package Bootstrap::Step::Stage;
-
-use File::Basename;
-use File::Copy qw(copy move);
-use File::Find qw(find);
-use File::Path qw(rmtree mkpath);
-
-use Cwd;
-
-use Bootstrap::Step;
-use Bootstrap::Config;
-use Bootstrap::Util qw(CvsCatfile);
-
-use MozBuild::Util qw(MkdirWithPath);
-
-@ISA = ("Bootstrap::Step");
-
-use strict;
-
-#
-# List of directories that are allowed to be in the stage-unsigned directory,
-# theoretically because TrimCallback() will know what to do with them.
-#
-my @ALLOWED_DELIVERABLE_DIRECTORIES = qw(windows-xpi mac-xpi linux-xpi);
-
-# List of bouncer platforms; also used in shipped-locales files...
-my @ALL_PLATFORMS = qw(win32 linux osx osxppc);
-
-# Various platform maps that map things to to the platform name used in the
-# shipped-locale files (which happen to be bouncer OSes, for some reason).
-my %DELIVERABLE_TO_PLATFORM = ('win32' => 'win32',
-                               'mac' => 'osx',
-                               'linux-i686' => 'linux');
-
-my %XPIDIR_TO_PLATFORM = ('windows-xpi' => 'win32',
-                          'mac-xpi' => 'osx',
-                          'linux-xpi' => 'linux');
-
-my @NON_LOCALE_XPIS = qw(adt.xpi browser.xpi talkback.xpi xpcom.xpi);
-
-#########################################################################
-# Many, many regexps follow
-#########################################################################
-my $possible_files_re =  # Possible files that we should match on.
-  qr/ (?:                #
-      \.gz               #
-      | \.bz2            #
-      | \.exe            #
-      | \.xpi            #
-      | \.dmg            #
-      | \.mar            #
-      ) $                #
-    /x;                  #
-
-my $version_re =                 # Version strings.
-    qr/ \d+ \w*                  # The first part of the version.
-        (?: \. \d+ \w*)*         # Any remainders in the version.
-      /x;                        #
-
-my $prefix_re =                  # Generic filename prefix.
-  qr/ ([a-z])                    # First character a-z.
-      ([a-z]+)                   # All following characters a-z.
-      -                          #
-      ( $version_re )            # The version.
-    /x;                          #
-
-my $partial_update_prefix_re =   # Generic filename prefix.
-  qr/ ([a-z])                    # First character a-z.
-      ([a-z]+)                   # All following characters a-z.
-      -                          #
-      ( $version_re              # The from version.
-      -                          #
-        $version_re )            # The to version.
-    /x;                          #
-
-my $bin_prefix_re =              # Binary file prefix.
-  qr/ $prefix_re                 # Match on our prefix.
-      \.                         #
-      ([a-z]{2,3}|[a-z]{2,3}-[A-Z]{2,3}|[a-z]{2,3}-[A-Z]{2,3}-[a-zA-Z]*)  # The locale. (en-US, ja-JPM, ast-ES)
-    /x;                          #
-
-my $bin_partial_prefix_re =      # Binary file prefix.
-  qr/ $partial_update_prefix_re  # Match on our prefix.
-      \.                         #
-      ([a-z]{2,3}|[a-z]{2,3}-[A-Z]{2,3}|[a-z]{2,3}-[A-Z]{2,3}-[a-zA-Z]*)  # The locale. (en-US, ja-JPM, ast-ES)
-    /x;                          #
-
-my $win_partial_update_re =      # Mac OS X update file.
-  qr/ ^                          # From start.
-      $bin_partial_prefix_re     # Match on our prefix.
-      \.(win32)\.partial\.mar    #
-      $                          # To end.
-    /x;                          #
-
-my $win_update_re =              # Windows update files.
-  qr/ ^                          # From start.
-      $bin_prefix_re             # Match on our prefix.
-      \.(win32)                  #
-      (\.complete)?              #
-      \.mar                      #
-      $                          # To End.
-    /x;                          #
-
-my $win_installer_re =           # Windows installer files.
-  qr/ ^                          # From start.
-      $bin_prefix_re             # Match on our prefix.
-      \.(win32)\.installer\.exe  #
-      $                          # To End.
-    /x;                          #
-
-my $xpi_langpack_re =            # Langpack XPI files.
-  qr/ ^                          # From start.
-      $bin_prefix_re             # Match on our prefix.
-      \.langpack\.xpi            #
-      $                          # To End.
-    /x;                          #
-
-my $mac_partial_update_re =      # Mac OS X partial update file.
-  qr/ ^                          # From start.
-      $bin_partial_prefix_re     # Match on our prefix.
-      \.(mac)\.partial\.mar      #
-      $                          # To end.
-    /x;                          #
-
-my $mac_update_re =              # Mac OS X update file.
-  qr/ ^                          # From start.
-      $bin_prefix_re             # Match on our prefix.
-      \.(mac)                    #
-      (\.complete)?              #
-      \.mar                      #
-      $                          # To end.
-    /x;                          #
-
-my $mac_re =                     # Mac OS X disk images.
-  qr/ ^                          # From start.
-      $bin_prefix_re             # Match on our prefix.
-      \.(mac)\.dmg               #
-      $                          # To end.
-    /x;                          #
-
-my $linux_partial_update_re =        # Mac OS X update file.
-  qr/ ^                              # From start.
-      $bin_partial_prefix_re         # Match on our prefix.
-      \.(linux-i686)\.partial\.mar   #
-      $                              # To end.
-    /x;                              #
-
-my $linux_update_re =            # Linux update file.
-  qr/ ^                          # From start.
-      $bin_prefix_re             # Match on our prefix.
-      \.(linux-i686)             #
-      (\.complete)?              # 
-      \.mar                      #
-      $                          # To end.
-    /x;                          #
-
-my $linux_re =                   # Linux tarball.
-  qr/ ^                          # From start.
-      $bin_prefix_re             # Match on our prefix.
-      \.(linux-i686)             #
-      \.tar\.(bz2|gz)            #
-      $                          # To end.
-    /x;                          #
-
-my $source_re =                  # Source tarball.
-  qr/ ^                          # From start.
-      $prefix_re                 # Match on our prefix.
-      -source                    #
-      \.tar\.bz2                 #
-      $                          # To end.
-    /x;                          #
-
-sub GetStageDir {
-    my $this = shift;
-
-    my $config = new Bootstrap::Config();
-
-    my $stageHome = $config->Get(var => 'stageHome');
-    my $product = $config->Get(var => 'product');
-    my $version = $config->GetVersion(longName => 0);
-    return catfile($stageHome, $product . '-' . $version);
-}
-
-sub Execute {
-    my $this = shift;
-
-    my $config = new Bootstrap::Config();
-    my $product = $config->Get(var => 'product');
-    my $productTag = $config->Get(var => 'productTag');
-    my $version = $config->GetVersion(longName => 0);
-    my $build = $config->Get(var => 'build');
-    my $logDir = $config->Get(sysvar => 'logDir');
-    my $stageHome = $config->Get(var => 'stageHome');
-    my $appName = $config->Get(var => 'appName');
-    my $mozillaCvsroot = $config->Get(var => 'mozillaCvsroot');
-    my $mofoCvsroot = $config->Get(var => 'mofoCvsroot');
-    my $releaseTag = $config->Get(var => 'productTag') . '_RELEASE';
-    my $stagingUser = $config->Get(var => 'stagingUser');
-    my $stagingServer = $config->Get(var => 'stagingServer');
-    
-    ## Prepare the staging directory for the release.
-    # Create the staging directory.
-
-    my $stageDir = $this->GetStageDir();
-
-    if (not -d $stageDir) {
-        MkdirWithPath(dir => $stageDir) 
-          or die("Could not mkdir $stageDir: $!");
-        $this->Log(msg => "Created directory $stageDir");
-    }
-
-    # Create skeleton batch directory.
-    my $skelDir = catfile($stageDir, 'batch-skel', 'stage');
-    if (not -d $skelDir) {
-        MkdirWithPath(dir => $skelDir) 
-          or die "Cannot create $skelDir: $!";
-        $this->Log(msg => "Created directory $skelDir");
-        chmod(0755, $skelDir)
-          or die("Could not chmod 755 $skelDir: $!");
-        $this->Log(msg => "Changed mode of $skelDir to 0775");
-    }
-    my (undef, undef, $gid) = getgrnam($product)
-      or die "Could not getgrname for $product: $!";
-
-    # Create the contrib and contrib-localized directories with expected 
-    # access rights.
-    for my $dir ('contrib', 'contrib-localized') {
-        my $fullDir = catfile($skelDir, $dir);
-        if (not -d $fullDir) {
-            MkdirWithPath(dir => $fullDir) 
-              or die "Could not mkdir $fullDir : $!";
-            $this->Log(msg => "Created directory $fullDir");
-        }
-
-        chmod(oct(2775), $fullDir)
-          or die "Cannot change mode on $fullDir to 2775: $!";
-        $this->Log(msg => "Changed mode of $fullDir to 2775");
-        chown(-1, $gid, $fullDir)
-          or die "Cannot chgrp $fullDir to $product: $!";
-        $this->Log(msg => "Changed group of $fullDir to $product");
-    }
-
-    # Copy the PUBLIC KEY file from the cvs repo.
-    my $batch1Dir = catfile($stageDir, 'batch1');
-    if (not -d $batch1Dir) {
-        MkdirWithPath(dir => $batch1Dir) 
-          or die "Cannot create $batch1Dir: $!";
-        $this->Log(msg => "Created directory $batch1Dir");
-    }
-
-    $this->Shell(
-      cmd => 'cvs',
-      cmdArgs => [ '-d', $mofoCvsroot, 
-                   'co', '-d', 'key-checkout',
-                   CvsCatfile('release', 'keys', 'pgp',
-                              'PUBLIC-KEY')],
-      logFile => catfile($logDir, 'stage_publickey_checkout.log'),
-      dir => $batch1Dir
-    );
-
-    # We do this to get the version of the key we shipped with in the logfile
-    $this->Shell(
-      cmd => 'cvs',
-      cmdArgs => [ 'status' ],
-      logFile => catfile($logDir, 'stage_publickey_checkout.log'),
-      dir => catfile($batch1Dir, 'key-checkout'),
-    );
-
-    my $keyFile = catfile($batch1Dir, 'key-checkout', 'PUBLIC-KEY');
-    my $keyFileDest = catfile($skelDir, 'KEY');
-    copy($keyFile, $keyFileDest) or die("Could not copy $keyFile to $keyFileDest: $!");
-    chmod(0644, $keyFileDest) or
-      die("Could not chmod $keyFileDest to 644");
-    chown(-1, $gid, $keyFileDest) or 
-      die("Could not chown $keyFileDest to group $gid");
-
-    ## Prepare the merging directory.
-    $this->Shell(
-      cmd => 'rsync',
-      cmdArgs => ['-av', 'batch-skel/stage/', 'stage-merged/'],
-      logFile => catfile($logDir, 'stage_merge_skel.log'),
-      dir => $stageDir,
-    );
-
-    # Collect the release files from the candidates directory into 
-    # a pruning/"trimmed" area; this area will be used to remove
-    # locales and deliverables we don't ship. 
-    my $ftpNightlyDir = $config->GetFtpCandidateDir(bitsUnsigned => 0);
-
-    $this->Shell(
-      cmd => 'rsync',
-      cmdArgs => ['-Lav', '-e', 'ssh', '--exclude=contrib',
-                  $stagingUser . '@' .  $stagingServer . ':' . $ftpNightlyDir,
-                  './stage-unsigned'],
-      logFile => catfile($logDir, 'download_stage.log'),
-      dir => $batch1Dir
-    );
-
-    my $prestageTrimmedDir = catfile($batch1Dir, 'stage-unsigned');
-
-    # Remove unknown/unrecognized directories from the -candidates dir; after
-    # this, the only directories that should be in the stage-unsigned
-    # directory are directories that we expliciately handle below, to prep
-    # for groom-files.
-    $this->{'scrubTrimmedDirDeleteList'} = [];
-
-    find(sub { return $this->ScrubTrimmedDirCallback(); }, $prestageTrimmedDir);
-
-    foreach my $delDir (@{$this->{'scrubTrimmedDirDeleteList'}}) {
-        if (-e $delDir && -d $delDir) {
-            $this->Log(msg => "rmtree() ing $delDir");
-            if (rmtree($delDir, 1, 1) <= 0) {
-                die("ASSERT: rmtree() called on $delDir, but nothing deleted.");
-            }
-        }
-    }
-
-    $this->{'localeManifest'} = $config->GetLocaleInfo();
-
-    # All the magic happens here; we remove unshipped deliverables and cross-
-    # check the locales we do ship in this callback.
-    #
-    # We also set the correct permissions and ownership of the dictories and
-    # files in a mishmash of chmod()/chown() calls in TrimCallback() and later
-    # in GroomFiles(); we should really attempt to consolidate these calls at
-    # some point (says the hacker who wrote most of that ickyness ;-)
-    find(sub { return $this->TrimCallback(); }, $prestageTrimmedDir);
-   
-    # Process the update mars; we copy everything from the trimmed directory
-    # that we created above; this will have only the locales/deliverables
-    # we actually ship; then, remove everything but the mars, including
-    # the [empty] directories; then, run groom-files in the directory that 
-    # has only updates now.
-    $this->Shell(
-      cmd => 'rsync',
-      cmdArgs => ['-av', 'stage-unsigned/', 'mar/'],
-      logFile => catfile($logDir, 'stage_trimmed_to_mars.log'),
-      dir => $batch1Dir
-    );
-
-    $this->{'leaveOnlyMarsDirDeleteList'} = [];
-    find(sub { return $this->LeaveOnlyUpdateMarsCallback(); },
-     catfile($stageDir, 'batch1', 'mar'));
-
-    foreach my $delDir (@{$this->{'leaveOnlyMarsDirDeleteList'}}) {
-        if (-e $delDir && -d $delDir) {
-            $this->Log(msg => "rmtree() ing $delDir");
-            if (rmtree($delDir, 1, 1) <= 0) {
-                die("ASSERT: rmtree() called on $delDir, but nothing deleted.");
-            }
-        }
-    }
-
-    $this->GroomFiles(catfile($batch1Dir, 'mar'));
-
-    # Remove MAR files from stage-unsigned now that they have been processed.
-    find(sub { return $this->RemoveMarsCallback(); },
-     catfile($batch1Dir, 'stage-unsigned'));
-
-    # Nightly builds using a different naming scheme than production.
-    # Rename the files.
-    # TODO should support --long filenames, for e.g. Alpha and Beta
-    $this->GroomFiles(catfile($batch1Dir, 'stage-unsigned'));
-
-    # fix xpi dir names - This is a hash of directory names in the pre-stage
-    # dir -> directories under which those directories should be moved to;
-    # the name will be "xpi", so windows-xpi becomes win32/xpi, etc.
-    my %xpiDirs = ('windows-xpi' => 'win32',
-                   'linux-xpi' => 'linux-i686',
-                   'mac-xpi' => 'mac');
-
-    foreach my $xpiDir (keys(%xpiDirs)) {
-        my $fromDir = catfile($batch1Dir, 'stage-unsigned', $xpiDir);
-        my $parentToDir = catfile($batch1Dir, 'stage-unsigned',
-         $xpiDirs{$xpiDir});
-        my $toDir = catfile($parentToDir, 'xpi');
-
-        if (-e $fromDir) {
-           if (! -e $parentToDir) {
-               MkdirWithPath(dir => $parentToDir) or
-                die("Cannot create $parentToDir");
-           }
-           move($fromDir, $toDir)
-            or die(msg => "Cannot rename $fromDir $toDir: $!");
-           $this->Log(msg => "Moved $fromDir -> $toDir");
-        } else {
-           $this->Log(msg => "Couldn't find $fromDir; not moving to $toDir");
-        }
-    }
-
-    # Create an rsync'ed stage-signed directory to rsync over to the 
-    # signing server.
-    $this->Shell(
-      cmd => 'rsync',
-      cmdArgs => ['-av', 'stage-unsigned/', 'stage-signed/'],
-      logFile => catfile($logDir, 'stage_unsigned_to_sign.log'),
-      dir => $batch1Dir
-    );
-
-}
-
-sub Verify {
-    my $this = shift;
-
-    my $config = new Bootstrap::Config();
-    my $product = $config->Get(var => 'product');
-    my $appName = $config->Get(var => 'appName');
-    my $logDir = $config->Get(sysvar => 'logDir');
-    my $build = $config->Get(var => 'build');
-    my $stageHome = $config->Get(var => 'stageHome');
-    my $productTag = $config->Get(var => 'productTag');
-    my $mozillaCvsroot = $config->Get(var => 'mozillaCvsroot');
-    my $linuxExtension = $config->GetLinuxExtension();
- 
-    my $stageDir = $this->GetStageDir();
-
-    # check out locales manifest (shipped-locales)
-    $this->Shell(
-      cmd => 'cvs', 
-      cmdArgs => [ '-d', $mozillaCvsroot, 
-                   'co', '-d', 'config',
-                   '-r', $productTag . '_RELEASE',
-                   CvsCatfile('mozilla', $appName, 'locales', 
-                              'shipped-locales')],
-      logFile => catfile($logDir, 'stage_shipped-locales_checkout.log'),
-      dir => catfile($stageDir, 'batch1'),
-    );
-
-    # Verify locales
-    my $verifyLocalesLogFile = catfile($logDir, 'stage_verify_l10n.log');
-    $this->Shell(
-      cmd => catfile($stageHome, 'bin', 'verify-locales.pl'),
-      cmdArgs => ['-m', catfile($stageDir, 'batch1', 'config',
-                  'shipped-locales'), '-l', $linuxExtension,
-                  '-p', $product],
-      logFile => $verifyLocalesLogFile,
-      dir => catfile($stageDir, 'batch1', 'stage-signed'),
-    );
-
-    $this->CheckLog(
-      log => $verifyLocalesLogFile,
-      notAllowed => '^FAIL: '
-    );
-    $this->CheckLog(
-      log => $verifyLocalesLogFile,
-      notAllowed => '^ASSERT: '
-    );
-}
-
-sub Push {
-    my $this = shift;
-
-    my $config = new Bootstrap::Config();
-    my $logDir = $config->Get(sysvar => 'logDir');
-    my $stageHome = $config->Get(var => 'stageHome');
-    my $stagingUser = $config->Get(var => 'stagingUser');
-    my $stagingServer = $config->Get(var => 'stagingServer');
-
-    # upload private staging area
-    my $stageDir = $this->GetStageDir();
-
-    $this->Shell(
-      cmd => 'rsync',
-      cmdArgs => ['-av', '-e', 'ssh', $stageDir . '/',
-                  $stagingUser . '@' .  $stagingServer . ':' . 
-                  $stageDir],
-      logFile => catfile($logDir, 'upload_stage_private.log'),
-    );
-}
-
-sub LeaveOnlyUpdateMarsCallback {
-    my $this = shift;
-    my $dirent = $File::Find::name;
-
-    my $marsDir = catfile($this->GetStageDir(), 'batch1', 'mar');
-
-    if (-f $dirent) {
-        if ($dirent !~ /\.mar$/) {
-            $this->Log(msg => "Unlinking non-mar deliverable: $dirent");
-            unlink($dirent) or die("Couldn't unlink $dirent");
-        }
-    } elsif (-d $dirent) {
-        if ($dirent ne $marsDir) {
-          push(@{$this->{'leaveOnlyMarsDirDeleteList'}}, $dirent);
-        }
-    } else {
-        $this->Log(msg => 'WARNING: LeaveOnlyUpdateMarsCallback(): '. 
-         "Unknown dirent type: $dirent");
-    }
-}
-
-sub RemoveMarsCallback {
-    my $this = shift;
-    my $dirent = $File::Find::name;
-
-    if (-f $dirent) {
-        if ($dirent =~ /\.mar$/) {
-            $this->Log(msg => "Unlinking mar: $dirent");
-            unlink($dirent) or die("Couldn't unlink $dirent");
-        }
-    } elsif (-d $dirent) {
-        # do nothing
-    } else {
-        $this->Log(msg => 'WARNING: RemoveMarsCallback(): '. 
-         "Unknown dirent type: $dirent");
-    }
-}
-
-#########################################################################
-# This is a bit of an odd callback; the idea is to emulate find's -maxdepth
-# option with an argument of 1; unfortunately, find2perl barfs on this option.
-# Also, File::Find::find() is an annoying combination of depth and breadth-first
-# search, depending on which version is installed (find() used to be different
-# than finddepth(), but now they're the same?).
-#
-# Anyway, what this does is add an entry in the object to add the list of
-# directories that should be deleted; if we rmtree() those directories here,
-# find() will go bonkers, because we removed things out from under it. So,
-# the next step after find() is called with this callback is to rmtree()
-# all the directories on the list that is populated in this callback.
-#########################################################################
-sub ScrubTrimmedDirCallback {
-    my $this = shift;
-
-    my $config = new Bootstrap::Config();
-    my $dirent = $File::Find::name;
-
-    my $trimmedDir = catfile($this->GetStageDir(), 'batch1', 
-     'stage-unsigned');
-  
-    # if $dirent is a directory and is a direct child of the stage-unsigned
-    # directory (a hacky attempt at the equivalent of find's maxdepth 1 option);
-    if (-d $dirent && dirname($dirent) eq $trimmedDir) {
-        foreach my $allowedDir (@ALLOWED_DELIVERABLE_DIRECTORIES) {
-            return if (basename($dirent) eq $allowedDir);
-        }
-
-        $this->Log(msg => "WILL DELETE: $dirent");
-        push(@{$this->{'scrubTrimmedDirDeleteList'}}, $dirent);
-    }
-}
-
-sub TrimCallback {
-    my $this = shift;
-
-    my $config = new Bootstrap::Config();
-    my $dirent = $File::Find::name;
-
-    if (-f $dirent) {
-        # Don't ship xforms in the release area
-        if (($dirent =~ /xforms\.xpi/) || 
-         # ZIP files are not shipped; neither are en-US lang packs
-         ($dirent =~ /\.zip$/) || ($dirent =~ /en-US\.xpi$/) ||
-         # nor the BuildID files, nor the 2.0.0.x signing log
-         ($dirent =~ /_info.txt$/) || ($dirent =~ /win32_signing_build\d+\.log/) ) {
-            unlink($dirent) || die "Could not unlink $dirent: $!";
-            $this->Log(msg => "Unlinked $dirent");
-            return;
-        }
-
-        # source tarballs don't have a locale, so don't check them for one;
-        # all other deliverables need to be checked to make sure they should
-        # be in stage-unsigned, i.e. if their locale shipped.
-        if ($dirent !~ /\-source\.tar\.bz2$/) {
-            my $validDeliverable = 0;
-           
-            # This logic is kinda weird, and I'd do it differently if I had
-            # more time; basically, for 1.5.0.x branch, there are a set of
-            # non-locale xpis that get shipped in the windows-xpi dir; so,
-            # if the entry is an xpi, check it against the list of non-locale
-            # xpis that we should ship. If it's one of those, let it through.
-            # If not, it could still be a (shipable) locale-xpi, so give
-            # IsValidLocaleDeliverable() a crack at it.
-            #
-            # If it's neither of those, then delete it.
-            if ($dirent =~ /\.xpi$/) {
-                my $xpiBasename = basename($dirent);
-                $validDeliverable = grep(/^$xpiBasename$/, @NON_LOCALE_XPIS);
-            }
-           
-            if (!$validDeliverable) {
-                $validDeliverable = $this->IsValidLocaleDeliverable();
-            }
-            
-            if (not $validDeliverable) {
-                $this->Log(msg => "Deleting unwanted locale deliverable: " . 
-                 $dirent);
-                unlink($dirent) or die("Couldn't unlink() $dirent\n");
-                return;
-            }
-        }
-
-        chmod(0644, $dirent) 
-         || die "Could not chmod $dirent to 0644: $!";
-         $this->Log(msg => "Changed mode of $dirent to 0644");
-    } elsif (-d $dirent) { 
-        chmod(0755, $dirent) 
-          or die "Could not chmod $dirent to 0755: $!";
-        $this->Log(msg => "Changed mode of $dirent to 0755");
-    } else {
-        die("Bootstrap::Step::Stage::TrimCallback(): Unexpected " .
-         "non-file/non-dir directory entry: $dirent");
-    }
-
-    my $product = $config->Get(var => 'product');
-    my (undef, undef, $gid) = getgrnam($product)
-     or die "Could not getgrname for $product: $!";
-    chown(-1, $gid, $dirent)
-     or die "Cannot chgrp $dirent to $product: $!";
-    $this->Log(msg => "Changed group of $dirent to $product");
-}
-
-sub IsValidLocaleDeliverable {
-    my $this = shift;
-    my %args = @_;
-
-    my $config = new Bootstrap::Config();
-
-    my $linuxExtension = $config->GetLinuxExtension();
-
-    my $dirent = $File::Find::name;
-
-    my ($locale, $platform);
-    my @parts = split(/\./, basename($dirent));
-    my $partsCount = scalar(@parts);
-
-    if ($dirent =~ /\.tar\.$linuxExtension/) {
-        # e.g. firefox-2.0.0.2.sk.linux-i686.tar.gz
-        $locale = $parts[$partsCount - 4];
-        $platform = 'linux';
-    } elsif ($dirent =~ /\.exe/) {
-        # e.g. firefox-2.0.0.2.zh-TW.win32.installer.exe
-        $locale = $parts[$partsCount - 4];
-        $platform = 'win32';
-    } elsif ($dirent =~ /\.dmg/) {
-        # e.g. firefox-2.0.0.2.tr.mac.dmg
-        $locale = $parts[$partsCount - 3];
-        $platform = 'osx';
-    } elsif ($dirent =~ /\.xpi/) {
-        # e.g. en-GB.xpi
-        $locale = basename($File::Find::name);
-        $locale =~ s/\.xpi$//;
-        my $parentDir = basename($File::Find::dir);
-
-        if (exists($XPIDIR_TO_PLATFORM{$parentDir})) {
-            $platform = $XPIDIR_TO_PLATFORM{$parentDir};
-        } else {
-            die 'ASSERT: IsValidLocaleDeliverable(): xpis found in an ' .
-             'unexpected directory';
-        }
-    } elsif ($dirent =~ /\.mar/) {
-        # e.g. firefox-2.0.0.2.tr.win32.[partial,complete].mar
-        $locale = $parts[$partsCount - 4];
-        $platform = $DELIVERABLE_TO_PLATFORM{$parts[$partsCount - 3]};
-    } else {
-        die('ASSERT: IsValidLocaleDeliverable(): Unknown file type in tree: ' .
-               $dirent);
-    }
-
-    foreach my $allowedPlatform (@{$this->{'localeManifest'}->{$locale}}) {
-        return 1 if ($allowedPlatform eq $platform);
-    }
-
-    return 0;
-}
-
-sub Announce {
-    my $this = shift;
-
-    my $config = new Bootstrap::Config();
-    my $product = $config->Get(var => 'product');
-    my $version = $config->GetVersion(longName => 0);
-
-    $this->SendAnnouncement(
-      subject => "$product $version stage step finished",
-      message => "$product $version staging area has been created.",
-    );
-}
-
-sub GroomFiles {
-    my $this = shift;
-    my $dir = shift;
-    
-    if (not -d $dir) {
-        $this->Log(msg => "Can't find dir: $dir");
-        return 0;
-    }
-
-    my $config = new Bootstrap::Config();
-    my (undef, undef, $gid) = getgrnam($config->Get(var => 'product')) or
-     die "Could not getgrname for " . $config->Get(var => 'product') .": $!";
-
-    my $start_dir = getcwd();
-    chdir($dir) or
-        die("Failed to chdir() to $dir\n");
-
-    if (! $this->GatherFiles()) {
-        $this->Log(msg => "Failed to find files in $dir");
-        return 0;
-    }
-
-    for my $original_name (@{$this->{'files'}}) {
-        my $new_name = $original_name;
-
-        my $original_dir = dirname($original_name);
-        my $long_name = basename($original_name);
-
-        my @pretty_names = $this->GeneratePrettyName(
-                                                     name => $long_name
-                                                    );
-        
-        my $once = 0;
-        for my $pretty_name (@pretty_names) {
-
-            my $pretty_dirname = dirname($pretty_name);
-            my $pretty_basename = basename($pretty_name);
-
-            if ( ! -e $pretty_name ) {
-                if (! -d $pretty_dirname) {
-                    my @dirsCreated = ();
-
-                    eval { @dirsCreated = mkpath($pretty_dirname, 1) };
-           
-                    if ($@ ne '') {
-                        die("Cannot create $pretty_dirname: $@");
-                    }
-
-                    foreach my $dir (@dirsCreated) {
-                        chmod(0755, $dir) or die("Could not chmod $dir to 755");
-                        chown(-1, $gid, $dir) or die("Could not chown $dir " .
-                         "to group $gid");
-                    }
-
-                    $this->Log(msg => "Created directory $pretty_dirname");
-                }
-                copy($original_name, $pretty_name) or
-                    die("Could not copy $original_name to $pretty_name: $!");
-                chmod(0644, $pretty_name) or
-                 die("Could not chmod $pretty_name to 644");
-                chown(-1, $gid, $pretty_name) or 
-                 die("Could not chown $pretty_name to group $gid");
-                $once = 1;
-            }
-        }
-
-        if ($once) {
-            $this->Log(msg => "Deleting original file: " . 
-                        $original_name);
-                unlink($original_name) or
-                    die("Couldn't unlink() $original_name $!");
-        }
-    }
-
-    chdir($start_dir) or
-        die("Failed to chdir() to starting directory: " .
-            $start_dir . "\n");
-}
-
-sub GatherFiles {
-    my $this = shift;
-    
-    @{$this->{'files'}} = ();
-    File::Find::find(sub { return $this->GatherFilesCallback(); }, '.');
-
-    if (scalar(@{$this->{'files'}}) == 0) {
-        return 0;
-    }
-
-    @{$this->{'files'}} = sort(grep { /$possible_files_re/x } @{$this->{'files'}});
-}
-
-#########################################################################
-# Callback, with internals generated by find2perl
-# Original find call was:
-#   find . -type f -o -name "contrib*" -prune
-#########################################################################
-sub GatherFilesCallback {
-    my $this = shift;
-    my $dirent = $File::Find::name;
-    
-    my ($dev,$ino,$mode,$nlink,$uid,$gid);
-
-    ((($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($dirent)) &&
-    -f _
-    ||
-    /^contrib.*\z/s &&
-    ($File::Find::prune = 1))
-        && push @{$this->{'files'}}, $dirent;
-}
-
-sub GeneratePrettyName {
-    my $this = shift;
-    my %args = @_;
-
-    my $name = $args{'name'};
-    print "name: $name\n";
-    my $config = new Bootstrap::Config();
-    my $currentVersion = $config->GetVersion(longName => 1);
-    my $currentVersionShort = $config->GetVersion(longName => 0);
-    my $oldVersionShort = $config->GetOldVersion(longName => 0);
-
-    my @result;
-
-    # $1 = first character of name
-    # $2 = rest of name
-    # $3 = old version
-    # $4 = locale
-    # $5 = platform
-    # $6 = file extension (linux only)
-
-    # Windows update files.
-    if ( $name =~ m/ $win_update_re /x ) {
-        # Windows update files.
-        push @result, "update/$5/$4/$1$2-" . $currentVersionShort .
-         ".complete.mar";
-
-    } elsif ( $name =~ m/ $win_partial_update_re /x ) {
-        # Windows partial update files.
-        push @result, "update/$5/$4/$1$2-" . $oldVersionShort . '-' .
-         $currentVersionShort . ".partial.mar";
-
-    # Windows installer files.
-    } elsif ( $name =~ m/ $win_installer_re /x ) {
-        # Windows installer files.
-        push @result, "$5/$4/" . uc($1) . "$2 Setup " . $currentVersion . ".exe";
-
-    # Mac OS X disk image files.
-    } elsif ( $name =~ m/ $mac_re /x ) {
-        # Mac OS X disk image files.
-        push @result, "$5/$4/" . uc($1) . "$2 ". $currentVersion . ".dmg";
-
-    # Mac OS X update files.
-    } elsif ( $name =~ m/ $mac_update_re /x ) {
-        # Mac OS X update files.
-        push @result, "update/$5/$4/$1$2-" . $currentVersionShort .
-         ".complete.mar";
-
-    } elsif ( $name =~ m/ $mac_partial_update_re /x ) {
-        # Mac partial update files.
-        push @result, "update/$5/$4/$1$2-" . $oldVersionShort . '-' . 
-         $currentVersionShort . ".partial.mar";
-
-    # Linux tarballs.
-    } elsif ( $name =~ m/ $linux_re /x ) {
-        # Linux tarballs.
-        push @result, "$5/$4/$1$2-" . $currentVersionShort . ".tar.$6";
-
-    # Linux update files.
-    } elsif ( $name =~ m/ $linux_update_re /x ) {
-        # Linux update files.
-        push @result, "update/$5/$4/$1$2-" . $currentVersionShort .
-         ".complete.mar";
-
-    } elsif ( $name =~ m/ $linux_partial_update_re /x ) {
-        # Linux partial update files.
-        push @result, "update/$5/$4/$1$2-" . $oldVersionShort . '-' .
-         $currentVersionShort . ".partial.mar";
-
-    # Source tarballs.
-    } elsif ( $name =~ m/ $source_re /x ) {
-        # Source tarballs.
-        push @result, "source/$1$2-" . $currentVersionShort . "-source.tar.bz2";
-
-    # XPI langpack files.
-    } elsif ( $name =~ m/ $xpi_langpack_re /x ) {
-        # XPI langpack files.
-        my $locale = "$4";
-        for my $platform ( "win32", "linux-i686" ) {
-            push @result, "$platform/xpi/$locale.xpi";
-        }
-     }
-
-    if (scalar(@result) == 0) {
-        $this->Log(msg => "No matches found for: $name");
-        return 0;
-    }
-
-    return @result;
-}
-
-1;

mozilla/tools/release/Bootstrap/Step/Tag.pm

@@ -1,348 +0,0 @@
-#
-# Tag step. Sets up the tagging directory, and checks out the mozilla source.
-# 
-package Bootstrap::Step::Tag;
-
-use Cwd;
-use File::Copy qw(move);
-use File::Path qw(rmtree);
-use POSIX qw(strftime);
-
-use MozBuild::Util qw(MkdirWithPath RunShellCommand);
-use Bootstrap::Util qw(CvsCatfile);
-
-use Bootstrap::Step;
-use Bootstrap::Step::Tag::Bump;
-use Bootstrap::Step::Tag::Mozilla;
-use Bootstrap::Step::Tag::l10n;
-use Bootstrap::Step::Tag::Talkback;
-use Bootstrap::Config;
-
-use strict;
-
-our @ISA = qw(Bootstrap::Step);
-
-# Talkback will be appended in Execute() if it is to be used
-my @TAG_SUB_STEPS = qw( Bump
-                        Mozilla
-                        l10n
-                      );
-
-sub Execute {
-    my $this = shift;
-
-    my $config = new Bootstrap::Config();
-    my $productTag = $config->Get(var => 'productTag');
-    my $build = $config->Get(var => 'build');
-    my $milestone = $config->Get(var => 'milestone');
-    my $tagDir = $config->Get(var => 'tagDir');
-    my $mozillaCvsroot = $config->Get(var => 'mozillaCvsroot');
-    my $branchTag = $config->Get(var => 'branchTag');
-    my $pullDate = $config->Get(var => 'pullDate');
-    my $logDir = $config->Get(sysvar => 'logDir');
-    my $useTalkback = $config->Exists(var => 'useTalkback') ?
-     $config->Get(var => 'useTalkback') : 0;
-
-    my $releaseTag = $productTag . '_RELEASE';
-    my $buildTag = $productTag . '_BUILD' . $build;
-    my $releaseTagDir = catfile($tagDir, $releaseTag);
-    my $buildTagDir = catfile($tagDir, $buildTag);
-
-    # If specified, tag Talkback
-    if ($useTalkback) {
-        push(@TAG_SUB_STEPS, 'Talkback');
-    }
-
-    # create the main tag directory
-    if (not -d $buildTagDir) {
-        MkdirWithPath(dir => $buildTagDir) 
-          or die("Cannot mkdir $buildTagDir: $!");
-    }
-
-    # Tagging area for Mozilla
-    my $cvsrootTagDir = catfile($buildTagDir, 'cvsroot');
-    if (-e $cvsrootTagDir) {
-        die "ASSERT: Tag::Execute(): $cvsrootTagDir already exists?";
-    }
-
-    MkdirWithPath(dir => $cvsrootTagDir) 
-     or die("Cannot mkdir $cvsrootTagDir: $!");
-
-    # Check out Mozilla from the branch you want to tag.
-    # TODO this should support running without branch tag or pull date.
-
-    my $geckoTag = undef;
-
-    if (1 == $build) {
-        $this->CvsCo(cvsroot => $mozillaCvsroot,
-                     tag => $branchTag,
-                     date => $pullDate,
-                     modules => [CvsCatfile('mozilla', 'client.mk')],
-                     workDir => $cvsrootTagDir,
-                     logFile => catfile($logDir, 'tag_checkout_client_mk.log')
-        );
-
-        $this->CheckLog(log => catfile($logDir, 'tag_checkout_client_mk.log'),
-                       checkForOnly => '^U mozilla/client.mk');
-
-        $this->Shell(cmd => 'gmake',
-                     cmdArgs => ['-f', 'client.mk', 'checkout', 
-                                 'MOZ_CO_PROJECT=all', 
-                                 'MOZ_CO_DATE=' . $pullDate],
-                     dir => catfile($cvsrootTagDir, 'mozilla'),
-                     logFile => catfile($logDir, 'tag_mozilla-checkout.log'));
-
-        $this->CheckLog(
-          log => catfile($logDir, 'tag_mozilla-checkout.log'),
-          checkFor => '^U',
-        );
-
-        # Bug 419030 changed the way NSS is checked out for Fx/Tb 2.0.0.x,
-        # pulling most of mozilla/security from one tag but checking out a
-        # 2nd copy of mozilla/security/nss (into nss-fips) from another
-        # Since we can't tag or branch files on two revisions we exclude 
-        # the older one from any operations by removing it.
-        if (-e catfile($cvsrootTagDir,'mozilla','security','nss-fips')) {
-           $this->Log(msg => 'Removing cvsroot/mozilla/security/nss-fips');
-           if (rmtree(catfile($cvsrootTagDir,'mozilla','security','nss-fips'),1) <= 0) {
-              die("ASSERT: rmtree() called on mozilla/security/nss-fips but nothing deleted.");
-           }
-        }
-
-        $geckoTag = $this->GenerateRelbranchName(milestone => $milestone);
-
-        # The glob seems weird/pointless, but it's because CvsTag requires a 
-        # list of files to operate on in the branch => 1 case. This may (or
-        # may not) be considered a bug, depending on how paranoid you're
-        # feeling about automatically creating branches.
-
-        my $cwd = getcwd();
-        chdir(catfile($cvsrootTagDir, 'mozilla')) or
-         die "Couldn't chdir() to $cvsrootTagDir/mozilla: $!\n";
-        my @topLevelMozCVSFiles = grep(!/^CVS$/, glob('*'));
-        chdir($cwd) or die "Couldn't chdir() home: $!\n";
-
-        $this->CvsTag(tagName => $geckoTag,
-                      branch => 1,
-                      files => \@topLevelMozCVSFiles,
-                      coDir => catfile($cvsrootTagDir, 'mozilla'),
-                      logFile => catfile($logDir, 'tag-relbranch_tag-' . 
-                                         $geckoTag));
-
-        $this->Shell(cmd => 'cvs',
-                     cmdArgs => ['up',
-                                 '-r', $geckoTag],
-                     dir => catfile($cvsrootTagDir, 'mozilla'),
-                     logFile => catfile($logDir, 'tag-relbranch_update_' .
-                                        $geckoTag));
-    } else {
-        # We go through some convoluted hoops here to get the _RELBRANCH
-        # datespec without forcing it to be specified. Because of this,
-        # there's lots of icky CVS parsing.
-
-        my $buildOneTag = $productTag . '_BUILD1';
-        my $checkoutLog = "tag_build${build}_checkout_client_ck.log";
-
-        $this->CvsCo(cvsroot => $mozillaCvsroot,
-                     tag => $branchTag,
-                     date => $pullDate,
-                     modules => [CvsCatfile('mozilla', 'client.mk')],
-                     workDir => $cvsrootTagDir,
-                     logFile => catfile($logDir, $checkoutLog)
-        );
-
-        $this->CheckLog(log => catfile($logDir, $checkoutLog),
-                        checkForOnly => '^U mozilla/client.mk');
-
-        # Use RunShellCommand() here because we need to grab the output,
-        # and Shell() sends the output to a log.
-        my $clientMkInfo = RunShellCommand(command => 'cvs',
-                                           args => ['log', 
-                                                    'client.mk'],
-                                           dir => catfile($cvsrootTagDir, 
-                                                          'mozilla'));
-       
-        if ($clientMkInfo->{'exitValue'} != 0) {
-            die("cvs log call on client.mk failed: " .
-             $clientMkInfo->{'exitValue'} . "\n");
-        }
-   
-        my $inSymbolic = 0;
-        my $inDescription = 0;
-        my $haveRev = 0;
-        my $cvsRev = '';
-        my $cvsDateSpec = '';
-        foreach my $logLine (split(/\n/, $clientMkInfo->{'output'})) {
-            if ($inSymbolic && $logLine =~ /^\s+$buildOneTag:\s([\d\.]+)$/) {
-                $cvsRev = $1;            
-                $inSymbolic = 0;
-                next;
-            } elsif ($inDescription && $logLine =~ /^revision $cvsRev$/) {
-                $haveRev = 1;
-                next;
-            } elsif ($haveRev) {
-                if ($logLine =~ /^date:\s([^;]+);/) {
-                    # Gives us a line like: "2006/12/05 19:12:58" 
-                    $cvsDateSpec = $1;
-                    last;
-                }
-
-                die 'ASSERT: Step::Tag::Execute(): have rev, but did not ' .
-                 'find a datespec?';
-            } elsif ($logLine =~ /^symbolic names:/) {
-                $inSymbolic = 1;
-                next;
-            } elsif ($logLine =~ /^description:/) {
-                $inDescription = 1;
-                next;
-            }
-        }
-
-        # relBranchDateSpec now has something like: "2006/12/05 19:12:58" 
-        my $relBranchDateSpec = $cvsDateSpec;
-        # Strip off the time...
-        $relBranchDateSpec =~ s/^\s*([\d\/]+).*/$1/;
-        # Strip out the /'s; now we have our datespec: 20061205
-        $relBranchDateSpec =~ s/\///g;
-
-        $geckoTag = $this->GenerateRelbranchName(milestone => $milestone,
-         datespec => $relBranchDateSpec);
-
-        $this->CvsCo(cvsroot => $mozillaCvsroot,
-                     tag => $geckoTag,
-                     modules => ['mozilla'],
-                     workDir => $cvsrootTagDir,
-                     logFile => catfile($logDir, 'tag_checkout_client_mk.log')
-        );
-    }
-
-    $config->Set(var => 'geckoBranchTag', value => $geckoTag);
-
-    # Call substeps
-    for (my $curStep = 0; $curStep < scalar(@TAG_SUB_STEPS); $curStep++) {
-        my $stepName = $TAG_SUB_STEPS[$curStep];
-        eval {
-            $this->Log(msg => 'Tag running substep ' . $stepName);
-            my $step = "Bootstrap::Step::Tag::$stepName"->new();
-            $step->Execute();
-            $step->Verify();
-        };
-        if ($@) {
-            die("Tag substep $stepName died: $@");
-        }
-    }
-}
-
-sub Verify {
-    my $this = shift;
-
-    my $config = new Bootstrap::Config();
-    my $logDir = $config->Get(sysvar => 'logDir');
-
-    # This step doesn't really do anything now, because the verification it used
-    # to do (which wasn't much) is now done in the Execute() method, since the
-    # biz logic for build 1 vs. build > 1 is different.
-}
-
-#
-# All of the logic for CvsTag() was moved to Bootstrap::Util::CvsTag(), however
-# this shim out to that function was kept because this does some argument
-# handling and also various error-condition handling that would have to be
-# duplicated if every call-site was converted to Bootstrap::Util::CvsTag(),
-# so this version was kept to centralize the handling of that. See bug 387970.
-#
-
-sub CvsTag {
-    my $this = shift;
-    my %args = @_;
-
-    # All the required args first, followed by the optional ones...
-
-    die "ASSERT: Bootstrap::Step::Tag::CvsTag(): null logFile"
-     if (!exists($args{'logFile'}));
-    die "ASSERT: Bootstrap::Step::Tag::CvsTag(): null coDir" if 
-     (!exists($args{'coDir'}));
-
-    # We renamed this argument when CvsTag() got moved...
-    $args{'cvsDir'} = $args{'coDir'};
-
-    # Check if we're supposed to dump the tagging output to stdout...
-    my $config = new Bootstrap::Config();
-    if ($config->Exists(var => 'dumpLogs') && 
-     $config->Get(var => 'dumpLogs')) {
-        $args{'output'} = 1;
-    }
-
-    # We call this by full scoping (and don't include it in the use() statement
-    # for Bootstrap::Util above) to disambiguate between the Util version and
-    # the Tag version, which is a shim now.
-    my $rv = Bootstrap::Util::CvsTag(%args);
-
-    if ($rv->{'timedOut'} || ($rv->{'exitValue'} != 0)) {
-        $this->Log(msg => "Bootstrap::Step::Tag::CvsTag failed; rv: " .
-         "$rv->{'exitValue'}, timeout: $rv->{'timedOut'}, output: " .
-         "$rv->{'output'}");
-        die("Bootstrap::Step::Tag::CvsTag: exited bogusly: $rv->{'exitValue'}");
-    }
-
-    return $rv;
-}
-
-#
-# Give me some information, I'll give you the GECKO$version_$datespec_RELBRANCH
-# tag back; utility function, so we can centralize creation of this string.
-#
-# It has two modes; if you give it a branch (always required), you'll get a new
-# (current) _RELBRANCH tag; if you give it a datespec, you'll get a _RELBRANCH
-# tag based on that datespec (which, of course, may or may not exist.
-#
-# You can override all of this logic by setting "RelbranchOverride" in the 
-# bootstrap.cfg.
-#
-sub GenerateRelbranchName {
-    my $this = shift;
-    my %args = @_;
-    
-    die "ASSERT: GenerateRelbranchName(): null milestone" if 
-     (!exists($args{'milestone'}));
-
-    my $config = new Bootstrap::Config();
-
-    if ($config->Exists(var => 'RelbranchOverride')) {
-        return $config->Get(var => 'RelbranchOverride');
-    }
-
-    # Convert milestone (1.8.1.x => 181 or 1.9b1 => 19b1) 
-
-    my $geckoVersion = $args{'milestone'};
-
-    # 1.9.0.10 style version numbers (for releases, generally)
-    if ($geckoVersion =~ m/(\d\.){3,4}/) {
-        $geckoVersion =~ s/\.//g;
-        $geckoVersion =~ s/^(\d{3}).*$/$1/;
-        die "ASSERT: GenerateRelbranchName(): Gecko version should be only " .
-         "numbers by now" if ($geckoVersion !~ /^\d{3}$/);
-    }
-    # 1.9b1 style version numbers (for alpha/betas, generally) 
-    elsif ($geckoVersion =~ m/\d\.\d[ab]\d+/i) {
-        $geckoVersion =~ s/\.//g;
-    }
-    # new major version, eg 1.9 (Fx3)
-    elsif ($geckoVersion =~ m/^\d\.\d$/) {
-        $geckoVersion =~ s/\.//g;
-    }
-    else {
-        die "ASSERT: GenerateRelbranchName(): Unknown Gecko version format";
-    }
-
-    my $geckoDateSpec = exists($args{'datespec'}) ? $args{'datespec'} : 
-     strftime('%Y%m%d', gmtime());
-
-    # This assert()ion has a Y21k (among other) problem(s)...
-    die "ASSERT: GenerateRelbranchName(): invalid datespec" if 
-     ($geckoDateSpec !~ /^20\d{6}$/);
-
-    return 'GECKO' . $geckoVersion . '_' . $geckoDateSpec . '_RELBRANCH';
-}
-
-1;

mozilla/tools/release/Bootstrap/Step/Tag/Bump.pm

@@ -1,148 +0,0 @@
-#
-# Tag::Bump substep. Bumps version files for Mozilla appropriately.
-# 
-package Bootstrap::Step::Tag::Bump;
-
-use strict;
-
-use File::Copy qw(move);
-
-use MozBuild::Util qw(MkdirWithPath);
-
-use Bootstrap::Util qw(CvsCatfile);
-use Bootstrap::Step;
-use Bootstrap::Config;
-use Bootstrap::Step::Tag;
-
-our @ISA = ("Bootstrap::Step::Tag");
-
-sub Execute {
-    my $this = shift;
-
-    my $config = new Bootstrap::Config();
-    my $product = $config->Get(var => 'product');
-    my $productTag = $config->Get(var => 'productTag');
-    my $branchTag = $config->Get(var => 'branchTag');
-    my $pullDate = $config->Get(var => 'pullDate');
-    my $version = $config->GetVersion(longName => 0);
-    my $appVersion = $config->GetAppVersion();
-    my $build = int($config->Get(var => 'build'));
-    my $milestone = $config->Get(var => 'milestone');
-    my $appName = $config->Get(var => 'appName');
-    my $logDir = $config->Get(sysvar => 'logDir');
-    my $mozillaCvsroot = $config->Get(var => 'mozillaCvsroot');
-    my $hgToolsRepo = $config->Get(var => 'hgToolsRepo');
-    my $tagDir = $config->Get(var => 'tagDir');
-    my $geckoBranchTag = $config->Get(var => 'geckoBranchTag');
-    my $bumpMilestoneTxt = $config->Get(var => 'bumpMilestoneTxt');
-
-    my $releaseTag = $productTag . '_RELEASE';
-    my $buildTag = $productTag . '_BUILD' . $build;
-
-    my $buildTagDir = catfile($tagDir, $buildTag);
-    my $cvsrootTagDir = catfile($buildTagDir, 'cvsroot');
- 
-    ## TODO - we need to handle the case here where we're in security firedrill
-    ## mode, and we need to bump versions on the GECKO_ branch, but they
-    ## won't have "pre" in them. :-o
-    #
-    # We only do the bump step for build1
-
-    if ($build > 1) {
-        $this->Log(msg => "Skipping Tag::Bump::Execute substep for build $build.");
-        return;
-    }
-
-    # pull version files
-    my $moduleVer = CvsCatfile($appName, 'app', 'module.ver');
-    my $versionTxt = CvsCatfile($appName, 'config', 'version.txt');
-    my $milestoneTxt = CvsCatfile('config', 'milestone.txt');
-
-    my @bumpFiles = ('client.mk', $moduleVer, $versionTxt);
-
-    # milestone changes based on configuration
-    if ($bumpMilestoneTxt) {
-        @bumpFiles = (@bumpFiles, $milestoneTxt);
-    }
-
-    # Check out Mozilla from the branch you want to tag.
-    # TODO this should support running without branch tag or pull date.
-    $this->CvsCo(
-      cvsroot => $mozillaCvsroot,
-      tag => $geckoBranchTag,
-      modules => [CvsCatfile('mozilla', 'client.mk'),
-                  CvsCatfile('mozilla', $appName, 'app', 'module.ver'),
-                  CvsCatfile('mozilla', $appName, 'config', 'version.txt'),
-                  CvsCatfile('mozilla', 'config', 'milestone.txt')],
-      workDir => $cvsrootTagDir,
-      logFile => catfile($logDir, 'tag-bump_checkout.log')
-    );
-
-    ### Perform version bump
-
-    # bug 449208 moved this logic to an external script to more easily
-    # support both CVS and Mercurial based releases
-    $this->HgClone(
-      repo => $hgToolsRepo,
-      workDir => catfile($buildTagDir)
-    );
-    $this->Shell(
-      cmd => 'perl',
-      cmdArgs => [catfile($buildTagDir, 'tools', 'release', 'version-bump.pl'),
-                  '-w', catfile($cvsrootTagDir, 'mozilla'),
-                  '-t', $releaseTag,
-                  '-a', $appName,
-                  '-v', $appVersion,
-                  '-m', $milestone,
-                  @bumpFiles],
-      logFile => catfile($logDir, 'tag-bump_files.log'),
-    );
-
-    my $bumpCiMsg = 'Automated checkin: version bump, remove pre tag for ' 
-                        . $product . ' ' . $version . ' release on ' 
-                        . $geckoBranchTag;
-    $this->Shell(
-      cmd => 'cvs',
-      cmdArgs => ['commit', '-m', $bumpCiMsg, 
-                  @bumpFiles,
-                 ],
-      dir => catfile($buildTagDir, 'cvsroot', 'mozilla'),
-      logFile => catfile($logDir, 'tag-bump_checkin.log'),
-    );
-}
-
-sub Verify {
-    my $this = shift;
-
-    my $config = new Bootstrap::Config();
-    my $logDir = $config->Get(sysvar => 'logDir');
-    my $appName = $config->Get(var => 'appName');
-    my $product = $config->Get(var => 'product');
-    my $milestone = $config->Exists(var => 'milestone') ? 
-     $config->Get(var => 'milestone') : undef;
-    my $build = $config->Get(var => 'build');
-
-    if ($build > 1) {
-        $this->Log(msg => "Skipping Tag::Bump::Verify substep for build $build.");
-        return;
-    }
-
-    my $moduleVer = catfile($appName, 'app', 'module.ver');
-    my $versionTxt = catfile($appName, 'config', 'version.txt');
-    my $milestoneTxt = catfile('config', 'milestone.txt');
-    my @bumpFiles = ('client.mk', $moduleVer, $versionTxt);
-
-    # milestone changes only occur with Firefox releases
-    if ($product eq 'firefox') {
-        @bumpFiles = (@bumpFiles, $milestoneTxt);
-    }
-
-    foreach my $file (@bumpFiles) {
-        $this->CheckLog(
-          log => catfile($logDir, 'tag-bump_checkin.log'),
-          checkFor => $file,
-        );
-    }
-}
-
-1;

mozilla/tools/release/Bootstrap/Step/Tag/Mozilla.pm

@@ -1,111 +0,0 @@
-#
-# Tag Mozilla substep. Applies appropriate tags to Mozilla source code.
-# 
-package Bootstrap::Step::Tag::Mozilla;
-
-use File::Copy qw(move);
-use File::Spec::Functions;
-
-use MozBuild::Util qw(MkdirWithPath);
-use Bootstrap::Util qw(GetDiffFileList);
-
-use Bootstrap::Config;
-use Bootstrap::Step::Tag;
-
-use strict;
-
-our @ISA = ("Bootstrap::Step::Tag");
-
-sub Execute {
-    my $this = shift;
-
-    my $config = new Bootstrap::Config();
-    my $productTag = $config->Get(var => 'productTag');
-    my $build = int($config->Get(var => 'build'));
-    my $logDir = $config->Get(sysvar => 'logDir');
-    my $mozillaCvsroot = $config->Get(var => 'mozillaCvsroot');
-    my $tagDir = $config->Get(var => 'tagDir');
-
-    my $releaseTag = $productTag . '_RELEASE';
-    my $buildTag = $productTag . '_BUILD' . $build;
-    my $buildTagDir = catfile($tagDir, $buildTag);
-    my $cvsrootTagDir = catfile($buildTagDir, 'cvsroot');
-
-    # Create the BUILD tag
-    $this->CvsTag(
-      tagName => $buildTag,
-      coDir => catfile($cvsrootTagDir, 'mozilla'),
-      logFile => catfile($logDir, 
-                         'tag-mozilla_cvsroot_tag-' . $buildTag . '.log'),
-    );
-
-    # Create or move the RELEASE tag
-    #
-    # This is for the Verify() method; we assume that we actually set (or reset,
-    # in the case of build > 1) the _RELEASE tag; if that's not the case, we reset
-    # this value below.
-    $config->Set(var => 'tagModifyMozillaReleaseTag', value => 1);
-
-    if ($build > 1) {
-        my $previousBuildTag = $productTag . '_BUILD' . ($build - 1);
-        my $diffFileList = GetDiffFileList(cvsDir => catfile($cvsrootTagDir,
-                                                             'mozilla'),
-                                           prevTag => $previousBuildTag,
-                                           newTag => $buildTag);
-
-        if (scalar(@{$diffFileList}) > 0) {
-            $this->CvsTag(
-              tagName => $releaseTag,
-              coDir => catfile($cvsrootTagDir, 'mozilla'),
-              force => 1,
-              files => $diffFileList,
-              logFile => catfile($logDir, 
-                                 'tag-mozilla_cvsroot_tag-' . $releaseTag . 
-                                 '.log'),
-              );
-        } else {
-            $config->Set(var => 'tagModifyMozillaReleaseTag', value => 0,
-             force => 1);
-            $this->Log(msg => "No diffs found in cvsroot for build $build; NOT " .
-             "modifying $releaseTag");
-        }
-    } else {
-        $this->CvsTag(
-          tagName => $releaseTag,
-          coDir => catfile($cvsrootTagDir, 'mozilla'),
-          logFile => catfile($logDir, 
-                             'tag-mozilla_cvsroot_tag-' . $releaseTag . '.log'),
-        );
-    }
-
-}
-
-sub Verify {
-    my $this = shift;
-
-    my $config = new Bootstrap::Config();
-    my $productTag = $config->Get(var => 'productTag');
-    my $logDir = $config->Get(sysvar => 'logDir');
-    my $build = $config->Get(var => 'build');
-
-    my $releaseTag = $productTag . '_RELEASE';
-    my $buildTag = $productTag . '_BUILD' . $build;
-
-    my @checkTags = ($buildTag);
-
-    # If build > 1 and we took no changes in cvsroot for that build, the _RELEASE
-    # tag won't have changed, so we shouldn't attempt to check it.
-    if ($config->Get(var => 'tagModifyMozillaReleaseTag')) {
-        push(@checkTags, $releaseTag);      
-    }
-
-    # TODO: should this complain about W's?
-    foreach my $tag (@checkTags) {
-        $this->CheckLog(
-          log => catfile($logDir, 'tag-mozilla_cvsroot_tag-' . $tag . '.log'),
-          checkFor => '^T',
-        );
-    }
-}
-
-1;

mozilla/tools/release/Bootstrap/Step/Tag/Talkback.pm

@@ -1,90 +0,0 @@
-#
-# Tag step. Applies a CVS tag to the appropriate repositories.
-# 
-package Bootstrap::Step::Tag::Talkback;
-
-use strict;
-
-use File::Copy qw(move);
-
-use MozBuild::Util qw(MkdirWithPath);
-
-use Bootstrap::Util qw(CvsCatfile);
-use Bootstrap::Step;
-use Bootstrap::Config;
-use Bootstrap::Step::Tag;
-
-our @ISA = ("Bootstrap::Step::Tag");
-
-sub Execute {
-    my $this = shift;
-
-    my $config = new Bootstrap::Config();
-    my $productTag = $config->Get(var => 'productTag');
-    my $branchTag = $config->Get(var => 'branchTag');
-    my $build = int($config->Get(var => 'build'));
-    my $pullDate = $config->Get(var => 'pullDate');
-    my $logDir = $config->Get(sysvar => 'logDir');
-    my $mofoCvsroot = $config->Get(var => 'mofoCvsroot');
-    my $tagDir = $config->Get(var => 'tagDir');
-
-    my $releaseTag = $productTag . '_RELEASE';
-    my $buildTag = $productTag . '_BUILD' . $build;
-    my $releaseTagDir = catfile($tagDir, $buildTag);
-
-    # Since talkback so seldom changes, we don't include it in our fancy
-    # respin logic; we only need to tag it for build 1.
-    if ($build > 1) {
-        $this->Log(msg => "Not tagging Talkback repo for build $build.");
-        return;
-    }
-
-    # Create the mofo tag directory.
-    my $mofoDir = catfile($releaseTagDir, 'mofo');
-    if (not -d $mofoDir) {
-        MkdirWithPath(dir => $mofoDir) 
-          or die("Cannot mkdir $mofoDir: $!");
-    }
-
-    # Check out the talkback files from the branch you want to tag.
-    $this->CvsCo(
-      cvsroot => $mofoCvsroot,
-      tag => $branchTag,
-      date => $pullDate,
-      modules => [CvsCatfile('talkback', 'fullsoft')],
-      workDir => catfile($releaseTagDir, 'mofo'),
-      logFile => catfile($logDir, 'tag-talkback_mofo-checkout.log')
-    );
-
-    # Create the talkback RELEASE tag.
-    $this->CvsTag(
-      tagName => $releaseTag,
-      coDir => catfile($releaseTagDir, 'mofo', 'talkback', 'fullsoft'),
-      logFile => catfile($logDir, 
-                         'tag-talkback_mofo-tag-' . $releaseTag . '.log'),
-    );
-}
-
-sub Verify {
-    my $this = shift;
-
-    my $config = new Bootstrap::Config();
-    my $logDir = $config->Get(sysvar => 'logDir');
-    my $productTag = $config->Get(var => 'productTag');
-    my $build = $config->Get(var => 'build');
-
-    if ($build > 1) {
-        $this->Log(msg => "Not verifying Talkback repo for build $build.");
-        return;
-    }
-
-    my $releaseTag = $productTag . '_RELEASE';
-
-    $this->CheckLog(
-      log => catfile($logDir, 
-                     'tag-talkback_mofo-tag-' . $releaseTag . '.log'),
-      checkFor => '^T',
-    );
-}
-
-1;

mozilla/tools/release/Bootstrap/Step/Tag/l10n.pm

@@ -1,162 +0,0 @@
-#
-# Tag step. Applies a CVS tag to the appropriate repositories.
-# 
-package Bootstrap::Step::Tag::l10n;
-
-use Cwd;
-use File::Copy qw(move);
-use File::Spec::Functions;
-
-use MozBuild::Util qw(MkdirWithPath);
-
-use Bootstrap::Step;
-use Bootstrap::Config;
-use Bootstrap::Step::Tag;
-use Bootstrap::Util qw(CvsCatfile GetDiffFileList);
-
-use strict;
-
-our @ISA = ("Bootstrap::Step::Tag");
-
-sub Execute {
-    my $this = shift;
-
-    my $config = new Bootstrap::Config();
-    my $product = $config->Get(var => 'product');
-    my $productTag = $config->Get(var => 'productTag');
-    my $branchTag = $config->Get(var => 'branchTag');
-    my $l10n_pullDate = $config->Get(var => 'l10n_pullDate');
-    my $build = int($config->Get(var => 'build'));
-    my $appName = $config->Get(var => 'appName');
-    my $logDir = $config->Get(sysvar => 'logDir');
-    my $l10nCvsroot = $config->Get(var => 'l10nCvsroot');
-    my $tagDir = $config->Get(var => 'tagDir');
-
-    my $releaseTag = $productTag . '_RELEASE';
-    my $buildTag = $productTag . '_BUILD' . $build;
-    my $releaseTagDir = catfile($tagDir, $buildTag);
-
-    # Create the l10n tag directory.
-    my $l10nTagDir = catfile($releaseTagDir, 'l10n');
-
-    if (not -d $l10nTagDir) {
-        MkdirWithPath(dir => $l10nTagDir) or
-         die("Cannot mkdir $l10nTagDir: $!");
-    }
-
-    # Grab list of shipped locales
-    #
-    # Note: GetLocaleInfo() has a dependency on the $releaseTag above already
-    # being set; it should be by when the l10n tagging step gets run, though.
-
-    my $localeInfo = $config->GetLocaleInfo();
-
-    # Config::Set() for us by Step::Tag::Execute() 
-    my $geckoTag = $config->Get(var => 'geckoBranchTag');
-
-    for my $locale (sort(keys(%{$localeInfo}))) {
-        # skip en-US; it's kept in the main repo
-        next if ($locale eq 'en-US');
-
-        # Make sure to pull from the right tag and/or date for buildN.
-        $this->CvsCo(cvsroot => $l10nCvsroot,
-                     tag => (1 == $build) ? $branchTag : $geckoTag,
-                     date => (1 == $build) ? $l10n_pullDate : 0,
-                     modules => [CvsCatfile('l10n', $locale)],
-                     workDir => $l10nTagDir,
-                     logFile => catfile($logDir, 'tag-l10n_checkout.log'));
-    }
-
-    my $cwd = getcwd();
-    chdir(catfile($l10nTagDir, 'l10n')) or
-     die "chdir() to $l10nTagDir/l10n failed: $!\n";
-    my @topLevelFiles = grep(!/^CVS$/, glob('*'));
-    chdir($cwd) or die "Couldn't chdir() home: $!\n";
-
-    if (1 == $build) {
-        $this->CvsTag(tagName => $geckoTag,
-                      branch => 1,
-                      files => \@topLevelFiles,
-                      coDir => catfile($l10nTagDir, 'l10n'),
-                      logFile => catfile($logDir, 'tag-l10n_relbranch_tag_' . 
-                                         $geckoTag));
-
-    
-        $this->Shell(cmd => 'cvs',
-                     cmdArgs => ['up',
-                                 '-r', $geckoTag],
-                     dir => catfile($l10nTagDir, 'l10n'),
-                     logFile => catfile($logDir, 'tag-l10n_relbranch_update_' .
-                                        $geckoTag));
-    }
-
-    # Create the l10n BUILD tag
-    $this->CvsTag(
-      tagName => $buildTag,
-      coDir => catfile($l10nTagDir, 'l10n'),
-      logFile => catfile($logDir, 'tag-l10n_tag_' . $buildTag. '.log'),
-    );
-
-    # Create the l10n RELEASE tag
-    my %releaseTagArgs = (tagName => $releaseTag,
-                          coDir => catfile($l10nTagDir, 'l10n'),
-                          logFile => catfile($logDir, 'tag-l10n_tag_' . 
-                           $releaseTag. '.log'));
-
-    # This is for the Verify() method; we assume that we actually set (or reset,
-    # in the case of build > 1) the _RELEASE tag; if that's not the case, we reset
-    # this value below.
-    $config->Set(var => 'tagModifyl10nReleaseTag', value => 1);
-
-    # If we're retagging build(N > 1), we need to tag -F
-    if ($build > 1) {
-        my $previousBuildTag = $productTag . '_BUILD' . ($build - 1);
-        my $diffFileList = GetDiffFileList(cvsDir => catfile($l10nTagDir,
-                                                             'l10n'),
-                                           prevTag => $previousBuildTag,
-                                           newTag => $buildTag);
-
-        if (scalar(@{$diffFileList}) > 0) {
-            $releaseTagArgs{'force'} = 1;
-            $releaseTagArgs{'files'} = $diffFileList;
-            $this->CvsTag(%releaseTagArgs); 
-        } else {
-            $this->Log(msg => "No diffs found in l10n for build $build; NOT " .
-             "modifying $releaseTag");
-            $config->Set(var => 'tagModifyl10nReleaseTag', value => 0,
-              force => 1);
-        }
-    } else {
-        # If we're build 1, we obviously need to apply the _RELEASE tag...
-        $this->CvsTag(%releaseTagArgs); 
-    }
-}
-
-sub Verify {
-    my $this = shift;
-
-    my $config = new Bootstrap::Config();
-    my $logDir = $config->Get(sysvar => 'logDir');
-    my $productTag = $config->Get(var => 'productTag');
-    my $build = $config->Get(var => 'build');
-
-    my $releaseTag = $productTag . '_RELEASE';
-    my $buildTag = $productTag . '_BUILD' . $build;
-
-    my @checkTags = ($buildTag);
-
-    # If build > 1 and we took no changes in cvsroot for that build, the _RELEASE
-    # tag won't have changed, so we shouldn't attempt to check it.
-    if ($config->Get(var => 'tagModifyl10nReleaseTag')) {
-        push(@checkTags, $releaseTag);
-    }
-
-    foreach my $tag (@checkTags) {
-        $this->CheckLog(
-          log => catfile($logDir, 'tag-l10n_tag_' . $tag . '.log'),
-          checkFor => '^T',
-        );
-    }
-}
-
-1;

mozilla/tools/release/Bootstrap/Step/TinderConfig.pm

@@ -1,208 +0,0 @@
-##
-# TinderConfig - creates config file for Tinderbox
-##
-
-package Bootstrap::Step::TinderConfig;
-
-use Bootstrap::Step;
-use Bootstrap::Config;
-use Bootstrap::Util qw(CvsCatfile CvsTag);
-
-use MozBuild::TinderLogParse;
-use MozBuild::Util qw(MkdirWithPath);
-
-@ISA = ("Bootstrap::Step");
-
-sub Execute {
-    my $this = shift;
-
-    my $config = new Bootstrap::Config();
-    my $configBumpDir = $config->Get(var => 'configBumpDir');
-    my $productTag = $config->Get(var => 'productTag');
-    my $version = $config->GetVersion(longName => 0);
-    my $build = int($config->Get(var => 'build'));
-    my $mozillaCvsroot = $config->Get(var => 'mozillaCvsroot');
-    my $product = $config->Get(var => 'product');
-    my $logDir = $config->Get(sysvar => 'logDir');
-    my $branchTag = $config->Get(var => 'branchTag');
-    my $osname = $config->SystemInfo(var => 'osname');
-
-    my $releaseTag = $productTag . '_RELEASE';
-
-    my $productConfigBumpDir = catfile($configBumpDir, 
-                                       "$product-$version-build$build");
-
-    if (-e $productConfigBumpDir) {
-        die "ASSERT: Step::TinderConfig::Execute(): $productConfigBumpDir " .
-         'already exists?';
-    }
-
-    MkdirWithPath(dir => $productConfigBumpDir)
-      or die("Cannot mkdir $productConfigBumpDir: $!");
-
-    my @branches = @{DetermineBranches()};
-
-    if (scalar(@branches) != 2) {
-        die("ASSERT: Bootstrap::Step::TinderConfig(): Got " .
-         scalar(@branches) . " branches from DetermineBranches(), " .
-         "needed 2.");
-    }
-
-    foreach my $branch (@branches) {
-        $this->CvsCo(cvsroot => $mozillaCvsroot,
-                     checkoutDir => $branch,
-                     tag => $branch,
-                     modules => [CvsCatfile('mozilla', 'tools',
-                                  'tinderbox-configs', $product, $osname)],
-                     logFile => catfile($logDir,
-                      'build_config-checkout-' . $branch . '.log'),
-                     workDir => $productConfigBumpDir
-        );
-  
-        my @bumpConfigFiles = qw(tinder-config.pl mozconfig);
-
-        foreach my $configFile (@bumpConfigFiles) {
-            $config->Bump( configFile => 
-             catfile($productConfigBumpDir, $branch, $configFile));
-            $this->Shell(
-              cmd => 'cvs',
-              cmdArgs => ['-d', $mozillaCvsroot, 
-                          'ci', '-m', 
-                          '"Automated configuration bump, release for ' 
-                           . $product  . ' ' . $version . "build$build" . '"', 
-                          $configFile],
-              logFile => catfile($logDir, 
-               'build_config-checkin-' . $configFile . '-' . 
-                $branch . '.log'),
-              dir => catfile($productConfigBumpDir, $branch)
-            );
-        }
-
-        if ($version eq 'nightly') {
-            $this->Log(msg => 'Skipping TinderConfig tagging for nightly mode');
-            next;
-        }
-
-        my @tagNames = ($productTag . '_RELEASE',
-                        $productTag . '_BUILD' . $build);
-
-        foreach my $configTagName (@tagNames) {
-            # XXX - Don't like doing this this way (specifically, the logic 
-            # change depending on the name of the branch in this loop...) 
-            #
-            # Also, the force argument to CvsTag() is interesting; we only
-            # want to cvs tag -F a whatever_RELEASE tag if we're not tagging
-            # the first build; so, the logic is (build > 1 && we're doing a _RELEASE
-            # tag; also, we have to surround it in int(); otherwise, if it's
-            # false, we get the empty string, which is undef which is bad.
-            $configTagName .= '_l10n' if ($branch =~ /l10n/);
-
-            my $rv = CvsTag(tagName => $configTagName,
-                            force => int($build > 1 && 
-                                         $configTagName =~ /_RELEASE/),
-                            files => \@bumpConfigFiles,
-                            cvsDir => catfile($productConfigBumpDir,
-                                              $branch),
-                            logFile => catfile($logDir, 'build_config-tag-' . 
-                                               $branch . '.log'),
-                            output => 1
-                           );
-
-            if ($rv->{'timedOut'} || ($rv->{'exitValue'} != 0)) {
-                $this->Log(msg => "CvsTag() in TinderConfig() failed; " .
-                "tag: $configTagName, rv: $rv->{'exitValue'}, " .
-                "timeout: $rv->{'timedOut'}, output: $rv->{'output'}");
-                die("Bootstrap::Step::TinderConfig tag failed: "
-                 . $rv->{'exitValue'});
-            }
-        }
-    }
-}
-
-sub Verify {
-    my $this = shift;
-
-    my $config = new Bootstrap::Config();
-    my $branchTag = $config->Get(var => 'branchTag');
-    my $logDir = $config->Get(sysvar => 'logDir');
-    my $version = $config->Get(var => 'version');
-    
-    my @branches = @{DetermineBranches()};
-
-    if (scalar(@branches) != 2) {
-        die("ASSERT: Bootstrap::Step::TinderConfig(): Got " .
-         scalar(@branches) . " branches from DetermineBranches(), " .
-         "needed 2.");
-    }
-
-    foreach my $branch (@branches) {
-        $this->CheckLog(
-            log => catfile($logDir, 
-             'build_config-checkout-' . $branch . '.log'),
-            notAllowed => 'fail',
-        );
-
-        $this->CheckLog(
-            log => catfile($logDir, 
-             'build_config-checkout-' . $branch . '.log'),
-            notAllowed => 'aborted',
-        );
-
-        # In nightly mode we don't do any tagging, so there's nothing to verify
-        if ($version eq 'nightly') {
-            $this->Log(msg => 'Skipping tag verification for nightly mode.');
-        } else {
-            $this->CheckLog(
-                log => catfile($logDir, 'build_config-tag-' . $branch . '.log'),
-                checkFor => '^T',
-            );
-        }
-
-        foreach my $configFile ('mozconfig', 'tinder-config.pl') {
-            $this->CheckLog(
-             log => catfile($logDir,
-               'build_config-checkin-' . $configFile . '-' .  $branch . '.log'),
-             notAllowed => 'fail',
-            );
-            $this->CheckLog(
-             log => catfile($logDir,
-               'build_config-checkin-' . $configFile . '-' .  $branch . '.log'),
-             notAllowed => 'aborted',
-            );
-        }
-    }
-}
-
-sub DetermineBranches {
-    my $this = shift;
-    my %args = @_;
-
-    my $config = new Bootstrap::Config();
-    my $version = $config->Get(var => 'version');
-    my $branchTag = $config->Get(var => 'branchTag');
-
-    my @branches = ();
-    # tinderbox-configs tags are different on branches vs trunk
-    # Additionally, nightlies use different branches
-    # Do the right thing in all cases
-    if ($branchTag eq 'HEAD') {
-        if ($version eq 'nightly') {
-            push(@branches, ('HEAD', 'l10n'));
-        }
-        else {
-            push(@branches, ('release', 'l10n_release'));
-        }
-    }
-    else {
-        if ($version eq 'nightly') {
-            push(@branches, $branchTag);
-            push(@branches, $branchTag . '_l10n');
-        }
-        else {
-            push(@branches, $branchTag . '_release');
-            push(@branches, $branchTag . '_l10n_release');
-        }
-    }
-
-    return \@branches;
-}

mozilla/tools/release/Bootstrap/Step/Updates.pm

@@ -1,313 +0,0 @@
-#
-# Updates step. Generates binary update (MAR) files as well as AUS config
-# snippets.
-# 
-package Bootstrap::Step::Updates;
-
-use Bootstrap::Step;
-use Bootstrap::Config;
-use Bootstrap::Util qw(CvsCatfile GetLocaleManifest);
-
-use File::Find qw(find);
-use POSIX qw(strftime);
-
-use MozBuild::Util qw(MkdirWithPath);
-
-@ISA = ("Bootstrap::Step");
-
-sub Execute {
-    my $this = shift;
-
-    my $config = new Bootstrap::Config();
-    my $product = $config->Get(var => 'product');
-    my $logDir = $config->Get(sysvar => 'logDir');
-    my $oldVersion = $config->GetOldVersion(longName => 0);
-    my $version = $config->GetVersion(longName => 0);
-    my $mozillaCvsroot = $config->Get(var => 'mozillaCvsroot');
-    my $updateDir = $config->Get(var => 'updateDir');
-    my $patcherConfig = $config->Get(var => 'patcherConfig');
-    my $patcherToolsRev = $config->Get(var => 'patcherToolsRev');
-
-    my $versionedUpdateDir = catfile($updateDir, $product . '-' . $version);
-
-    # Create updates area.
-    if (not -d $versionedUpdateDir) {
-        MkdirWithPath(dir => $versionedUpdateDir) 
-          or die("Cannot mkdir $versionedUpdateDir: $!");
-    }
-
-    # check out patcher
-    $this->CvsCo(cvsroot => $mozillaCvsroot,
-                 checkoutDir => 'patcher',
-                 modules => [CvsCatfile('mozilla', 'tools', 'patcher')],
-                 tag => $patcherToolsRev,
-                 logFile => catfile($logDir, 'updates_patcher-checkout.log'),
-                 workDir => $versionedUpdateDir
-    );
-          
-    # check out utilities
-    $this->CvsCo(cvsroot => $mozillaCvsroot,
-                 checkoutDir => 'MozBuild',
-                 modules => [CvsCatfile('mozilla', 'tools', 'release',
-                                        'MozBuild')],
-                 tag => $patcherToolsRev,
-                 logFile => catfile($logDir,
-                                    'updates_patcher-utils-checkout.log'),
-                 workDir => catfile($versionedUpdateDir, 'patcher')
-    );
-
-    # this config lives in the public repo since bug 408849 was checked in
-    $this->CvsCo(cvsroot => $mozillaCvsroot,
-                 checkoutDir => 'config',
-                 modules => [CvsCatfile('mozilla', 'tools', 'patcher-configs',
-                                        $patcherConfig)],
-                 logFile => catfile($logDir,
-                                    'updates_patcher-config-checkout.log'),
-                 workDir => $versionedUpdateDir
-    );
-
-    # build tools
-    my $originalCvsrootEnv = $ENV{'CVSROOT'};
-    $ENV{'CVSROOT'} = $mozillaCvsroot;
-    $this->Shell(
-      cmd => './patcher2.pl',
-      cmdArgs => ['--build-tools', '--tools-revision=' . $patcherToolsRev,
-                  '--app=' . $product, 
-                  '--config=../config/' . $patcherConfig],
-      logFile => catfile($logDir, 'updates_patcher-build-tools.log'),
-      dir => catfile($versionedUpdateDir, 'patcher'),
-    );
-    if ($originalCvsrootEnv) {
-        $ENV{'CVSROOT'} = $originalCvsrootEnv;
-    }
-    
-    # download complete MARs
-    $this->Shell(
-      cmd => './patcher2.pl',
-      cmdArgs => ['--download', '--app=' . $product,
-                    '--config=../config/' . $patcherConfig],
-      logFile => catfile($logDir, 'updates_patcher-download.log'),
-      dir => catfile($versionedUpdateDir, 'patcher'),
-    );
-
-    # Create partial patches and snippets
-    $this->Shell(
-      cmd => './patcher2.pl',
-      cmdArgs => ['--create-patches', '--app=' . $product, 
-                  '--config=../config/' . $patcherConfig,
-                  '--partial-patchlist-file=patchlist.cfg'],
-      logFile => catfile($logDir, 'updates_patcher-create-patches.log'),
-      dir => catfile($versionedUpdateDir, 'patcher'),
-      timeout => 18000,
-    );
-    
-    ### quick verification
-    my $fullUpdateDir = catfile($versionedUpdateDir, 'patcher', 'temp', 
-                          $product, $oldVersion . '-' . $version);
-    $snippetErrors = undef;   # evil (??) global to get results from callbacks
-    
-    # ensure that there are only test channels in aus2.test dir
-    File::Find::find(\&TestAusCallback, catfile($fullUpdateDir,"aus2.test"));
-
-    # ensure that there are only beta channels in beta dir (if that exists)
-    if (-d catfile($fullUpdateDir, "aus2.beta")) {
-      File::Find::find(\&BetaAusCallback, catfile($fullUpdateDir,"aus2.beta"));
-      File::Find::find(\&ReleaseAusCallback, catfile($fullUpdateDir,"aus2"));
-    } 
-    # otherwise allow beta and release in aus2 dir
-    else {
-      File::Find::find(\&ReleaseBetaAusCallback, catfile($fullUpdateDir,"aus2"));
-    }    
-
-    if ($snippetErrors) {
-        $snippetErrors =~ s!$fullUpdateDir/!!g;
-	die("Execute: Snippets failed location checks: $snippetErrors\n");
-    }
-}
-
-sub Verify {
-    my $this = shift;
-
-    my $config = new Bootstrap::Config();
-    my $logDir = $config->Get(sysvar => 'logDir');
-    my $hgToolsRepo = $config->Get(var => 'hgToolsRepo');
-    my $verifyDir = $config->Get(var => 'verifyDir');
-    my $osname = $config->SystemInfo(var => 'osname');
-    my $product = $config->Get(var => 'product');
-    my $version = $config->GetVersion(longName => 0);
-    my $verifyConfig = $config->Get(sysvar => 'verifyConfig');
-
-    # Create verification area.
-    my $verifyDirVersion = catfile($verifyDir, $product . '-' . $version);
-    MkdirWithPath(dir => $verifyDirVersion) 
-      or die("Could not mkdir $verifyDirVersion: $!");
-
-    $this->HgClone(
-      repo => $hgToolsRepo,
-      workDir => $verifyDirVersion
-    );
-
-    my $verifyLog = catfile($logDir, 'updates_verify.log');
-    $this->Shell(
-      cmd => './verify.sh', 
-      cmdArgs => ['-c', $verifyConfig],
-      logFile => $verifyLog,
-      dir => catfile($verifyDirVersion, 'tools', 'release', 'updates'),
-      timeout => 36000,
-    );
-
-    $this->CheckLog(
-        log => $verifyLog,
-        notAllowed => '^FAIL',
-    );
-}
-
-# locate snippets for which the channel doesn't end in test
-sub TestAusCallback { 
-    my $dir = $File::Find::name;
-    if ( ($dir =~ /\.txt/) and 
-         (not $dir =~ /\/\w*test\/(partial|complete)\.txt$/)) {
-           $snippetErrors .= "\nNon-test: $dir";
-    }
-}
-
-# locate snippets for which the channel isn't beta
-sub BetaAusCallback { 
-    my $dir = $File::Find::name;
-    if ( ($dir =~ /\.txt/) and 
-         (not $dir =~ /\/beta\/(partial|complete)\.txt$/)) {
-           $snippetErrors .= "\nNon-beta: $dir";
-    }
-}
-
-# locate snippets for which the channel isn't release
-sub ReleaseAusCallback { 
-    my $dir = $File::Find::name;
-    if ( ($dir =~ /\.txt/) and 
-         (not $dir =~ /\/release\/(partial|complete)\.txt$/)) {
-           $snippetErrors .= "\nNon-release: $dir";
-    }
-}
-
-# locate snippets for which the channel isn't release or beta
-sub ReleaseBetaAusCallback { 
-    my $dir = $File::Find::name;
-    if ( ($dir =~ /\.txt/) and 
-         (not $dir =~ /\/(release|beta)\/(partial|complete)\.txt$/)) {
-           $snippetErrors .= "\nNon-release: $dir";
-    }
-}
-
-sub PermissionsAusCallback {
-    my $dir = $File::Find::name;
-
-    if (-f $dir) {
-	chmod(0644, $dir) or die("Couldn't chmod $dir to 644: $!");
-    } elsif (-d $dir) {
-	chmod(0775, $dir) or die("Couldn't chmod $dir to 775: $!");
-    }
-}
-
-sub Push {
-    my $this = shift;
-
-    my $config = new Bootstrap::Config();
-    my $logDir = $config->Get(sysvar => 'logDir');
-    my $product = $config->Get(var => 'product');
-    my $version = $config->GetVersion(longName => 0);
-    my $build = $config->Get(var => 'build');
-    my $oldVersion = $config->GetOldVersion(longName => 0);
-    my $stagingUser = $config->Get(var => 'stagingUser');
-    my $stagingServer = $config->Get(var => 'stagingServer');
-    my $ausUser = $config->Get(var => 'ausUser');
-    my $ausServer = $config->Get(var => 'ausServer');
-    my $updateDir = $config->Get(var => 'updateDir');
-
-    my $pushLog = catfile($logDir, 'updates_push.log');
-    my $fullUpdateDir = catfile($updateDir, $product . '-' . $version,
-                                 'patcher', 'temp', $product, 
-                                  $oldVersion . '-' . $version);
-    my $candidateDir = $config->GetFtpCandidateDir(bitsUnsigned => 0);
-
-    # push partial mar files up to ftp server
-    my $marsDir = catfile('ftp', $product, 'nightly', 
-                            $version . '-candidates', 'build' . $build) . '/';
-
-    chmod(0644, glob(catfile($fullUpdateDir,$marsDir,"*partial.mar")))
-	or die("Couldn't chmod a partial mar to 644: $!");
-    $this->Shell(
-     cmd => 'rsync',
-     cmdArgs => ['-av', '-e', 'ssh',
-                 '--include=*partial.mar', 
-                 '--exclude=*',
-                 $marsDir,
-                 $stagingUser . '@' . $stagingServer . ':' . $candidateDir],
-     dir => $fullUpdateDir,
-     logFile => $pushLog,
-   );
-
-    # push update snippets to AUS server
-    my $pushDir = strftime("%Y%m%d", localtime) . '-' . ucfirst($product) . 
-                           '-' . $version;
-    my $targetPrefix =  CvsCatfile('/opt','aus2','snippets','staging',
-                                   $pushDir);
-    $config->Set(var => 'ausDeliveryDir', value => $targetPrefix);
-
-    my @snippetDirs = glob(catfile($fullUpdateDir, "aus2*"));
-
-    File::Find::find(\&PermissionsAusCallback, @snippetDirs);
-
-    foreach $dir (@snippetDirs) {
-      my $targetDir = $targetPrefix;
-      if ($dir =~ /aus2\.(.*)$/) {
-        $targetDir .= '-' . $1;
-      }
-
-      $this->Shell(
-        cmd => 'rsync',
-        cmdArgs => ['-av', 
-                    '-e', 'ssh -i ' . catfile($ENV{'HOME'},'.ssh','aus'),
-                    $dir . '/', 
-                    $ausUser . '@' . $ausServer . ':' . $targetDir],
-        logFile => $pushLog,
-      );
-    }
-
-    # Backup test channels
-    $this->Shell(
-      cmd => 'ssh', 
-      cmdArgs => ['-i ' . catfile($ENV{'HOME'},'.ssh','aus'),
-                  $ausUser . '@' . $ausServer,
-                  '/home/cltbld/bin/backupsnip', $pushDir . '-test'],
-      logFile => $pushLog,
-      # the 2.x -> 3.x major update generated a *lot* of snippets
-      # backupsnip now takes significantly more time to run
-      timeout => 7200
-    );
-    # Push test channels live
-    $this->Shell(
-      cmd => 'ssh', 
-      cmdArgs => ['-i ' . catfile($ENV{'HOME'},'.ssh','aus'),
-                  $ausUser . '@' . $ausServer,
-                  '/home/cltbld/bin/pushsnip', $pushDir . '-test'],
-      logFile => $pushLog,
-    );
-    # Wait for timeout on AUS's NFS caching to expire before
-    # attempting to test newly-pushed snippets
-    sleep(360);
-}
-
-sub Announce {
-    my $this = shift;
-
-    my $config = new Bootstrap::Config();
-    my $product = $config->Get(var => 'product');
-    my $version = $config->GetVersion(longName => 0);
-
-    $this->SendAnnouncement(
-      subject => "$product $version update step finished",
-      message => "$product $version updates finished. Partial mars were copied to the candidates dir, and the test snippets were pushed live.",
-    );
-}
-
-1;

mozilla/tools/release/Bootstrap/Util.pm

@@ -1,344 +0,0 @@
-#
-# Bootstrap utility functions.
-# 
-
-package Bootstrap::Util;
-
-use File::Temp qw(tempfile tempdir);
-use File::Spec::Functions;
-use MozBuild::Util qw(RunShellCommand);
-use base qw(Exporter);
-
-our @EXPORT_OK = qw(CvsCatfile CvsTag
-                    GetPushRepo
-                    GetDiffFileList
-                    GetFtpNightlyDir
-                    LoadLocaleManifest
-                    GetEqualPlatforms
-                    GetLocaleManifest
-                    GetBouncerPlatforms GetPatcherPlatforms
-                    GetBouncerToPatcherPlatformMap
-                    GetBuildbotToFTPPlatformMap
-                    GetFTPToBuildbotPlatformMap);
-
-our($DEFAULT_SHELL_TIMEOUT);
-
-use strict;
-
-# This maps Bouncer platforms, used in bouncer and the shipped-locales file
-# to patcher2 platforms used in... patcher2. They're different for some
-# historical reason, which should be considered a bug.
-#
-# This is somewhat incomplete, as Bouncer has the 'osxppc' platform and
-# patcher2 has the 'unimac' platform, neither of which we need any more
-# beacuse we don't need to disambiguate between PPC mac and universal binaries
-# anymore.
-#
-# Also, bouncer uses "win", not win32; shipped-locales uses win32. They
-# couldn't be the same, of course.
-
-my %PLATFORM_MAP = (# bouncer/shipped-locales platform => patcher2 platform
-                    'win32' => 'win32',
-                    'linux' => 'linux-i686',
-                    'linux64' => 'linux-x86_64',
-                    'osx' => 'mac',
-                    'osx64' => 'mac64',
-                    'osxppc' => 'macppc');
-
-my %PLATFORM_FTP_MAP = (# buildbot platform => ftp directory
-                        'linux' => 'linux-i686',
-                        'linux64' => 'linux-x86_64',
-                        'macosx' => 'mac',
-                        'macosx64' => 'mac64',
-                        'win32' => 'win32');
-
-my %EQUAL_PLATFORMS = ('linux' => ['linux64'], 'osx' => ['osx64']);
-
-my $DEFAULT_CVSROOT = ':pserver:anonymous@cvs-mirror.mozilla.org:/cvsroot';
-
-$DEFAULT_SHELL_TIMEOUT = 3600;
-
-##
-# Turn an array of directory/filenames into a CVS module path.
-# ( name comes from File::Spec::catfile() )
-#
-# Note that this function does not take any arguments, to make the usage
-# more like File::Spec::catfile()
-##
-sub CvsCatfile {
-   return join('/', @_);
-}
-
-sub GetBouncerToPatcherPlatformMap {
-   return %PLATFORM_MAP;
-}
-sub GetBuildbotToFTPPlatformMap {
-   return %PLATFORM_FTP_MAP;
-}
-
-sub GetBouncerPlatforms {
-   return keys(%PLATFORM_MAP);
-}
-
-sub GetEqualPlatforms {
-   my $platform = shift;
-   return $EQUAL_PLATFORMS{$platform} || 0;
-}
-
-sub GetFTPToBuildbotPlatformMap {
-    my %ret;
-    while (my ($key, $value) = each %PLATFORM_FTP_MAP){
-        $ret{$value}=$key;
-    }
-    return %ret;
-}
-
-##
-# GetFtpNightlyDir - construct the FTP path for pushing builds & updates to
-# returns scalar
-#
-# no mandatory arguments
-##
-
-sub GetFtpNightlyDir {
-    my $config = new Bootstrap::Config();
-    my $product = $config->Get(var => 'product');
-
-    my $nightlyDir = CvsCatfile('/home', 'ftp', 'pub', $product, 'nightly') . '/';
-    return $nightlyDir;  
-}
-
-sub GetPatcherPlatforms {
-   return values(%PLATFORM_MAP);
-}
-
-# Loads and parses the shipped-locales manifest file, so get hash of
-# locale -> [bouncer] platform mappings; returns success/failure in 
-# reading/parsing the locales file.
-
-sub LoadLocaleManifest {
-    my %args = @_;
-
-    die "ASSERT: LoadLocaleManifest(): needs a HASH ref" if 
-     (not exists($args{'localeHashRef'}) or 
-     ref($args{'localeHashRef'}) ne 'HASH');
-
-    my $localeHash = $args{'localeHashRef'};
-    my $manifestFile = $args{'manifest'};
-
-    if (not -e $manifestFile) {
-       die ("ASSERT: Bootstrap::Util::LoadLocaleManifest(): Can't find manifest"
-        . " $manifestFile");
-    }
-
-    open(MANIFEST, "<$manifestFile") or return 0;
-    my @manifestLines = <MANIFEST>;
-    close(MANIFEST);
-
-    my @bouncerPlatforms = GetBouncerPlatforms();
-    @bouncerPlatforms = sort(@bouncerPlatforms);
-
-    foreach my $line (@manifestLines) {   
-       # We create an instance variable so if the caller munges the reference
-       # to which a certain locale points, they won't screw up all the other
-       # locales; previously, this was a shared array ref, which is bad.
-       my @bouncerPlatformsInstance = @bouncerPlatforms;
-
-       my @elements = split(/\s+/, $line);
-       # Grab the locale; we do it this way, so we can use the rest of the
-       # array as a platform list, if we need it...
-       my $locale = shift(@elements);
-       @elements = sort(@elements);
-
-       # We don't add a $ on the end, because of things like ja-JP-mac
-       if ($locale !~ /^[a-z]{2}(\-[A-Z]{2})?/) {
-          die "ASSERT: invalid locale in manifest file: $locale";
-       }
-
-       # So this is kinda weird; if the locales are followed by a platform,
-       # then they don't exist for all the platforms; if they're all by their
-       # lonesome, then they exist for all platforms. So, since we shifted off
-       # the locale above, if there's anything left in the array, it's the
-       # platforms that are valid for this locale; if there isn't, then that
-       # platform is valid for all locales.
-       $localeHash->{$locale} = scalar(@elements) ? \@elements : 
-                                                    \@bouncerPlatformsInstance;
-
-       foreach my $platform (@{$localeHash->{$locale}}) {
-          die "ASSERT: invalid platform: $platform" if 
-           (not grep($platform eq $_, @bouncerPlatforms));
-       }
-    }
-
-    # Add en-US, which isn't in shipped-locales, because it's assumed that
-    # we always need en-US, for all platforms, to ship.
-    $localeHash->{'en-US'} = \@bouncerPlatforms;
-    return 1;
-}
-   
-
-sub GetLocaleManifest {
-    my %args = @_;
-
-    my $mozillaCvsroot = $args{'cvsroot'} || $DEFAULT_CVSROOT;
-    # XXX - The cruel joke is that this default value won't work; there is
-    # no shipped-locales file on the trunk... yet...
-    my $releaseTag = $args{'tag'} || 'HEAD';
-    my $appName = $args{'app'}; 
-
-    my $localeManifest = {};
-
-    # Remove unshipped files/locales and set proper mode on dirs; start
-    # by checking out the shipped-locales file
-    $ENV{'CVS_RSH'} = 'ssh';
-
-    my ($shippedLocalesTmpHandle, $shippedLocalesTmpFile) = tempfile();
-    $shippedLocalesTmpHandle->close();
-
-    # We dump stderr here so we can ignore having to parse all of the
-    # RCS info that cvs dumps when you co with -p
-    my $rv = RunShellCommand(command => 'cvs',
-                             args => ['-d', $mozillaCvsroot, 
-                                      'co', '-p',
-                                      '-r', $releaseTag,
-                                      CvsCatfile('mozilla', $appName,
-                                       'locales', 'shipped-locales')],
-                             redirectStderr => 0,
-                             logfile => $shippedLocalesTmpFile);
-
-    if ($rv->{'exitValue'} != 0) {
-        die "ASSERT: GetLocaleManifest(): shipped-locale checkout failed\n";
-    }
-
-    if (not LoadLocaleManifest(localeHashRef => $localeManifest,
-                               manifest => $shippedLocalesTmpFile)) {
-        die "Bootstrap::Util: GetLocaleManifest() failed to load manifest\n";
-    }
-
-    return $localeManifest;
-}
-
-sub CvsTag {
-    my %args = @_;
-
-    # All the required args first, followed by the optional ones...
-    die "ASSERT: Bootstrap::Step::Tag::CvsTag(): null tagName" if 
-     (!exists($args{'tagName'})); 
-    my $tagName = $args{'tagName'};
-
-    die "ASSERT: Bootstrap::Step::Tag::CvsTag(): null cvsDir" if 
-     (!exists($args{'cvsDir'})); 
-    my $cvsDir = $args{'cvsDir'};
-
-    die "ASSERT: Bootstrap::Step::Tag::CvsTag(): invalid files data" if 
-     (exists($args{'files'}) && ref($args{'files'}) ne 'ARRAY');
-
-    die "ASSERT: Bootstrap::Step::Tag::CvsTag(): null logFile"
-     if (!exists($args{'logFile'}));
-    my $logFile = $args{'logFile'};
-   
-    my $branch = exists($args{'branch'}) ? $args{'branch'} : 0;
-    my $files = exists($args{'files'}) ? $args{'files'} : [];
-    my $force = exists($args{'force'}) ? $args{'force'} : 0;
-    my $timeout = exists($args{'timeout'}) ? $args{'timeout'} :
-     $DEFAULT_SHELL_TIMEOUT;
-
-    # only force or branch specific files, not the whole tree
-    if ($force && scalar(@{$files}) <= 0) {
-        die("ASSERT: Bootstrap::Util::CvsTag(): Cannot specify force without files");
-    } elsif ($branch && scalar(@{$files}) <= 0) {
-        die("ASSERT: Bootstrap::UtilCvsTag(): Cannot specify branch without files");
-    } elsif ($branch && $force) {
-        die("ASSERT: Bootstrap::UtilCvsTag(): Cannot specify both branch and force");
-    }
-
-    my @cmdArgs;
-    push(@cmdArgs, 'tag');
-    push(@cmdArgs, '-F') if ($force);
-    push(@cmdArgs, '-b') if ($branch);
-    push(@cmdArgs, $tagName);
-    push(@cmdArgs, @{$files}) if (scalar(@{$files}) > 0);
-
-    # We can't use Bootstrap::Step logs since we are in Util, oh well...
-    print 'log: Running "cvs tag" as follows in' . $cvsDir . ":\n";
-    print 'log:   cvs ' . join(' ', @cmdArgs) . "\n";
-    print 'log: Logging output to: ' . $logFile . "\n";
-    print 'log: Timeout: ' . $timeout . "\n";
-
-    my %cvsTagArgs = (command => 'cvs',
-                      args => \@cmdArgs,
-                      dir => $cvsDir,
-                      logfile => $logFile);
-
-    $cvsTagArgs{'timeout'} = $timeout if (defined($timeout));
-    $cvsTagArgs{'output'} = $args{'output'} if (exists($args{'output'}));
-
-    return RunShellCommand(%cvsTagArgs);
-}
-
-sub GetPushRepo {
-    my %args = @_;
-    my ($repo, $pushRepo);
-
-    # Required arguments
-    die "ASSERT: Bootstrap::Util::GetPushRepo(): null repo" if
-     (!exists($args{'repo'}));
-    $pushRepo = $repo = $args{'repo'};
-
-    $pushRepo =~ s/^https?/ssh/;
-    if ($pushRepo !~ m/^ssh/) {
-        die "ASSERT: Bootstrap::Util::GetPushRepo(): could not generate " .
-            "push repo for: $repo";
-    }
-    return $pushRepo;
-}
-
-sub GetDiffFileList {
-    my %args = @_;
-
-    foreach my $requiredArg (qw(cvsDir prevTag newTag)) {
-        if (!exists($args{$requiredArg})) {
-            die "ASSERT: MozBuild::Util::GetDiffFileList(): null arg: " .
-             $requiredArg;
-        }
-    }
-
-    my $cvsDir = $args{'cvsDir'};
-    my $firstTag = $args{'prevTag'};
-    my $newTag = $args{'newTag'};
-
-    my $rv = RunShellCommand(command => 'cvs',
-                             args => ['-q', 'diff', '-uN',
-                                      '-r', $firstTag,
-                                      '-r', $newTag],
-                             dir => $cvsDir,
-                             timeout => 3600);
-
-    # Gah. So, the shell return value of "cvs diff" is dependent on whether or
-    # not there were diffs, NOT whether or not the command succeeded. (Thanks,
-    # CVS!) So, we can't really check exitValue here, since it could be 1 or
-    # 0, depending on whether or not there were diffs (and both cases are valid
-    # for this function). Maybe if there's an error it returns a -1? Or 2?
-    # Who knows.
-    #
-    # So basically, we check that it's not 1 or 0, which... isn't a great test.
-    #
-    # TODO - check to see if timedOut, dumpedCore, or sigNum are set.
-    if ($rv->{'exitValue'} != 1 && $rv->{'exitValue'} != 0) {
-        die("ASSERT: MozBuild::Util::GetDiffFileList(): cvs diff returned " .
-         $rv->{'exitValue'});
-    }
-
-    my @differentFiles = ();
-
-    foreach my $line (split(/\n/, $rv->{'output'})) {
-        if ($line =~ /^Index:\s(.+)$/) {
-            push(@differentFiles, $1);
-        }
-    }
-
-
-    return \@differentFiles;
-}
-
-1;

mozilla/tools/release/Makefile

@@ -1,94 +0,0 @@
-PRODUCT = $(shell grep "^product[ \t]" bootstrap.cfg | sed -e 's/[^=]*= *//')
-VERSION = $(shell grep "^version[ \t]" bootstrap.cfg | sed -e 's/[^=]*= *//')
-OLD_VERSION = $(shell grep "^oldVersion[ \t]" bootstrap.cfg | sed -e 's/[^=]*= *//')
-OLD_BUILD = $(shell grep "^oldBuild[ \t]" bootstrap.cfg | sed -e 's/[^=]*= *//')
-PRODUCT_TAG = $(shell grep "^productTag[ \t]" bootstrap.cfg | sed -e 's/[^=]*= *//')
-# extract the numeric build value from the config file
-PRODUCT_BUILD = $(shell grep "^build[ \t]" bootstrap.cfg | sed -e 's/[^0-9]*\([0-9]*\).*/\1/')
-
-test:
-	for f in release t/test.pl `find . -name "*.pm"`; do \
-	perl -c $$f || exit $?; done
-	if [ -f t/test.log ]; then rm t/test.log; fi
-	if [ ! -f bootstrap.cfg ]; then cp bootstrap.cfg.example bootstrap.cfg; fi
-	cp t/tinder-config.pl.orig t/tinder-config.pl
-	./t/test.pl
-
-stage:
-	# basic environment
-	mkdir -p /builds/config
-	mkdir -p /builds/tags
-	mkdir -p /builds/updates/
-	mkdir -p /builds/verify/
-	mkdir -p /builds/logs/
-	mkdir -p /data/symbols/
-	# fake key
-	mkdir -p /home/ftp/pub/${PRODUCT}/releases/1.5/
-	touch /home/ftp/pub/${PRODUCT}/releases/1.5/KEY
-	# ftp
-	mkdir -p /home/ftp/pub/${PRODUCT}/nightly
-	chown -R cltbld:${PRODUCT} /home/ftp/pub/${PRODUCT}
-	chmod -R g+rwx /home/ftp/pub/${PRODUCT}
-	chmod -R o+rx /home/ftp/pub
-	# staging environment
-	mkdir -p /data/cltbld/${PRODUCT}-${VERSION}/batch1/stage
-	# download old builds, for l10n verify
-	cd /data && wget -nv --cut-dirs=3 -np -r ftp://ftp.mozilla.org/pub/mozilla.org/${PRODUCT}/nightly/${OLD_VERSION}-candidates/build${OLD_BUILD}/* && mv ftp.mozilla.org/nightly/* /home/ftp/pub/${PRODUCT}/nightly/ && rm -rfv ftp.mozilla.org
-	# download old release, for update verify
-	cd /data && wget -nv --cut-dirs=3 -np -r -e robots=off http://stage.mozilla.org/pub/mozilla.org/${PRODUCT}/releases/${OLD_VERSION}/ && mv stage.mozilla.org/releases/* /home/ftp/pub/${PRODUCT}/releases/ && rm -rfv stage.mozilla.org
-
-
-cvsmirror: cvsmirror_mofo cvsmirror_main
-
-cvsmirror_main:
-	rsync -a --delete-after --exclude=CVSROOT/config --exclude=CVSROOT/loginfo cvs-mirror.mozilla.org::mozilla/ /builds/cvsmirror.clean/cvsroot/
-	rsync -a --delete-after cvs-mirror.mozilla.org::l10n/ /builds/cvsmirror.clean/l10n/
-	chgrp -R cvs /builds/cvsmirror.clean/cvsroot /builds/cvsmirror.clean/l10n
-	chmod -R g+rw /builds/cvsmirror.clean/cvsroot /builds/cvsmirror.clean/l10n
-	cvs -d /builds/cvsmirror.clean/cvsroot rtag -d ${PRODUCT_TAG}_RELEASE mozilla
-	cvs -d /builds/cvsmirror.clean/cvsroot rtag -d ${PRODUCT_TAG}_RELEASE_l10n mozilla/tools/tinderbox-configs/
-	cvs -d /builds/cvsmirror.clean/l10n rtag -d ${PRODUCT_TAG}_RELEASE l10n
-	for ((build=1; build <= ${PRODUCT_BUILD}; build++)); do \
-		cvs -d /builds/cvsmirror.clean/cvsroot rtag -d ${PRODUCT_TAG}_BUILD$$build mozilla;\
-		cvs -d /builds/cvsmirror.clean/cvsroot rtag -d ${PRODUCT_TAG}_BUILD$$build_l10n mozilla/tools/tinderbox-configs/;\
-		cvs -d /builds/cvsmirror.clean/l10n rtag -d ${PRODUCT_TAG}_BUILD$$build l10n;\
-	done
-
-cvsmirror_mofo:
-	mkdir -p /builds/cvsmirror.clean/tmp/mofo
-	mkdir -p /builds/cvsmirror.clean/mofo
-	cvs -d /builds/cvsmirror.clean/mofo init
-	cd /builds/cvsmirror.clean/tmp/mofo && cvs -d cltbld@cvs.mozilla.org:/mofo export -r MOZILLA_1_8_BRANCH talkback
-	cd /builds/cvsmirror.clean/tmp/mofo && cvs -d cltbld@cvs.mozilla.org:/mofo export -r HEAD release
-	cd /builds/cvsmirror.clean/tmp/mofo/release && cvs -d /builds/cvsmirror.clean/mofo import -d -m "import CVS snapshot" release MOZILLA_1_8_BRANCH_release R0_1
-	cd /builds/cvsmirror.clean/tmp/mofo/talkback && cvs -d /builds/cvsmirror.clean/mofo import -d -m "import CVS snapshot" talkback MOZILLA_1_8_BRANCH R0_1
-	rm -rf /builds/cvsmirror.clean/tmp/mofo
-	chgrp -R cvs /builds/cvsmirror.clean/mofo
-	chmod g+rwx /builds/cvsmirror.clean/mofo
-	chmod -R g+rw /builds/cvsmirror.clean/mofo
-
-clean_stage: clean_logs
-	rm -rf /builds/config/*
-	rm -rf /builds/tags/*
-	rm -rf /builds/source/*
-	rm -rf /builds/release/logs/*
-	rm -rf /builds/updates/*
-	rm -rf /builds/verify/*
-	rm -rf /builds/symbols/*
-	rm -rf /data/cltbld/${PRODUCT}-*/
-	rm -rf /data/symbols/*
-	rm -rf /home/ftp/pub/${PRODUCT}/*
-
-clean_cvsmirror: clean_cvsmirror_main clean_cvsmirror_mofo
-	rm -rf /builds/cvsmirror.clean/*
-
-clean_cvsmirror_main:
-	rm -rf /builds/cvsmirror.clean/cvsroot/*
-	rm -rf /builds/cvsmirror.clean/l10n/*
-
-clean_cvsmirror_mofo:
-	rm -rf /builds/cvsmirror.clean/mofo/*
-
-clean_logs:
-	rm -rf /builds/logs/*
-

mozilla/tools/release/MozBuild/TinderLogParse.pm

@@ -1,116 +0,0 @@
-##
-# TinderLogParse - A tinderbox log parser
-##
-
-package MozBuild::TinderLogParse;
-
-sub new {
-    my $class = shift;
-    my %args = @_;
-
-    my $logFile = $args{'logFile'};
-    if (! defined($logFile)) {
-        die("ASSERT: TinderLogParse::new logFile is a required argument");
-    }
-
-    my $this = { logFile => $logFile };
-    bless($this, $class);
-    return $this;
-}
-
-## 
-# GetBuildID - attempts to find build ID in a tinderbox log file
-#
-# Searches for a string of the form:
-#  buildid: 2007030311
-# Only the buildID, '2007030311', is to be returned.
-#
-##
-
-sub GetBuildID {
-    my $this = shift;
-    my %args = @_;
-
-    my $log = $this->GetLogFileName();
-
-    my $buildID = undef;
-    my $searchString = "buildid: ";
-
-    open (FILE, "< $log") or die("Cannot open file $log: $!");
-    while (<FILE>) {
-        if ($_ =~ /$searchString/) {
-            $buildID = $_;
- 
-            # remove search string
-            $buildID =~ s/$searchString//;
-
-            # remove trailing slash
-            $buildID =~ s/\.$//;
-            last;
-        }
-    }
-
-    close FILE or die("Cannot close file $log: $!");
-
-    if (! defined($buildID)) {
-        return undef;
-    }
-    if (! $buildID =~ /^\d+$/) {
-        die("ASSERT: Build: build ID is not numerical: $buildID")
-    }
-
-    chomp($buildID);
-    return $buildID;
-}
-
-## 
-# GetPushDir - attempts to find the directory Tinderbox pushed to build to
-#
-# Searches for a string of the form:
-#  Linux Firefox Build available at: 
-#  localhost/2007-04-07-18-firefox2.0.0.4/ 
-# Matches on "Build available at:" and returns the next line.
-##
-
-sub GetPushDir {
-    my $this = shift;
-    my %args = @_;
-
-    my $log = $this->GetLogFileName();
-
-    my $found = 0;
-    my $pushDir = undef;
-    my $searchString = "Build available at:";
-
-    open (FILE, "< $log") or die("Cannot open file $log: $!");
-    while (<FILE>) {
-        if ($found) {
-            $pushDir = $_;
-            last;
-        }
-        if ($_ =~ /$searchString/) {
-            $found = 1;
-        }
-    }
-
-    close FILE or die("Cannot close file $log: $!");
- 
-    if (! defined($pushDir)) {
-        return undef;
-    }
-
-    chomp($pushDir);
-    # remove empty space at end of URL
-    $pushDir =~ s/\s+$//;
-
-    return $pushDir;
-}
-
-sub GetLogFileName {
-    my $this = shift;
-    my %args = @_;
-
-    return $this->{'logFile'};
-}
-
-1;

mozilla/tools/release/MozBuild/Util.pm

@@ -1,628 +0,0 @@
-package MozBuild::Util;
-
-use strict;
-
-use File::Path;
-use IO::Handle;
-use IO::Select;
-use IPC::Open3;
-use POSIX qw(:sys_wait_h);
-use File::Basename qw(fileparse);
-use File::Copy qw(move);
-use File::Temp qw(tempfile);
-use File::Spec::Functions;
-use Cwd;
-
-use base qw(Exporter);
-
-our @EXPORT_OK = qw(RunShellCommand MkdirWithPath HashFile DownloadFile Email
-                    UnpackBuild GetBuildIDFromFTP);
-
-my $DEFAULT_EXEC_TIMEOUT = 600;
-my $EXEC_IO_READINCR = 1000;
-my $EXEC_REAP_TIMEOUT = 10;
-
-# RunShellCommand is a safe, performant way that handles all the gotchas of
-# spawning a simple shell command. It's meant to replace backticks and open()s,
-# while providing flexibility to handle stdout and stderr differently, provide
-# timeouts to stop runaway programs, and provide easy-to-obtain information
-# about return values, signals, output, and the like.
-#
-# Arguments:
-#    command - string: the command to run
-#    args - optional array ref: list of arguments to an array
-#    logfile - optional string: logfile to copy output to
-#    timeout - optional int: timeout value, in seconds, to wait for a command;
-#     defaults to ten minutes; set to 0 for no timeout
-#    redirectStderr - bool, default true: redirect child's stderr onto stdout
-#     stream?
-#    appendLogfile - bool, default true: append to the logfile (as opposed to
-#     overwriting it?)
-#    printOutputImmedaitely - bool, default false: print the output here to
-#     whatever is currently defined as *STDOUT?
-#    background - bool, default false: spawn a command and return all the info
-#     the caller needs to handle the program; assumes the caller takes
-#     complete responsibility for waitpid(), handling of the stdout/stderr
-#     IO::Handles, etc.
-#
-
-sub RunShellCommand {
-    my %args = @_;
-
-    my $shellCommand = $args{'command'};
-    die('ASSERT: RunShellCommand(): Empty command.')
-     if (not(defined($shellCommand)) || $shellCommand =~ /^\s+$/);
-    my $commandArgs = $args{'args'};
-    die('ASSERT: RunShellCommand(): commandArgs not an array ref.')
-     if (defined($commandArgs) && ref($commandArgs) ne 'ARRAY');
-
-    my $logfile = $args{'logfile'};
-
-    # Optional
-    my $timeout = exists($args{'timeout'}) ?
-     int($args{'timeout'}) : $DEFAULT_EXEC_TIMEOUT;
-    my $redirectStderr = exists($args{'redirectStderr'}) ?
-     $args{'redirectStderr'} : 1;
-    my $appendLogfile = exists($args{'appendLog'}) ? $args{'appendLog'} : 1;
-    my $printOutputImmediately = exists($args{'output'}) ? $args{'output'} : 0;
-    my $background = exists($args{'bg'}) ? $args{'bg'} : 0;
-    my $changeToDir = exists($args{'dir'}) ?  $args{'dir'} : undef;
-
-    # This is a compatibility check for the old calling convention;
-    if ($shellCommand =~ /\s/) {
-        $shellCommand =~ s/^\s+//;
-        $shellCommand =~ s/\s+$//;
-
-        die("ASSERT: old RunShellCommand() calling convention detected\n")
-         if ($shellCommand =~ /\s+/);
-    }
-
-    # Glob the command together to check for 2>&1 constructs...
-    my $entireCommand = $shellCommand . 
-     (defined($commandArgs) ? join (' ', @{$commandArgs}) : '');
-   
-    # If we see 2>&1 in the command, set redirectStderr (overriding the option
-    # itself, and remove the construct from the command and arguments.
-    if ($entireCommand =~ /2\>\&1/) {
-        $redirectStderr = 1;
-        $shellCommand =~ s/2\>\&1//g;
-        if (defined($commandArgs)) {
-            for (my $i = 0; $i < scalar(@{$commandArgs}); $i++) {
-                $commandArgs->[$i] =~ s/2\>\&1//g;
-            }
-        }
-    }
-
-    local $_;
- 
-    chomp($shellCommand);
-
-    my $cwd = getcwd();
-    my $exitValue = undef;
-    my $signalNum = undef;
-    my $sigName = undef;
-    my $dumpedCore = undef;
-    my $childEndedTime = undef;
-    my $timedOut = 0;
-    my $output = '';
-    my $childPid = 0;
-    my $childStartedTime = 0;
-    my $childReaped = 0;
-    my $prevStdoutBufferingSetting = 0;
-    local *LOGFILE;
-
-    my $original_path = $ENV{'PATH'};
-    if  ($args{'prependToPath'} or $args{'appendToPath'}) {
-        $ENV{'PATH'} = AugmentPath(%args);
-    }
-                    
-    if ($printOutputImmediately) {
-        # We Only end up doing this if it's requested that we're going to print
-        # output immediately. Additionally, we can't call autoflush() on STDOUT
-        # here, because doing so automatically sets it to on (gee, thanks); 
-        # $| is the only way to get the value.
-        my $prevFd = select(STDOUT);
-        $prevStdoutBufferingSetting = $|;
-        select($prevFd);
-        STDOUT->autoflush(1);
-    }
-
-    if (defined($changeToDir)) {
-        chdir($changeToDir) or die("RunShellCommand(): failed to chdir() to "
-         . "$changeToDir\n");
-    }
-
-    eval {
-        local $SIG{'ALRM'} = sub { die("alarm\n") };
-        local $SIG{'PIPE'} = sub { die("pipe\n") };
-  
-        my @execCommand = ($shellCommand);
-        push(@execCommand, @{$commandArgs}) if (defined($commandArgs) && 
-         scalar(@{$commandArgs} > 0));
-    
-        my $childIn = new IO::Handle();
-        my $childOut = new IO::Handle();
-        my $childErr = new IO::Handle();
-
-        alarm($timeout);
-        $childStartedTime = time();
-
-        $childPid = open3($childIn, $childOut, $childErr, @execCommand);
-        $childIn->close();
-
-        if ($args{'background'}) {
-            alarm(0);
-
-            # Restore external state
-            chdir($cwd) if (defined($changeToDir));
-            if ($printOutputImmediately) {
-                my $prevFd = select(STDOUT);
-                $| = $prevStdoutBufferingSetting;
-                select($prevFd);
-            }
-
-            return { startTime => $childStartedTime,
-                     endTime => undef,
-                     timedOut => $timedOut,
-                     exitValue => $exitValue,
-                     sigNum => $signalNum,
-                     output => undef,
-                     dumpedCore => $dumpedCore,
-                     pid => $childPid,
-                     stdout => $childOut,
-                     stderr => $childErr };
-        }
-
-        if (defined($logfile)) {
-            my $openArg = $appendLogfile ? '>>' : '>';
-            open(LOGFILE, $openArg . $logfile) or 
-             die('Could not ' . $appendLogfile ? 'append' : 'open' . 
-              " logfile $logfile: $!");
-            LOGFILE->autoflush(1);
-        }
-
-        my $childSelect = new IO::Select();
-        $childSelect->add($childErr);
-        $childSelect->add($childOut);
-    
-        # Should be safe to call can_read() in blocking mode, since,
-        # IF NOTHING ELSE, the alarm() we set will catch a program that
-        # fails to finish executing within the timeout period.
-
-        while (my @ready = $childSelect->can_read()) {
-            foreach my $fh (@ready) {
-                my $line = undef;
-                my $rv = $fh->sysread($line, $EXEC_IO_READINCR);
-
-                # Check for read()ing nothing, and getting errors...
-                if (not defined($rv)) {
-                    warn "sysread() failed with: $!\n";
-                    next;
-                }
-
-                # If we didn't get anything from the read() and the child is
-                # dead, we've probably exhausted the buffer, and can stop
-                # trying...
-                if (0 == $rv) {
-                   $childSelect->remove($fh) if ($childReaped);
-                   next;
-                }
-
-                # This check is down here instead of up above because if we're
-                # throwing away stderr, we want to empty out the buffer, so
-                # the pipe isn't constantly readable. So, sysread() stderr,
-                # alas, only to throw it away.
-                next if (not($redirectStderr) && ($fh == $childErr));
-
-                $output .= $line;
-                print STDOUT $line if ($printOutputImmediately);
-                print LOGFILE $line if (defined($logfile));
-            }
-
-            if (!$childReaped && (waitpid($childPid, WNOHANG) > 0)) {
-                alarm(0);
-                $childEndedTime = time();
-                $exitValue = WEXITSTATUS($?);
-                $signalNum = WIFSIGNALED($?) && WTERMSIG($?);
-                $dumpedCore = WIFSIGNALED($?) && ($? & 128);
-                $childReaped = 1;
-            }
-        }
-
-        die('ASSERT: RunShellCommand(): stdout handle not empty')
-         if ($childOut->sysread(undef, $EXEC_IO_READINCR) != 0);
-        die('ASSERT: RunShellCommand(): stderr handle not empty')
-         if ($childErr->sysread(undef, $EXEC_IO_READINCR) != 0);
-    };
-
-    if (defined($logfile)) {
-        close(LOGFILE) or die("Could not close logfile $logfile: $!");
-    }
-
-    if ($@) {
-        if ($@ eq "alarm\n") {
-            $timedOut = 1;
-            if ($childReaped) {
-                die('ASSERT: RunShellCommand(): timed out, but child already '.
-                 'reaped?'); 
-            }
-
-            if (kill('KILL', $childPid) != 1) {
-                warn("SIGKILL to timed-out child $childPid failed: $!\n");
-            }
-
-            # Processes get 10 seconds to obey.
-            eval {
-                local $SIG{'ALRM'} = sub { die("alarm\n") };
-                alarm($EXEC_REAP_TIMEOUT);
-                my $waitRv = waitpid($childPid, 0);
-                alarm(0);
-                # Don't fill in these values if they're bogus.
-                if ($waitRv > 0) {
-                    $exitValue = WEXITSTATUS($?);
-                    $signalNum = WIFSIGNALED($?) && WTERMSIG($?);
-                    $dumpedCore = WIFSIGNALED($?) && ($? & 128);
-                }
-            };
-        } else {
-            warn "Error running $shellCommand: $@\n";
-            $output = $@;
-        }
-    }
-
-    # Restore path (if necessary)
-    if ($ENV{'PATH'} ne $original_path) {
-        $ENV{'PATH'} = $original_path;
-    }
-
-    # Restore external state
-    chdir($cwd) if (defined($changeToDir));
-    if ($printOutputImmediately) {
-        my $prevFd = select(STDOUT);
-        $| = $prevStdoutBufferingSetting;
-        select($prevFd);
-    }
-
-    return { startTime => $childStartedTime,
-             endTime => $childEndedTime,
-             timedOut => $timedOut,
-             exitValue => $exitValue,
-             sigNum => $signalNum,
-             output => $output,
-             dumpedCore => $dumpedCore
-           };
-}
-
-## Allows the path to be (temporarily) augmented on either end. It's expected
-## that the caller will keep track of the original path if it needs to be
-## reverted.
-##
-## NOTE: we don't actually set the path here, just return the augmented path
-## string for use by the caller.
-
-sub AugmentPath {
-    my %args = @_;
-
-    my $prependToPath = $args{'prependToPath'};
-    my $appendToPath  = $args{'appendToPath'};
-    
-    my $current_path = $ENV{'PATH'};
-    if ($prependToPath and $prependToPath ne '') {
-        if ($current_path and $current_path ne '') {
-            $current_path = $prependToPath . ":" . $current_path;
-        } else {
-            $current_path = $prependToPath;
-        }
-    }
-    if ($appendToPath and $appendToPath ne '') {
-        if ($current_path and $current_path ne '') {
-            $current_path .= ":" . $appendToPath;
-        } else {
-            $current_path = $appendToPath;
-        }
-    }
-    return $current_path;
-}
-
-## This is a wrapper function to get easy true/false return values from a
-## mkpath()-like function. mkpath() *actually* returns the list of directories
-## it created in the pursuit of your request, and keeps its actual success 
-## status in $@. 
-
-sub MkdirWithPath {
-    my %args = @_;
-
-    my $dirToCreate = $args{'dir'};
-    my $printProgress = $args{'printProgress'};
-    my $dirMask = undef;
-
-    # Renamed this argument, since "mask" makes more sense; it takes
-    # precedence over the older argument name.
-    if (exists($args{'mask'})) {
-        $dirMask = $args{'mask'};
-    } elsif (exists($args{'dirMask'})) {
-        $dirMask = $args{'dirMask'};
-    }
-
-    die("ASSERT: MkdirWithPath() needs an arg") if not defined($dirToCreate);
-
-    ## Defaults based on what mkpath does...
-    $printProgress = defined($printProgress) ? $printProgress : 0;
-    $dirMask = defined($dirMask) ? $dirMask : 0777;
-
-    eval { mkpath($dirToCreate, $printProgress, $dirMask) };
-    return ($@ eq '');
-}
-
-sub HashFile {
-   my %args = @_;
-   die "ASSERT: HashFile(): null file\n" if (not defined($args{'file'}));
-
-   my $fileToHash = $args{'file'};
-   my $hashFunction = lc($args{'type'}) || 'sha512';
-   my $dumpOutput = $args{'output'} || 0;
-   my $ignoreErrors = $args{'ignoreErrors'} || 0;
-
-   die 'ASSERT: HashFile(): invalid hashFunction; use md5/sha1/sha256/sha384/sha512: ' .
-    "$hashFunction\n" if ($hashFunction !~ '^(md5|sha1|sha256|sha384|sha512)$');
-
-   if (not(-f $fileToHash) || not(-r $fileToHash)) {
-      if ($ignoreErrors) {
-         return '';
-      } else {
-         die "ASSERT: HashFile(): unusable/unreadable file to hash\n"; 
-      }
-   }
-
-   # We use openssl because that's pretty much guaranteed to be on all the
-   # platforms we want; md5sum and sha1sum aren't.
-   my $rv = RunShellCommand(command => 'openssl',
-                            args => ['dgst', "-$hashFunction",
-                                            $fileToHash, ],
-                            output => $dumpOutput);
-   
-   if ($rv->{'timedOut'} || $rv->{'exitValue'} != 0) {
-      if ($ignoreErrors) {
-         return '';      
-      } else {
-         die("MozUtil::HashFile(): hash call failed: $rv->{'exitValue'}\n");
-      }
-   }
-
-   my $hashValue = $rv->{'output'};
-   chomp($hashValue);
-
-   # Expects input like MD5(mozconfig)= d7433cc4204b4f3c65d836fe483fa575
-   # Removes everything up to and including the "= "
-   $hashValue =~ s/^.+\s+(\w+)$/$1/;
-   return $hashValue;
-}
-
-sub Email {
-    my %args = @_;
-
-    my $from = $args{'from'};
-    my $to = $args{'to'};
-    my $ccList = $args{'cc'} ? $args{'cc'} : undef;
-    my $subject = $args{'subject'};
-    my $message = $args{'message'};
-    my $sendmail = $args{'sendmail'};
-    my $blat = $args{'blat'};
-
-    if (not defined($from)) {
-        die("ASSERT: MozBuild::Utils::Email(): from is required");
-    } elsif (not defined($to)) {
-        die("ASSERT: MozBuild::Utils::Email(): to is required");
-    } elsif (not defined($subject)) {
-        die("ASSERT: MozBuild::Utils::Email(): subject is required");
-    } elsif (not defined($message)) {
-        die("ASSERT: MozBuild::Utils::Email(): subject is required");
-    }    
-
-    if (defined($ccList) and ref($ccList) ne 'ARRAY') {
-        die("ASSERT: MozBuild::Utils::Email(): ccList is not an array ref\n");
-    }
-
-    if (-f $sendmail) {
-        open(SENDMAIL, "|$sendmail -oi -t")
-          or die("MozBuild::Utils::Email(): Can't fork for sendmail: $!\n");
-        print SENDMAIL "From: $from\n";
-        print SENDMAIL "To: $to\n";
-        foreach my $cc (@{$ccList}) {
-            print SENDMAIL "CC: $cc\n";
-        }
-        print SENDMAIL "Subject: $subject\n\n";
-        print SENDMAIL "\n$message";
-
-        close(SENDMAIL);
-    } elsif(-f $blat) {
-        my ($mh, $mailfile) = tempfile(DIR => '.');
-
-        my $toList = $to;
-        foreach my $cc (@{$ccList}) {
-            $toList .= ',';
-            $toList .= $cc;
-        }
-        print $mh "\n$message";
-        close($mh) or die("MozBuild::Utils::Email(): could not close tempmail file $mailfile: $!");
-
-        my $rv = RunShellCommand(command => $blat,
-                                 args => [$mailfile, '-to', $toList,
-                                          '-subject', '"' . $subject . '"']);
-        if ($rv->{'timedOut'} || $rv->{'exitValue'} != 0) {
-          die("MozBuild::Utils::Email(): FAILED: $rv->{'exitValue'}," .
-              " output: $rv->{'output'}\n");
-        }
-
-        print "$rv->{'output'}\n";
-
-    } else {
-        die("MozBuild::Utils::Email(): ASSERT: cannot find $sendmail or $blat");
-    }
-}
-
-sub DownloadFile {
-    my %args = @_;
-
-    my $sourceUrl = $args{'url'};
-
-    die("ASSERT: DownloadFile() Invalid Source URL: $sourceUrl\n") 
-     if (not(defined($sourceUrl)) || $sourceUrl !~ m|^http://|);
-
-    my @wgetArgs = ();
-    
-    if (defined($args{'dest'})) {
-        push(@wgetArgs, ('-O', $args{'dest'}));
-    }
-   
-    if (defined($args{'user'})) {
-        push(@wgetArgs, ('--http-user', $args{'user'}));
-    }
-
-    if (defined($args{'password'})) {
-        push(@wgetArgs, ('--http-password', $args{'password'}));
-    }
-
-    push(@wgetArgs, ('--progress=dot:mega', $sourceUrl));
-
-    my $rv = RunShellCommand(command => 'wget',
-                             args => \@wgetArgs);
-
-    if ($rv->{'timedOut'} || $rv->{'exitValue'} != 0) {
-        die("DownloadFile(): FAILED: $rv->{'exitValue'}," . 
-         " output: $rv->{'output'}\n");
-    }
-}
-
-##
-# Unpacks Mozilla installer builds.
-#
-# Arguments:
-#     file    - file to unpack
-#     unpackDir - dir to unpack into
-##
-
-sub UnpackBuild {
-    my %args = @_;
-
-    my $hdiutil = defined($ENV{'HDIUTIL'}) ? $ENV{'HDIUTIL'} : 'hdiutil';
-    my $rsync = defined($ENV{'RSYNC'}) ? $ENV{'RSYNC'} : 'rsync';
-    my $tar = defined($ENV{'TAR'}) ? $ENV{'TAR'} : 'tar';
-    my $sevenzip = defined($ENV{'SEVENZIP'}) ? $ENV{'SEVENZIP'} : '7z';
-
-    my $file = $args{'file'};
-    my $unpackDir = $args{'unpackDir'};
-
-    if (! defined($file) ) {
-        die("ASSERT: UnpackBuild: file is a required argument: $!");
-    }
-    if (! defined($unpackDir) ) {
-        die("ASSERT: UnpackBuild: unpackDir is a required argument: $!");
-    }
-    if (! -f $file) {
-        die("ASSERT: UnpackBuild: $file must exist and be a file: $!");
-    }
-    if (! -d $unpackDir) {
-        mkdir($unpackDir) || die("ASSERT: UnpackBuld: could not create $unpackDir: $!");
-    }
-
-    my ($filename, $directories, $suffix) = fileparse($file, qr/[^.]*/);
-
-    if (! defined($suffix) ) {
-        die("ASSERT: UnpackBuild: no extension found for $filename: $!");
-    }
-
-    if ($suffix eq 'dmg') {
-        my $mntDir = './mnt';
-        if (! -d $mntDir) {
-            mkdir($mntDir) || die("ASSERT: UnpackBuild: cannot create mntdir: $!");
-        }
-        # Note that this uses system() not RunShellCommand() because we need
-        # to echo "y" to hdiutil, to get past the EULA code.
-        system("echo \"y\" | PAGER=\"/bin/cat\" $hdiutil attach -quiet -puppetstrings -noautoopen -mountpoint ./mnt \"$file\"") || die ("UnpackBuild: Cannot unpack $file: $!");
-        my $rv = RunShellCommand(command => $rsync,
-                                 args => ['-av', $mntDir, $unpackDir]);
-        if ($rv->{'timedOut'} || $rv->{'exitValue'} != 0) {
-            die("UnpackBuild(): FAILED: $rv->{'exitValue'}," . 
-                " output: $rv->{'output'}\n");
-        }
-        $rv = RunShellCommand(command => $hdiutil,
-                              args => ['detach', $mntDir]);
-        if ($rv->{'timedOut'} || $rv->{'exitValue'} != 0) {
-            die("UnpackBuild(): FAILED: $rv->{'exitValue'}," . 
-                " output: $rv->{'output'}\n");
-        }
-    }
-    if ($suffix eq 'gz') {
-        my $rv = RunShellCommand(command => $tar,
-                                 args => ['-C', $unpackDir, '-zxf', $file]);
-        if ($rv->{'timedOut'} || $rv->{'exitValue'} != 0) {
-            die("UnpackBuild(): FAILED: $rv->{'exitValue'}," . 
-                " output: $rv->{'output'}\n");
-        }
-    }
-    if ($suffix eq 'exe') {
-        my $oldpwd = getcwd();
-        chdir($unpackDir);
-        my $rv = RunShellCommand(command => $sevenzip,
-                                 args => ['x', $file]);
-        if ($rv->{'timedOut'} || $rv->{'exitValue'} != 0) {
-            die("UnpackBuild(): FAILED: $rv->{'exitValue'}," . 
-                " output: $rv->{'output'}\n");
-        }
-        chdir($oldpwd);
-    }
-}
-
-sub GetBuildIDFromFTP {
-    my %args = @_;
-
-    my $os = $args{'os'};
-    if (! defined($os)) {
-        die("ASSERT: MozBuild::GetBuildIDFromFTP(): os is required argument");
-    }
-    my $releaseDir = $args{'releaseDir'};
-    if (! defined($releaseDir)) {
-        die("ASSERT: MozBuild::GetBuildIDFromFTP(): releaseDir is required argument");
-    }
-    my $stagingServer = $args{'stagingServer'};
-    if (! defined($stagingServer)) {
-        die("ASSERT: MozBuild::GetBuildIDFromFTP(): stagingServer is a required argument");
-    }
-
-    my ($bh, $buildIDTempFile) = tempfile(UNLINK => 1);
-    $bh->close();
-    my $info_url = 'http://' . $stagingServer . '/' . $releaseDir . '/' . $os . '_info.txt';
-    my $rv = RunShellCommand(
-      command => 'wget',
-      args => ['-O', $buildIDTempFile,
-               $info_url]
-    );
-
-    if ($rv->{'timedOut'} || $rv->{'dumpedCore'} || ($rv->{'exitValue'} != 0)) {
-        die("wget of $info_url failed.");
-    }
-
-    my $buildID;
-    open(FILE, "< $buildIDTempFile") || 
-     die("Could not open buildID temp file $buildIDTempFile: $!");
-    while (<FILE>) {
-      my ($var, $value) = split(/\s*=\s*/, $_, 2);
-      if ($var eq 'buildID') {
-          $buildID = $value;
-      }
-    }
-    close(FILE) || 
-     die("Could not close buildID temp file $buildIDTempFile: $!");
-    if (! defined($buildID)) {
-        die("Could not read buildID from temp file $buildIDTempFile: $!");
-    }
-    if (! $buildID =~ /^\d+$/) {
-        die("ASSERT: MozBuild::GetBuildIDFromFTP: $buildID is non-numerical");
-    }
-    chomp($buildID);
-
-    return $buildID;
-}
-
-1;

mozilla/tools/release/README

@@ -1,76 +0,0 @@
-Bootstrap Release 
------------------
-
-Bootstrap is a release automation tool.
-Use "release -h" for help.
-
-Pre-flight Checklist
------------------
-There are a number of manual steps that must be performed, so a default
-end-to-end run will not (yet) work.
-
-Before any steps:
-
-* verify shipped-locales
-* edit bootstrap.cfg
-* edit tinder-config.pl/mozconfig 
-* version bump
-
-After Build and Repack steps:
-
-* rsync builds to candidates dir
-
-After Update step:
-
-* edit patcher config
-* edit mozilla/testing/release/updates/updates.cfg
-
-After Sign step:
-
-* create bouncer links
-* rsync builds to mirrors
-* wait 12 hours for mirrors to catch up
-* rsync production AUS config
-
-Steps are in dependency order. The process may be restarted at any step as 
-long as all previous steps are satisfied.
-
-PASS/FAIL verification is run after every step.
-
-Steps 
------------------
-1) Tag 
-2) Build 
-3) Source
-4) Repack
-5) Sign
-6) Updates
-7) Stage
-   
-Details
------------------
-Tag 
-   _RELEASE and _RCn for mozilla, l10n and talkback
-Build 
-  en-US build from source (based on tag)
-  push to stage
-  announce
-Source
-  bz2 archive (based on tag)
-  push to stage
-Repack
-  repack l10n, uses en-US build (based on tag)
-  push to stage
-  announce
-Sign
-  manual
-Updates
-  uses patcher
-  generate partials and AUS config ("snippets")
-  push to stage
-  announce
-Stage
-  uses groom-files
-  create release directory/filename structure
-  merge updates
-  announce

mozilla/tools/release/bin/backupsnip

@@ -1,69 +0,0 @@
-#!/bin/bash
-
-set -e
-#set -v
-
-LIVE_SNIPPET_DIR=/opt/aus2/incoming/3
-BACKUP_DIR=/opt/aus2/snippets/backup
-STAGING_DIR=/opt/aus2/snippets/staging
-
-WC=/usr/bin/wc
-DATE=/bin/date
-TAR=/bin/tar
-SED=/bin/sed
-GREP=/bin/grep
-
-if test -z $1; then 
-   echo Usage: $0 [snippet-directory-to-sync-in from $STAGING_DIR]
-   exit 1
-fi
-
-newSnippetDir=`echo $1 | $SED -e 's/\///'g`
-
-if ! test -d $STAGING_DIR/$newSnippetDir; then
-   echo Usage: $0 [snippet-directory-to-sync-in from $STAGING_DIR]
-   exit 1
-fi
-
-currentDate=`$DATE +%Y%m%d`
-
-## We use the shell's expansion capabilites to get a list of other snippet
-## directories we may have pushed today... kinda lame, but it works.
-
-pushd $BACKUP_DIR > /dev/null
-preDirCount=`echo $currentDate-?-pre-* | $GREP -v \? | $WC -w`
-popd > /dev/null
-
-## Increment the count by one, for the new snippet backup directory we're
-## about to create
-let nextPreDirCount=$preDirCount+1
-#echo $nextPreDirCount
-backupDirName=$currentDate-$nextPreDirCount-pre-$1
-
-### Find list of directories that change
-absNewSnippetDir=$STAGING_DIR/$newSnippetDir
-changedDirs=$(find $absNewSnippetDir -maxdepth 3 -mindepth 3 -type d | $SED s,$absNewSnippetDir/,,g)
-args=""
-### Skip directories that don't exist in the live snippets directory
-### no need to back them up, since they don't exist yet!
-for d in $changedDirs; do
-    if [ ! -d $LIVE_SNIPPET_DIR/$d ]; then
-        echo Ignoring $d
-    else
-        args="$args $d"
-    fi
-done
-
-if [ -z "$args" ]; then
-    echo
-    echo 'Nothing to backup. There could be something wrong, or you could'
-    echo 'be creating new directories (eg test snippets for a major update).'
-    exit 0
-fi
-
-pushd $LIVE_SNIPPET_DIR > /dev/null
-echo Running time $TAR cfvz $BACKUP_DIR/$backupDirName.tar.gz $args
-time $TAR cfvz $BACKUP_DIR/$backupDirName.tar.gz $args
-popd > /dev/null
-
-exit 0

mozilla/tools/release/bin/backupsnip-nightly

@@ -1,34 +0,0 @@
-#!/bin/bash
-
-set -e
-#set -v
-
-LIVE_SNIPPET_DIR=/opt/aus2/incoming/3
-BACKUP_DIR=/opt/aus2/snippets/backup
-
-WC=/usr/bin/wc
-DATE=/bin/date
-TAR=/bin/tar
-SED=/bin/sed
-GREP=/bin/grep
-
-currentDate=`$DATE +%Y%m%d`
-
-## We use the shell's expansion capabilites to get a list of other snippet
-## directories we may have pushed today... kinda lame, but it works.
-
-pushd $BACKUP_DIR > /dev/null
-backupDirCount=`echo $currentDate-nightly-?-* | $GREP -v \? | $WC -w`
-popd > /dev/null
-
-## Increment the count by one, for the new snippet backup directory we're
-## about to create
-let backupDirCount=$backupDirCount+1
-backupDirName=$currentDate-nightly-$backupDirCount
-
-pushd $LIVE_SNIPPET_DIR > /dev/null
-echo Running time $TAR cfvj $BACKUP_DIR/$backupDirName.tar.bz2 . --exclude 'Firefox/1.5*' --exclude 'Firefox/2.0*' --exclude 'Thunderbird/1.5*'
-time $TAR cfvj $BACKUP_DIR/$backupDirName.tar.bz2 . --exclude 'Firefox/1.5*' --exclude 'Firefox/2.0*' --exclude 'Thunderbird/1.5*'
-popd > /dev/null
-
-exit 0

mozilla/tools/release/bin/pushsnip

@@ -1,29 +0,0 @@
-#!/bin/bash
-
-set -e
-#set -v
-
-LIVE_SNIPPET_DIR=/opt/aus2/incoming/3
-STAGING_DIR=/opt/aus2/snippets/staging
-
-RSYNC=/usr/bin/rsync
-SED=/bin/sed
-
-if test -z $1; then 
-   echo Usage: $0 [snippet-directory-to-sync-in from $STAGING_DIR]
-   exit 1
-fi
-
-newSnippetDir=`echo $1 | $SED -e 's/\///'g`
-
-if ! test -d $STAGING_DIR/$newSnippetDir; then
-   echo Usage: $0 [snippet-directory-to-sync-in from $STAGING_DIR]
-   exit 1
-fi
-
-# publish the new snippets
-echo Running $RSYNC -PaO $STAGING_DIR/$1/ $LIVE_SNIPPET_DIR
-$RSYNC -PaO $STAGING_DIR/$1/ $LIVE_SNIPPET_DIR
-touch $LIVE_SNIPPET_DIR
-
-exit 0

mozilla/tools/release/bin/verify-locales.pl

@@ -1,390 +0,0 @@
-#!/usr/bin/perl
-#
-# TODO - use the file regexes to verify the contents of the directory.
-#
-
-use Getopt::Long;
-use Cwd;
-
-use strict;
-
-use vars qw($DEFAULT_LOCALES_MANIFEST
-            @ALL_PLATFORMS
-            @NON_LOCALE_XPIS );
-
-$DEFAULT_LOCALES_MANIFEST = 'shipped-locales';
-@ALL_PLATFORMS = qw(win32 linux osx osxppc); # Bouncer platforms
-@NON_LOCALE_XPIS = qw(browser talkback xpcom adt);
-
-sub LoadLocaleManifest {
-   my %args = @_;
-
-   die "ASSERT: LoadLocaleManifest(): needs a HASH ref" if 
-    (not exists($args{'localeHashRef'}) or 
-    ref($args{'localeHashRef'}) ne 'HASH');
-
-   my $localeHash = $args{'localeHashRef'};
-   my $manifestFile = $args{'manifest'};
-
-   if (not -e $manifestFile) {
-      print STDERR "Can't find locale manifest $manifestFile; bailing...\n";
-      PrintUsage(1);
-   }
-
-   open(MANIFEST, "$manifestFile") or return 0;
-   my @manifestLines = <MANIFEST>;
-   close(MANIFEST);
-
-   foreach my $line (@manifestLines) {
-      my @elements = split(/\s+/, $line);
-      # Grab the locale; we do it this way, so we can use the rest of the
-      # array as a platform list, if we need it...
-      my $locale = shift(@elements);
-
-      # We don't add a $ on the end, because of things like ja-JP-mac
-      if ($locale !~ /^[a-z]{2}(\-[A-Z]{2})?/) {
-         die "ASSERT: invalid locale in manifest file: $locale";
-      }
-
-      # So this is kinda weird; if the locales are followed by a platform,
-      # then they don't exist for all the platforms; if they're all by their
-      # lonesome, then they exist for all platforms. So, since we shifted off
-      # the locale above, if there's anything left in the array, it's the
-      # platforms that are valid for this locale; if there isn't, then that
-      # platform is valid for all locales.
-      $localeHash->{$locale} = scalar(@elements) ? \@elements : \@ALL_PLATFORMS;
-
-      foreach my $platform (@{$localeHash->{$locale}}) {
-         die "ASSERT: invalid platform: $platform" if 
-          (not grep($platform eq $_, @ALL_PLATFORMS));
-      }
-   }
-
-   # Add en-US, which isn't in shipped-locales, because it's assumed that
-   # we always need en-US, for all platforms, to ship.
-   $localeHash->{'en-US'} = \@ALL_PLATFORMS;
-
-   return 1;
-}
-
-sub VerifyLinuxLocales {
-   my %args = @_;
-   my $locales = $args{'locales'};
-   my $directory = $args{'dir'};
-   my $extension = $args{'extension'};
-   my $product = lc($args{'product'});
-
-   if (not -d $directory) {
-      print STDERR "Can't find Linux directory!\n";
-      return 0;
-   }
-
-   my $fileRegex = '^' . $product . '\-[\d\.]+((a|b|rc)\d+)?\.tar\.' . $extension .
-    '(\.asc)?$';
-
-   return VerifyDirectory(locales => $locales,
-                          dir => $directory,
-                          platform => 'linux',
-                          fileRegex => $fileRegex);
-}
-
-sub VerifyWin32Locales {
-   my %args = @_;
-   my $locales = $args{'locales'};
-   my $directory = $args{'dir'};
-   my $product = ucfirst($args{'product'});
-
-   if (not -d $directory) {
-      print STDERR "Can't find Win32 directory!\n";
-      return 0;
-   }
-
-   my $fileRegex = '^' . $product .
-     '\ Setup\ [\d\.]+(\ (Alpha|Beta|RC)\ \d+)?\.exe(\.asc)?$';
-
-   return VerifyDirectory(locales => $locales,
-                          dir => $directory,
-                          platform => 'win32',
-                          fileRegex => $fileRegex);
-}
-
-sub VerifyMacLocales {
-   my %args = @_;
-   my $locales = $args{'locales'};
-   my $directory = $args{'dir'};
-   my $product = ucfirst($args{'product'});
-
-   if (not -d $directory) {
-      print STDERR "Can't find Mac directory!\n";
-      return 0;
-   }
-
-   my $fileRegex = '^' . $product . '\ [\d\.]+(\ (Alpha|Beta|RC)\ \d+)?\.dmg(\.asc)?$';
-
-   return VerifyDirectory(locales => $locales,
-                          dir => $directory,
-                          platform => 'osx',
-                          fileRegex => $fileRegex);
-}
-
-sub VerifyDirectory {
-   my %args = @_;
-   my $locales = $args{'locales'};
-   my $directory = $args{'dir'};
-   my $fileRegex = $args{'fileRegex'};
-   my $platform = $args{'platform'};
-
-
-   my $localeDirStatus = VerifyLocaleDirectories(%args);
-   my $xpiDirStatus = VerifyXPIDirectory(%args);
-  
-   return ($localeDirStatus and $xpiDirStatus);
-}
-
-
-sub VerifyLocaleDirectories {
-   my %args = @_;
-   my $locales = $args{'locales'};
-   my $directory = $args{'dir'};
-   my $fileRegex = $args{'fileRegex'};
-   my $platform = $args{'platform'};
-   my $status = 1;
-
-   my $rv = opendir(DIR, $directory);
-   if (not $rv) {
-      print STDERR "opendir() on $directory FAILED: $!\n";
-      return 0;
-   }
-   my @dirEntries = grep(!/^\.\.?$/, readdir(DIR));
-   closedir(DIR);
-
-   my %localesDirCheckCopy = %{$locales};
-
-   foreach my $dirEnt (@dirEntries) {
-      if (not -d "$directory/$dirEnt") {
-         print STDERR "Non-directory entry found: $directory/$dirEnt\n";
-         $status = 0;
-         next;
-      }
-
-      # The xpi directory is obviously not a locale, but all of the directories
-      # should have one; verification of the xpi dir is VerifyXPIDirectory's job
-      next if ($dirEnt eq 'xpi');
-
-      if (not(exists($localesDirCheckCopy{$dirEnt}))) {
-         print STDERR "Invalid (extra) locale present: $dirEnt\n";
-         $status = 0;
-         next;
-      }
-
-      my $platformList = $localesDirCheckCopy{$dirEnt};
-
-      if (not grep($platform eq $_, @{$platformList})) {
-         print STDERR "Invalid (extra) locale for platform '$platform': $dirEnt\n";
-         $status = 0;
-      } else {
-         delete($localesDirCheckCopy{$dirEnt});
-      }
-
-      # We verified this is a directory above...
-      my $rv = opendir(DIR, "$directory/$dirEnt");
-      if (not $rv) {
-         print STDERR "opendir() on $directory/$dirEnt FAILED: $!\n";
-         next;
-      }
-      my @installerFileEntries = grep(!/^\.\.?$/, readdir(DIR));
-      closedir(DIR);
-
-      # The directory should not be empty...
-      if (not scalar(@installerFileEntries)) {
-         print STDERR "Empty locale directory: $directory/$dirEnt";
-         $status = 0;
-         next;
-      }
-
-      foreach my $pkg (@installerFileEntries) {
-         if (not -f "$directory/$dirEnt/$pkg") {
-            print STDERR "Unexpected, non-file in $directory/$dirEnt: $pkg\n";
-            $status = 0;
-            next;
-         }
-
-         if ($pkg !~ /$fileRegex/) {
-            print STDERR "Unknown file in $directory/$dirEnt: $pkg\n";
-            $status = 0;
-         }
-      }
-   }
-
-   foreach my $locale (keys(%localesDirCheckCopy)) {
-      if (grep($platform eq $_, @{$localesDirCheckCopy{$locale}})) {
-         print STDERR "Missing locale for platform '$platform': $locale\n";
-         $status = 0;
-      }
-   }
-  
-   return $status;
-}
-
-
-sub VerifyXPIDirectory {
-   my %args = @_;
-   my $locales = $args{'locales'};
-   my $directory = "$args{'dir'}/xpi";
-   my $fileRegex = $args{'fileRegex'};
-   my $platform = $args{'platform'};
-   my $status = 1;
-
-   my $rv = opendir(XPIDIR, $directory);
-
-   if (not $rv) {
-      print STDERR "Couldn't opendir() $directory: $!\n";
-      return 0;
-   }
-
-   my @xpiDirEntries = grep(!/^\.\.?$/, readdir(XPIDIR));
-   closedir(XPIDIR);
-
-   my %localesDirCheckCopy = %{$locales};
-
-   # we last shipped an en-US.xpi for Firefox 1.5.0.4
-   delete($localesDirCheckCopy{'en-US'});
-
-   foreach my $file (@xpiDirEntries) {
-      if ($file !~ /\.xpi$/) {
-         print STDERR "Non-xpi file found in $directory: $file\n";
-         $status = 0;
-         next;
-      }
-
-      my $locale = $file;
-      $locale =~ s/\.xpi//;
-
-      # Ignore browser.xpi, talkback.xpi, etc.
-      next if (grep($locale eq $_, @NON_LOCALE_XPIS));
-
-      my $platformList = $localesDirCheckCopy{$locale};
-
-      if (not grep($platform eq $_, @{$platformList})) {
-         print STDERR "Invalid (extra) locale XPI for platform '$platform': $locale\n";
-         $status = 0;
-      } else {
-         delete($localesDirCheckCopy{$locale});
-      }
-   }
-
-   foreach my $locale (keys(%localesDirCheckCopy)) {
-      if (grep($platform eq $_, @{$localesDirCheckCopy{$locale}})) {
-         print STDERR "Missing XPI locale for platform '$platform': $locale\n";
-         $status = 0;
-      }
-   }
-
-   # we stopped shipping these at Firefox 1.5.0.4
-   foreach my $nonLocaleXpi (@NON_LOCALE_XPIS) {
-      if (-e "$directory/$nonLocaleXpi.xpi") {
-         print STDERR "Invalid (extra) non-locale XPI: $directory/$nonLocaleXpi\n";
-         $status = 0;
-      }
-   }
-
-   return $status;
-}
-
-sub PrintUsage {
-   my $exitCode = shift;
-
-   print<<__END_USAGE__;
-
-Using the shipped-locales file from CVS, verify in an FTP staging directory
-structure that all the various locales that are to be shipped exist for every
-platform, and that no extra locales for any platform are being shipped.
-
-Usage:
-
-$0 [ -m <locale manifest> ]
-
-	-m,--locale-manifest	The 'shipped-locales' file, from CVS.
-				Defaults to 'shipped-locales' in the cwd.
-
-	-d,--check-directory	The directory to verify.
-				Should have the default FTP directory structure.
-				Defaults to the current working directory.
-	-l,--linux-extension	The file extension used for Linux
-				packages. This must be either 'gz' or 'bz2'.
-__END_USAGE__
-
-   exit($exitCode) if (defined($exitCode));
-}
-
-sub main {
-   my $showHelp = 0;
-   my $localeManifest = $DEFAULT_LOCALES_MANIFEST;
-   my $shellReturnVal = 0;
-   my $checkDir = getcwd();
-   my $linuxExtension = '';
-   my $product = '';
-
-   Getopt::Long::GetOptions('h|help|?' => \$showHelp,
-    'm|locale-manifest=s' => \$localeManifest,
-    'd|check-directory=s' => \$checkDir,
-    'l|linux-extension=s' => \$linuxExtension,
-    'p|product=s' => \$product)
-    or PrintUsage(1); 
-
-   # Fullpath $checkDir...
-   $checkDir = getcwd() . '/' . $checkDir if ($checkDir !~ m:^/:);
-   # And strip any trailing /'s...
-   $checkDir =~ s:/+$::;
-
-   if (not -d $checkDir || not -r $checkDir || not -x $checkDir) {
-      print STDERR "Can't find/access directory to validate: $checkDir\n";
-      PrintUsage(1);
-   }
-
-   if ($linuxExtension ne 'gz' && $linuxExtension ne 'bz2') {
-      print STDERR "--linux-extension must be 'gz' or 'bz2'\n";
-      PrintUsage(1);
-   }
-
-   if (length($product) < 1) {
-      print STDERR "--product/-p is a required option.\n";
-      PrintUsage(1);
-   }
-
-   PrintUsage(0) if ($showHelp);
-
-   my $locales = {};
-   my $success = LoadLocaleManifest(localeHashRef => $locales,
-                                    manifest => $localeManifest);
-
-   die "Failed to load locale manifest" if (not $success);
-   die "ASSERT: checkDir needs to be full-pathed at this point: $checkDir"
-    if ($checkDir !~ m:^/:);
-
-   $shellReturnVal = (
-    VerifyLinuxLocales(locales => $locales, dir => "$checkDir/linux-i686",
-      extension => $linuxExtension, product => $product) &
-    VerifyWin32Locales(locales => $locales, dir => "$checkDir/win32",
-      product => $product) &
-    VerifyMacLocales(locales => $locales, dir => "$checkDir/mac",
-      product => $product)
-   );
-
-   # TODO - VerifyUpdateLocales(locales => $locales, dir => 'update');
-
-   if ($shellReturnVal) {
-      print STDERR "PASS: all files present, no extras\n";
-   } else {
-      print STDERR "FAIL: errors occurred\n";
-   }
-
-   # Unix truth values... 0 for success, etc., etc., etc.; so, all the 
-   # Verify* functions return true/false and are ANDed together; if 
-   # there's a single failure, the AND is false, so return true... 
-   # intuitive, eh?
-   return not $shellReturnVal;
-}
-
-# call the code & propagate the error status to the outside world
-exit main();

mozilla/tools/release/bootstrap.cfg.example

@@ -1,64 +0,0 @@
-version         = 2.0.0.4
-milestone       = 1.8.1.4
-# _RCn and _RELEASE will be appended as-needed
-productTag      = FIREFOX_2_0_0_4
-# Branch name and pull dates to use for base tag
-branchTag       = MOZILLA_1_8_BRANCH
-pullDate        = 2007-04-17 00:00:00 PDT
-l10n_pullDate   = 2007-04-17 00:00:00 PDT
-rc              = 1
-# oldVersion and oldRc refer to the previous release
-oldVersion      = 2.0.0.3
-oldRc           = 1
-appName         = browser
-product         = firefox
-# Absolute path to tinderbox build directory
-linux_buildDir  = /builds/tinderbox/Fx-Mozilla1.8-Release
-mac_buildDir    = /builds/tinderbox/Fx-Mozilla1.8-Release
-win32_buildDir  = /cygdrive/c/builds/tinderbox/Fx-Mozilla1.8-Release
-linux_l10n_buildDir  = /builds/tinderbox/Fx-Mozilla1.8-l10n-Release
-mac_l10n_buildDir    = /builds/tinderbox/Fx-Mozilla1.8-l10n-Release
-win32_l10n_buildDir  = /cygdrive/c/builds/tinderbox/Fx-Mozilla1.8-l10n-Release
-# Absolute path to store bootstrap's logs
-logDir          = /builds/logs
-mozillaCvsroot  = /builds/cvsmirror/cvsroot
-l10nCvsroot     = /builds/cvsmirror/l10n
-mofoCvsroot     = /builds/cvsmirror/mofo
-anonCvsroot	= :pserver:anonymous@cvs-mirror.mozilla.org:/cvsroot
-# private staging area 
-stageHome       = /data/cltbld
-sourceDir       = /builds/source
-updateDir       = /builds/updates
-verifyDir       = /builds/verify
-tagDir          = /builds/tags
-configBumpDir   = /builds/config
-# Build platform, as specified by tinderbox
-linux_buildPlatform   = Linux_2.6.9-42.ELsmp_Depend
-macosx_buildPlatform  = Darwin_8.7.0_Depend
-win32_buildPlatform   = WINNT_5.2_Depend
-linux_l10n_buildPlatform   = Linux_2.6.9-42.ELsmp_Depend
-macosx_l10n_buildPlatform  = Darwin_8.7.0_Depend
-win32_l10n_buildPlatform   = WINNT_5.2_Depend
-from            = bootstrap@example.com
-to              = test@example.com
-cc              = other@example.com
-patcherConfig   = moz18-branch-patcher2.cfg
-# Tag to use for building MAR/MBSDIFF and other update tools
-patcherToolsRev = MOZILLA_1_9a2_RELEASE
-verifyConfig    = moz18-firefox-linux.cfg
-blat            = /cygdrive/d/moztools/bin/blat.exe
-sendmail        = /usr/lib/sendmail
-# dump Log output to stdout
-dumpLogs        = 1
-# username and server to push update snippets to
-ausUser         = cltbld
-ausServer       = localhost
-# Tinderbox server tree that clients should report to
-buildTree       = MozillaTest
-# where QA updates/builds go
-stagingUser     = cltbld
-stagingServer   = stage.mozilla.org
-# where beta updates/builds go
-ftpServer       = ftp.mozilla.org
-# where release updates/builds go
-bouncerServer   = download.mozilla.org

mozilla/tools/release/configs/fx-moz18-bootstrap.cfg

@@ -1,90 +0,0 @@
-version         = 2.0.0.20
-milestone       = 1.8.1.20
-# _BUILDn and _RELEASE will be appended as-needed
-productTag      = FIREFOX_2_0_0_20
-# Branch name and pull dates to use for base tag
-branchTag       = MOZILLA_1_8_BRANCH
-#RelbranchOverride = GECKO181_20081202_RELBRANCH
-# these are not used when build > 1
-pullDate        = 2008-12-02 20:33 PST 
-l10n_pullDate   = 2008-12-02 20:33 PST
-build           = 1
-# oldVersion and oldRc refer to the previous release
-oldVersion      = 2.0.0.19
-oldBuild        = 2
-appName         = browser
-product         = firefox
-# Absolute path to tinderbox build directory
-linux_buildDir       = /builds/tinderbox/Fx-Mozilla1.8-Release
-macosx_buildDir      = /builds/tinderbox/Fx-Mozilla1.8-Release
-win32_buildDir       = /cygdrive/c/builds/tinderbox/Fx-Mozilla1.8-Release
-linux_l10n_buildDir  = /builds/tinderbox/Fx-Mozilla1.8-l10n-Release
-macosx_l10n_buildDir = /builds/tinderbox/Fx-Mozilla1.8-l10n-Release
-win32_l10n_buildDir  = /cygdrive/c/builds/tinderbox/Fx-Mozilla1.8-l10n-Release
-# Absolute path to store bootstrap's logs
-linux_logDir    = /builds/logs
-macosx_logDir   = /builds/logs
-win32_logDir    = /builds/logs
-mozillaCvsroot  = cltbld@cvs.mozilla.org:/cvsroot
-l10nCvsroot     = cltbld@cvs.mozilla.org:/l10n
-mofoCvsroot     = cltbld@cvs.mozilla.org:/mofo
-anonCvsroot     = :pserver:anonymous@cvs-mirror.mozilla.org:/cvsroot
-# private staging area 
-stageHome       = /data/cltbld
-sourceDir       = /builds/source
-updateDir       = /builds/updates
-verifyDir       = /builds/verify
-tagDir          = /builds/tags
-configBumpDir   = /builds/config
-symbolDir       = /builds/symbols
-# Build platform, as specified by tinderbox
-linux_buildPlatform   = Linux_2.4.21-53.EL_Depend
-macosx_buildPlatform  = Darwin_8.7.0_Depend
-win32_buildPlatform   = WINNT_5.2_Depend
-linux_l10n_buildPlatform   = Linux_2.4.21-53.EL_Depend
-macosx_l10n_buildPlatform  = Darwin_8.7.0_Depend
-win32_l10n_buildPlatform   = WINNT_5.2_Depend
-from            = bootstrap@mozilla.org
-to              = build@mozilla.org
-cc              = nobody@mozilla.org
-patcherConfig   = moz18-branch-patcher2.cfg
-# Tag to use for building MAR/MBSDIFF and other update tools
-patcherToolsRev = UPDATE_PACKAGING_R4
-linux_verifyConfig    = moz18-firefox-linux.cfg
-win32_verifyConfig    = moz18-firefox-win32.cfg
-macosx_verifyConfig   = moz18-firefox-mac.cfg
-blat            = /cygdrive/c/moztools/bin/blat.exe
-sendmail        = /usr/sbin/sendmail
-# dump Log output to stdout
-dumpLogs        = 1
-# username and server to push update snippets to
-ausUser           = cltbld
-ausServer         = aus2-staging.mozilla.org
-ausServerUrl      = https://aus2.mozilla.org
-# Tinderbox server tree that clients should report to
-buildTree       = MozillaRelease
-# where QA updates/builds go
-stagingUser     = cltbld
-stagingServer   = stage-old.mozilla.org
-# where beta updates/builds go
-ftpServer       = ftp.mozilla.org
-# where release updates/builds go
-bouncerServer   = download.mozilla.org
-# username and server to push builds
-sshUser         = cltbld
-sshServer       = stage-old.mozilla.org
-# force 1.8 specific behavior
-useTalkback     = 0
-symbolServer     = stage-old.mozilla.org
-symbolServerUser = ffxbld
-symbolServerPath = /mnt/netapp/breakpad/symbols_ffx
-symbolServerKey  = /home/cltbld/.ssh/ffxbld_dsa
-useTarGz        = 1
-useBetaChannel  = 1
-hgToolsRepo     = https://hg.mozilla.org/build/tools
-hgToolsTag      = default
-hgUsername      = ffxbld
-win32_hgSshKey  = /home/cltbld/.ssh/ffxbld_dsa
-linux_hgSshKey  = /home/cltbld/.ssh/ffxbld_dsa
-macosx_hgSshKey = /Users/cltbld/.ssh/ffxbld_dsa
-bumpMilestoneTxt = 1

mozilla/tools/release/configs/fx-moz18-nightly-bootstrap.cfg

@@ -1,90 +0,0 @@
-version         = nightly
-milestone       = nightly
-# _BUILDn and _RELEASE will be appended as-needed
-# not used by nightly
-productTag      = FIREFOX_2_0_0_12pre
-# Branch name and pull dates to use for base tag
-branchTag       = MOZILLA_1_8_BRANCH
-# manually tagged from GECKO181_20070712_RELBRANCH
-# RelbranchOverride = GECKO181_20070712_RELBRANCH
-# not used by nightly
-pullDate        = 2007-08-21 03:07 PDT
-l10n_pullDate   = 2007-08-21 03:07 PDT
-build           = 1
-# oldVersion and oldRc refer to the previous release
-# not used by nightly
-oldVersion      = 2.0.0.7
-oldBuild        = 2
-# app name and product name
-appName         = browser
-product         = firefox
-# Absolute path to tinderbox build directory
-linux_buildRoot       = /builds/tinderbox
-macosx_buildRoot      = /builds/tinderbox
-win32_buildRoot       = /cygdrive/c/builds/tinderbox
-linux_buildDir       = /builds/tinderbox/Fx-Mozilla1.8-Nightly
-macosx_buildDir      = /builds/tinderbox/Fx-Mozilla1.8-Nightly
-win32_buildDir       = /cygdrive/c/builds/tinderbox/Fx-Mozilla1.8-Nightly
-linux_l10n_buildDir  = /builds/tinderbox/Fx-Mozilla1.8-l10n-Nightly
-macosx_l10n_buildDir = /builds/tinderbox/Fx-Mozilla1.8-l10n-Nightly
-win32_l10n_buildDir  = /cygdrive/c/builds/tinderbox/Fx-Mozilla1.8-l10n-Nightly
-# Absolute path to store bootstrap's logs
-linux_logDir    = /builds/logs.nightly
-macosx_logDir   = /builds/logs.nightly
-win32_logDir    = /builds/logs.nightly
-mozillaCvsroot  = :ext:cltbld@cvs.mozilla.org:/cvsroot
-l10nCvsroot     = :ext:cltbld@cvs.mozilla.org:/l10n
-mofoCvsroot     = :ext:cltbld@cvs.mozilla.org:/mofo
-anonCvsroot	= :pserver:anonymous@cvs-mirror.mozilla.org:/cvsroot
-# private staging area 
-stageHome       = /data/cltbld
-sourceDir       = /builds/source
-updateDir       = /builds/updates
-verifyDir       = /builds/verify
-tagDir          = /builds/tags
-configBumpDir   = /builds/config
-# Build platform, as specified by tinderbox
-linux_buildPlatform   = Linux_2.4.21-27.0.4.EL_Depend
-macosx_buildPlatform  = Darwin_8.7.0_Depend
-win32_buildPlatform   = WINNT_5.2_Depend
-linux_l10n_buildPlatform   = Linux_2.4.21-27.0.4.EL_Depend
-macosx_l10n_buildPlatform  = Darwin_8.7.0_Depend
-win32_l10n_buildPlatform   = WINNT_5.2_Depend
-from            = bootstrap@mozilla.org
-to              = build-announce@mozilla.org
-cc              = nobody@mozilla.org
-# not used by nightly
-patcherConfig   = moz18-branch-patcher2.cfg
-# Tag to use for building MAR/MBSDIFF and other update tools
-patcherToolsRev = UPDATE_PACKAGING_R1
-linux_verifyConfig    = moz18-firefox-linux.cfg
-win32_verifyConfig    = moz18-firefox-win32.cfg
-macosx_verifyConfig   = moz18-firefox-mac.cfg
-blat            = /cygdrive/c/moztools/bin/blat.exe
-sendmail        = /usr/sbin/sendmail
-# dump Log output to stdout
-dumpLogs        = 1
-# username and server to push update snippets to
-ausUser         = cltbld
-ausServer       = aus2-staging.mozilla.org
-buildTree       = Mozilla1.8
-# where QA updates/builds go
-stagingUser     = cltbld
-stagingServer   = stage-old.mozilla.org
-# where beta updates/builds go
-ftpServer       = ftp.mozilla.org
-# where release updates/builds go
-bouncerServer   = download.mozilla.org
-# username and server to push builds
-sshUser         = ffxbld
-sshServer       = stage-old.mozilla.org
-useTalkback     = 0
-symbolServer     = stage-old.mozilla.org
-symbolServerUser = cltbld
-symbolServerPath = /data/symbols
-symbolServerKey  = /home/cltbld/.ssh/id_dsa
-symbolDir        = /builds/symbols
-# turn off tests
-testsPhoneHome   = 1
-bootstrapTag     = RELEASE_AUTOMATION_M7_1
-useBetaChannel  = 0

mozilla/tools/release/configs/fx-moz18-nightly-staging-bootstrap.cfg

@@ -1,90 +0,0 @@
-version         = nightly
-milestone       = nightly
-# _BUILDn and _RELEASE will be appended as-needed
-# not used by nightly
-productTag      = FIREFOX_2_0_0_17pre
-# Branch name and pull dates to use for base tag
-branchTag       = MOZILLA_1_8_BRANCH
-# manually tagged from GECKO181_20070712_RELBRANCH
-# RelbranchOverride = GECKO181_20070712_RELBRANCH
-# not used by nightly
-pullDate        = 2008-07-30 03:07 PDT
-l10n_pullDate   = 2008-07-30 03:07 PDT
-build           = 1
-# oldVersion and oldRc refer to the previous release
-# not used by nightly
-oldVersion      = 2.0.0.16
-oldBuild        = 1
-# app name and product name
-appName         = browser
-product         = firefox
-# Absolute path to tinderbox build directory
-linux_buildRoot       = /builds/tinderbox
-macosx_buildRoot      = /builds/tinderbox
-win32_buildRoot       = /cygdrive/c/builds/tinderbox
-linux_buildDir       = /builds/tinderbox/Fx-Mozilla1.8-Nightly
-macosx_buildDir      = /builds/tinderbox/Fx-Mozilla1.8-Nightly
-win32_buildDir       = /cygdrive/c/builds/tinderbox/Fx-Mozilla1.8-Nightly
-linux_l10n_buildDir  = /builds/tinderbox/Fx-Mozilla1.8-l10n-Nightly
-macosx_l10n_buildDir = /builds/tinderbox/Fx-Mozilla1.8-l10n-Nightly
-win32_l10n_buildDir  = /cygdrive/c/builds/tinderbox/Fx-Mozilla1.8-l10n-Nightly
-# Absolute path to store bootstrap's logs
-linux_logDir    = /builds/logs.nightly
-macosx_logDir   = /builds/logs.nightly
-win32_logDir    = /builds/logs.nightly
-mozillaCvsroot  = staging-stage.build.mozilla.org:/builds/cvsmirrors/staging-1.8/cvsroot
-l10nCvsroot     = staging-stage.build.mozilla.org:/builds/cvsmirrors/staging-1.8/l10n
-mofoCvsroot     = staging-stage.build.mozilla.org:/builds/cvsmirrors/staging-1.8/mofo
-anonCvsroot	= :pserver:anonymous@cvs-mirror.mozilla.org:/cvsroot
-# private staging area 
-stageHome       = /data/cltbld
-sourceDir       = /builds/source
-updateDir       = /builds/updates
-verifyDir       = /builds/verify
-tagDir          = /builds/tags
-configBumpDir   = /builds/config
-# Build platform, as specified by tinderbox
-linux_buildPlatform   = Linux_2.4.21-27.0.4.EL_Depend
-macosx_buildPlatform  = Darwin_8.7.0_Depend
-win32_buildPlatform   = WINNT_5.2_Depend
-linux_l10n_buildPlatform   = Linux_2.4.21-27.0.4.EL_Depend
-macosx_l10n_buildPlatform  = Darwin_8.7.0_Depend
-win32_l10n_buildPlatform   = WINNT_5.2_Depend
-from            = staging-bootstrap@mozilla.org
-to              = build-announce@mozilla.org
-cc              = nobody@mozilla.org
-# not used by nightly
-patcherConfig   = moz18-branch-patcher2.cfg
-# Tag to use for building MAR/MBSDIFF and other update tools
-patcherToolsRev = UPDATE_PACKAGING_R4
-linux_verifyConfig    = moz18-firefox-linux.cfg
-win32_verifyConfig    = moz18-firefox-win32.cfg
-macosx_verifyConfig   = moz18-firefox-mac.cfg
-blat            = /cygdrive/c/moztools/bin/blat.exe
-sendmail        = /usr/sbin/sendmail
-# dump Log output to stdout
-dumpLogs        = 1
-# username and server to push update snippets to
-ausUser         = cltbld
-ausServer       = staging-stgae.build.mozilla.org
-buildTree       = Mozilla1.8-Staging
-# where QA updates/builds go
-stagingUser     = cltbld
-stagingServer   = staging-prometheus-vm.build.mozilla.org
-# where beta updates/builds go
-ftpServer       = staging-prometheus-vm.build.mozilla.org
-# where release updates/builds go
-bouncerServer   = staging-prometheus-vm.build.mozilla.org
-# username and server to push builds
-sshUser         = cltbld
-sshServer       = staging-prometheus-vm.build.mozilla.org
-useTalkback     = 0
-symbolServer     = staging-stage.mozilla.org
-symbolServerUser = cltbld
-symbolServerPath = /data/symbols
-symbolServerKey  = /home/cltbld/.ssh/id_dsa
-symbolDir        = /builds/symbols
-# turn off tests
-testsPhoneHome   = 0
-bootstrapTag     = RELEASE_AUTOMATION_M10
-useBetaChannel  = 0

mozilla/tools/release/configs/fx-moz18-staging-bootstrap.cfg

@@ -1,89 +0,0 @@
-version         = 2.0.0.17
-milestone       = 1.8.1.17
-# _BUILDn and _RELEASE will be appended as-needed
-productTag      = FIREFOX_2_0_0_17
-# Branch name and pull dates to use for base tag
-branchTag       = MOZILLA_1_8_BRANCH
-#RelbranchOverride = GECKO181_20071115_RELBRANCH
-pullDate        = 2008-07-30 10:30 PDT
-l10n_pullDate   = 2008-07-30 10:30 PDT
-build           = 1
-# oldVersion and oldRc refer to the previous release
-oldVersion      = 2.0.0.16
-oldBuild        = 1
-appName         = browser
-product         = firefox
-# Absolute path to tinderbox build directory
-linux_buildDir       = /builds/tinderbox/Fx-Mozilla1.8-Release
-macosx_buildDir      = /builds/tinderbox/Fx-Mozilla1.8-Release
-win32_buildDir       = /cygdrive/c/builds/tinderbox/Fx-Mozilla1.8-Release
-linux_l10n_buildDir  = /builds/tinderbox/Fx-Mozilla1.8-l10n-Release
-macosx_l10n_buildDir = /builds/tinderbox/Fx-Mozilla1.8-l10n-Release
-win32_l10n_buildDir  = /cygdrive/c/builds/tinderbox/Fx-Mozilla1.8-l10n-Release
-# Absolute path to store bootstrap's logs
-linux_logDir    = /builds/logs
-macosx_logDir   = /builds/logs
-win32_logDir    = /builds/logs
-mozillaCvsroot  = staging-stage.build.mozilla.org:/builds/cvsmirrors/staging-1.8/cvsroot
-l10nCvsroot     = staging-stage.build.mozilla.org:/builds/cvsmirrors/staging-1.8/l10n
-mofoCvsroot     = staging-stage.build.mozilla.org:/builds/cvsmirrors/staging-1.8/mofo
-anonCvsroot     = :pserver:anonymous@cvs-mirror.mozilla.org:/cvsroot
-# private staging area 
-stageHome       = /data/cltbld
-sourceDir       = /builds/source
-updateDir       = /builds/updates
-verifyDir       = /builds/verify
-tagDir          = /builds/tags
-configBumpDir   = /builds/config
-symbolDir       = /builds/symbols
-# Build platform, as specified by tinderbox
-linux_buildPlatform   = Linux_2.4.21-27.0.4.EL_Depend
-macosx_buildPlatform  = Darwin_8.7.0_Depend
-win32_buildPlatform   = WINNT_5.2_Depend
-linux_l10n_buildPlatform   = Linux_2.4.21-27.0.4.EL_Depend
-macosx_l10n_buildPlatform  = Darwin_8.7.0_Depend
-win32_l10n_buildPlatform   = WINNT_5.2_Depend
-from            = staging-bootstrap@mozilla.org
-to              = build-announce@mozilla.org
-cc              = nobody@mozilla.org
-patcherConfig   = moz18-branch-patcher2.cfg
-# Tag to use for building MAR/MBSDIFF and other update tools
-patcherToolsRev = UPDATE_PACKAGING_R4
-linux_verifyConfig    = moz18-firefox-linux.cfg
-win32_verifyConfig    = moz18-firefox-win32.cfg
-macosx_verifyConfig   = moz18-firefox-mac.cfg
-blat            = /cygdrive/c/moztools/bin/blat.exe
-sendmail        = /usr/sbin/sendmail
-# dump Log output to stdout
-dumpLogs        = 1
-# username and server to push update snippets to
-ausUser           = cltbld
-ausServer         = staging-stage.build.mozilla.org
-ausServerUrl      = http://staging-stage.build.mozilla.org
-# Tinderbox server tree that clients should report to
-buildTree       = MozillaTest
-# where QA updates/builds go
-stagingUser     = cltbld
-stagingServer   = staging-prometheus-vm.build.mozilla.org
-# where beta updates/builds go
-ftpServer       = staging-prometheus-vm.build.mozilla.org
-# where release updates/builds go
-bouncerServer   = staging-prometheus-vm.build.mozilla.org
-# username and server to push builds
-sshUser         = cltbld
-sshServer       = staging-prometheus-vm.build.mozilla.org
-# force 1.8 specific behavior
-useTalkback     = 0
-symbolServer     = staging-stage.build.mozilla.org
-symbolServerUser = cltbld
-symbolServerPath = /data/symbols
-symbolServerKey  = /home/cltbld/.ssh/id_rsa
-useTarGz        = 1
-useBetaChannel  = 1
-hgToolsRepo     = https://hg.mozilla.org/users/stage-ffxbld/tools
-hgToolsTag      = default
-hgUsername      = stage-ffxbld
-win32_hgSshKey  = /home/cltbld/.ssh/ffxbld_dsa
-linux_hgSshKey  = /home/cltbld/.ssh/ffxbld_dsa
-macosx_hgSshKey = /Users/cltbld/.ssh/ffxbld_dsa
-bumpMilestoneTxt = 1

mozilla/tools/release/configs/fx-moz180-bootstrap.cfg

@@ -1,64 +0,0 @@
-version         = 1.5.0.12
-milestone       = 1.8.0.12
-# _BUILDn and _RELEASE will be appended as-needed
-productTag      = FIREFOX_1_5_0_12
-# Branch name and pull dates to use for base tag
-branchTag       = MOZILLA_1_8_0_BRANCH
-# GECKO180_20070501_RELBRANCH created manually from this pull date
-pullDate        = 2007-05-01 01:30 PDT
-l10n_pullDate   = 
-build           = 2
-# oldVersion and oldRc refer to the previous release
-oldVersion      = 1.5.0.11
-oldBuild        = 1
-appName         = browser
-product         = firefox
-# Absolute path to tinderbox build directory
-linux_buildDir       = /builds/tinderbox/Fx-Mozilla1.8.0-Release
-macosx_buildDir      = /builds/tinderbox/Fx-Mozilla1.8.0-Release
-win32_buildDir       = /cygdrive/c/builds/tinderbox/Fx-Mozilla1.8.0-Release
-linux_l10n_buildDir  = /builds/tinderbox/Fx-Mozilla1.8.0-l10n-Release
-macosx_l10n_buildDir = /builds/tinderbox/Fx-Mozilla1.8.0-l10n-Release
-win32_l10n_buildDir  = /cygdrive/c/builds/tinderbox/Fx-Mozilla1.8.0-l10n-Release
-# Absolute path to store bootstrap's logs
-logDir          = /builds/release/logs
-win32_logDir    = /cygdrive/c/builds/release/logs
-mozillaCvsroot  = :ext:cltbld@cvs.mozilla.org:/cvsroot
-l10nCvsroot     = :ext:cltbld@cvs.mozilla.org:/l10n
-mofoCvsroot     = :ext:cltbld@cvs.mozilla.org:/mofo
-# private staging area 
-stageHome       = /data/cltbld
-updateDir       = /builds/updates
-verifyDir       = /builds/verify
-tagDir          = /builds/tags
-configBumpDir   = /builds/config
-# Build platform, as specified by tinderbox
-linux_buildPlatform        = Linux_2.4.21-37.EL_Depend
-macosx_buildPlatform       = Darwin_8.7.0_Depend
-win32_buildPlatform        = WINNT_5.2_Depend
-linux_l10n_buildPlatform   = Linux_2.4.21-37.EL_Depend
-macosx_l10n_buildPlatform  = Darwin_8.7.0_Depend
-win32_l10n_buildPlatform   = WINNT_5.2_Depend
-from            = build@mozilla.org
-to              = nrthomas@gmail.com	
-# cc              = other@example.com
-patcherConfig   = moz180-branch-patcher2.cfg
-# Tag to use for building MAR/MBSDIFF and other update tools
-patcherToolsRev = UPDATE_PACKAGING_R1
-linux_verifyConfig    = moz180-firefox-linux.cfg
-macosx_verifyConfig   = moz180-firefox-mac.cfg
-win32_verifyConfig    = moz180-firefox-win32.cfg
-blat            = /cygdrive/c/moztools/bin/blat.exe
-sendmail        = /usr/lib/sendmail
-# dump Log output to stdout
-dumpLogs        = 1
-# username and server to push builds
-sshUser         = cltbld
-sshServer       = stage.mozilla.org
-# username and server to push update snippets
-ausUser           = cltbld
-ausServer         = aus2-staging.mozilla.org
-ausServerUrl      = https://aus2.mozilla.org
-# force 1.8 specific behavior
-useTalkback     = 1
-useTarGz        = 1

mozilla/tools/release/configs/fx-moz19-bootstrap.cfg

@@ -1,98 +0,0 @@
-version         = 3.0.19
-appVersion      = 3.0.19
-milestone       = 1.9.0.19
-# _BUILDn and _RELEASE will be appended as-needed
-productTag      = FIREFOX_3_0_19
-# Branch name and pull dates to use for base tag
-branchTag       = HEAD
-#RelbranchOverride = GECKO190_20091130_RELBRANCH
-pullDate        = 2010-03-10 13:13 PST
-l10n_pullDate   = 2009-09-22 05:34 PDT
-build           = 1
-# oldVersion and oldBuild refer to the previous release
-oldVersion      = 3.0.18
-oldAppVersion   = 3.0.18
-oldBuild        = 1
-appName         = browser
-product         = firefox
-# Absolute path to tinderbox build directory
-# The win32 ones are kept short because of a long path issue detailed in
-# bug# 400846
-linux_buildDir       = /builds/tinderbox/Fx-Mozilla1.9-Release
-macosx_buildDir      = /builds/tinderbox/Fx-Mozilla1.9-Release
-win32_buildDir       = /e/fx19rel
-linux_l10n_buildDir  = /builds/tinderbox/Fx-Mozilla1.9-l10n-Release
-macosx_l10n_buildDir = /builds/tinderbox/Fx-Mozilla1.9-l10n-Release
-win32_l10n_buildDir  = /e/fx19l10nrel
-# Absolute path to store bootstrap's logs
-linux_logDir    = /builds/logs
-macosx_logDir   = /builds/logs
-win32_logDir    = /builds/logs
-mozillaCvsroot  = cltbld@cvs.mozilla.org:/cvsroot
-l10nCvsroot     = cltbld@cvs.mozilla.org:/l10n
-mofoCvsroot     = cltbld@cvs.mozilla.org:/mofo
-anonCvsroot     = :pserver:anonymous@cvs-mirror.mozilla.org:/cvsroot
-# private staging area 
-stageHome       = /data/cltbld
-sourceDir       = /builds/source
-updateDir       = /builds/updates
-verifyDir       = /builds/verify
-tagDir          = /builds/tags
-configBumpDir   = /builds/config
-# Build platform, as specified by tinderbox
-linux_buildPlatform   = Linux_2.6.18-53.1.13.el5_Depend
-macosx_buildPlatform  = Darwin_8.8.4_Depend
-win32_buildPlatform   = WINNT_5.2_Depend
-linux_l10n_buildPlatform   = Linux_2.6.18-53.1.13.el5_Depend
-macosx_l10n_buildPlatform  = Darwin_8.8.4_Depend
-win32_l10n_buildPlatform   = WINNT_5.2_Depend
-from            = bootstrap@mozilla.org
-to              = release@mozilla.com
-cc              = nobody@mozilla.org
-patcherConfig   = moz19-branch-patcher2.cfg
-# Tag to use for building MAR/MBSDIFF and other update tools
-patcherToolsRev = UPDATE_PACKAGING_R9
-linux_verifyConfig    = moz19-firefox-linux.cfg
-win32_verifyConfig    = moz19-firefox-win32.cfg
-macosx_verifyConfig   = moz19-firefox-mac.cfg
-blat            = /d/mozilla-build/blat261/full/blat.exe
-sendmail        = /usr/sbin/sendmail
-# dump Log output to stdout
-dumpLogs        = 1
-# symbol server variables
-symbolServer     = dm-symbolpush01.mozilla.org
-symbolServerUser = ffxbld
-symbolServerPath = /mnt/netapp/breakpad/symbols_ffx
-win32_symbolServerKey  = /c/Documents and Settings/cltbld/.ssh/ffxbld_dsa
-linux_symbolServerKey  = /home/cltbld/.ssh/ffxbld_dsa
-macosx_symbolServerKey  = /Users/cltbld/.ssh/ffxbld_dsa
-# username and server to push update snippets to
-ausUser           = cltbld
-ausServer         = aus2-staging.mozilla.org
-ausServerUrl      = https://aus2.mozilla.org
-buildTree       = MozillaRelease
-# where QA updates/builds go
-stagingUser     = cltbld
-stagingServer   = stage-old.mozilla.org
-# where beta updates/builds go
-ftpServer       = ftp.mozilla.org
-# where release updates/builds go
-bouncerServer   = download.mozilla.org
-# username and server to push builds
-sshUser         = cltbld
-sshServer       = stage-old.mozilla.org
-useTalkback     = 0
-useCvsCompression = 1
-useBetaChannel  = 1
-hgToolsRepo     = https://hg.mozilla.org/build/tools
-hgToolsTag      = default
-hgUsername      = ffxbld
-win32_hgSshKey  = /c/Documents and Settings/cltbld/.ssh/ffxbld_dsa
-linux_hgSshKey  = /home/cltbld/.ssh/ffxbld_dsa
-macosx_hgSshKey = /Users/cltbld/.ssh/ffxbld_dsa
-bumpMilestoneTxt = 1
-hgPartnersRepo   = https://hg.mozilla.org/build/partner-repacks
-hgPartnersTag    = default
-partnerRepackDir = /builds/partners
-remoteRepackDir  = /home/ftp/pub/mozilla.org/firefox/nightly/latest-mozilla1.9.0-partner-repacks
-partnerRepackCC  = kev@mozilla.com,cbook@mozilla.com

mozilla/tools/release/configs/fx-moz19-nightly-bootstrap.cfg

@@ -1,92 +0,0 @@
-version         = nightly
-milestone       = nightly
-# _BUILDn and _RELEASE will be appended as-needed
-# not used by nightly
-productTag      = FIREFOX_3_0b5pre
-# Branch name and pull dates to use for base tag
-branchTag       = test
-#RelbranchOverride = GECKO190_20071207_RELBRANCH
-# not used by nightly
-pullDate        = 2008-01-08 18:00 PST
-l10n_pullDate   = 2008-01-08 18:00 PST
-build           = 1
-# oldVersion and oldRc refer to the previous release
-# not used by nightly
-oldVersion      = 3.0b1
-oldBuild        = 3
-# app name and product name
-appName         = browser
-product         = firefox
-# Absolute path to tinderbox build directory
-# The win32 ones are kept short because of a long path issue detailed in
-# bug# 400846
-linux_buildDir       = /builds/tinderbox/Fx-Mozilla1.9-Nightly
-macosx_buildDir      = /builds/tinderbox/Fx-Mozilla1.9-Nightly
-win32_buildDir       = /e/fx19nit
-linux_l10n_buildDir  = /builds/tinderbox/Fx-Mozilla1.9-l10n-Nightly
-macosx_l10n_buildDir = /builds/tinderbox/Fx-Mozilla1.9-l10n-Nightly
-win32_l10n_buildDir  = /e/fx19l10nit
-# Absolute path to store bootstrap's logs
-linux_logDir    = /builds/logs.nightly
-macosx_logDir   = /builds/logs.nightly
-win32_logDir    = /builds/logs.nightly
-mozillaCvsroot  = :ext:cltbld@cvs.mozilla.org:/cvsroot
-l10nCvsroot     = :ext:cltbld@cvs.mozilla.org:/l10n
-mofoCvsroot     = :ext:cltbld@cvs.mozilla.org:/mofo
-anonCvsroot	    = :pserver:anonymous@cvs-mirror.mozilla.org:/cvsroot
-# private staging area 
-stageHome       = /data/cltbld
-sourceDir       = /builds/source
-updateDir       = /builds/updates
-verifyDir       = /builds/verify
-tagDir          = /builds/tags
-configBumpDir   = /builds/config
-# Build platform, as specified by tinderbox
-linux_buildPlatform   = Linux_2.6.18-53.1.13.el5_Depend
-macosx_buildPlatform  = Darwin_8.8.4_Depend
-win32_buildPlatform   = WINNT_5.2_Depend
-linux_l10n_buildPlatform   = Linux_2.6.18-53.1.13.el5_Depend
-macosx_l10n_buildPlatform  = Darwin_8.8.4_Depend
-win32_l10n_buildPlatform   = WINNT_5.2_Depend
-from            = bootstrap@mozilla.org
-to              = build-announce@mozilla.org
-cc              = nobody@mozilla.org
-# not used by nightly
-patcherConfig   = moz19-patcher2.cfg
-# Tag to use for building MAR/MBSDIFF and other update tools
-patcherToolsRev = UPDATE_PACKAGING_R1
-linux_verifyConfig    = moz19-firefox-linux.cfg
-win32_verifyConfig    = moz19-firefox-win32.cfg
-macosx_verifyConfig   = moz19-firefox-mac.cfg
-blat            = /d/mozilla-build/blat261/full/blat.exe
-sendmail        = /usr/sbin/sendmail
-# dump Log output to stdout
-dumpLogs        = 1
-# username and server to push update snippets to
-ausUser           = cltbld
-ausServer         = aus2-staging.mozilla.org
-ausServerUrl      = https://aus2.mozilla.org
-buildTree       = MozillaTest
-# where QA updates/builds go
-stagingUser     = cltbld
-stagingServer   = stage-old.mozilla.org
-# where beta updates/builds go
-ftpServer       = ftp.mozilla.org
-# where release updates/builds go
-bouncerServer   = download.mozilla.org
-# username and server to push builds
-sshUser         = ffxbld
-sshServer       = stage-old.mozilla.org
-useTalkback     = 0
-# symbol server variables
-symbolServer     = dm-symbolpush01.mozilla.org
-symbolServerUser = ffxbld
-symbolServerPath = /mnt/netapp/breakpad/symbols_ffx
-win32_symbolServerKey  = /c/Documents and Settings/cltbld/.ssh/ffxbld_dsa
-linux_symbolServerKey  = /home/cltbld/.ssh/ffxbld_dsa
-macosx_symbolServerKey  = /Users/cltbld/.ssh/ffxbld_dsa
-useCvsCompression = 1
-testsPhoneHome   = 0
-runMozillaTests  = 1
-bootstrapTag     = RELEASE_AUTOMATION_M8
-useBetaChannel  = 0

mozilla/tools/release/configs/fx-moz19-nightly-staging-bootstrap.cfg

@@ -1,93 +0,0 @@
-version         = nightly
-milestone       = nightly
-# _BUILDn and _RELEASE will be appended as-needed
-# not used by nightly
-productTag      = FIREFOX_3_0b2pre
-# Branch name and pull dates to use for base tag
-branchTag       = HEAD
-#RelbranchOverride = GECKO190_20071207_RELBRANCH
-# not used by nightly
-pullDate        = 2008-01-08 18:00 PST
-l10n_pullDate   = 2008-01-08 18:00 PST
-build           = 1
-# oldVersion and oldRc refer to the previous release
-# not used by nightly
-oldVersion      = 3.0b1
-oldBuild        = 3
-# app name and product name
-appName         = browser
-product         = firefox
-# Absolute path to tinderbox build directory
-# The win32 ones are kept short because of a long path issue detailed in
-# bug# 400846
-linux_buildDir       = /builds/tinderbox/Fx-Mozilla1.9-Nightly
-macosx_buildDir      = /builds/tinderbox/Fx-Mozilla1.9-Nightly
-win32_buildDir       = /e/fx19nit
-linux_l10n_buildDir  = /builds/tinderbox/Fx-Mozilla1.9-l10n-Nightly
-macosx_l10n_buildDir = /builds/tinderbox/Fx-Mozilla1.9-l10n-Nightly
-win32_l10n_buildDir  = /e/fx19l10nit
-# Absolute path to store bootstrap's logs
-linux_logDir    = /builds/logs.nightly
-macosx_logDir   = /builds/logs.nightly
-win32_logDir    = /builds/logs.nightly
-mozillaCvsroot  = staging-1.9-master.build.mozilla.org:/builds/cvsmirror/cvsroot
-l10nCvsroot     = staging-1.9-master.build.mozilla.org:/builds/cvsmirror/l10n
-mofoCvsroot     = staging-1.9-master.build.mozilla.org:/builds/cvsmirror/mofo
-anonCvsroot	= staging-1.9-master.build.mozilla.org:/builds/cvsmirror/cvsroot
-# private staging area 
-stageHome       = /data/cltbld
-sourceDir       = /builds/source
-updateDir       = /builds/updates
-verifyDir       = /builds/verify
-tagDir          = /builds/tags
-configBumpDir   = /builds/config
-# Build platform, as specified by tinderbox
-linux_buildPlatform   = Linux_2.6.18-53.1.13.el5_Depend
-macosx_buildPlatform  = Darwin_8.8.4_Depend
-win32_buildPlatform   = WINNT_5.2_Depend
-linux_l10n_buildPlatform   = Linux_2.6.18-53.1.13.el5_Depend
-macosx_l10n_buildPlatform  = Darwin_8.8.4_Depend
-win32_l10n_buildPlatform   = WINNT_5.2_Depend
-from            = staging-bootstrap@mozilla.org
-to              = build-announce@mozilla.org
-cc              = nobody@mozilla.org
-# not used by nightly
-patcherConfig   = moz19-patcher2.cfg
-# Tag to use for building MAR/MBSDIFF and other update tools
-patcherToolsRev = UPDATE_PACKAGING_R1
-linux_verifyConfig    = moz19-firefox-linux.cfg
-win32_verifyConfig    = moz19-firefox-win32.cfg
-macosx_verifyConfig   = moz19-firefox-mac.cfg
-blat            = /d/mozilla-build/blat261/full/blat.exe
-sendmail        = /usr/sbin/sendmail
-# dump Log output to stdout
-dumpLogs        = 1
-# username and server to push update snippets to
-ausUser         = cltbld
-ausServer       = staging-1.9-master.build.mozilla.org
-ausServerUrl    = http://staging-1.9-master.build.mozilla.org
-buildTree       = Firefox-Staging
-# where QA updates/builds go
-stagingUser     = cltbld
-stagingServer   = fx-linux-1.9-slave1.build.mozilla.org
-# where beta updates/builds go
-ftpServer       = fx-linux-1.9-slave1.build.mozilla.org
-# where release updates/builds go
-bouncerServer   = fx-linux-1.9-slave1.build.mozilla.org
-# username and server to push builds
-sshUser         = cltbld
-sshServer       = fx-linux-1.9-slave1.build.mozilla.org
-useTalkback     = 0
-# symbol server variables
-symbolServer     = staging-1.9-master.build.mozilla.org
-symbolServerUser = cltbld
-symbolServerPath = /data/symbols
-win32_symbolServerKey  = /c/Documents and Settings/cltbld/.ssh/ffxbld_dsa
-linux_symbolServerKey  = /home/cltbld/.ssh/ffxbld_dsa
-macosx_symbolServerKey  = /Users/cltbld/.ssh/ffxbld_dsa
-useCvsCompression = 1
-# turn off tests
-testsPhoneHome   = 0
-bootstrapTag     = RELEASE_AUTOMATION_M8
-runMozillaTests  = 1
-useBetaChannel  = 0

mozilla/tools/release/configs/fx-moz19-staging-bootstrap.cfg

@@ -1,98 +0,0 @@
-version         = 3.0.11
-appVersion      = 3.0.11
-milestone       = 1.9.0.11
-# _BUILDn and _RELEASE will be appended as-needed
-productTag      = FIREFOX_3_0_11
-# Branch name and pull dates to use for base tag
-branchTag       = HEAD
-RelbranchOverride = GECKO190_20090519_RELBRANCH
-pullDate        = 2009-05-18 15:48 PDT
-l10n_pullDate   = 2009-05-01 06:33 PDT
-build           = 2
-# oldVersion and oldBuild refer to the previous release
-oldVersion      = 3.0.10
-oldAppVersion   = 3.0.10
-oldBuild        = 1
-appName         = browser
-product         = firefox
-# Absolute path to tinderbox build directory
-# The win32 ones are kept short because of a long path issue detailed in
-# bug# 400846
-linux_buildDir       = /builds/tinderbox/Fx-Mozilla1.9-Release
-macosx_buildDir      = /builds/tinderbox/Fx-Mozilla1.9-Release
-win32_buildDir       = /e/fx19rel
-linux_l10n_buildDir  = /builds/tinderbox/Fx-Mozilla1.9-l10n-Release
-macosx_l10n_buildDir = /builds/tinderbox/Fx-Mozilla1.9-l10n-Release
-win32_l10n_buildDir  = /e/fx19l10nrel
-# Absolute path to store bootstrap's logs
-linux_logDir    = /builds/logs
-macosx_logDir   = /builds/logs
-win32_logDir    = /builds/logs
-mozillaCvsroot  = staging-1.9-master.build.mozilla.org:/builds/cvsmirror/cvsroot
-l10nCvsroot     = staging-1.9-master.build.mozilla.org:/builds/cvsmirror/l10n
-mofoCvsroot     = staging-1.9-master.build.mozilla.org:/builds/cvsmirror/mofo
-anonCvsroot	= staging-1.9-master.build.mozilla.org:/builds/cvsmirror/cvsroot
-# private staging area 
-stageHome       = /data/cltbld
-sourceDir       = /builds/source
-updateDir       = /builds/updates
-verifyDir       = /builds/verify
-tagDir          = /builds/tags
-configBumpDir   = /builds/config
-# Build platform, as specified by tinderbox
-linux_buildPlatform   = Linux_2.6.18-53.1.14.el5_Depend
-macosx_buildPlatform  = Darwin_8.8.4_Depend
-win32_buildPlatform   = WINNT_5.2_Depend
-linux_l10n_buildPlatform   = Linux_2.6.18-53.1.14.el5_Depend
-macosx_l10n_buildPlatform  = Darwin_8.8.4_Depend
-win32_l10n_buildPlatform   = WINNT_5.2_Depend
-from            = staging-bootstrap@mozilla.org
-to              = build-announce@mozilla.org
-cc              = nobody@mozilla.org
-patcherConfig   = moz19-branch-patcher2.cfg
-# Tag to use for building MAR/MBSDIFF and other update tools
-patcherToolsRev = UPDATE_PACKAGING_R8
-linux_verifyConfig    = moz19-firefox-linux.cfg
-win32_verifyConfig    = moz19-firefox-win32.cfg
-macosx_verifyConfig   = moz19-firefox-mac.cfg
-blat            = /d/mozilla-build/blat261/full/blat.exe
-sendmail        = /usr/sbin/sendmail
-# dump Log output to stdout
-dumpLogs        = 1
-# symbol server variables
-symbolServer     = staging-1.9-master.build.mozilla.org
-symbolServerUser = cltbld
-symbolServerPath = /data/symbols
-win32_symbolServerKey  = /c/Documents and Settings/cltbld/.ssh/ffxbld_dsa
-linux_symbolServerKey  = /home/cltbld/.ssh/ffxbld_dsa
-macosx_symbolServerKey  = /Users/cltbld/.ssh/ffxbld_dsa
-# username and server to push update snippets to
-ausUser         = cltbld
-ausServer       = staging-1.9-master.build.mozilla.org
-ausServerUrl    = http://staging-1.9-master.build.mozilla.org
-buildTree       = MozillaTest
-# where QA updates/builds go
-stagingUser     = cltbld
-stagingServer   = fx-linux-1.9-slave1.build.mozilla.org
-# where beta updates/builds go
-ftpServer       = fx-linux-1.9-slave1.build.mozilla.org
-# where release updates/builds go
-bouncerServer   = fx-linux-1.9-slave1.build.mozilla.org
-# username and server to push builds
-sshUser         = cltbld
-sshServer       = fx-linux-1.9-slave1.build.mozilla.org
-useTalkback     = 0
-useCvsCompression = 1
-useBetaChannel  = 1
-hgToolsRepo     = https://hg.mozilla.org/users/stage-ffxbld/tools
-hgToolsTag      = default
-hgUsername      = stage-ffxbld
-win32_hgSshKey  = /c/Documents and Settings/cltbld/.ssh/ffxbld_dsa
-linux_hgSshKey  = /home/cltbld/.ssh/ffxbld_dsa
-macosx_hgSshKey = /Users/cltbld/.ssh/ffxbld_dsa
-bumpMilestoneTxt = 1
-hgPartnersRepo   = https://hg.mozilla.org/build/partner-repacks
-hgPartnersTag    = default
-partnerRepackDir = /builds/partners
-remoteRepackDir  = /home/ftp/pub/mozilla.org/firefox/nightly/latest-mozilla1.9.0-partner-repacks
-partnerRepackCC  = ccooper@deadsquid.com

mozilla/tools/release/configs/tb-moz18-bootstrap.cfg

@@ -1,82 +0,0 @@
-branchTag            = MOZILLA_1_8_BRANCH
-# this won't actually be used, it's a record-keeping placeholder
-pullDate             = 2010-02-26 08:40 PST
-l10n_pullDate        = 2009-08-12 08:29 PDT
-# RelbranchOverride    = GECKO181_20080603_RELBRANCH
-milestone            = 1.8.1.24
-version              = 2.0.0.24
-build                = 1
-# _BUILDn and _RELEASE will be appended as-needed
-productTag           = THUNDERBIRD_2_0_0_24
-oldVersion           = 2.0.0.23
-oldBuild             = 1
-appName              = mail
-product              = thunderbird
-linux_buildDir       = /builds/tinderbox/Tb-Mozilla1.8-Release
-linux_l10n_buildDir  = /builds/tinderbox/Tb-Mozilla1.8-l10n-Release
-macosx_buildDir      = /builds/tinderbox/Tb-Mozilla1.8-Release
-macosx_l10n_buildDir = /builds/tinderbox/Tb-Mozilla1.8-l10n-Release
-win32_buildDir       = /cygdrive/e/builds/tinderbox/Tb-Mozilla1.8-Release
-win32_l10n_buildDir  = /cygdrive/e/builds/tinderbox/Tb-Mozilla1.8-l10n-Release
-logDir               = /builds/release/logs
-# NB this will need to be changed locally on the l10n box
-win32_logDir         = /builds/release/logs
-mozillaCvsroot       = :ext:cltbld@cvs.mozilla.org:/cvsroot
-l10nCvsroot          = :ext:cltbld@cvs.mozilla.org:/l10n
-mofoCvsroot          = :ext:cltbld@cvs.mozilla.org:/mofo
-anonCvsroot          = :pserver:anonymous@cvs-mirror.mozilla.org:/cvsroot
-stageHome            = /data/cltbld
-sourceDir            = /builds/source
-updateDir            = /builds/updates
-verifyDir            = /builds/verify
-tagDir               = /builds/tags
-symbolDir            = /builds/symbols
-configBumpDir        = /builds/config
-linux_buildPlatform  = Linux_2.4.18-14_Depend
-macosx_buildPlatform = Darwin_8.7.0_Depend
-win32_buildPlatform  = WINNT_5.0_Depend
-linux_l10n_buildPlatform  = Linux_2.4.18-14_Depend
-macosx_l10n_buildPlatform = Darwin_8.7.0_Depend
-win32_l10n_buildPlatform  = WINNT_5.0_Depend
-from                 = bootstrap@mozilla.org
-to                   = release@mozilla.com
-cc                   = nobody@mozilla.org
-patcherConfig        = moz18-branch-patcher2.cfg
-patcherToolsRev      = UPDATE_PACKAGING_R7
-linux_verifyConfig   = moz18-thunderbird-linux.cfg
-macosx_verifyConfig  = moz18-thunderbird-mac.cfg
-win32_verifyConfig   = moz18-thunderbird-win32.cfg
-blat                 = /cygdrive/c/moztools/bin/blat.exe
-sendmail             = /usr/sbin/sendmail
-dumpLogs             = 1
-# username and server to push update snippets to
-ausUser              = cltbld
-ausServer            = aus2-staging.mozilla.org
-ausServerUrl         = https://aus2.mozilla.org
-# Tinderbox server tree that clients should report to
-buildTree       = MozillaRelease
-# where QA updates/builds go
-stagingUser     = cltbld
-stagingServer   = stage-old.mozilla.org
-# where beta updates/builds go
-ftpServer       = ftp.mozilla.org
-# where release updates/builds go
-bouncerServer   = download.mozilla.org
-# username and server to push builds
-sshUser         = cltbld
-sshServer       = stage-old.mozilla.org
-# force 1.8 specific behavior
-useTalkback     = 0
-symbolServer     = stage-old.mozilla.org
-symbolServerUser = tbirdbld
-symbolServerPath = /mnt/breakpad_symbols/symbols_tbrd
-symbolServerKey  = /home/cltbld/.ssh/tbirdbld_dsa
-useTarGz        = 1
-useBetaChannel  = 1
-hgToolsRepo     = https://hg.mozilla.org/build/tools
-hgToolsTag      = default
-hgUsername      = ffxbld
-win32_hgSshKey  = /home/cltbld/.ssh/ffxbld_dsa
-linux_hgSshKey  = /home/cltbld/.ssh/ffxbld_dsa
-macosx_hgSshKey = /Users/cltbld/.ssh/ffxbld_dsa
-bumpMilestoneTxt = 1

mozilla/tools/release/configs/tb-moz18-nightly-bootstrap.cfg

@@ -1,82 +0,0 @@
-branchTag            = MOZILLA_1_8_BRANCH
-# these two won't actually be used for nightly builds
-pullDate             = 2009-06-03 11:32 PDT 
-l10n_pullDate        = 2009-06-03 11:32 PDT
-# RelbranchOverride    = GECKO181_20080603_RELBRANCH
-milestone            = nightly
-version              = nightly
-build                = 1
-# _BUILDn and _RELEASE will be appended as-needed
-productTag           = THUNDERBIRD_2_0_0_22
-oldVersion           = 2.0.0.21
-oldBuild             = 1
-appName              = mail
-product              = thunderbird
-linux_buildDir       = /builds/tinderbox/Tb-Mozilla1.8-Nightly
-linux_l10n_buildDir  = /builds/tinderbox/Tb-Mozilla1.8-l10n-Nightly
-macosx_buildDir      = /builds/tinderbox/Tb-Mozilla1.8-Nightly
-macosx_l10n_buildDir = /builds/tinderbox/Tb-Mozilla1.8-l10n-Nightly
-win32_buildDir       = /cygdrive/e/builds/tinderbox/Tb-Mozilla1.8-Nightly
-win32_l10n_buildDir  = /cygdrive/e/builds/tinderbox/Tb-Mozilla1.8-l10n-Nightly
-logDir               = /builds/logs.nightly
-# NB this will need to be changed locally on the l10n box
-win32_logDir         = /builds/logs.nightly
-mozillaCvsroot       = :ext:cltbld@cvs.mozilla.org:/cvsroot
-l10nCvsroot          = :ext:cltbld@cvs.mozilla.org:/l10n
-mofoCvsroot          = :ext:cltbld@cvs.mozilla.org:/mofo
-anonCvsroot          = :pserver:anonymous@cvs-mirror.mozilla.org:/cvsroot
-stageHome            = /data/cltbld
-sourceDir            = /builds/source
-updateDir            = /builds/updates
-verifyDir            = /builds/verify
-tagDir               = /builds/tags
-symbolDir            = /builds/symbols
-configBumpDir        = /builds/config
-linux_buildPlatform  = Linux_2.4.18-14_Depend
-macosx_buildPlatform = Darwin_8.7.0_Depend
-win32_buildPlatform  = WINNT_5.0_Depend
-linux_l10n_buildPlatform  = Linux_2.4.18-14_Depend
-macosx_l10n_buildPlatform = Darwin_8.7.0_Depend
-win32_l10n_buildPlatform  = WINNT_5.0_Depend
-from                 = bootstrap@mozilla.org
-to                   = build-announce@mozilla.org
-cc                   = nobody@mozilla.org
-patcherConfig        = moz18-branch-patcher2.cfg
-patcherToolsRev      = UPDATE_PACKAGING_R8
-linux_verifyConfig   = moz18-thunderbird-linux.cfg
-macosx_verifyConfig  = moz18-thunderbird-mac.cfg
-win32_verifyConfig   = moz18-thunderbird-win32.cfg
-blat                 = /cygdrive/c/moztools/bin/blat.exe
-sendmail             = /usr/sbin/sendmail
-dumpLogs             = 1
-# username and server to push update snippets to
-ausUser              = cltbld
-ausServer            = aus2-staging.mozilla.org
-ausServerUrl         = https://aus2.mozilla.org
-# Tinderbox server tree that clients should report to
-buildTree       = Mozilla1.8
-# where QA updates/builds go
-stagingUser     = cltbld
-stagingServer   = stage-old.mozilla.org
-# where beta updates/builds go
-ftpServer       = ftp.mozilla.org
-# where release updates/builds go
-bouncerServer   = download.mozilla.org
-# username and server to push builds
-sshUser         = tbirdbld
-sshServer       = stage-old.mozilla.org
-# force 1.8 specific behavior
-useTalkback     = 0
-symbolServer     = stage-old.mozilla.org
-symbolServerUser = tbirdbld
-symbolServerPath = /mnt/netapp/breakpad/symbols_tbrd
-symbolServerKey  = /home/cltbld/.ssh/tbirdbld_dsa
-useTarGz        = 1
-useBetaChannel  = 1
-hgToolsRepo     = https://hg.mozilla.org/build/tools
-hgToolsTag      = default
-hgUsername      = ffxbld
-win32_hgSshKey  = /home/cltbld/.ssh/ffxbld_dsa
-linux_hgSshKey  = /home/cltbld/.ssh/ffxbld_dsa
-macosx_hgSshKey = /Users/cltbld/.ssh/ffxbld_dsa
-bumpMilestoneTxt = 1

mozilla/tools/release/configs/tb-moz18-staging-bootstrap.cfg

@@ -1,89 +0,0 @@
-version         = 2.0.0.21
-milestone       = 1.8.1.21
-# _BUILDn and _RELEASE will be appended as-needed
-productTag      = THUNDERBIRD_2_0_0_21
-# Branch name and pull dates to use for base tag
-branchTag       = MOZILLA_1_8_BRANCH
-#RelbranchOverride = GECKO181_20071115_RELBRANCH
-pullDate        = 2009-03-01 16:14 PST
-l10n_pullDate   = 2009-03-01 16:14 PST
-build           = 1
-# oldVersion and oldRc refer to the previous release
-oldVersion      = 2.0.0.19
-oldBuild        = 1
-appName         = mail
-product         = thunderbird
-# Absolute path to tinderbox build directory
-linux_buildDir       = /builds/tinderbox/Tb-Mozilla1.8-Release
-macosx_buildDir      = /builds/tinderbox/Tb-Mozilla1.8-Release
-win32_buildDir       = /cygdrive/e/builds/tinderbox/Tb-Mozilla1.8-Release
-linux_l10n_buildDir  = /builds/tinderbox/Tb-Mozilla1.8-l10n-Release
-macosx_l10n_buildDir = /builds/tinderbox/Tb-Mozilla1.8-l10n-Release
-win32_l10n_buildDir  = /cygdrive/e/builds/tinderbox/Tb-Mozilla1.8-l10n-Release
-# Absolute path to store bootstrap's logs
-linux_logDir    = /builds/logs
-macosx_logDir   = /builds/logs
-win32_logDir    = /builds/logs
-mozillaCvsroot  = staging-stage.build.mozilla.org:/builds/cvsmirrors/staging-1.8/cvsroot
-l10nCvsroot     = staging-stage.build.mozilla.org:/builds/cvsmirrors/staging-1.8/l10n
-mofoCvsroot     = staging-stage.build.mozilla.org:/builds/cvsmirrors/staging-1.8/mofo
-anonCvsroot     = :pserver:anonymous@cvs-mirror.mozilla.org:/cvsroot
-# private staging area 
-stageHome       = /data/cltbld
-sourceDir       = /builds/source
-updateDir       = /builds/updates
-verifyDir       = /builds/verify
-tagDir          = /builds/tags
-configBumpDir   = /builds/config
-symbolDir       = /builds/symbols
-# Build platform, as specified by tinderbox
-linux_buildPlatform   = Linux_2.4.18-14_Depend
-macosx_buildPlatform  = Darwin_8.7.0_Depend
-win32_buildPlatform   = WINNT_5.0_Depend
-linux_l10n_buildPlatform   = Linux_2.4.18-14_Depend
-macosx_l10n_buildPlatform  = Darwin_8.7.0_Depend
-win32_l10n_buildPlatform   = WINNT_5.0_Depend
-from            = staging-bootstrap@mozilla.org
-to              = nrthomas@gmail.com
-cc              = nobody@mozilla.org
-patcherConfig   = moz18-branch-patcher2.cfg
-# Tag to use for building MAR/MBSDIFF and other update tools
-patcherToolsRev = UPDATE_PACKAGING_R7
-linux_verifyConfig    = moz18-thunderbird-linux.cfg
-win32_verifyConfig    = moz18-thunderbird-win32.cfg
-macosx_verifyConfig   = moz18-thunderbird-mac.cfg
-blat            = /cygdrive/c/moztools/bin/blat.exe
-sendmail        = /usr/sbin/sendmail
-# dump Log output to stdout
-dumpLogs        = 1
-# username and server to push update snippets to
-ausUser           = cltbld
-ausServer         = staging-stage.build.mozilla.org
-ausServerUrl      = http://staging-stage.build.mozilla.org
-# Tinderbox server tree that clients should report to
-buildTree       = MozillaTest
-# where QA updates/builds go
-stagingUser     = cltbld
-stagingServer   = staging-prometheus-vm.build.mozilla.org
-# where beta updates/builds go
-ftpServer       = staging-prometheus-vm.build.mozilla.org
-# where release updates/builds go
-bouncerServer   = staging-prometheus-vm.build.mozilla.org
-# username and server to push builds
-sshUser         = cltbld
-sshServer       = staging-prometheus-vm.build.mozilla.org
-# force 1.8 specific behavior
-useTalkback     = 0
-symbolServer     = staging-stage.build.mozilla.org
-symbolServerUser = cltbld
-symbolServerPath = /data/symbols
-symbolServerKey  = /home/cltbld/.ssh/id_rsa
-useTarGz        = 1
-useBetaChannel  = 1
-hgToolsRepo     = https://hg.mozilla.org/users/stage-ffxbld/tools
-hgToolsTag      = default
-hgUsername      = stage-ffxbld
-win32_hgSshKey  = /home/cltbld/.ssh/ffxbld_dsa
-linux_hgSshKey  = /home/cltbld/.ssh/ffxbld_dsa
-macosx_hgSshKey = /Users/cltbld/.ssh/ffxbld_dsa
-bumpMilestoneTxt = 1

mozilla/tools/release/configs/tb-moz180-bootstrap.cfg

@@ -1,74 +0,0 @@
-version         = 1.5.0.14
-milestone       = 1.8.0.14
-# _BUILDn and _RELEASE will be appended as-needed
-productTag      = THUNDERBIRD_1_5_0_14
-# Branch name and pull dates to use for base tag
-branchTag       = MOZILLA_1_8_0_BRANCH
-pullDate        = 2007-12-07 11:34 PST
-l10n_pullDate   = 2007-12-07 11:34 PST
-build           = 1
-# oldVersion and oldRc refer to the previous release
-oldVersion      = 1.5.0.13
-oldBuild        = 1
-appName         = mail
-product         = thunderbird
-# Absolute path to tinderbox build directory
-linux_buildDir       = /builds/tinderbox/Tb-Mozilla1.8.0-Release
-macosx_buildDir      = /builds/tinderbox/Tb-Mozilla1.8.0-Release
-win32_buildDir       = /cygdrive/c/builds/tinderbox/Tb-Mozilla1.8.0-Release
-linux_l10n_buildDir  = /builds/tinderbox/Tb-Mozilla1.8.0-l10n-Release
-macosx_l10n_buildDir = /builds/tinderbox/Tb-Mozilla1.8.0-l10n-Release
-win32_l10n_buildDir  = /cygdrive/c/builds/tinderbox/Tb-Mozilla1.8.0-l10n-Release
-# Absolute path to store bootstrap's logs
-logDir          = /builds/release/logs
-win32_logDir    = /cygdrive/c/builds/release/logs
-mozillaCvsroot  = :ext:cltbld@cvs.mozilla.org:/cvsroot
-l10nCvsroot     = :ext:cltbld@cvs.mozilla.org:/l10n
-mofoCvsroot     = :ext:cltbld@cvs.mozilla.org:/mofo
-anonCvsroot     = :pserver:anonymous@cvs-mirror.mozilla.org:/cvsroot
-# private staging area 
-stageHome       = /data/cltbld
-sourceDir       = /builds/source
-updateDir       = /builds/updates
-verifyDir       = /builds/verify
-tagDir          = /builds/tags
-configBumpDir   = /builds/config
-# Build platform, as specified by tinderbox
-linux_buildPlatform        = Linux_2.4.18-14_Depend 
-macosx_buildPlatform       = Darwin_8.7.0_Depend
-win32_buildPlatform        = WINNT_5.2_Depend
-linux_l10n_buildPlatform   = Linux_2.4.18-14_Depend
-macosx_l10n_buildPlatform  = Darwin_8.7.0_Depend
-win32_l10n_buildPlatform   = WINNT_5.2_Depend
-from            = build@mozilla.org
-to              = nrthomas@gmail.com	
-# cc              = other@example.com
-patcherConfig   = moz180-branch-patcher2.cfg
-# Tag to use for building MAR/MBSDIFF and other update tools
-patcherToolsRev = UPDATE_PACKAGING_R1
-linux_verifyConfig    = moz180-thunderbird-linux.cfg
-macosx_verifyConfig   = moz180-thunderbird-mac.cfg
-win32_verifyConfig    = moz180-thunderbird-win32.cfg
-blat            = /cygdrive/c/moztools/bin/blat.exe
-sendmail        = /usr/lib/sendmail
-# dump Log output to stdout
-dumpLogs        = 1
-# username and server to push update snippets to
-ausUser           = cltbld
-ausServer         = aus2-staging.mozilla.org
-ausServerUrl      = https://aus2.mozilla.org
-# Tinderbox server tree that clients should report to
-buildTree       = MozillaRelease
-# where QA updates/builds go
-stagingUser     = cltbld
-stagingServer   = stage-old.build.mozilla.org
-# where beta updates/builds go
-ftpServer       = ftp.mozilla.org
-# where release updates/builds go
-bouncerServer   = download.mozilla.org
-# username and server to push builds
-sshUser         = cltbld
-sshServer       = stage-old.build.mozilla.org
-# force 1.8 specific behavior
-useTalkback     = 1
-useTarGz        = 1

mozilla/tools/release/configs/tb-moz19-bootstrap.cfg

@@ -1,92 +0,0 @@
-version         = 3.0a2
-# not really, we just need the first three digits and dots for
-# creating the relbranch name
-milestone       = 1.9.0.1
-# _BUILDn and _RELEASE will be appended as-needed
-productTag      = THUNDERBIRD_3_0a2
-# Branch name and pull dates to use for base tag
-branchTag       = HEAD
-#RelbranchOverride = GECKO19b5_20080326_RELBRANCH
-pullDate        = 2008-07-14 12:00 PDT
-l10n_pullDate   = 2008-07-14 12:00 PDT
-build           = 1
-# oldVersion and oldBuild refer to the previous release
-oldVersion      = 3.0a1
-oldBuild        = 1
-appName         = mail
-product         = thunderbird
-# Absolute path to tinderbox build directory
-# The win32 ones are kept short because of a long path issue detailed in
-# bug# 400846
-linux_buildDir       = /builds/tinderbox/Tb-Mozilla1.9-Release
-macosx_buildDir      = /builds/tinderbox/Tb-Mozilla1.9-Release
-win32_buildDir       = /e/tb19rel
-linux_l10n_buildDir  = /builds/tinderbox/Tb-Mozilla1.9-l10n-Release
-macosx_l10n_buildDir = /builds/tinderbox/Tb-Mozilla1.9-l10n-Release
-win32_l10n_buildDir  = /e/tb19l10nrel
-# Absolute path to store bootstrap's logs
-linux_logDir    = /builds/logs
-macosx_logDir   = /builds/logs
-win32_logDir    = /builds/logs
-mozillaCvsroot  = cltbld@cvs.mozilla.org:/cvsroot
-l10nCvsroot     = cltbld@cvs.mozilla.org:/l10n
-mofoCvsroot     = cltbld@cvs.mozilla.org:/mofo
-anonCvsroot     = :pserver:anonymous@cvs-mirror.mozilla.org:/cvsroot
-# private staging area 
-stageHome       = /data/cltbld
-sourceDir       = /builds/source
-updateDir       = /builds/updates
-verifyDir       = /builds/verify
-tagDir          = /builds/tags
-configBumpDir   = /builds/config
-# Build platform, as specified by tinderbox
-linux_buildPlatform   = Linux_2.6.18-53.1.13.el5_Depend
-macosx_buildPlatform  = Darwin_8.8.4_Depend
-win32_buildPlatform   = WINNT_5.2_Depend
-linux_l10n_buildPlatform   = Linux_2.6.18-53.1.13.el5_Depend
-macosx_l10n_buildPlatform  = Darwin_8.8.4_Depend
-win32_l10n_buildPlatform   = WINNT_5.2_Depend
-from            = bootstrap@mozilla.org
-to              = nrthomas@gmail.com
-cc              = gozer@mozillamessaging.com
-patcherConfig   = moz19-branch-patcher2.cfg
-# Tag to use for building MAR/MBSDIFF and other update tools
-patcherToolsRev = UPDATE_PACKAGING_R4
-linux_verifyConfig    = moz19-thunderbird-linux.cfg
-win32_verifyConfig    = moz19-thunderbird-win32.cfg
-macosx_verifyConfig   = moz19-thunderbird-mac.cfg
-blat            = /d/mozilla-build/blat261/full/blat.exe
-sendmail        = /usr/sbin/sendmail
-# dump Log output to stdout
-dumpLogs        = 1
-# symbol server variables
-symbolServer     = dm-symbolpush01.mozilla.org
-symbolServerUser = tbirdbld
-symbolServerPath = /mnt/netapp/breakpad/symbols_tbrd
-win32_symbolServerKey  = /c/Documents and Settings/cltbld/.ssh/tbirdbld_dsa
-linux_symbolServerKey  = /home/cltbld/.ssh/tbirdbld_dsa
-macosx_symbolServerKey  = /Users/cltbld/.ssh/tbirdbld_dsa
-# username and server to push update snippets to
-ausUser           = cltbld
-ausServer         = aus2-staging.mozilla.org
-ausServerUrl      = https://aus2.mozilla.org
-buildTree       = MozillaRelease
-# where QA updates/builds go
-stagingUser     = cltbld
-stagingServer   = stage-old.mozilla.org
-# where beta updates/builds go
-ftpServer       = ftp.mozilla.org
-# where release updates/builds go
-bouncerServer   = download.mozilla.org
-# username and server to push builds
-sshUser         = cltbld
-sshServer       = stage-old.mozilla.org
-useTalkback     = 0
-useCvsCompression = 1
-useBetaChannel  = 0
-hgToolsRepo     = https://hg.mozilla.org/build/tools
-hgToolsTag      = default
-hgUsername      = ffxbld
-win32_hgSshKey  = /c/Documents and Settings/cltbld/.ssh/ffxbld_dsa
-linux_hgSshKey  = /home/cltbld/.ssh/ffxbld_dsa
-macosx_hgSshKey = /Users/cltbld/.ssh/ffxbld_dsa

mozilla/tools/release/configs/tb-moz19-staging-bootstrap.cfg

@@ -1,90 +0,0 @@
-version         = 3.0a2
-milestone       = 1.9.0.1pre
-# _BUILDn and _RELEASE will be appended as-needed
-productTag      = THUNDERBIRD_3_0a2
-# Branch name and pull dates to use for base tag
-branchTag       = HEAD
-#RelbranchOverride = GECKO190_20071207_RELBRANCH
-pullDate        = 2008-06-26 09:40 PDT
-l10n_pullDate   = 2008-06-26 09:40 PDT
-build           = 1
-# oldVersion and oldRc refer to the previous release
-oldVersion      = 3.0a1
-oldBuild        = 1
-appName         = mail
-product         = thunderbird
-# Absolute path to tinderbox build directory
-# The win32 ones are kept short because of a long path issue detailed in
-# bug# 400846
-linux_buildDir       = /builds/tinderbox/Tb-Mozilla1.9-Release
-macosx_buildDir      = /builds/tinderbox/Tb-Mozilla1.9-Release
-win32_buildDir       = /e/tb19rel
-linux_l10n_buildDir  = /builds/tinderbox/Tb-Mozilla1.9-l10n-Release
-macosx_l10n_buildDir = /builds/tinderbox/Tb-Mozilla1.9-l10n-Release
-win32_l10n_buildDir  = /e/tb19l10nrel
-# Absolute path to store bootstrap's logs
-linux_logDir    = /builds/logs
-macosx_logDir   = /builds/logs
-win32_logDir    = /builds/logs
-mozillaCvsroot  = staging-1.9-master.build.mozilla.org:/builds/cvsmirror/cvsroot
-l10nCvsroot     = staging-1.9-master.build.mozilla.org:/builds/cvsmirror/l10n
-mofoCvsroot     = staging-1.9-master.build.mozilla.org:/builds/cvsmirror/mofo
-anonCvsroot	= staging-1.9-master.build.mozilla.org:/builds/cvsmirror/cvsroot
-# private staging area 
-stageHome       = /data/cltbld
-sourceDir       = /builds/source
-updateDir       = /builds/updates
-verifyDir       = /builds/verify
-tagDir          = /builds/tags
-configBumpDir   = /builds/config
-# Build platform, as specified by tinderbox
-linux_buildPlatform   = Linux_2.6.18-53.1.14.el5_Depend
-macosx_buildPlatform  = Darwin_8.8.4_Depend
-win32_buildPlatform   = WINNT_5.2_Depend
-linux_l10n_buildPlatform   = Linux_2.6.18-53.1.14.el5_Depend
-macosx_l10n_buildPlatform  = Darwin_8.8.4_Depend
-win32_l10n_buildPlatform   = WINNT_5.2_Depend
-from            = staging-bootstrap@mozilla.org
-to              = build-announce@mozilla.org
-cc              = nobody@mozilla.org
-patcherConfig   = moz19-branch-patcher2.cfg
-# Tag to use for building MAR/MBSDIFF and other update tools
-patcherToolsRev = UPDATE_PACKAGING_R4
-linux_verifyConfig    = moz19-thunderbird-linux.cfg
-win32_verifyConfig    = moz19-thunderbird-win32.cfg
-macosx_verifyConfig   = moz19-thunderbird-mac.cfg
-blat            = /d/mozilla-build/blat261/full/blat.exe
-sendmail        = /usr/sbin/sendmail
-# dump Log output to stdout
-dumpLogs        = 1
-# symbol server variables
-symbolServer     = staging-1.9-master.build.mozilla.org
-symbolServerUser = cltbld
-symbolServerPath = /data/symbols
-win32_symbolServerKey  = /c/Documents and Settings/cltbld/.ssh/tbirdbld_dsa
-linux_symbolServerKey  = /home/cltbld/.ssh/tbirdbld_dsa
-macosx_symbolServerKey  = /Users/cltbld/.ssh/tbirdbld_dsa
-# username and server to push update snippets to
-ausUser         = cltbld
-ausServer       = staging-1.9-master.build.mozilla.org
-ausServerUrl    = http://staging-1.9-master.build.mozilla.org
-buildTree       = MozillaTest
-# where QA updates/builds go
-stagingUser     = cltbld
-stagingServer   = fx-linux-1.9-slave1.build.mozilla.org
-# where beta updates/builds go
-ftpServer       = fx-linux-1.9-slave1.build.mozilla.org
-# where release updates/builds go
-bouncerServer   = fx-linux-1.9-slave1.build.mozilla.org
-# username and server to push builds
-sshUser         = cltbld
-sshServer       = fx-linux-1.9-slave1.build.mozilla.org
-useTalkback     = 0
-useCvsCompression = 1
-useBetaChannel  = 0
-hgToolsRepo     = https://hg.mozilla.org/users/stage-ffxbld/tools
-hgToolsTag      = default
-hgUsername      = stage-ffxbld
-win32_hgSshKey  = /c/Documents and Settings/cltbld/.ssh/ffxbld_dsa
-linux_hgSshKey  = /home/cltbld/.ssh/ffxbld_dsa
-macosx_hgSshKey = /Users/cltbld/.ssh/ffxbld_dsa

mozilla/tools/release/configs/xr-moz19-bootstrap.cfg

@@ -1,84 +0,0 @@
-version         = 1.9.0.19
-milestone       = 1.9.0.19
-# _BUILDn and _RELEASE will be appended as-needed
-productTag      = FIREFOX_3_0_19
-# Branch name and pull dates to use for base tag
-branchTag       = HEAD
-#RelbranchOverride = GECKO190_20091130_RELBRANCH
-pullDate        = 2010-03-10 13:13 PST
-l10n_pullDate   = 2009-09-22 05:34 PDT
-build           = 1
-# oldVersion and oldRc refer to the previous release
-oldVersion      = 1.9.0.18
-oldBuild        = 1
-appName         = xulrunner
-product         = xulrunner
-# Absolute path to tinderbox build directory
-# The win32 ones are kept short because of a long path issue detailed in
-# bug# 400846
-linux_buildDir       = /builds/tinderbox/Xr-Mozilla1.9-Release
-macosx_buildDir      = /builds/tinderbox/Xr-Mozilla1.9-Release
-win32_buildDir       = /e/xr19rel
-linux_l10n_buildDir  = /builds/tinderbox/Xr-Mozilla1.9-l10n-Release
-macosx_l10n_buildDir = /builds/tinderbox/Xr-Mozilla1.9-l10n-Release
-win32_l10n_buildDir  = /e/xr19l10nrel
-# Absolute path to store bootstrap's logs
-linux_logDir    = /builds/logs
-macosx_logDir   = /builds/logs
-win32_logDir    = /builds/logs
-mozillaCvsroot  = cltbld@cvs.mozilla.org:/cvsroot
-l10nCvsroot     = cltbld@cvs.mozilla.org:/l10n
-mofoCvsroot     = cltbld@cvs.mozilla.org:/mofo
-anonCvsroot	    = :pserver:anonymous@cvs-mirror.mozilla.org:/cvsroot
-# private staging area
-stageHome       = /data/cltbld
-sourceDir       = /builds/source
-updateDir       = /builds/updates
-verifyDir       = /builds/verify
-tagDir          = /builds/tags
-configBumpDir   = /builds/config
-# Build platform, as specified by tinderbox
-linux_buildPlatform   = Linux_2.6.18-53.1.13.el5_Depend
-macosx_buildPlatform  = Darwin_8.8.4_Depend
-win32_buildPlatform   = WINNT_5.2_Depend
-linux_l10n_buildPlatform   = Linux_2.6.18-53.1.13.el5_Depend
-macosx_l10n_buildPlatform  = Darwin_8.8.4_Depend
-win32_l10n_buildPlatform   = WINNT_5.2_Depend
-from            = bootstrap@mozilla.org
-to              = release@mozilla.com 
-cc              = bhearsum@mozilla.com
-patcherConfig   = moz19-branch-patcher2.cfg
-# Tag to use for building MAR/MBSDIFF and other update tools
-patcherToolsRev = UPDATE_PACKAGING_R1
-linux_verifyConfig    = moz19-xulrunner-linux.cfg
-win32_verifyConfig    = moz19-xulrunner-win32.cfg
-macosx_verifyConfig   = moz19-xulrunner-mac.cfg
-blat            = /d/mozilla-build/blat261/full/blat.exe
-sendmail        = /usr/sbin/sendmail
-# dump Log output to stdout
-dumpLogs        = 1
-# symbol server variables
-symbolServer     = stage-old.mozilla.org
-symbolServerUser = xrbld
-symbolServerPath = /mnt/netapp/breakpad/symbols_xr
-win32_symbolServerKey  = /c/Documents and Settings/cltbld/.ssh/xrbld_dsa
-linux_symbolServerKey  = /home/cltbld/.ssh/xrbld_dsa
-macosx_symbolServerKey  = /Users/cltbld/.ssh/xrbld_dsa
-# username and server to push update snippets to
-ausUser           = cltbld
-ausServer         = aus2-staging.mozilla.org
-ausServerUrl      = https://aus2.mozilla.org
-buildTree       = MozillaRelease
-# where QA updates/builds go
-stagingUser     = cltbld
-stagingServer   = stage-old.mozilla.org
-# where beta updates/builds go
-ftpServer       = ftp.mozilla.org
-# where release updates/builds go
-bouncerServer   = download.mozilla.org
-# username and server to push builds
-sshUser         = cltbld
-sshServer       = stage-old.mozilla.org
-useTalkback     = 0
-useCvsCompression = 1
-useBetaChannel  = 0

mozilla/tools/release/configs/xr-moz19-staging-bootstrap.cfg

@@ -1,85 +0,0 @@
-version         = 1.9rc2
-prettyAusVersion = XULRunner 3
-milestone       = 1.9rc2
-# _BUILDn and _RELEASE will be appended as-needed
-productTag      = FIREFOX_3_0rc2
-# Branch name and pull dates to use for base tag
-branchTag       = HEAD
-#RelbranchOverride = GECKO190_20071207_RELBRANCH
-pullDate        = 2008-05-28 17:00 PDT
-l10n_pullDate   = 2008-05-28 13:37 PDT
-build           = 1
-# oldVersion and oldRc refer to the previous release
-oldVersion      = 1.9b4
-oldBuild        = 1
-appName         = xulrunner
-product         = xulrunner
-# Absolute path to tinderbox build directory
-# The win32 ones are kept short because of a long path issue detailed in
-# bug# 400846
-linux_buildDir       = /builds/tinderbox/Xr-Mozilla1.9-Release
-macosx_buildDir      = /builds/tinderbox/Xr-Mozilla1.9-Release
-win32_buildDir       = /e/xr19rel
-linux_l10n_buildDir  = /builds/tinderbox/Xr-Mozilla1.9-l10n-Release
-macosx_l10n_buildDir = /builds/tinderbox/Xr-Mozilla1.9-l10n-Release
-win32_l10n_buildDir  = /e/xr19l10nrel
-# Absolute path to store bootstrap's logs
-linux_logDir    = /builds/logs
-macosx_logDir   = /builds/logs
-win32_logDir    = /builds/logs
-mozillaCvsroot  = staging-1.9-master.build.mozilla.org:/builds/cvsmirror/cvsroot
-l10nCvsroot     = staging-1.9-master.build.mozilla.org:/builds/cvsmirror/l10n
-mofoCvsroot     = staging-1.9-master.build.mozilla.org:/builds/cvsmirror/mofo
-anonCvsroot	= staging-1.9-master.build.mozilla.org:/builds/cvsmirror/cvsroot
-# private staging area
-stageHome       = /data/cltbld
-sourceDir       = /builds/source
-updateDir       = /builds/updates
-verifyDir       = /builds/verify
-tagDir          = /builds/tags
-configBumpDir   = /builds/config
-# Build platform, as specified by tinderbox
-linux_buildPlatform   = Linux_2.6.18-53.1.13.el5_Depend
-macosx_buildPlatform  = Darwin_8.8.4_Depend
-win32_buildPlatform   = WINNT_5.2_Depend
-linux_l10n_buildPlatform   = Linux_2.6.18-53.1.13.el5_Depend
-macosx_l10n_buildPlatform  = Darwin_8.8.4_Depend
-win32_l10n_buildPlatform   = WINNT_5.2_Depend
-from            = staging-bootstrap@mozilla.org
-to              = build-announce@mozilla.org
-cc              = nobody@mozilla.org
-patcherConfig   = moz19-branch-patcher2.cfg
-# Tag to use for building MAR/MBSDIFF and other update tools
-patcherToolsRev = UPDATE_PACKAGING_R1
-linux_verifyConfig    = moz19-xulrunner-linux.cfg
-win32_verifyConfig    = moz19-xulrunner-win32.cfg
-macosx_verifyConfig   = moz19-xulrunner-mac.cfg
-blat            = /d/mozilla-build/blat261/full/blat.exe
-sendmail        = /usr/sbin/sendmail
-# dump Log output to stdout
-dumpLogs        = 1
-# symbol server variables
-symbolServer     = staging-1.9-master.build.mozilla.org
-symbolServerUser = cltbld
-symbolServerPath = /data/symbols
-win32_symbolServerKey  = /c/Documents and Settings/cltbld/.ssh/xrbld_dsa
-linux_symbolServerKey  = /home/cltbld/.ssh/xrbld_dsa
-macosx_symbolServerKey  = /Users/cltbld/.ssh/xrbld_dsa
-# username and server to push update snippets to
-ausUser         = cltbld
-ausServer       = staging-1.9-master.build.mozilla.org
-ausServerUrl    = http://staging-1.9-master.build.mozilla.org
-buildTree       = MozillaTest
-# where QA updates/builds go
-stagingUser     = cltbld
-stagingServer   = fx-linux-1.9-slave1.build.mozilla.org
-# where beta updates/builds go
-ftpServer       = fx-linux-1.9-slave1.build.mozilla.org
-# where release updates/builds go
-bouncerServer   = fx-linux-1.9-slave1.build.mozilla.org
-# username and server to push builds
-sshUser         = cltbld
-sshServer       = fx-linux-1.9-slave1.build.mozilla.org
-useTalkback     = 0
-useCvsCompression = 1
-useBetaChannel  = 0

mozilla/tools/release/release

@@ -1,171 +0,0 @@
-#!/usr/bin/perl -w
-use strict;
-
-use Getopt::Long;
-
-use MozBuild::Util qw(Email);
-
-use Bootstrap::Step::Tag;
-use Bootstrap::Step::TinderConfig;
-use Bootstrap::Step::Build;
-use Bootstrap::Step::Source;
-use Bootstrap::Step::Repack;
-use Bootstrap::Step::PartnerRepack;
-use Bootstrap::Step::PatcherConfig;
-use Bootstrap::Step::Updates;
-use Bootstrap::Step::Stage;
-use Bootstrap::Step::Sign;
-use Bootstrap::Step::PartnerRepack;
-
-my @allSteps = (
-    'Tag',
-    'TinderConfig',
-    'Build',
-    'Source',
-    'Repack',
-    'Sign',
-    'PartnerRepack',
-    'PatcherConfig',
-    'Updates',
-    'Stage',
-    'PartnerRepack'
-);
-
-my %config;
-
-sub main {
-    ProcessArgs();
-    DetermineSteps();
-}
-
-sub ProcessArgs {
-    GetOptions(
-        \%config,
-        "step|s=s", "only|o=s", "list|l", "help|h", "execute|e", "verify|v",
-        "push|p", "announce|a"
-    );
-
-    if ($config{'list'}) {
-        print "Bootstrap listing all steps.\n";
-        for my $step (@allSteps) {
-            print "$step\n";
-        }
-        exit(0);
-    }
-
-    if ($config{'help'}) {
-        print "Usage: release [-l] [-s Step] [-o Step] [-e | -v | -p | -a] [-h]\n";
-        print "    -l list all Steps\n";
-        print "    -s start at Step\n";
-        print "    -o only run one Step\n";
-        print "    -e only run Execute\n";
-        print "    -v only run Verify\n";
-        print "    -p only run Push\n";
-        print "    -a only run Announce\n";
-        print "    -h this usage message\n";
-        exit(0);
-    }
-}
-
-sub DetermineSteps() {
-    my $desiredStep;
-
-    if (defined($config{'step'})) {
-        $desiredStep = $config{'step'};
-        print "Bootstrap skip to step: $desiredStep\n";
-    }
-    if (defined($config{'only'})) {
-        $desiredStep = $config{'only'};
-        print "Bootstrap only run step: $desiredStep\n";
-    }
-
-    my $currentStep = -1;
-    if (defined($desiredStep)) {
-        if (not grep(/^$desiredStep$/, @allSteps)) {
-            die("ASSERT: $desiredStep is not a valid step name.");
-        }
-        for (my $i=0; $i < scalar(@allSteps); $i++) {
-            if ($allSteps[$i] eq "$desiredStep") {
-                $currentStep = $i;
-            }
-        }
-        if ($currentStep == -1) {
-            die("Step $desiredStep not found!\n");
-        }
-    } else {
-        print "Bootstrap running default steps.\n";
-        $currentStep = 0;
-    }
-
-    while ($currentStep < scalar(@allSteps)) {
-        my $stepName = $allSteps[$currentStep];
-        PerformStep( stepName => $stepName );
-        $currentStep += 1;
-        if (defined($config{'only'})) {
-            if ($config{'only'} eq $stepName) {
-                 exit(0);
-            }
-        }
-    }
-
-    print "Bootstrap finished all steps.\n";
-}
-
-
-sub PerformStep {
-    my %args = @_;
-    my $stepName = $args{'stepName'};
-    print "Bootstrap running $stepName\n";
-    my $step = "Bootstrap::Step::$stepName"->new();
-    eval {
-        if (defined($config{'execute'})) {
-            print "Bootstrap only running Execute\n";
-            $step->Execute();
-        } elsif (defined($config{'verify'})) {
-            print "Bootstrap only running Verify\n";
-            $step->Verify();
-        } elsif (defined($config{'push'})) {
-            print "Bootstrap only running Push\n";
-            $step->Push();
-        } elsif (defined($config{'announce'})) {
-            print "Bootstrap only running Announce\n";
-            $step->Announce();
-        } else {
-            $step->Execute();
-            $step->Verify();
-            $step->Push();
-            $step->Announce();
-        }
-    };
-    if ($@) {
-        my $error = $@;
-        print "Step $stepName died: $error";
-        my $conf = new Bootstrap::Config();
-        my $from = $conf->Get(var => 'from');
-        my $to = $conf->Get(var => 'to');
-        my @ccList = $conf->Exists(var => 'cc') ? split(/[,\s]+/, 
-          $conf->Get(var => 'cc')) : ();
-        my $blat = $conf->Get(var => 'blat');
-        my $sendmail = $conf->Get(var => 'sendmail');
-        my $hostname = $conf->SystemInfo(var => 'hostname');
-
-        eval {
-            Email(
-              blat => $blat,
-              sendmail => $sendmail,
-              from => $from,
-              to => $to,
-              cc => \@ccList,
-              subject => "$hostname - Step $stepName died: $error",
-              message => "$hostname - Step $stepName died: $error",
-            );
-            exit(1);
-        };
-        if ($@) {
-            print "Unable to email failure message to $to: $@";
-            exit(1);
-        }
-    }
-}
-
-main();

mozilla/tools/release/t/Bootstrap/Step/Dummy.pm

@@ -1,74 +0,0 @@
-package t::Bootstrap::Step::Dummy;
-use Bootstrap::Step;
-use Bootstrap::Config;
-@ISA = ("Bootstrap::Step");
-
-sub Execute {
-    my $this = shift;
-
-    my $config = new Bootstrap::Config();
-    my $productTag = $config->Get(var => 'productTag');
-
-    if (not $productTag) {
-        print("testfailed, could not get productTag var from Config: $!\n");
-    }
-
-    eval {
-        $this->Shell(cmd => 'echo', 
-                     cmdArgs => ['success'],
-                     logFile => 't/test.log' 
-        );
-    };
-    if ($@) {
-        print("testfailed, shell call to echo success to test log should not throw exception: $!\n");
-    }
-
-    eval {
-        $this->CheckLog( 
-            log => './t/test.log',
-            checkForOnly => '^success',
-        );
-    };
-  
-    if ($@) {
-        print("testfailed, should not throw exception, log contains only success: $!\n");
-    }
-
-
-    eval {
-        $this->Shell( cmd => 'true', logFile => 't/test.log' );
-    };
-
-    if ($@) {
-        print("testfailed, shell call to true should not throw exception: $!\n");
-    }
-
-    eval {
-        $this->Shell( cmd => 'false', logFile => 't/test.log' );
-    };
-
-    if (not $@) {
-        print("testfailed, shell call to false should throw exception: $!\n");
-    }
-
-    eval {
-        $this->CheckLog( 
-            log => './t/test.log',
-            checkFor => '^success',
-        );
-    };
-  
-    if ($@) {
-        print("testfailed, should throw exception, log contains success: $!\n");
-    }
-
-}
-
-sub Verify {
-    my $this = shift;
-    $this->Shell(
-      cmd => 'echo', cmdArgs => ['Verify', 'tag'], logFile => 't/test.log');
-    $this->Log(msg => 'finished');
-}
-
-1;

mozilla/tools/release/t/test.pl

@@ -1,35 +0,0 @@
-#!/usr/bin/perl -w
-use strict;
-use Bootstrap::Step;
-use Bootstrap::Config;
-use t::Bootstrap::Step::Dummy;
-use MozBuild::Util;
-
-my $config = new Bootstrap::Config();
-unless ($config->Exists(sysvar => 'buildDir')) {
-  print "FAIL: buildDir should exist\n";
-}
-unless ($config->Get(sysvar => 'buildDir')) {
-  print "FAIL: buildDir should be retrievable\n";
-}
-my $sysname = $config->SystemInfo(var => 'sysname');
-unless ($sysname) {
-  print "FAIL: sysname should exist\n";
-} 
-
-my $step = t::Bootstrap::Step::Dummy->new();
-
-$step->Execute();
-$step->Verify();
-$step->Push();
-$step->Announce();
-
-eval {
-    $config->Bump(
-      configFile => 't/tinder-config.pl',
-    );
-};
-
-if ($@) {
-    print("FAIL: should not have died, all matches\n");
-}

mozilla/tools/release/t/tinder-config.pl.orig

@@ -1,6 +0,0 @@
-# CONFIG: bar %mozillaCvsroot%
-bar
-# CONFIG: bar %tagDir%%verifyDir%
-baz
-# CONFIG: bar %tagDir%_%verifyDir%
-bla

mozilla/webtools/bugzilla/Attachment.pm

@@ -0,0 +1,97 @@
+# -*- 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 the Bugzilla Bug Tracking System.
+#
+# The Initial Developer of the Original Code is Netscape Communications
+# Corporation. Portions created by Netscape are
+# Copyright (C) 1998 Netscape Communications Corporation. All
+# Rights Reserved.
+#
+# Contributor(s): Terry Weissman <terry@mozilla.org>
+#                 Myk Melez <myk@mozilla.org>
+
+############################################################################
+# Module Initialization
+############################################################################
+
+use diagnostics;
+use strict;
+
+package Attachment;
+
+# This module requires that its caller have said "require CGI.pl" to import
+# relevant functions from that script and its companion globals.pl.
+
+############################################################################
+# Functions
+############################################################################
+
+sub query
+{
+  # Retrieves and returns an array of attachment records for a given bug. 
+  # This data should be given to attachment/list.atml in an
+  # "attachments" variable.
+  my ($bugid) = @_;
+
+  my $in_editbugs = &::UserInGroup("editbugs");
+
+  # Retrieve a list of attachments for this bug and write them into an array
+  # of hashes in which each hash represents a single attachment.
+  &::SendSQL("
+              SELECT attach_id, creation_ts, mimetype, description, ispatch, 
+               isobsolete, submitter_id 
+              FROM attachments WHERE bug_id = $bugid ORDER BY attach_id
+            ");
+  my @attachments = ();
+  while (&::MoreSQLData()) {
+    my %a;
+    my $submitter_id;
+    ($a{'attachid'}, $a{'date'}, $a{'contenttype'}, $a{'description'},
+     $a{'ispatch'}, $a{'isobsolete'}, $submitter_id) = &::FetchSQLData();
+
+    # Format the attachment's creation/modification date into a standard
+    # format (YYYY-MM-DD HH:MM)
+    if ($a{'date'} =~ /^(\d\d\d\d)(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)$/) {
+        $a{'date'} = "$1-$2-$3 $4:$5";
+    }
+
+    # Retrieve a list of status flags that have been set on the attachment.
+    &::PushGlobalSQLState();
+    &::SendSQL(" 
+                SELECT   name 
+                FROM     attachstatuses, attachstatusdefs 
+                WHERE    attach_id = $a{'attachid'} 
+                AND      attachstatuses.statusid = attachstatusdefs.id
+                ORDER BY sortkey
+              ");
+    my @statuses = ();
+    while (&::MoreSQLData()) { 
+      my ($status) = &::FetchSQLData(); 
+      push @statuses , $status;
+    }
+    $a{'statuses'} = \@statuses;
+    &::PopGlobalSQLState();
+
+    # We will display the edit link if the user can edit the attachment;
+    # ie the are the submitter, or they have canedit.
+    # Also show the link if the user is not logged in - in that cae,
+    # They'll be prompted later
+    $a{'canedit'} = ($::userid == 0 || $submitter_id == $::userid ||
+                     $in_editbugs);
+    push @attachments, \%a;
+  }
+  
+  return \@attachments;  
+}
+
+1;

mozilla/webtools/bugzilla/Bug.pm

@@ -0,0 +1,547 @@
+# -*- 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 the Bugzilla Bug Tracking System.
+#
+# The Initial Developer of the Original Code is Netscape Communications
+# Corporation. Portions created by Netscape are
+# Copyright (C) 1998 Netscape Communications Corporation. All
+# Rights Reserved.
+#
+# Contributor(s): Dawn Endico    <endico@mozilla.org>
+#                 Terry Weissman <terry@mozilla.org>
+#                 Chris Yeh      <cyeh@bluemartini.com>
+
+use diagnostics;
+use strict;
+
+use DBI;
+use RelationSet;
+use vars qw($unconfirmedstate $legal_keywords);
+require "globals.pl";
+require "CGI.pl";
+package Bug;
+use CGI::Carp qw(fatalsToBrowser);
+my %ok_field;
+
+for my $key (qw (bug_id product version rep_platform op_sys bug_status 
+                resolution priority bug_severity component assigned_to
+                reporter bug_file_loc short_desc target_milestone 
+                qa_contact status_whiteboard creation_ts groupset 
+                delta_ts votes whoid usergroupset comment query error) ){
+    $ok_field{$key}++;
+    }
+
+# create a new empty bug
+#
+sub new {
+  my $type = shift();
+  my %bug;
+
+  # create a ref to an empty hash and bless it
+  #
+  my $self = {%bug};
+  bless $self, $type;
+
+  # construct from a hash containing a bug's info
+  #
+  if ($#_ == 1) {
+    $self->initBug(@_);
+  } else {
+    confess("invalid number of arguments \($#_\)($_)");
+  }
+
+  # bless as a Bug
+  #
+  return $self;
+}
+
+
+
+# dump info about bug into hash unless user doesn't have permission
+# user_id 0 is used when person is not logged in.
+#
+sub initBug  {
+  my $self = shift();
+  my ($bug_id, $user_id) = (@_);
+
+  my $old_bug_id = $bug_id;
+  if ((! defined $bug_id) || (!$bug_id) || (!&::detaint_natural($bug_id))) {
+      # no bug number given
+      $self->{'bug_id'} = $old_bug_id;
+      $self->{'error'} = "InvalidBugId";
+      return $self;
+  }
+
+# default userid 0, or get DBID if you used an email address
+  unless (defined $user_id) {
+    $user_id = 0;
+  }
+  else {
+     if ($user_id =~ /^\@/) {
+        $user_id = &::DBname_to_id($user_id); 
+     }
+  }
+     
+
+  &::ConnectToDatabase();
+  &::GetVersionTable();
+
+  # this verification should already have been done by caller
+  # my $loginok = quietly_check_login();
+
+
+  $self->{'whoid'} = $user_id;
+  &::SendSQL("SELECT groupset FROM profiles WHERE userid=$self->{'whoid'}");
+  my $usergroupset = &::FetchOneColumn();
+  if (!$usergroupset) { $usergroupset = '0' }
+  $self->{'usergroupset'} = $usergroupset;
+
+  # Check to see if we can see this bug
+  if (!&::CanSeeBug($bug_id, $user_id, $usergroupset)) {
+      # Permission denied to see bug 
+      $self->{'bug_id'} = $old_bug_id;
+      $self->{'error'} = "PermissionDenied";
+      return $self;
+  }
+
+    my $query = "";
+    if ($::driver eq 'mysql') {
+        $query = "
+    select
+      bugs.bug_id, product, version, rep_platform, op_sys, bug_status,
+      resolution, priority, bug_severity, component, assigned_to, reporter,
+      bug_file_loc, short_desc, target_milestone, qa_contact,
+      status_whiteboard, date_format(creation_ts,'%Y-%m-%d %H:%i'),
+      groupset, delta_ts, sum(votes.count)
+    from bugs left join votes using(bug_id)
+    where bugs.bug_id = $bug_id
+    group by bugs.bug_id";
+    } elsif ($::driver eq 'Pg') {
+        $query = "
+    select
+      bugs.bug_id, product, version, rep_platform, op_sys, bug_status,
+      resolution, priority, bug_severity, component, assigned_to, reporter,
+      bug_file_loc, short_desc, target_milestone, qa_contact,
+      status_whiteboard, creation_ts,
+      groupset, delta_ts, sum(votes.count)
+    from bugs left join votes using(bug_id)
+    where bugs.bug_id = $bug_id
+    and (bugs.groupset & int8($usergroupset)) = bugs.groupset
+    group by bugs.bug_id, product, version, rep_platform, op_sys, bug_status,
+         resolution, priority, bug_severity, component, assigned_to, reporter,
+         bug_file_loc, short_desc, target_milestone, qa_contact, status_whiteboard,
+         creation_ts, groupset, delta_ts";
+    }
+
+  &::SendSQL($query);
+  my @row;
+
+  if (@row = &::FetchSQLData()) {
+    my $count = 0;
+    my %fields;
+    foreach my $field ("bug_id", "product", "version", "rep_platform",
+                       "op_sys", "bug_status", "resolution", "priority",
+                       "bug_severity", "component", "assigned_to", "reporter",
+                       "bug_file_loc", "short_desc", "target_milestone",
+                       "qa_contact", "status_whiteboard", "creation_ts",
+                       "groupset", "delta_ts", "votes") {
+        $fields{$field} = shift @row;
+        if ($fields{$field}) {
+            $self->{$field} = $fields{$field};
+        }
+        $count++;
+    }
+  } else {
+    &::SendSQL("select groupset from bugs where bug_id = $bug_id");
+    if (@row = &::FetchSQLData()) {
+      $self->{'bug_id'} = $bug_id;
+      $self->{'error'} = "NotPermitted";
+      return $self;
+    } else {
+      $self->{'bug_id'} = $bug_id;
+      $self->{'error'} = "NotFound";
+      return $self;
+    }
+  }
+
+  $self->{'assigned_to'} = &::DBID_to_name($self->{'assigned_to'});
+  $self->{'reporter'} = &::DBID_to_name($self->{'reporter'});
+
+  my $ccSet = new RelationSet;
+  $ccSet->mergeFromDB("select who from cc where bug_id=$bug_id");
+  my @cc = $ccSet->toArrayOfStrings();
+  if (@cc) {
+    $self->{'cc'} = \@cc;
+  }
+
+  if (&::Param("useqacontact") && (defined $self->{'qa_contact'}) ) {
+    my $name = $self->{'qa_contact'} > 0 ? &::DBID_to_name($self->{'qa_contact'}) :"";
+    if ($name) {
+      $self->{'qa_contact'} = $name;
+    }
+  }
+
+  if (@::legal_keywords) {
+    &::SendSQL("SELECT keyworddefs.name 
+              FROM keyworddefs, keywords
+             WHERE keywords.bug_id = $bug_id 
+               AND keyworddefs.id = keywords.keywordid
+          ORDER BY keyworddefs.name");
+    my @list;
+    while (&::MoreSQLData()) {
+        push(@list, &::FetchOneColumn());
+    }
+    if (@list) {
+      $self->{'keywords'} = join(', ', @list);
+    }
+  }
+
+  &::SendSQL("select attach_id, creation_ts, description 
+           from attachments 
+           where bug_id = $bug_id");
+  my @attachments;
+  while (&::MoreSQLData()) {
+    my ($attachid, $date, $desc) = (&::FetchSQLData());
+    if ($date =~ /^(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)$/) {
+        $date = "$3/$4/$2 $5:$6";
+      my %attach;
+      $attach{'attachid'} = $attachid;
+      $attach{'date'} = $date;
+      $attach{'desc'} = $desc;
+      push @attachments, \%attach;
+    }
+  }
+  if (@attachments) {
+    $self->{'attachments'} = \@attachments;
+  }
+
+  &::SendSQL("select bug_id, who, bug_when, thetext 
+           from longdescs 
+           where bug_id = $bug_id");
+  my @longdescs;
+  while (&::MoreSQLData()) {
+    my ($bug_id, $who, $bug_when, $thetext) = (&::FetchSQLData());
+    my %longdesc;
+    $longdesc{'who'} = $who;
+    $longdesc{'bug_when'} = $bug_when;
+    $longdesc{'thetext'} = $thetext;
+    push @longdescs, \%longdesc;
+  }
+  if (@longdescs) {
+    $self->{'longdescs'} = \@longdescs;
+  }
+
+  if (&::Param("usedependencies")) {
+    my @depends = EmitDependList("blocked", "dependson", $bug_id);
+    if ( @depends ) {
+      $self->{'dependson'} = \@depends;
+    }
+    my @blocks = EmitDependList("dependson", "blocked", $bug_id);
+    if ( @blocks ) {
+      $self->{'blocks'} = \@blocks;
+    }
+  }
+
+  return $self;
+}
+
+
+
+# given a bug hash, emit xml for it. with file header provided by caller
+#
+sub emitXML {
+  ( $#_ == 0 ) || confess("invalid number of arguments");
+  my $self = shift();
+  my $xml;
+
+
+  if (exists $self->{'error'}) {
+    $xml .= "<bug error=\"$self->{'error'}\">\n";
+    $xml .= "  <bug_id>$self->{'bug_id'}</bug_id>\n";
+    $xml .= "</bug>\n";
+    return $xml;
+  }
+
+  $xml .= "<bug>\n";
+
+  foreach my $field ("bug_id", "bug_status", "product",
+      "priority", "version", "rep_platform", "assigned_to", "delta_ts", 
+      "component", "reporter", "target_milestone", "bug_severity", 
+      "creation_ts", "qa_contact", "op_sys", "resolution", "bug_file_loc",
+      "short_desc", "keywords", "status_whiteboard") {
+    if ($self->{$field}) {
+      $xml .= "  <$field>" . QuoteXMLChars($self->{$field}) . "</$field>\n";
+    }
+  }
+
+  foreach my $field ("dependson", "blocks", "cc") {
+    if (defined $self->{$field}) {
+      for (my $i=0 ; $i < @{$self->{$field}} ; $i++) {
+        $xml .= "  <$field>" . $self->{$field}[$i] . "</$field>\n";
+      }
+    }
+  }
+
+  if (defined $self->{'longdescs'}) {
+    for (my $i=0 ; $i < @{$self->{'longdescs'}} ; $i++) {
+      $xml .= "  <long_desc>\n"; 
+      $xml .= "   <who>" . &::DBID_to_name($self->{'longdescs'}[$i]->{'who'}) 
+                         . "</who>\n"; 
+      $xml .= "   <bug_when>" . $self->{'longdescs'}[$i]->{'bug_when'} 
+                              . "</bug_when>\n"; 
+      $xml .= "   <thetext>" . QuoteXMLChars($self->{'longdescs'}[$i]->{'thetext'})
+                             . "</thetext>\n"; 
+      $xml .= "  </long_desc>\n"; 
+    }
+  }
+
+  if (defined $self->{'attachments'}) {
+    for (my $i=0 ; $i < @{$self->{'attachments'}} ; $i++) {
+      $xml .= "  <attachment>\n"; 
+      $xml .= "    <attachid>" . $self->{'attachments'}[$i]->{'attachid'}
+                              . "</attachid>\n"; 
+      $xml .= "    <date>" . $self->{'attachments'}[$i]->{'date'} . "</date>\n"; 
+      $xml .= "    <desc>" . QuoteXMLChars($self->{'attachments'}[$i]->{'desc'}) . "</desc>\n"; 
+    # $xml .= "    <type>" . $self->{'attachments'}[$i]->{'type'} . "</type>\n"; 
+    # $xml .= "    <data>" . $self->{'attachments'}[$i]->{'data'} . "</data>\n"; 
+      $xml .= "  </attachment>\n"; 
+    }
+  }
+
+  $xml .= "</bug>\n";
+  return $xml;
+}
+
+sub EmitDependList {
+  my ($myfield, $targetfield, $bug_id) = (@_);
+  my @list;
+  &::SendSQL("select dependencies.$targetfield, bugs.bug_status
+           from dependencies, bugs
+           where dependencies.$myfield = $bug_id
+             and bugs.bug_id = dependencies.$targetfield
+           order by dependencies.$targetfield");
+  while (&::MoreSQLData()) {
+    my ($i, $stat) = (&::FetchSQLData());
+    push @list, $i;
+  }
+  return @list;
+}
+
+sub QuoteXMLChars {
+  $_[0] =~ s/&/&amp;/g;
+  $_[0] =~ s/</&lt;/g;
+  $_[0] =~ s/>/&gt;/g;
+  $_[0] =~ s/'/&apos;/g;
+  $_[0] =~ s/"/&quot;/g;
+# $_[0] =~ s/([\x80-\xFF])/&XmlUtf8Encode(ord($1))/ge;
+  return($_[0]);
+}
+
+sub XML_Header {
+  my ($urlbase, $version, $maintainer, $exporter) = (@_);
+
+  my $xml;
+  $xml = "<?xml version=\"1.0\" standalone=\"yes\"?>\n";
+  $xml .= "<!DOCTYPE bugzilla SYSTEM \"$urlbase";
+  if (! ($urlbase =~ /.+\/$/)) {
+    $xml .= "/";
+  }
+  $xml .= "bugzilla.dtd\">\n";
+  $xml .= "<bugzilla";
+  if (defined $exporter) {
+    $xml .= " exporter=\"$exporter\"";
+  }
+  $xml .= " version=\"$version\"";
+  $xml .= " urlbase=\"$urlbase\"";
+  $xml .= " maintainer=\"$maintainer\">\n";
+  return ($xml);
+}
+
+
+sub XML_Footer {
+  return ("</bugzilla>\n");
+}
+
+sub UserInGroup {
+    my $self = shift();
+    my ($groupname) = (@_);
+    if ($self->{'usergroupset'} eq "0") {
+        return 0;
+    }
+    &::ConnectToDatabase();
+    &::SendSQL("select (group_bit & int8($self->{'usergroupset'})) != 0 from groups where name = " 
+           . &::SqlQuote($groupname));
+    my $bit = &::FetchOneColumn();
+    if ($bit) {
+        return 1;
+    }
+    return 0;
+}
+
+sub CanChangeField {
+   my $self = shift();
+   my ($f, $oldvalue, $newvalue) = (@_);
+   my $UserInEditGroupSet = -1;
+   my $UserInCanConfirmGroupSet = -1;
+   my $ownerid;
+   my $reporterid;
+   my $qacontactid;
+
+    if ($f eq "assigned_to" || $f eq "reporter" || $f eq "qa_contact") {
+        if ($oldvalue =~ /^\d+$/) {
+            if ($oldvalue == 0) {
+                $oldvalue = "";
+            } else {
+                $oldvalue = &::DBID_to_name($oldvalue);
+            }
+        }
+    }
+    if ($oldvalue eq $newvalue) {
+        return 1;
+    }
+    if (&::trim($oldvalue) eq &::trim($newvalue)) {
+        return 1;
+    }
+    if ($f =~ /^longdesc/) {
+        return 1;
+    }
+    if ($UserInEditGroupSet < 0) {
+        $UserInEditGroupSet = UserInGroup($self, "editbugs");
+    }
+    if ($UserInEditGroupSet) {
+        return 1;
+    }
+    &::SendSQL("SELECT reporter, assigned_to, qa_contact FROM bugs " .
+                "WHERE bug_id = $self->{'bug_id'}");
+    ($reporterid, $ownerid, $qacontactid) = (&::FetchSQLData());
+
+    # Let reporter change bug status, even if they can't edit bugs.
+    # If reporter can't re-open their bug they will just file a duplicate.
+    # While we're at it, let them close their own bugs as well.
+    if ( ($f eq "bug_status") && ($self->{'whoid'} eq $reporterid) ) {
+        return 1;
+    }
+    if ($f eq "bug_status" && $newvalue ne $::unconfirmedstate &&
+        &::IsOpenedState($newvalue)) {
+
+        # Hmm.  They are trying to set this bug to some opened state
+        # that isn't the UNCONFIRMED state.  Are they in the right
+        # group?  Or, has it ever been confirmed?  If not, then this
+        # isn't legal.
+
+        if ($UserInCanConfirmGroupSet < 0) {
+            $UserInCanConfirmGroupSet = &::UserInGroup("canconfirm");
+        }
+        if ($UserInCanConfirmGroupSet) {
+            return 1;
+        }
+        &::SendSQL("SELECT everconfirmed FROM bugs WHERE bug_id = $self->{'bug_id'}");
+        my $everconfirmed = FetchOneColumn();
+        if ($everconfirmed) {
+            return 1;
+        }
+    } elsif ($reporterid eq $self->{'whoid'} || $ownerid eq $self->{'whoid'} ||
+             $qacontactid eq $self->{'whoid'}) {
+        return 1;
+    }
+    $self->{'error'} = "
+Only the owner or submitter of the bug, or a sufficiently
+empowered user, may make that change to the $f field."
+}
+
+sub Collision {
+    my $self = shift();
+    my $write = "WRITE";        # Might want to make a param to control
+                                # whether we do LOW_PRIORITY ...
+    if ($::driver eq 'mysql') {
+        &::SendSQL("LOCK TABLES bugs $write, bugs_activity $write, cc $write, " .
+                "cc AS selectVisible_cc $write, " .
+                "profiles $write, dependencies $write, votes $write, " .
+                "keywords $write, longdescs $write, fielddefs $write, " .
+                "keyworddefs READ, groups READ, attachments READ, products READ");
+    } 
+    &::SendSQL("SELECT delta_ts FROM bugs where bug_id=$self->{'bug_id'}");
+    my $delta_ts = &::FetchOneColumn();
+    if ($::driver eq 'mysql') {
+        &::SendSQL("unlock tables");
+    }
+    if ($self->{'delta_ts'} ne $delta_ts) {
+       return 1;
+    }
+    else {
+       return 0;
+    }
+}
+
+sub AppendComment  {
+    my $self = shift();
+    my ($comment) = (@_);
+    $comment =~ s/\r\n/\n/g;     # Get rid of windows-style line endings.
+    $comment =~ s/\r/\n/g;       # Get rid of mac-style line endings.
+    if ($comment =~ /^\s*$/) {  # Nothin' but whitespace.
+        return;
+    }
+
+    &::SendSQL("INSERT INTO longdescs (bug_id, who, bug_when, thetext) " .
+            "VALUES($self->{'bug_id'}, $self->{'whoid'}, now(), " . &::SqlQuote($comment) . ")");
+
+    &::SendSQL("UPDATE bugs SET delta_ts = now() WHERE bug_id = $self->{'bug_id'}");
+}
+
+
+#from o'reilley's Programming Perl
+sub display {
+    my $self = shift;
+    my @keys;
+    if (@_ == 0) {                  # no further arguments
+        @keys = sort keys(%$self);
+    }  else {
+        @keys = @_;                 # use the ones given
+    }
+    foreach my $key (@keys) {
+        print "\t$key => $self->{$key}\n";
+    }
+}
+
+sub CommitChanges {
+
+#snapshot bug
+#snapshot dependencies
+#check can change fields
+#check collision
+#lock and change fields
+#notify through mail
+
+}
+
+sub AUTOLOAD {
+  use vars qw($AUTOLOAD);
+  my $self = shift;
+  my $type = ref($self) || $self;
+  my $attr = $AUTOLOAD;
+
+  $attr =~ s/.*:://;
+  return unless $attr=~ /[^A-Z]/;
+  if (@_) {
+    $self->{$attr} = shift;
+    return;
+  }
+  confess ("invalid bug attribute $attr") unless $ok_field{$attr};
+  if (defined $self->{$attr}) {
+    return $self->{$attr};
+  } else {
+    return '';
+  }
+}
+
+1;

mozilla/webtools/bugzilla/README

@@ -0,0 +1,16 @@
+* This README is no longer used to house installation instructions.  Instead,
+it contains pointers to where you may find the information you need.
+
+* Installation instructions are now found in docs/, with a variety of document
+types available.  Please refer to these documents when installing, configuring,
+and maintaining your Bugzilla installation.  A helpful starting point is
+docs/txt/Bugzilla-Guide.txt, or with a web browser at docs/html/index.html.
+
+* Release notes for people upgrading to a new version of Bugzilla are
+available at docs/rel_notes.txt.
+
+* If you wish to contribute to the documentation, please read docs/README.docs.
+
+* The Bugzilla web site is at "http://www.mozilla.org/projects/bugzilla/".
+This site will contain the latest Bugzilla information, including how to
+report bugs and how to get help with Bugzilla.

mozilla/webtools/bugzilla/RelationSet.pm

@@ -0,0 +1,268 @@
+# 
+# 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 the Bugzilla Bug Tracking System.
+# 
+# The Initial Developer of the Original Code is Netscape Communications
+# Corporation. Portions created by Netscape are
+# Copyright (C) 2000 Netscape Communications Corporation.  All
+# Rights Reserved.
+# 
+# Contributor(s): Dan Mosedale <dmose@mozilla.org>
+#                 Terry Weissman <terry@mozilla.org>
+#                 Dave Miller <justdave@syndicomm.com>
+
+# This object models a set of relations between one item and a group
+# of other items.  An example is the set of relations between one bug
+# and the users CCed on that bug.  Currently, the relation objects are
+# expected to be bugzilla userids.  However, this could and perhaps
+# should be generalized to work with non userid objects, such as
+# keywords associated with a bug.  That shouldn't be hard to do; it
+# might involve turning this into a virtual base class, and having
+# UserSet and KeywordSet types that inherit from it.
+
+use diagnostics;
+use strict;
+
+# Everything that uses RelationSet should already have globals.pl loaded
+# so we don't want to load it here.  Doing so causes a loop in Perl because
+# globals.pl turns around and does a 'use RelationSet'
+# See http://bugzilla.mozilla.org/show_bug.cgi?id=72862
+#require "globals.pl";
+
+package RelationSet;
+use CGI::Carp qw(fatalsToBrowser);
+
+# create a new empty RelationSet
+#
+sub new {
+  my $type = shift();
+
+  # create a ref to an empty hash and bless it
+  #
+  my $self = {};
+  bless $self, $type;
+
+  # construct from a comma-delimited string
+  # 
+  if ($#_ == 0) {
+    $self->mergeFromString($_[0]);
+  }
+  # unless this was a constructor for an empty list, somebody screwed up.
+  #
+  elsif ( $#_ != -1 ) {
+    confess("invalid number of arguments");
+  }
+
+  # bless as a RelationSet
+  #
+  return $self;
+}
+
+# Assumes that the set of relations "FROM $table WHERE $constantSql and 
+# $column = $value" is currently represented by $self, and this set should
+# be updated to look like $other.  
+#
+# Returns an array of two strings, one INSERT and one DELETE, which will
+# make this change.  Either or both strings may be the empty string,
+# meaning that no INSERT or DELETE or both (respectively) need to be done.
+#
+# THE CALLER IS RESPONSIBLE FOR ANY DESIRED LOCKING AND/OR CONSISTENCY 
+# CHECKS (not to mention doing the SendSQL() calls).
+#
+sub generateSqlDeltas {
+  ($#_ == 5) || confess("invalid number of arguments");
+  my ( $self, # instance ptr to set representing the existing state
+       $endState, # instance ptr to set representing the desired state
+       $table, # table where these relations are kept
+       $invariantName, # column held const for a RelationSet (often "bug_id")
+       $invariantValue, # what to hold the above column constant at
+       $columnName # the column which varies (often a userid)
+     ) = @_;
+
+  # construct the insert list by finding relations which exist in the
+  # end state but not the current state.
+  #
+  my @endStateRelations = keys(%$endState);
+  my @insertList = ();
+  foreach ( @endStateRelations ) {
+    push ( @insertList, $_ ) if ( ! exists $$self{"$_"} );
+  }
+
+  # we've built the list.  If it's non-null, add required sql chrome.
+  #
+  my $sqlInsert="";
+  if ( $#insertList > -1 ) {
+    $sqlInsert = "INSERT INTO $table ($invariantName, $columnName) VALUES " .
+      join (",", 
+            map ( "($invariantValue, $_)" , @insertList ) 
+           );
+  }
+     
+  # construct the delete list by seeing which relations exist in the
+  # current state but not the end state
+  #
+  my @selfRelations = keys(%$self);
+  my @deleteList = ();
+  foreach ( @selfRelations ) {
+    push (@deleteList, $_) if ( ! exists $$endState{"$_"} );
+  }
+
+  # we've built the list.  if it's non-empty, add required sql chrome.
+  #
+  my $sqlDelete = "";
+  if ( $#deleteList > -1 ) {
+    $sqlDelete = "DELETE FROM $table WHERE $invariantName = $invariantValue " .
+      "AND $columnName IN ( " . join (",", @deleteList) . " )";
+  } 
+
+  return ($sqlInsert, $sqlDelete);
+}
+
+# compare the current object with another.  
+#
+sub isEqual {
+  ($#_ == 1) || confess("invalid number of arguments");
+  my $self = shift();
+  my $other = shift();
+
+  # get arrays of the keys for faster processing
+  #
+  my @selfRelations = keys(%$self);
+  my @otherRelations = keys(%$other);
+ 
+  # make sure the arrays are the same size
+  #
+  return 0 if ( $#selfRelations != $#otherRelations );
+
+  # bail out if any of the elements are different
+  #
+  foreach my $relation ( @selfRelations ) {
+    return 0 if ( !exists $$other{$relation})
+  }
+
+  # we made it!
+  #
+  return 1;
+
+}
+
+# merge the results of a SQL command into this set
+#
+sub mergeFromDB {
+  ( $#_ == 1 ) || confess("invalid number of arguments");
+  my $self = shift();
+
+  &::SendSQL(shift());
+  while (my @row = &::FetchSQLData()) {
+    $$self{$row[0]} = 1;
+  }
+
+  return;
+}
+
+# merge a set in string form into this set
+#
+sub mergeFromString {
+  ($#_ == 1) || confess("invalid number of arguments");
+  my $self = shift();
+
+  # do the merge
+  #
+  foreach my $person (split(/[ ,]/, shift())) {
+    if ($person ne "") {
+      $$self{&::DBNameToIdAndCheck($person)} = 1;
+    }
+  }
+}
+
+# remove a set in string form from this set
+#
+sub removeItemsInString {
+  ($#_ == 1) || confess("invalid number of arguments");
+  my $self = shift();
+
+  # do the merge
+  #
+  foreach my $person (split(/[ ,]/, shift())) {
+    if ($person ne "") {
+      my $dbid = &::DBNameToIdAndCheck($person);
+      if (exists $$self{$dbid}) {
+        delete $$self{$dbid};
+      }
+    }
+  }
+}
+
+# remove a set in array form from this set
+#
+sub removeItemsInArray {
+  ($#_ > 0) || confess("invalid number of arguments");
+  my $self = shift();
+
+  # do the merge
+  #
+  while (my $person = shift()) {
+    if ($person ne "") {
+      my $dbid = &::DBNameToIdAndCheck($person);
+      if (exists $$self{$dbid}) {
+        delete $$self{$dbid};
+      }
+    }
+  }
+}
+
+# return the number of elements in this set
+#
+sub size {
+  my $self = shift();
+
+  my @k = keys(%$self);
+  return $#k++;
+}
+
+# return this set in array form
+#
+sub toArray {
+  my $self= shift();
+
+  return keys(%$self);
+}
+
+# return this set as an array of strings
+#
+sub toArrayOfStrings {
+  ($#_ == 0) || confess("invalid number of arguments");
+  my $self = shift();
+
+  my @result = ();
+  foreach my $i ( keys %$self ) {
+    push @result, &::DBID_to_name($i);
+  }
+
+  return sort { lc($a) cmp lc($b) } @result;
+}  
+
+# return this set in string form (comma-separated and sorted)
+#
+sub toString {
+  ($#_ == 0) || confess("invalid number of arguments");
+  my $self = shift();
+
+  my @result = ();
+  foreach my $i ( keys %$self ) {
+    push @result, &::DBID_to_name($i);
+  }
+
+  return join(',', sort(@result));
+}  
+
+1;

mozilla/webtools/bugzilla/Token.pm

@@ -0,0 +1,273 @@
+# -*- 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 the Bugzilla Bug Tracking System.
+#
+# The Initial Developer of the Original Code is Netscape Communications
+# Corporation. Portions created by Netscape are
+# Copyright (C) 1998 Netscape Communications Corporation. All
+# Rights Reserved.
+#
+# Contributor(s):    Myk Melez <myk@mozilla.org>
+
+################################################################################
+# Module Initialization
+################################################################################
+
+# Make it harder for us to do dangerous things in Perl.
+use diagnostics;
+use strict;
+
+# Bundle the functions in this file together into the "Token" package.
+package Token;
+
+use Date::Format;
+
+# This module requires that its caller have said "require CGI.pl" to import
+# relevant functions from that script and its companion globals.pl.
+
+################################################################################
+# Constants
+################################################################################
+
+# The maximum number of days a token will remain valid.
+my $maxtokenage = 3;
+
+################################################################################
+# Functions
+################################################################################
+
+sub IssueEmailChangeToken {
+    my ($userid, $old_email, $new_email) = @_;
+
+    my $token_ts = time();
+    my $issuedate = time2str("%Y-%m-%d %H:%M", $token_ts);
+
+    # Generate a unique token and insert it into the tokens table.
+    # We have to lock the tokens table before generating the token, 
+    # since the database must be queried for token uniqueness.
+    &::SendSQL("LOCK TABLES tokens WRITE");
+    my $token = GenerateUniqueToken();
+    my $quotedtoken = &::SqlQuote($token);
+    my $quoted_emails = &::SqlQuote($old_email . ":" . $new_email);
+    &::SendSQL("INSERT INTO tokens ( userid , issuedate , token , 
+                                     tokentype , eventdata )
+                VALUES             ( $userid , '$issuedate' , $quotedtoken , 
+                                     'emailold' , $quoted_emails )");
+    my $newtoken = GenerateUniqueToken();
+    $quotedtoken = &::SqlQuote($newtoken);
+    &::SendSQL("INSERT INTO tokens ( userid , issuedate , token , 
+                                     tokentype , eventdata )
+                VALUES             ( $userid , '$issuedate' , $quotedtoken , 
+                                     'emailnew' , $quoted_emails )");
+    &::SendSQL("UNLOCK TABLES");
+
+    # Mail the user the token along with instructions for using it.
+
+    my $template = $::template;
+    my $vars = $::vars;
+
+    $vars->{'oldemailaddress'} = $old_email . &::Param('emailsuffix');
+    $vars->{'newemailaddress'} = $new_email . &::Param('emailsuffix');
+    
+    $vars->{'max_token_age'} = $maxtokenage;
+    $vars->{'token_ts'} = $token_ts;
+
+    $vars->{'token'} = $token;
+    $vars->{'emailaddress'} = $old_email . &::Param('emailsuffix');
+
+    my $message;
+    $template->process("account/email/change-old.txt.tmpl", $vars, \$message)
+      || &::ThrowTemplateError($template->error());
+
+    open SENDMAIL, "|/usr/lib/sendmail -t -i";
+    print SENDMAIL $message;
+    close SENDMAIL;
+
+    $vars->{'token'} = $newtoken;
+    $vars->{'emailaddress'} = $new_email . &::Param('emailsuffix');
+
+    $message = "";
+    $template->process("account/email/change-new.txt.tmpl", $vars, \$message)
+      || &::ThrowTemplateError($template->error());
+
+    open SENDMAIL, "|/usr/lib/sendmail -t -i";
+    print SENDMAIL $message;
+    close SENDMAIL;
+
+}
+
+sub IssuePasswordToken {
+    # Generates a random token, adds it to the tokens table, and sends it
+    # to the user with instructions for using it to change their password.
+
+    my ($loginname) = @_;
+
+    # Retrieve the user's ID from the database.
+    my $quotedloginname = &::SqlQuote($loginname);
+    &::SendSQL("SELECT userid FROM profiles WHERE login_name = $quotedloginname");
+    my ($userid) = &::FetchSQLData();
+
+    my $token_ts = time();
+    my $issuedate = time2str("%Y-%m-%d %H:%M", $token_ts);
+
+    # Generate a unique token and insert it into the tokens table.
+    # We have to lock the tokens table before generating the token, 
+    # since the database must be queried for token uniqueness.
+    &::SendSQL("LOCK TABLE tokens WRITE") if $::driver eq 'mysql';
+    my $token = GenerateUniqueToken();
+    my $quotedtoken = &::SqlQuote($token);
+    my $quotedipaddr = &::SqlQuote($::ENV{'REMOTE_ADDR'});
+    &::SendSQL("INSERT INTO tokens ( userid , issuedate , token , tokentype , eventdata )
+                VALUES      ( $userid , '$issuedate' , $quotedtoken , 'password' , $quotedipaddr )");
+    &::SendSQL("UNLOCK TABLES") if $::driver eq 'mysql';
+
+    # Mail the user the token along with instructions for using it.
+    
+    my $template = $::template;
+    my $vars = $::vars;
+
+    $vars->{'token'} = $token;
+    $vars->{'emailaddress'} = $loginname . &::Param('emailsuffix');
+
+    $vars->{'max_token_age'} = $maxtokenage;
+    $vars->{'token_ts'} = $token_ts;
+
+    my $message = "";
+    $template->process("account/password/forgotten-password.txt.tmpl", 
+                                                               $vars, \$message)
+      || &::ThrowTemplateError($template->error());
+
+    open SENDMAIL, "|/usr/lib/sendmail -t -i";
+    print SENDMAIL $message;
+    close SENDMAIL;
+
+}
+
+
+sub CleanTokenTable {
+    &::SendSQL("LOCK TABLES tokens WRITE") if $::driver eq 'mysql';
+    if ($::driver eq 'mysql') {
+        &::SendSQL("DELETE FROM tokens WHERE TO_DAYS(NOW()) - TO_DAYS(issuedate) >= " . $maxtokenage);
+    } elsif ($::driver eq 'Pg') {
+        &::SendSQL("DELETE FROM tokens WHERE now() - issuedate >= '$maxtokenage days'");
+    }
+    &::SendSQL("UNLOCK TABLES") if $::driver eq 'mysql';
+}
+
+
+sub GenerateUniqueToken {
+    # Generates a unique random token.  Uses &GenerateRandomPassword 
+    # for the tokens themselves and checks uniqueness by searching for
+    # the token in the "tokens" table.  Gives up if it can't come up
+    # with a token after about one hundred tries.
+
+    my $token;
+    my $duplicate = 1;
+    my $tries = 0;
+    while ($duplicate) {
+
+        ++$tries;
+        if ($tries > 100) {
+            &::DisplayError("Something is seriously wrong with the token generation system.");
+            exit;
+        }
+
+        $token = &::GenerateRandomPassword();
+        &::SendSQL("SELECT userid FROM tokens WHERE token = " . &::SqlQuote($token));
+        $duplicate = &::FetchSQLData();
+    }
+
+    return $token;
+
+}
+
+
+sub Cancel {
+    # Cancels a previously issued token and notifies the system administrator.
+    # This should only happen when the user accidentally makes a token request
+    # or when a malicious hacker makes a token request on behalf of a user.
+    
+    my ($token, $cancelaction) = @_;
+
+    # Quote the token for inclusion in SQL statements.
+    my $quotedtoken = &::SqlQuote($token);
+    
+    # Get information about the token being cancelled.
+    &::SendSQL("SELECT  issuedate , tokentype , eventdata , login_name , realname
+                FROM    tokens, profiles 
+                WHERE   tokens.userid = profiles.userid
+                AND     token = $quotedtoken");
+    my ($issuedate, $tokentype, $eventdata, $loginname, $realname) = &::FetchSQLData();
+
+    # Get the email address of the Bugzilla maintainer.
+    my $maintainer = &::Param('maintainer');
+
+    # Format the user's real name and email address into a single string.
+    my $username = $realname ? $realname . " <" . $loginname . ">" : $loginname;
+
+    my $template = $::template;
+    my $vars = $::vars;
+
+    $vars->{'emailaddress'} = $username;
+    $vars->{'maintainer'} = $maintainer;
+    $vars->{'remoteaddress'} = $::ENV{'REMOTE_ADDR'};
+    $vars->{'token'} = $token;
+    $vars->{'tokentype'} = $tokentype;
+    $vars->{'issuedate'} = $issuedate;
+    $vars->{'eventdata'} = $eventdata;
+    $vars->{'cancelaction'} = $cancelaction;
+
+    # Notify the user via email about the cancellation.
+
+    my $message;
+    $template->process("account/cancel-token.txt.tmpl", $vars, \$message)
+      || &::ThrowTemplateError($template->error());
+
+    open SENDMAIL, "|/usr/lib/sendmail -t -i";
+    print SENDMAIL $message;
+    close SENDMAIL;
+
+    # Delete the token from the database.
+    &::SendSQL("LOCK TABLE tokens WRITE") if $::driver eq 'mysql';
+    &::SendSQL("DELETE FROM tokens WHERE token = $quotedtoken");
+    &::SendSQL("UNLOCK TABLES") if $::driver eq 'mysql';
+}
+
+sub HasPasswordToken {
+    # Returns a password token if the user has one.
+    
+    my ($userid) = @_;
+    
+    &::SendSQL("SELECT token FROM tokens 
+                WHERE userid = $userid AND tokentype = 'password' LIMIT 1");
+    my ($token) = &::FetchSQLData();
+    
+    return $token;
+}
+
+sub HasEmailChangeToken {
+    # Returns an email change token if the user has one. 
+    
+    my ($userid) = @_;
+    
+    &::SendSQL("SELECT token FROM tokens 
+                 WHERE userid = $userid 
+                   AND tokentype = 'emailnew' 
+                    OR tokentype = 'emailold' LIMIT 1");
+    my ($token) = &::FetchSQLData();
+    
+    return $token;
+}
+
+
+1;

mozilla/webtools/bugzilla/UPGRADING

@@ -0,0 +1,3 @@
+Please consult The Bugzilla Guide for instructions on how to upgrade
+Bugzilla from an older version.  The Guide can be found with this
+distribution, in docs/html, docs/txt, and docs/sgml.

mozilla/webtools/bugzilla/UPGRADING-pre-2.8

@@ -0,0 +1,407 @@
+This file contains only important changes made to Bugzilla before release
+2.8.  If you are upgrading from version older than 2.8, please read this file.
+If you are upgrading from 2.8 or newer, please read the Installation and
+Upgrade instructions in The Bugzilla Guide, found with this distribution in
+docs/html, docs/txt, and docs/sgml.
+
+For a complete list of what changes, use Bonsai
+(http://cvs-mirror.mozilla.org/webtools/bonsai/cvsqueryform.cgi) to
+query the CVS tree.  For example,
+
+    http://cvs-mirror.mozilla.org/webtools/bonsai/cvsquery.cgi?module=all&branch=HEAD&branchtype=match&dir=mozilla%2Fwebtools%2Fbugzilla&file=&filetype=match&who=&whotype=match&sortby=Date&hours=2&date=week&mindate=&maxdate=&cvsroot=%2Fcvsroot 
+
+will tell you what has been changed in the last week.
+
+
+10/12/99 The CHANGES file is now obsolete!  There is a new file called
+checksetup.pl.  You should get in the habit of running that file every time
+you update your installation of Bugzilla.  That file will be constantly 
+updated to automatically update your installation to match any code changes.
+If you're curious as to what is going on, changes are commented in that file, 
+at the end.
+
+Many thanks to Holger Schurig <holgerschurig@nikocity.de> for writing this
+script!
+
+
+
+10/11/99 Restructured voting database to add a cached value in each
+bug recording how many total votes that bug has.  While I'm at it, I
+removed the unused "area" field from the bugs database.  It is
+distressing to realize that the bugs table has reached the maximum
+number of indices allowed by MySQL (16), which may make future
+enhancements awkward.
+
+You must feed the following to MySQL:
+
+	alter table bugs drop column area;
+	alter table bugs add column votes mediumint not null, add index (votes);
+
+You then *must* delete the data/versioncache file when you make this
+change, as it contains references to the "area" field.  Deleting it is safe,
+bugzilla will correctly regenerate it.
+
+If you have been using the voting feature at all, then you will then
+need to update the voting cache.  You can do this by visiting the
+sanitycheck.cgi page, and taking it up on its offer to rebuild the
+votes stuff.
+
+
+10/7/99 Added voting ability.  You must run the new script
+"makevotestable.sh".  You must also feed the following to mysql:
+
+	alter table products add column votesperuser smallint not null;
+
+
+
+9/15/99 Apparently, newer alphas of MySQL won't allow you to have
+"when" as a column name.  So, I have had to rename a column in the
+bugs_activity table.  You must feed the below to mysql or you won't
+work at all.
+
+	alter table bugs_activity change column when bug_when datetime not null;
+
+
+8/16/99 Added "OpenVMS" to the list of OS's. Feed this to mysql:
+
+	alter table bugs change column op_sys op_sys enum("All", "Windows 3.1", "Windows 95", "Windows 98", "Windows NT", "Mac System 7", "Mac System 7.5", "Mac System 7.6.1", "Mac System 8.0", "Mac System 8.5", "Mac System 8.6", "AIX", "BSDI", "HP-UX", "IRIX", "Linux", "FreeBSD", "OSF/1", "Solaris", "SunOS", "Neutrino", "OS/2", "BeOS", "OpenVMS", "other") not null;
+
+6/22/99 Added an entry to the attachments table to record who the submitter
+was.  Nothing uses this yet, but it still should be recorded.
+
+	alter table attachments add column submitter_id mediumint not null;
+
+You should also run this script to populate the new field:
+
+#!/usr/bonsaitools/bin/perl -w
+use diagnostics;
+use strict;
+require "globals.pl";
+$|=1;
+ConnectToDatabase();
+SendSQL("select bug_id, attach_id from attachments order by bug_id");
+my @list;
+while (MoreSQLData()) {
+    my @row = FetchSQLData();
+    push(@list, \@row);
+}
+foreach my $ref (@list) {
+    my ($bug, $attach) = (@$ref);
+    SendSQL("select long_desc from bugs where bug_id = $bug");
+    my $comment = FetchOneColumn() . "Created an attachment (id=$attach)";
+
+    if ($comment =~ m@-* Additional Comments From ([^ ]*)[- 0-9/:]*\nCreated an attachment \(id=$attach\)@) {
+	print "Found $1\n";
+	SendSQL("select userid from profiles where login_name=" .
+		SqlQuote($1));
+	my $userid = FetchOneColumn();
+	if (defined $userid && $userid > 0) {
+	    SendSQL("update attachments set submitter_id=$userid where attach_id = $attach");
+	}
+    } else {
+	print "Bug $bug can't find comment for attachment $attach\n";
+    }
+}
+
+
+
+
+
+
+6/14/99 Added "BeOS" to the list of OS's. Feed this to mysql:
+
+	alter table bugs change column op_sys op_sys enum("All", "Windows 3.1", "Windows 95", "Windows 98", "Windows NT", "Mac System 7", "Mac System 7.5", "Mac System 7.6.1", "Mac System 8.0", "Mac System 8.5", "Mac System 8.6", "AIX", "BSDI", "HP-UX", "IRIX", "Linux", "FreeBSD", "OSF/1", "Solaris", "SunOS", "Neutrino", "OS/2", "BeOS", "other") not null;
+
+
+5/27/99 Added support for dependency information.  You must run the new
+"makedependenciestable.sh" script.  You can turn off dependencies with the new
+"usedependencies" param, but it defaults to being on.  Also, read very
+carefully the description for the new "webdotbase" param; you will almost
+certainly need to tweak it.
+
+
+5/24/99 Added "Mac System 8.6" and "Neutrino" to the list of OS's.
+Feed this to mysql:
+
+	alter table bugs change column op_sys op_sys enum("All", "Windows 3.1", "Windows 95", "Windows 98", "Windows NT", "Mac System 7", "Mac System 7.5", "Mac System 7.6.1", "Mac System 8.0", "Mac System 8.5", "Mac System 8.6", "AIX", "BSDI", "HP-UX", "IRIX", "Linux", "FreeBSD", "OSF/1", "Solaris", "SunOS", "Neutrino", "OS/2", "other") not null;
+
+
+5/12/99 Added a pref to control how much email you get.  This needs a new
+column in the profiles table, so feed the following to mysql:
+
+	alter table profiles add column emailnotification enum("ExcludeSelfChanges", "CConly", "All") not null default "ExcludeSelfChanges";
+
+5/5/99 Added the ability to search by creation date.  To make this perform
+well, you ought to do the following:
+
+	alter table bugs change column creation_ts creation_ts datetime not null, add index (creation_ts);
+
+
+4/30/99 Added a new severity, "blocker".  To get this into your running
+Bugzilla, do the following:
+
+	alter table bugs change column bug_severity bug_severity enum("blocker", "critical", "major", "normal", "minor", "trivial", "enhancement") not null;
+
+
+4/22/99 There was a bug where the long descriptions of bugs had a variety of
+newline characters at the end, depending on the operating system of the browser
+that submitted the text.  This bug has been fixed, so that no further changes
+like that will happen.  But to fix problems that have already crept into your
+database, you can run the following perl script (which is slow and ugly, but
+does work:)
+#!/usr/bonsaitools/bin/perl -w
+use diagnostics;
+use strict;
+require "globals.pl";
+$|=1;
+ConnectToDatabase();
+SendSQL("select bug_id from bugs order by bug_id");
+my @list;
+while (MoreSQLData()) {
+    push(@list, FetchOneColumn());
+}
+foreach my $id (@list) {
+    if ($id % 50 == 0) {
+	print "\n$id ";
+    }
+    SendSQL("select long_desc from bugs where bug_id = $id");
+    my $comment = FetchOneColumn();
+    my $orig = $comment;
+    $comment =~ s/\r\n/\n/g;     # Get rid of windows-style line endings.
+    $comment =~ s/\r/\n/g;       # Get rid of mac-style line endings.
+    if ($comment ne $orig) {
+	SendSQL("update bugs set long_desc = " . SqlQuote($comment) .
+		" where bug_id = $id");
+	print ".";
+    } else {
+	print "-";
+    }
+}
+
+
+
+4/8/99 Added ability to store patches with bugs.  This requires a new table
+to store the data, so you will need to run the "makeattachmenttable.sh" script.
+
+3/25/99 Unfortunately, the HTML::FromText CPAN module had too many bugs, and
+so I had to roll my own.  We no longer use the HTML::FromText CPAN module.
+
+3/24/99 (This entry has been removed.  It used to say that we required the
+HTML::FromText CPAN module, but that's no longer true.)
+
+3/22/99 Added the ability to query by fields which have changed within a date
+range.  To make this perform a bit better, we need a new index:
+
+	alter table bugs_activity add index (field);
+
+3/10/99 Added 'groups' stuff, where we have different group bits that we can
+put on a person or on a bug.  Some of the group bits control access to bugzilla
+features.  And a person can't access a bug unless he has every group bit set
+that is also set on the bug.  See the comments in makegroupstable.sh for a bit
+more info.
+
+The 'maintainer' param is now used only as an email address for people to send
+complaints to.  The groups table is what is now used to determine permissions.
+
+You will need to run the new script "makegroupstable.sh".  And then you need to
+feed the following lines to MySQL (replace XXX with the login name of the
+maintainer, the person you wish to be all-powerful).
+
+	alter table bugs add column groupset bigint not null;
+	alter table profiles add column groupset bigint not null;
+	update profiles set groupset=0x7fffffffffffffff where login_name = XXX;
+
+
+
+3/8/99 Added params to control how priorities are set in a new bug.  You can
+now choose whether to let submitters of new bugs choose a priority, or whether
+they should just accept the default priority (which is now no longer hardcoded
+to "P2", but is instead a param.)  The default value of the params will cause
+the same behavior as before.
+
+3/3/99 Added a "disallownew" field to the products table.  If non-zero, then
+don't let people file new bugs against this product.  (This is for when a 
+product is retired, but you want to keep the bug reports around for posterity.)
+Feed this to MySQL:
+
+	alter table products add column disallownew tinyint not null;
+
+
+2/8/99 Added FreeBSD to the list of OS's.  Feed this to MySQL:
+
+	alter table bugs change column op_sys op_sys enum("All", "Windows 3.1", "Windows 95", "Windows 98", "Windows NT", "Mac System 7", "Mac System 7.5", "Mac System 7.6.1", "Mac System 8.0", "Mac System 8.5", "AIX", "BSDI", "HP-UX", "IRIX", "Linux", "FreeBSD", "OSF/1", "Solaris", "SunOS", "OS/2", "other") not null;
+
+
+2/4/99 Added a new column "description" to the components table, and added 
+links to a new page which will use this to describe the components of a 
+given product.  Feed this to MySQL:
+
+	alter table components add column description mediumtext not null;
+
+
+2/3/99 Added a new column "initialqacontact" to the components table that gives
+an initial QA contact field.  It may be empty if you wish the initial qa
+contact to be empty.  If you're not using the QA contact field, you don't need
+to add this column, but you might as well be safe and add it anyway:
+
+	alter table components add column initialqacontact tinytext not null;
+
+
+2/2/99 Added a new column "milestoneurl" to the products table that gives a URL
+which is to describe the currently defined milestones for a product.  If you
+don't use target milestone, you might be able to get away without adding this
+column, but you might as well be safe and add it anyway:
+
+	alter table products add column milestoneurl tinytext not null;
+
+
+1/29/99 Whoops; had a misspelled op_sys.  It was "Mac System 7.1.6"; it should
+be "Mac System 7.6.1".  It turns out I had no bugs with this value set, so I
+could just do the below simple command.  If you have bugs with this value, you
+may need to do something more complicated.
+
+	alter table bugs change column op_sys op_sys enum("All", "Windows 3.1", "Windows 95", "Windows 98", "Windows NT", "Mac System 7", "Mac System 7.5", "Mac System 7.6.1", "Mac System 8.0", "Mac System 8.5", "AIX", "BSDI", "HP-UX", "IRIX", "Linux", "OSF/1", "Solaris", "SunOS", "OS/2", "other") not null;
+
+
+
+1/20/99 Added new fields: Target Milestone, QA Contact, and Status Whiteboard.
+These fields are all optional in the UI; there are parameters to turn them on.
+However, whether or not you use them, the fields need to be in the DB.  There
+is some code that needs them, even if you don't.
+
+To update your DB to have these fields, send the following to MySQL:
+
+        alter table bugs add column target_milestone varchar(20) not null,
+                add column qa_contact mediumint not null,
+                add column status_whiteboard mediumtext not null,
+                add index (target_milestone), add index (qa_contact);
+
+
+
+1/18/99 You can now query by CC.  To make this perform reasonably, the CC table
+needs some indices.  The following MySQL does the necessary stuff:
+
+	alter table cc add index (bug_id), add index (who);
+
+
+1/15/99 The op_sys field can now be queried by (and more easily tweaked).
+To make this perform reasonably, it needs an index.  The following MySQL 
+command will create the necessary index:
+
+	alter table bugs add index (op_sys);
+
+
+12/2/98 The op_sys and rep_platform fields have been tweaked.  op_sys
+is now an enum, rather than having the legal values all hard-coded in
+perl.  rep_platform now no longer allows a value of "X-Windows".
+
+Here's how I ported to the new world.  This ought to work for you too.
+Actually, it's probably overkill.  I had a lot of illegal values for op_sys
+in my tables, from importing bugs from strange places.  If you haven't done 
+anything funky, then much of the below will be a no-op.
+
+First, send the following commands to MySQL to make sure all your values for
+rep_platform and op_sys are legal in the new world..
+
+	update bugs set rep_platform="Sun" where rep_platform="X-Windows" and op_sys like "Solaris%";
+	update bugs set rep_platform="SGI" where rep_platform="X-Windows" and op_sys = "IRIX";
+	update bugs set rep_platform="SGI" where rep_platform="X-Windows" and op_sys = "HP-UX";
+	update bugs set rep_platform="DEC" where rep_platform="X-Windows" and op_sys = "OSF/1";
+	update bugs set rep_platform="PC" where rep_platform="X-Windows" and op_sys = "Linux";
+	update bugs set rep_platform="other" where rep_platform="X-Windows";
+	update bugs set rep_platform="other" where rep_platform="";
+	update bugs set op_sys="Mac System 7" where op_sys="System 7";
+	update bugs set op_sys="Mac System 7.5" where op_sys="System 7.5";
+	update bugs set op_sys="Mac System 8.0" where op_sys="8.0";
+	update bugs set op_sys="OSF/1" where op_sys="Digital Unix 4.0";
+	update bugs set op_sys="IRIX" where op_sys like "IRIX %";
+	update bugs set op_sys="HP-UX" where op_sys like "HP-UX %";
+	update bugs set op_sys="Windows NT" where op_sys like "NT %";
+	update bugs set op_sys="OSF/1" where op_sys like "OSF/1 %";
+	update bugs set op_sys="Solaris" where op_sys like "Solaris %";
+	update bugs set op_sys="SunOS" where op_sys like "SunOS%";
+	update bugs set op_sys="other" where op_sys = "Motif";
+	update bugs set op_sys="other" where op_sys = "Other";
+
+Next, send the following commands to make sure you now have only legal
+entries in your table.  If either of the queries do not come up empty, then
+you have to do more stuff like the above.
+
+	select bug_id,op_sys,rep_platform from bugs where rep_platform not regexp "^(All|DEC|HP|Macintosh|PC|SGI|Sun|X-Windows|Other)$";
+	select bug_id,op_sys,rep_platform from bugs where op_sys not regexp "^(All|Windows 3.1|Windows 95|Windows 98|Windows NT|Mac System 7|Mac System 7.5|Mac System 7.1.6|Mac System 8.0|AIX|BSDI|HP-UX|IRIX|Linux|OSF/1|Solaris|SunOS|other)$";
+
+Finally, once that's all clear, alter the table to make enforce the new legal
+entries:
+
+	alter table bugs change column op_sys op_sys enum("All", "Windows 3.1", "Windows 95", "Windows 98", "Windows NT", "Mac System 7", "Mac System 7.5", "Mac System 7.1.6", "Mac System 8.0", "AIX", "BSDI", "HP-UX", "IRIX", "Linux", "OSF/1", "Solaris", "SunOS", "other") not null, change column rep_platform rep_platform enum("All", "DEC", "HP", "Macintosh", "PC", "SGI", "Sun", "Other");
+
+
+
+
+
+11/20/98 Added searching of CC field.  To better support this, added
+some indexes to the CC table.  You probably want to execute the following
+mysql commands:
+
+	alter table cc add index (bug_id);
+	alter table cc add index (who);
+
+
+10/27/98 security check for legal products in place. bug charts are not
+available as an option if collectstats.pl has never been run. all products 
+get daily stats collected now. README updated: Chart::Base is listed as
+a requirement, instructions for using collectstats.pl included as 
+an optional step. also got silly and added optional quips to bug
+reports. 
+
+10/17/98 modified README installation instructions slightly. 
+
+10/7/98 Added a new table called "products".  Right now, this is used
+only to have a description for each product, and that description is
+only used when initially adding a new bug.  Anyway, you *must* create
+the new table (which you can do by running the new makeproducttable.sh
+script).  If you just leave it empty, things will work much as they
+did before, or you can add descriptions for some or all of your
+products.
+
+
+9/15/98 Everything has been ported to Perl.  NO MORE TCL.  This
+transition should be relatively painless, except for the "params"
+file.  This is the file that contains parameters you've set up on the
+editparams.cgi page.  Before changing to Perl, this was a tcl-syntax
+file, stored in the same directory as the code; after the change to
+Perl, it becomes a perl-syntax file, stored in a subdirectory named
+"data".  See the README file for more details on what version of Perl
+you need.
+
+So, if updating from an older version of Bugzilla, you will need to
+edit data/param, change the email address listed for
+$::param{'maintainer'}, and then go revisit the editparams.cgi page
+and reset all the parameters to your taste.  Fortunately, your old
+params file will still be around, and so you ought to be able to
+cut&paste important bits from there.
+
+Also, note that the "whineatnews" script has changed name (it now has
+an extension of .pl instead of .tcl), so you'll need to change your
+cron job.
+
+And the "comments" file has been moved to the data directory.  Just do
+"cat comments >> data/comments" to restore any old comments that may
+have been lost.
+
+
+
+9/2/98 Changed the way password validation works.  We now keep a
+crypt'd version of the password in the database, and check against
+that.  (This is silly, because we're also keeping the plaintext
+version there, but I have plans...)  Stop passing the plaintext
+password around as a cookie; instead, we have a cookie that references
+a record in a new database table, logincookies.
+
+IMPORTANT: if updating from an older version of Bugzilla, you must run
+the following commands to keep things working:
+
+ ./makelogincookiestable.sh
+ echo "alter table profiles add column cryptpassword varchar(64);" | mysql bugs
+ echo "update profiles set cryptpassword = encrypt(password,substring(rand(),3, 4));" | mysql bugs
+

mozilla/webtools/bugzilla/attachment.cgi

@@ -0,0 +1,792 @@
+#!/usr/bonsaitools/bin/perl -wT
+# -*- 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 the Bugzilla Bug Tracking System.
+#
+# The Initial Developer of the Original Code is Netscape Communications
+# Corporation. Portions created by Netscape are
+# Copyright (C) 1998 Netscape Communications Corporation. All
+# Rights Reserved.
+#
+# Contributor(s): Terry Weissman <terry@mozilla.org>
+#                 Myk Melez <myk@mozilla.org>
+
+################################################################################
+# Script Initialization
+################################################################################
+
+# Make it harder for us to do dangerous things in Perl.
+use diagnostics;
+use strict;
+
+use lib qw(.);
+
+use vars qw(
+  $template
+  $vars
+);
+
+# Include the Bugzilla CGI and general utility library.
+require "CGI.pl";
+
+# Establish a connection to the database backend.
+ConnectToDatabase();
+
+# Check whether or not the user is logged in and, if so, set the $::userid 
+# and $::usergroupset variables.
+quietly_check_login();
+
+################################################################################
+# Main Body Execution
+################################################################################
+
+# All calls to this script should contain an "action" variable whose value
+# determines what the user wants to do.  The code below checks the value of
+# that variable and runs the appropriate code.
+
+# Determine whether to use the action specified by the user or the default.
+my $action = $::FORM{'action'} || 'view';
+
+if ($action eq "view")  
+{ 
+  validateID();
+  view(); 
+}
+elsif ($action eq "viewall") 
+{ 
+  ValidateBugID($::FORM{'bugid'});
+  viewall(); 
+}
+elsif ($action eq "enter") 
+{ 
+  confirm_login();
+  ValidateBugID($::FORM{'bugid'});
+  enter(); 
+}
+elsif ($action eq "insert")
+{
+  confirm_login();
+  ValidateBugID($::FORM{'bugid'});
+  ValidateComment($::FORM{'comment'});
+  validateFilename();
+  validateData();
+  validateDescription();
+  validateIsPatch();
+  validateContentType() unless $::FORM{'ispatch'};
+  validateObsolete() if $::FORM{'obsolete'};
+  insert();
+}
+elsif ($action eq "edit") 
+{ 
+  quietly_check_login();
+  validateID();
+  validateCanEdit($::FORM{'id'});
+  edit(); 
+}
+elsif ($action eq "update") 
+{ 
+  confirm_login();
+  ValidateComment($::FORM{'comment'});
+  validateID();
+  validateCanEdit($::FORM{'id'});
+  validateDescription();
+  validateIsPatch();
+  validateContentType() unless $::FORM{'ispatch'};
+  validateIsObsolete();
+  validateStatuses();
+  update();
+}
+else 
+{ 
+  DisplayError("I could not figure out what you wanted to do.")
+}
+
+exit;
+
+################################################################################
+# Data Validation / Security Authorization
+################################################################################
+
+sub validateID
+{
+  # Validate the value of the "id" form field, which must contain an
+  # integer that is the ID of an existing attachment.
+
+  detaint_natural($::FORM{'id'})
+    || DisplayError("You did not enter a valid attachment number.") 
+      && exit;
+  
+  # Make sure the attachment exists in the database.
+  SendSQL("SELECT bug_id FROM attachments WHERE attach_id = $::FORM{'id'}");
+  MoreSQLData()
+    || DisplayError("Attachment #$::FORM{'id'} does not exist.") 
+    && exit;
+
+  # Make sure the user is authorized to access this attachment's bug.
+  my ($bugid) = FetchSQLData();
+  ValidateBugID($bugid);
+}
+
+sub validateCanEdit
+{
+    my ($attach_id) = (@_);
+
+    # If the user is not logged in, claim that they can edit. This allows
+    # the edit scrren to be displayed to people who aren't logged in.
+    # People not logged in can't actually commit changes, because that code
+    # calls confirm_login, not quietly_check_login, before calling this sub
+    return if $::userid == 0;
+
+    # People in editbugs can edit all attachments
+    return if UserInGroup("editbugs");
+
+    # Bug 97729 - the submitter can edit their attachments
+    SendSQL("SELECT attach_id FROM attachments WHERE " .
+            "attach_id = $attach_id AND submitter_id = $::userid");
+
+    FetchSQLData()
+      || DisplayError("You are not authorised to edit attachment #$attach_id")
+      && exit;
+}
+
+sub validateDescription
+{
+  $::FORM{'description'}
+    || DisplayError("You must enter a description for the attachment.")
+      && exit;
+}
+
+sub validateIsPatch
+{
+  # Set the ispatch flag to zero if it is undefined, since the UI uses
+  # an HTML checkbox to represent this flag, and unchecked HTML checkboxes
+  # do not get sent in HTML requests.
+  $::FORM{'ispatch'} = $::FORM{'ispatch'} ? 1 : 0;
+
+  # Set the content type to text/plain if the attachment is a patch.
+  $::FORM{'contenttype'} = "text/plain" if $::FORM{'ispatch'};
+}
+
+sub validateContentType
+{
+  if (!$::FORM{'contenttypemethod'})
+  {
+    DisplayError("You must choose a method for determining the content type,
+      either <em>auto-detect</em>, <em>select from list</em>, or <em>enter 
+      manually</em>.");
+    exit;
+  }
+  elsif ($::FORM{'contenttypemethod'} eq 'autodetect')
+  {
+    # The user asked us to auto-detect the content type, so use the type
+    # specified in the HTTP request headers.
+    if ( !$::FILE{'data'}->{'contenttype'} )
+    {
+      DisplayError("You asked Bugzilla to auto-detect the content type, but
+        your browser did not specify a content type when uploading the file, 
+        so you must enter a content type manually.");
+      exit;
+    }
+    $::FORM{'contenttype'} = $::FILE{'data'}->{'contenttype'};
+  }
+  elsif ($::FORM{'contenttypemethod'} eq 'list')
+  {
+    # The user selected a content type from the list, so use their selection.
+    $::FORM{'contenttype'} = $::FORM{'contenttypeselection'};
+  }
+  elsif ($::FORM{'contenttypemethod'} eq 'manual')
+  {
+    # The user entered a content type manually, so use their entry.
+    $::FORM{'contenttype'} = $::FORM{'contenttypeentry'};
+  }
+  else
+  {
+    my $htmlcontenttypemethod = html_quote($::FORM{'contenttypemethod'});
+    DisplayError("Your form submission got corrupted somehow.  The <em>content
+      method</em> field, which specifies how the content type gets determined,
+      should have been either <em>autodetect</em>, <em>list</em>, 
+      or <em>manual</em>, but was instead <em>$htmlcontenttypemethod</em>.");
+    exit;
+  }
+
+  if ( $::FORM{'contenttype'} !~ /^(application|audio|image|message|model|multipart|text|video)\/.+$/ )
+  {
+    my $htmlcontenttype = html_quote($::FORM{'contenttype'});
+    DisplayError("The content type <em>$htmlcontenttype</em> is invalid.
+      Valid types must be of the form <em>foo/bar</em> where <em>foo</em> 
+      is either <em>application, audio, image, message, model, multipart, 
+      text,</em> or <em>video</em>.");
+    exit;
+  }
+}
+
+sub validateIsObsolete
+{
+  # Set the isobsolete flag to zero if it is undefined, since the UI uses
+  # an HTML checkbox to represent this flag, and unchecked HTML checkboxes
+  # do not get sent in HTML requests.
+  $::FORM{'isobsolete'} = $::FORM{'isobsolete'} ? 1 : 0;
+}
+
+sub validateStatuses
+{
+  # Get a list of attachment statuses that are valid for this attachment.
+  PushGlobalSQLState();
+  SendSQL("SELECT  attachstatusdefs.id
+           FROM    attachments, bugs, attachstatusdefs
+           WHERE   attachments.attach_id = $::FORM{'id'}
+           AND     attachments.bug_id = bugs.bug_id
+           AND     attachstatusdefs.product = bugs.product");
+  my @statusdefs;
+  push(@statusdefs, FetchSQLData()) while MoreSQLData();
+  PopGlobalSQLState();
+  
+  foreach my $status (@{$::MFORM{'status'}})
+  {
+    grep($_ == $status, @statusdefs)
+      || DisplayError("One of the statuses you entered is not a valid status
+                       for this attachment.")
+        && exit;
+    # We have tested that the status is valid, so it can be detainted
+    detaint_natural($status);
+  }
+}
+
+sub validateData
+{
+  $::FORM{'data'}
+    || DisplayError("The file you are trying to attach is empty!")
+      && exit;
+
+  my $len = length($::FORM{'data'});
+
+  my $maxpatchsize = Param('maxpatchsize');
+  my $maxattachmentsize = Param('maxattachmentsize');
+  
+  # Makes sure the attachment does not exceed either the "maxpatchsize" or 
+  # the "maxattachmentsize" parameter.
+  if ( $::FORM{'ispatch'} && $maxpatchsize && $len > $maxpatchsize*1024 )
+  {
+    my $lenkb = sprintf("%.0f", $len/1024);
+    DisplayError("The file you are trying to attach is ${lenkb} kilobytes (KB) in size.  
+                  Patches cannot be more than ${maxpatchsize}KB in size.
+                  Try breaking your patch into several pieces.");
+    exit;
+  } elsif ( !$::FORM{'ispatch'} && $maxattachmentsize && $len > $maxattachmentsize*1024 ) {
+    my $lenkb = sprintf("%.0f", $len/1024);
+    DisplayError("The file you are trying to attach is ${lenkb} kilobytes (KB) in size.  
+                  Non-patch attachments cannot be more than ${maxattachmentsize}KB.
+                  If your attachment is an image, try converting it to a compressable
+                  format like JPG or PNG, or put it elsewhere on the web and
+                  link to it from the bug's URL field or in a comment on the bug.");
+    exit;
+  }
+}
+
+sub validateFilename
+{
+  defined $::FILE{'data'}
+    || DisplayError("You did not specify a file to attach.")
+      && exit;
+}
+
+sub validateObsolete
+{
+  # Make sure the attachment id is valid and the user has permissions to view
+  # the bug to which it is attached.
+  foreach my $attachid (@{$::MFORM{'obsolete'}}) {
+    detaint_natural($attachid)
+      || DisplayError("The attachment number of one of the attachments 
+           you wanted to obsolete is invalid.") 
+        && exit;
+  
+    SendSQL("SELECT bug_id, isobsolete, description 
+             FROM attachments WHERE attach_id = $attachid");
+
+    # Make sure the attachment exists in the database.
+    MoreSQLData()
+      || DisplayError("Attachment #$attachid does not exist.") 
+        && exit;
+
+    my ($bugid, $isobsolete, $description) = FetchSQLData();
+
+    if ($bugid != $::FORM{'bugid'})
+    {
+      $description = html_quote($description);
+      DisplayError("Attachment #$attachid ($description) is attached 
+        to bug #$bugid, but you tried to flag it as obsolete while
+        creating a new attachment to bug #$::FORM{'bugid'}.");
+      exit;
+    }
+
+    if ( $isobsolete )
+    {
+      $description = html_quote($description);
+      DisplayError("Attachment #$attachid ($description) is already obsolete.");
+      exit;
+    }
+
+    # Check that the user can modify this attachment
+    validateCanEdit($attachid);
+  }
+
+}
+
+################################################################################
+# Functions
+################################################################################
+
+sub view
+{
+  # Display an attachment.
+
+  # Retrieve the attachment content and its content type from the database.
+  SendSQL("SELECT mimetype, thedata FROM attachments WHERE attach_id = $::FORM{'id'}");
+  my ($contenttype, $thedata) = FetchSQLData();
+    
+  # Return the appropriate HTTP response headers.
+  print "Content-Type: $contenttype\n\n";
+
+  print $thedata;
+}
+
+
+sub viewall
+{
+  # Display all attachments for a given bug in a series of IFRAMEs within one HTML page.
+
+  # Retrieve the attachments from the database and write them into an array
+  # of hashes where each hash represents one attachment.
+  SendSQL("SELECT attach_id, creation_ts, mimetype, description, ispatch, isobsolete 
+           FROM attachments WHERE bug_id = $::FORM{'bugid'} ORDER BY attach_id");
+  my @attachments; # the attachments array
+  while (MoreSQLData())
+  {
+    my %a; # the attachment hash
+    ($a{'attachid'}, $a{'date'}, $a{'contenttype'}, 
+     $a{'description'}, $a{'ispatch'}, $a{'isobsolete'}) = FetchSQLData();
+
+    # Format the attachment's creation/modification date into something readable.
+    if ($a{'date'} =~ /^(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)$/) {
+        $a{'date'} = "$3/$4/$2&nbsp;$5:$6";
+    }
+
+    # Flag attachments as to whether or not they can be viewed (as opposed to
+    # being downloaded).  Currently I decide they are viewable if their MIME type 
+    # is either text/*, image/*, or application/vnd.mozilla.*.
+    # !!! Yuck, what an ugly hack.  Fix it!
+    $a{'isviewable'} = ( $a{'contenttype'} =~ /^(text|image|application\/vnd\.mozilla\.)/ );
+
+    # Retrieve a list of status flags that have been set on the attachment.
+    PushGlobalSQLState();
+    SendSQL("SELECT    name 
+             FROM      attachstatuses, attachstatusdefs 
+             WHERE     attach_id = $a{'attachid'} 
+             AND       attachstatuses.statusid = attachstatusdefs.id
+             ORDER BY  sortkey");
+    my @statuses;
+    push(@statuses, FetchSQLData()) while MoreSQLData();
+    $a{'statuses'} = \@statuses;
+    PopGlobalSQLState();
+
+    # Add the hash representing the attachment to the array of attachments.
+    push @attachments, \%a;
+  }
+
+  # Retrieve the bug summary for displaying on screen.
+  SendSQL("SELECT short_desc FROM bugs WHERE bug_id = $::FORM{'bugid'}");
+  my ($bugsummary) = FetchSQLData();
+
+  # Define the variables and functions that will be passed to the UI template.
+  $vars->{'bugid'} = $::FORM{'bugid'};
+  $vars->{'bugsummary'} = $bugsummary;
+  $vars->{'attachments'} = \@attachments;
+
+  # Return the appropriate HTTP response headers.
+  print "Content-Type: text/html\n\n";
+
+  # Generate and return the UI (HTML page) from the appropriate template.
+  $template->process("attachment/show-multiple.html.tmpl", $vars)
+    || ThrowTemplateError($template->error());
+}
+
+
+sub enter
+{
+  # Display a form for entering a new attachment.
+
+  # Retrieve the attachments the user can edit from the database and write
+  # them into an array of hashes where each hash represents one attachment.
+  my $canEdit = "";
+  if (!UserInGroup("editbugs")) {
+      $canEdit = "AND submitter_id = $::userid";
+  }
+  SendSQL("SELECT attach_id, description 
+           FROM attachments
+           WHERE bug_id = $::FORM{'bugid'}
+           AND isobsolete = 0 $canEdit
+           ORDER BY attach_id");
+  my @attachments; # the attachments array
+  while ( MoreSQLData() ) {
+    my %a; # the attachment hash
+    ($a{'id'}, $a{'description'}) = FetchSQLData();
+
+    # Add the hash representing the attachment to the array of attachments.
+    push @attachments, \%a;
+  }
+
+  # Retrieve the bug summary for displaying on screen.
+  SendSQL("SELECT short_desc FROM bugs WHERE bug_id = $::FORM{'bugid'}");
+  my ($bugsummary) = FetchSQLData();
+
+  # Define the variables and functions that will be passed to the UI template.
+  $vars->{'bugid'} = $::FORM{'bugid'};
+  $vars->{'bugsummary'} = $bugsummary;
+  $vars->{'attachments'} = \@attachments;
+
+  # Return the appropriate HTTP response headers.
+  print "Content-Type: text/html\n\n";
+
+  # Generate and return the UI (HTML page) from the appropriate template.
+  $template->process("attachment/create.html.tmpl", $vars)
+    || ThrowTemplateError($template->error());
+}
+
+
+sub insert
+{
+  # Insert a new attachment into the database.
+
+  # Escape characters in strings that will be used in SQL statements.
+  my $filename = SqlQuote($::FILE{'data'}->{'filename'});
+  my $description = SqlQuote($::FORM{'description'});
+  my $contenttype = SqlQuote($::FORM{'contenttype'});
+  my $thedata = SqlQuote($::FORM{'data'});
+
+  # Insert the attachment into the database.
+  SendSQL("INSERT INTO attachments (bug_id, filename, description, mimetype, ispatch, submitter_id, thedata) 
+           VALUES ($::FORM{'bugid'}, $filename, $description, $contenttype, $::FORM{'ispatch'}, $::userid, $thedata)");
+
+  # Retrieve the ID of the newly created attachment record.
+  SendSQL("SELECT LAST_INSERT_ID()");
+  my $attachid = FetchOneColumn();
+
+  # Insert a comment about the new attachment into the database.
+  my $comment = "Created an attachment (id=$attachid)\n$::FORM{'description'}\n";
+  $comment .= ("\n" . $::FORM{'comment'}) if $::FORM{'comment'};
+
+  use Text::Wrap;
+  $Text::Wrap::columns = 80;
+  $Text::Wrap::huge = 'overflow';
+  $comment = Text::Wrap::wrap('', '', $comment);
+
+  AppendComment($::FORM{'bugid'}, 
+                $::COOKIE{"Bugzilla_login"},
+                $comment);
+
+  # Make existing attachments obsolete.
+  my $fieldid = GetFieldID('attachments.isobsolete');
+  foreach my $attachid (@{$::MFORM{'obsolete'}}) {
+    SendSQL("UPDATE attachments SET isobsolete = 1 WHERE attach_id = $attachid");
+    SendSQL("INSERT INTO bugs_activity (bug_id, attach_id, who, bug_when, fieldid, removed, added) 
+             VALUES ($::FORM{'bugid'}, $attachid, $::userid, NOW(), $fieldid, '0', '1')");
+  }
+
+  # Send mail to let people know the attachment has been created.  Uses a 
+  # special syntax of the "open" and "exec" commands to capture the output of 
+  # "processmail", which "system" doesn't allow, without running the command 
+  # through a shell, which backticks (``) do.
+  #system ("./processmail", $bugid , $::userid);
+  #my $mailresults = `./processmail $bugid $::userid`;
+  my $mailresults = '';
+  open(PMAIL, "-|") or exec('./processmail', $::FORM{'bugid'}, $::COOKIE{'Bugzilla_login'});
+  $mailresults .= $_ while <PMAIL>;
+  close(PMAIL);
+ 
+  # Define the variables and functions that will be passed to the UI template.
+  $vars->{'bugid'} = $::FORM{'bugid'};
+  $vars->{'attachid'} = $attachid;
+  $vars->{'description'} = $description;
+  $vars->{'mailresults'} = $mailresults;
+  $vars->{'contenttypemethod'} = $::FORM{'contenttypemethod'};
+  $vars->{'contenttype'} = $::FORM{'contenttype'};
+
+  # Return the appropriate HTTP response headers.
+  print "Content-Type: text/html\n\n";
+
+  # Generate and return the UI (HTML page) from the appropriate template.
+  $template->process("attachment/created.html.tmpl", $vars)
+    || ThrowTemplateError($template->error());
+}
+
+
+sub edit
+{
+  # Edit an attachment record.  Users with "editbugs" privileges, (or the 
+  # original attachment's submitter) can edit the attachment's description,
+  # content type, ispatch and isobsolete flags, and statuses, and they can
+  # also submit a comment that appears in the bug.
+  # Users cannot edit the content of the attachment itself.
+
+  # Retrieve the attachment from the database.
+  SendSQL("SELECT description, mimetype, bug_id, ispatch, isobsolete 
+           FROM attachments WHERE attach_id = $::FORM{'id'}");
+  my ($description, $contenttype, $bugid, $ispatch, $isobsolete) = FetchSQLData();
+
+  # Flag attachment as to whether or not it can be viewed (as opposed to
+  # being downloaded).  Currently I decide it is viewable if its content
+  # type is either text/.* or application/vnd.mozilla.*.
+  # !!! Yuck, what an ugly hack.  Fix it!
+  my $isviewable = ( $contenttype =~ /^(text|image|application\/vnd\.mozilla\.)/ );
+
+  # Retrieve a list of status flags that have been set on the attachment.
+  my %statuses;
+  SendSQL("SELECT  id, name 
+           FROM    attachstatuses JOIN attachstatusdefs 
+           WHERE   attachstatuses.statusid = attachstatusdefs.id 
+           AND     attach_id = $::FORM{'id'}");
+  while ( my ($id, $name) = FetchSQLData() )
+  {
+    $statuses{$id} = $name;
+  }
+
+  # Retrieve a list of statuses for this bug's product, and build an array 
+  # of hashes in which each hash is a status flag record.
+  # ???: Move this into versioncache or its own routine?
+  my @statusdefs;
+  SendSQL("SELECT   id, name 
+           FROM     attachstatusdefs, bugs 
+           WHERE    bug_id = $bugid 
+           AND      attachstatusdefs.product = bugs.product 
+           ORDER BY sortkey");
+  while ( MoreSQLData() )
+  {
+    my ($id, $name) = FetchSQLData();
+    push @statusdefs, { 'id' => $id , 'name' => $name };
+  }
+
+  # Retrieve a list of attachments for this bug as well as a summary of the bug
+  # to use in a navigation bar across the top of the screen.
+  SendSQL("SELECT attach_id FROM attachments WHERE bug_id = $bugid ORDER BY attach_id");
+  my @bugattachments;
+  push(@bugattachments, FetchSQLData()) while (MoreSQLData());
+  SendSQL("SELECT short_desc FROM bugs WHERE bug_id = $bugid");
+  my ($bugsummary) = FetchSQLData();
+
+  # Define the variables and functions that will be passed to the UI template.
+  $vars->{'attachid'} = $::FORM{'id'}; 
+  $vars->{'description'} = $description; 
+  $vars->{'contenttype'} = $contenttype; 
+  $vars->{'bugid'} = $bugid; 
+  $vars->{'bugsummary'} = $bugsummary; 
+  $vars->{'ispatch'} = $ispatch; 
+  $vars->{'isobsolete'} = $isobsolete; 
+  $vars->{'isviewable'} = $isviewable; 
+  $vars->{'statuses'} = \%statuses; 
+  $vars->{'statusdefs'} = \@statusdefs; 
+  $vars->{'attachments'} = \@bugattachments; 
+
+  # Return the appropriate HTTP response headers.
+  print "Content-Type: text/html\n\n";
+
+  # Generate and return the UI (HTML page) from the appropriate template.
+  $template->process("attachment/edit.html.tmpl", $vars)
+    || ThrowTemplateError($template->error());
+}
+
+
+sub update 
+{
+  # Update an attachment record.
+
+  # Get the bug ID for the bug to which this attachment is attached.
+  SendSQL("SELECT bug_id FROM attachments WHERE attach_id = $::FORM{'id'}");
+  my $bugid = FetchSQLData() 
+    || DisplayError("Cannot figure out bug number.")
+    && exit;
+
+  # Lock database tables in preparation for updating the attachment.
+  if ($::driver eq 'mysql') {
+    SendSQL("LOCK TABLES attachments WRITE , attachstatuses WRITE , 
+             attachstatusdefs READ , fielddefs READ , bugs_activity WRITE");
+  }
+
+  # Get a copy of the attachment record before we make changes
+  # so we can record those changes in the activity table.
+  SendSQL("SELECT description, mimetype, ispatch, isobsolete 
+           FROM attachments WHERE attach_id = $::FORM{'id'}");
+  my ($olddescription, $oldcontenttype, $oldispatch, $oldisobsolete) = FetchSQLData();
+
+  # Get the list of old status flags.
+  SendSQL("SELECT    attachstatusdefs.name 
+           FROM      attachments, attachstatuses, attachstatusdefs
+           WHERE     attachments.attach_id = $::FORM{'id'}
+           AND       attachments.attach_id = attachstatuses.attach_id
+           AND       attachstatuses.statusid = attachstatusdefs.id
+           ORDER BY  attachstatusdefs.sortkey
+          ");
+  my @oldstatuses;
+  while (MoreSQLData()) {
+    push(@oldstatuses, FetchSQLData());
+  }
+  my $oldstatuslist = join(', ', @oldstatuses);
+
+  # Update the database with the new status flags.
+  SendSQL("DELETE FROM attachstatuses WHERE attach_id = $::FORM{'id'}");
+  foreach my $statusid (@{$::MFORM{'status'}}) 
+  {
+    SendSQL("INSERT INTO attachstatuses (attach_id, statusid) VALUES ($::FORM{'id'}, $statusid)");
+  }
+
+  # Get the list of new status flags.
+  SendSQL("SELECT    attachstatusdefs.name 
+           FROM      attachments, attachstatuses, attachstatusdefs
+           WHERE     attachments.attach_id = $::FORM{'id'}
+           AND       attachments.attach_id = attachstatuses.attach_id
+           AND       attachstatuses.statusid = attachstatusdefs.id
+           ORDER BY  attachstatusdefs.sortkey
+          ");
+  my @newstatuses;
+  while (MoreSQLData()) {
+    push(@newstatuses, FetchSQLData());
+  }
+  my $newstatuslist = join(', ', @newstatuses);
+
+  # Quote the description and content type for use in the SQL UPDATE statement.
+  my $quoteddescription = SqlQuote($::FORM{'description'});
+  my $quotedcontenttype = SqlQuote($::FORM{'contenttype'});
+
+  # Update the attachment record in the database.
+  # Sets the creation timestamp to itself to avoid it being updated automatically.
+  SendSQL("UPDATE  attachments 
+           SET     description = $quoteddescription , 
+                   mimetype = $quotedcontenttype , 
+                   ispatch = $::FORM{'ispatch'} , 
+                   isobsolete = $::FORM{'isobsolete'} , 
+                   creation_ts = creation_ts
+           WHERE   attach_id = $::FORM{'id'}
+         ");
+
+  # Record changes in the activity table.
+  if ($olddescription ne $::FORM{'description'}) {
+    my $quotedolddescription = SqlQuote($olddescription);
+    my $fieldid = GetFieldID('attachments.description');
+    SendSQL("INSERT INTO bugs_activity (bug_id, attach_id, who, bug_when, fieldid, removed, added) 
+             VALUES ($bugid, $::FORM{'id'}, $::userid, NOW(), $fieldid, $quotedolddescription, $quoteddescription)");
+  }
+  if ($oldcontenttype ne $::FORM{'contenttype'}) {
+    my $quotedoldcontenttype = SqlQuote($oldcontenttype);
+    my $fieldid = GetFieldID('attachments.mimetype');
+    SendSQL("INSERT INTO bugs_activity (bug_id, attach_id, who, bug_when, fieldid, removed, added) 
+             VALUES ($bugid, $::FORM{'id'}, $::userid, NOW(), $fieldid, $quotedoldcontenttype, $quotedcontenttype)");
+  }
+  if ($oldispatch ne $::FORM{'ispatch'}) {
+    my $fieldid = GetFieldID('attachments.ispatch');
+    SendSQL("INSERT INTO bugs_activity (bug_id, attach_id, who, bug_when, fieldid, removed, added) 
+             VALUES ($bugid, $::FORM{'id'}, $::userid, NOW(), $fieldid, $oldispatch, $::FORM{'ispatch'})");
+  }
+  if ($oldisobsolete ne $::FORM{'isobsolete'}) {
+    my $fieldid = GetFieldID('attachments.isobsolete');
+    SendSQL("INSERT INTO bugs_activity (bug_id, attach_id, who, bug_when, fieldid, removed, added) 
+             VALUES ($bugid, $::FORM{'id'}, $::userid, NOW(), $fieldid, $oldisobsolete, $::FORM{'isobsolete'})");
+  }
+  if ($oldstatuslist ne $newstatuslist) {
+    my ($removed, $added) = DiffStrings($oldstatuslist, $newstatuslist);
+    my $quotedremoved = SqlQuote($removed);
+    my $quotedadded = SqlQuote($added);
+    my $fieldid = GetFieldID('attachstatusdefs.name');
+    SendSQL("INSERT INTO bugs_activity (bug_id, attach_id, who, bug_when, fieldid, removed, added) 
+             VALUES ($bugid, $::FORM{'id'}, $::userid, NOW(), $fieldid, $quotedremoved, $quotedadded)");
+  }
+
+  # Unlock all database tables now that we are finished updating the database.
+  if ($::driver eq 'mysql') {
+    SendSQL("UNLOCK TABLES");
+  }
+
+  # If this installation has enabled the request manager, let the manager know
+  # an attachment was updated so it can check for requests on that attachment
+  # and fulfill them.  The request manager allows users to request database
+  # changes of other users and tracks the fulfillment of those requests.  When
+  # an attachment record is updated and the request manager is called, it will
+  # fulfill those requests that were requested of the user performing the update
+  # which are requests for the attachment being updated.
+  #my $requests;
+  #if (Param('userequestmanager'))
+  #{
+  #  use Request;
+  #  # Specify the fieldnames that have been updated.
+  #  my @fieldnames = ('description', 'mimetype', 'status', 'ispatch', 'isobsolete');
+  #  # Fulfill pending requests.
+  #  $requests = Request::fulfillRequest('attachment', $::FORM{'id'}, @fieldnames);
+  #  $vars->{'requests'} = $requests; 
+  #}
+
+  # If the user submitted a comment while editing the attachment, 
+  # add the comment to the bug.
+  if ( $::FORM{'comment'} )
+  {
+    use Text::Wrap;
+    $Text::Wrap::columns = 80;
+    $Text::Wrap::huge = 'wrap';
+
+    # Append a string to the comment to let users know that the comment came from
+    # the "edit attachment" screen.
+    my $comment = qq|(From update of attachment $::FORM{'id'})\n| . $::FORM{'comment'};
+
+    my $wrappedcomment = "";
+    foreach my $line (split(/\r\n|\r|\n/, $comment))
+    {
+      if ( $line =~ /^>/ )
+      {
+        $wrappedcomment .= $line . "\n";
+      }
+      else
+      {
+        $wrappedcomment .= wrap('', '', $line) . "\n";
+      }
+    }
+
+    # Get the user's login name since the AppendComment function needs it.
+    my $who = DBID_to_name($::userid);
+    # Mention $::userid again so Perl doesn't give me a warning about it.
+    my $neverused = $::userid;
+
+    # Append the comment to the list of comments in the database.
+    AppendComment($bugid, $who, $wrappedcomment);
+
+  }
+
+  # Send mail to let people know the bug has changed.  Uses a special syntax
+  # of the "open" and "exec" commands to capture the output of "processmail",
+  # which "system" doesn't allow, without running the command through a shell,
+  # which backticks (``) do.
+  #system ("./processmail", $bugid , $::userid);
+  #my $mailresults = `./processmail $bugid $::userid`;
+  my $mailresults = '';
+  open(PMAIL, "-|") or exec('./processmail', $bugid, DBID_to_name($::userid));
+  $mailresults .= $_ while <PMAIL>;
+  close(PMAIL);
+ 
+  # Define the variables and functions that will be passed to the UI template.
+  $vars->{'attachid'} = $::FORM{'id'}; 
+  $vars->{'bugid'} = $bugid; 
+  $vars->{'mailresults'} = $mailresults; 
+
+  # Return the appropriate HTTP response headers.
+  print "Content-Type: text/html\n\n";
+
+  # Generate and return the UI (HTML page) from the appropriate template.
+  $template->process("attachment/updated.html.tmpl", $vars)
+    || ThrowTemplateError($template->error());
+}

mozilla/webtools/bugzilla/bug_form.pl

@@ -0,0 +1,378 @@
+# -*- 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 the Bugzilla Bug Tracking System.
+#
+# The Initial Developer of the Original Code is Netscape Communications
+# Corporation. Portions created by Netscape are
+# Copyright (C) 1998 Netscape Communications Corporation. All
+# Rights Reserved.
+#
+# Contributor(s): Terry Weissman <terry@mozilla.org>
+#                 Dave Miller <justdave@syndicomm.com>
+
+use diagnostics;
+use strict;
+
+use RelationSet;
+
+# Use the Attachment module to display attachments for the bug.
+use Attachment;
+
+sub show_bug {    
+    # Shut up misguided -w warnings about "used only once".  For some reason,
+    # "use vars" chokes on me when I try it here.
+    sub bug_form_pl_sillyness {
+        my $zz;
+        $zz = %::FORM;
+        $zz = %::proddesc;
+        $zz = %::prodmaxvotes;
+        $zz = @::enterable_products;                                            
+        $zz = @::settable_resolution;
+        $zz = $::unconfirmedstate;
+        $zz = $::milestoneurl;
+        $zz = $::template;
+        $zz = $::vars;
+        $zz = @::legal_priority;
+        $zz = @::legal_platform;
+        $zz = @::legal_severity;
+        $zz = @::legal_bug_status;
+        $zz = @::target_milestone;
+        $zz = @::components;
+        $zz = @::legal_keywords;
+        $zz = @::versions;
+        $zz = @::legal_opsys;
+    }
+
+    # Use templates
+    my $template = $::template;
+    my $vars = $::vars;
+    
+    $vars->{'GetBugLink'} = \&GetBugLink;
+    $vars->{'quoteUrls'} = \&quoteUrls,
+    $vars->{'lsearch'} = \&lsearch,
+    $vars->{'header_done'} = (@_),
+
+    quietly_check_login();
+
+    my $id = $::FORM{'id'};
+    
+    if (!defined($id)) {
+      $template->process("bug/choose.html.tmpl", $vars)
+        || ThrowTemplateError($template->error());
+      exit;
+    }
+    
+    my %user = %{$vars->{'user'}};
+    my %bug;
+
+    # Populate the bug hash with the info we get directly from the DB.
+    my $query = "
+SELECT
+    bugs.bug_id,
+    product,
+    version,
+    rep_platform,
+    op_sys,
+    bug_status,
+    resolution,
+    priority,
+    bug_severity,
+    component,
+    assigned_to,
+    reporter,
+    bug_file_loc,
+    short_desc,
+    target_milestone,
+    qa_contact,
+    status_whiteboard, ";
+
+    if ($::driver eq 'mysql') {
+        $query .= "
+    date_format(creation_ts, '%Y-%m-%d %H:%i'),
+    groupset,  
+    delta_ts, ";
+    } elsif ($::driver eq 'Pg') {
+        $query .= "
+    TO_CHAR(creation_ts, 'YYYY-MM-DD HH24:MI:SS'),
+    groupset,
+    TO_CHAR(delta_ts, 'YYYYMMDDHH24MISS'), ";
+    }
+
+    $query .= "
+    SUM(votes.count)
+FROM 
+    bugs LEFT JOIN votes USING(bug_id)
+WHERE 
+    bugs.bug_id = $id
+GROUP BY 
+    bugs.bug_id,
+    product,
+    version,
+    rep_platform,
+    op_sys,
+    bug_status,
+    resolution,
+    priority,
+    bug_severity,
+    component,
+    assigned_to,
+    reporter,
+    bug_file_loc,
+    short_desc,
+    target_milestone,
+    qa_contact,
+    status_whiteboard,
+    creation_ts,
+    groupset,
+    delta_ts ";
+
+    SendSQL($query);
+
+    my $value;
+    my @row = FetchSQLData();
+    foreach my $field ("bug_id", "product", "version", "rep_platform",
+                       "op_sys", "bug_status", "resolution", "priority",
+                       "bug_severity", "component", "assigned_to", "reporter",
+                       "bug_file_loc", "short_desc", "target_milestone",
+                       "qa_contact", "status_whiteboard", "creation_ts",
+                       "groupset", "delta_ts", "votes") 
+    {
+        $value = shift(@row);
+        $bug{$field} = defined($value) ? $value : "";
+    }
+
+    # General arrays of info about the database state
+    GetVersionTable();
+
+    # Fiddle the product list.
+    my $seen_curr_prod;
+    my @prodlist;
+    
+    foreach my $product (@::enterable_products) {
+        if ($product eq $bug{'product'}) {
+            # if it's the product the bug is already in, it's ALWAYS in
+            # the popup, period, whether the user can see it or not, and
+            # regardless of the disallownew setting.
+            $seen_curr_prod = 1;
+            push(@prodlist, $product);
+            next;
+        }
+
+        if (Param("usebuggroupsentry")
+          && GroupExists($product)
+          && !UserInGroup($product))
+        {
+            # If we're using bug groups to restrict entry on products, and
+            # this product has a bug group, and the user is not in that
+            # group, we don't want to include that product in this list.
+            next;
+        }
+
+        push(@prodlist, $product);
+    }
+
+    # The current product is part of the popup, even if new bugs are no longer
+    # allowed for that product
+    if (!$seen_curr_prod) {
+        push (@prodlist, $bug{'product'});
+        @prodlist = sort @prodlist;
+    }
+
+    $vars->{'product'} = \@prodlist;
+    $vars->{'rep_platform'} = \@::legal_platform;
+    $vars->{'priority'} = \@::legal_priority;
+    $vars->{'bug_severity'} = \@::legal_severity;
+    $vars->{'op_sys'} = \@::legal_opsys;
+    $vars->{'bug_status'} = \@::legal_bug_status;
+
+    # Hack - this array contains "" for some reason. See bug 106589.
+    shift @::settable_resolution; 
+    $vars->{'resolution'} = \@::settable_resolution;
+
+    $vars->{'component_'} = $::components{$bug{'product'}};
+    $vars->{'version'} = $::versions{$bug{'product'}};
+    $vars->{'target_milestone'} = $::target_milestone{$bug{'product'}};
+    $bug{'milestoneurl'} = $::milestoneurl{$bug{'product'}} || 
+                           "notargetmilestone.html";
+
+    $vars->{'use_votes'} = $::prodmaxvotes{$bug{'product'}};
+
+    # Add additional, calculated fields to the bug hash
+    if (@::legal_keywords) {
+        $vars->{'use_keywords'} = 1;
+
+        SendSQL("SELECT keyworddefs.name 
+                 FROM keyworddefs, keywords
+                 WHERE keywords.bug_id = $id 
+                 AND keyworddefs.id = keywords.keywordid
+                 ORDER BY keyworddefs.name");
+        my @keywords;
+        while (MoreSQLData()) {
+            push(@keywords, FetchOneColumn());
+        }
+
+        $bug{'keywords'} = \@keywords;
+    }    
+
+    # Attachments
+    $bug{'attachments'} = Attachment::query($id);
+
+    # Dependencies
+    my @list;
+    SendSQL("SELECT dependson FROM dependencies WHERE  
+             blocked = $id ORDER BY dependson");
+    while (MoreSQLData()) {
+        my ($i) = FetchSQLData();
+        push(@list, $i);
+    }
+
+    $bug{'dependson'} = \@list;
+
+    my @list2;
+    SendSQL("SELECT blocked FROM dependencies WHERE  
+             dependson = $id ORDER BY blocked");
+    while (MoreSQLData()) {
+        my ($i) = FetchSQLData();
+        push(@list2, $i);
+    }
+
+    $bug{'blocked'} = \@list2;
+
+    # Groups
+    my @groups;
+    if ($::usergroupset ne '0' || $bug{'groupset'} ne '0') {      
+        my $bug_groupset = $bug{'groupset'};
+    
+        if ($::driver eq 'mysql') {
+            SendSQL("select bit, name, description, (bit & $bug{'groupset'} != 0), " .
+                    "(bit & $::usergroupset != 0) from groups where isbuggroup != 0 " .
+                    # Include active groups as well as inactive groups to which
+                    # the bug already belongs.  This way the bug can be removed
+                    # from an inactive group but can only be added to active ones.
+                    "and ((isactive = 1 or (bit & $bug{'groupset'} != 0)) or " .
+                    "(bit & $bug{'groupset'} != 0)) " .
+                    "order by description");
+        } elsif ($::driver eq 'Pg') {
+            SendSQL("select group_bit, name, description, (group_bit & int8($bug{'groupset'}) != 0), " .
+                    "(group_bit & int8($::usergroupset) != 0) from groups where isbuggroup != 0 " .
+                    # Include active groups as well as inactive groups to which
+                    # the bug already belongs.  This way the bug can be removed
+                    # from an inactive group but can only be added to active ones.
+                    "and ((isactive = 1 or (group_bit & int8($bug{'groupset'}) != 0)) or " .
+                    "(group_bit & int8($bug{'groupset'}) != 0)) " .
+                    "order by description");
+        }
+
+        $user{'inallgroups'} = 1;
+
+        while (MoreSQLData()) {
+            my ($bit, $name, $description, $ison, $ingroup) = FetchSQLData();
+            # For product groups, we only want to display the checkbox if either
+            # (1) The bit is already set, or
+            # (2) The user is in the group, but either:
+            #     (a) The group is a product group for the current product, or
+            #     (b) The group name isn't a product name
+            # This means that all product groups will be skipped, but 
+            # non-product bug groups will still be displayed.
+            if($ison || 
+               ($ingroup && (($name eq $bug{'product'}) ||
+                             (!defined $::proddesc{$name}))))
+            {
+                $user{'inallgroups'} &= $ingroup;
+
+                push (@groups, { "bit" => $bit,
+                                 "ison" => $ison,
+                                 "ingroup" => $ingroup,
+                                 "description" => $description });            
+            }
+        }
+
+        # If the bug is restricted to a group, display checkboxes that allow
+        # the user to set whether or not the reporter 
+        # and cc list can see the bug even if they are not members of all 
+        # groups to which the bug is restricted.
+        if ($bug{'groupset'} != 0) {
+            $bug{'inagroup'} = 1;
+
+            # Determine whether or not the bug is always accessible by the
+            # reporter, QA contact, and/or users on the cc: list.
+            SendSQL("SELECT reporter_accessible, cclist_accessible
+                     FROM   bugs
+                     WHERE  bug_id = $id
+                    ");
+            ($bug{'reporter_accessible'}, 
+             $bug{'cclist_accessible'}) = FetchSQLData();        
+        }
+    }
+    $vars->{'groups'} = \@groups;
+
+    my $movers = Param("movers");
+    $user{'canmove'} = Param("move-enabled") 
+                       && (defined $::COOKIE{"Bugzilla_login"}) 
+                       && ($::COOKIE{"Bugzilla_login"} =~ /\Q$movers\E/);
+
+    # User permissions
+
+    # In the below, if the person hasn't logged in ($::userid == 0), then
+    # we treat them as if they can do anything.  That's because we don't
+    # know why they haven't logged in; it may just be because they don't
+    # use cookies.  Display everything as if they have all the permissions
+    # in the world; their permissions will get checked when they log in
+    # and actually try to make the change.
+    $user{'canedit'} = $::userid == 0
+                       || $::userid == $bug{'reporter'}
+                       || $::userid == $bug{'qa_contact'}
+                       || $::userid == $bug{'assigned_to'}
+                       || UserInGroup("editbugs");                   
+    $user{'canconfirm'} = ($::userid == 0) || UserInGroup("canconfirm");
+
+    # Bug states
+    $bug{'isunconfirmed'} = ($bug{'bug_status'} eq $::unconfirmedstate);
+    $bug{'isopened'} = IsOpenedState($bug{'bug_status'});
+
+    # People involved with the bug
+    $bug{'assigned_to_email'} = DBID_to_name($bug{'assigned_to'});
+    $bug{'assigned_to'} = DBID_to_real_or_loginname($bug{'assigned_to'});
+    $bug{'reporter'} = DBID_to_real_or_loginname($bug{'reporter'});
+    $bug{'qa_contact'} = $bug{'qa_contact'} > 0 ? 
+                                          DBID_to_name($bug{'qa_contact'}) : "";
+
+    my $ccset = new RelationSet;
+    $ccset->mergeFromDB("SELECT who FROM cc WHERE bug_id=$id");
+    
+    my @cc = $ccset->toArrayOfStrings();
+    $bug{'cc'} = \@cc if $cc[0];
+
+    # Next bug in list (if there is one)
+    my @bug_list;
+    if ($::COOKIE{"BUGLIST"} && $id) 
+    {
+        @bug_list = split(/:/, $::COOKIE{"BUGLIST"});
+    }
+    $vars->{'bug_list'} = \@bug_list;
+
+    $bug{'comments'} = GetComments($bug{'bug_id'});
+
+    # This is length in number of comments
+    $bug{'longdesclength'} = scalar(@{$bug{'comments'}});
+
+    # Add the bug and user hashes to the variables
+    $vars->{'bug'} = \%bug;
+    $vars->{'user'} = \%user;
+
+    # Generate and return the UI (HTML page) from the appropriate template.
+    $template->process("bug/edit.html.tmpl", $vars)
+      || ThrowTemplateError($template->error());
+}
+ 
+1;

mozilla/webtools/bugzilla/bug_status.html

@@ -0,0 +1,206 @@
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
+<HTML>
+
+<!--
+     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 the Bugzilla Bug Tracking System.
+    
+     The Initial Developer of the Original Code is Netscape Communications
+     Corporation. Portions created by Netscape are
+     Copyright (C) 1998 Netscape Communications Corporation. All
+     Rights Reserved.
+    
+     Contributor(s): 
+
+     Contributor(s): Terry Weissman <terry@mozilla.org>
+-->
+
+<head>
+<TITLE>A Bug's Life Cycle</TITLE>
+<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
+</head>
+<body>
+
+<h1 ALIGN=CENTER>A Bug's Life Cycle</h1>
+
+The <B>status</B> and <B>resolution</B> field define and track the
+life cycle of a bug.
+
+<a name="status"></a>
+<p>
+<TABLE BORDER=1 CELLPADDING=4>
+
+<TR ALIGN=CENTER VALIGN=TOP>
+<TD WIDTH="50%"><H1>STATUS</H1> <TD><H1>RESOLUTION</H1>
+
+<TR VALIGN=TOP>
+<TD>The <B>status</B> field indicates the general health of a bug. Only
+certain status transitions are allowed.
+<TD>The <b>resolution</b> field indicates what happened to this bug.
+
+<TR VALIGN=TOP><TD>
+<DL><DT><B>
+<A HREF="confirmhelp.html">UNCONFIRMED</A></B> 
+<DD> This bug has recently been added to the database.  Nobody has
+     validated that this bug is true.  Users who have the "canconfirm"
+     permission set may confirm this bug, changing its state to NEW.
+     Or, it may be directly resolved and marked RESOLVED.
+<DT><B>NEW</B> 
+<DD> This bug has recently been added to the assignee's list of bugs
+     and must be processed. Bugs in this state may be accepted, and
+     become <B>ASSIGNED</B>, passed on to someone else, and remain
+     <B>NEW</B>, or resolved and marked <B>RESOLVED</B>.
+<DT><B>ASSIGNED</B> 
+<DD> This bug is not yet resolved, but is assigned to the proper
+     person. From here bugs can be given to another person and become
+     <B>NEW</B>, or resolved and become <B>RESOLVED</B>.
+<DT><B>REOPENED</B>
+<DD>This bug was once resolved, but the resolution was deemed
+     incorrect.  For example, a <B>WORKSFORME</B> bug is
+     <B>REOPENED</B> when more information shows up and the bug is now
+     reproducible.  From here bugs are either marked <B>ASSIGNED</B>
+     or <B>RESOLVED</B>.
+</DL>
+<TD>
+<DL>
+<DD> No resolution yet. All bugs which are in one of these "open" states
+     have the resolution set to blank. All other bugs
+     will be marked with one of the following resolutions.
+</DL>
+
+<TR VALIGN=TOP><TD>
+<DL>
+<DT><B>RESOLVED</B> 
+<DD> A resolution has been taken, and it is awaiting verification by
+     QA. From here bugs are either re-opened and become
+     <B>REOPENED</B>, are marked <B>VERIFIED</B>, or are closed for good
+     and marked <B>CLOSED</B>.
+<DT><B>VERIFIED</B>
+<DD> QA has looked at the bug and the resolution and agrees that the
+     appropriate resolution has been taken.  Bugs remain in this state
+     until the product they were reported against actually ships, at
+     which point they become <B>CLOSED</B>.
+<DT><B>CLOSED</B> 
+<DD> The bug is considered dead, the resolution is correct. Any zombie
+     bugs who choose to walk the earth again must do so by becoming
+     <B>REOPENED</B>.
+</DL>
+
+<TD>
+<DL>
+<DT><B>FIXED</B>
+<DD> A fix for this bug is checked into the tree and tested.
+<DT><B>INVALID</B>
+<DD> The problem described is not a bug 
+<DT><B>WONTFIX</B>
+<DD> The problem described is a bug which will never be fixed.
+<DT><B>LATER</B>
+<DD> The problem described is a bug which will not be fixed in this
+     version of the product.
+<DT><B>REMIND</B>
+<DD> The problem described is a bug which will probably not be fixed in this
+     version of the product, but might still be.
+<DT><B>DUPLICATE</B>
+<DD> The problem is a duplicate of an existing bug. Marking a bug
+     duplicate requires the bug# of the duplicating bug and will at
+     least put that bug number in the description field.
+<DT><B>WORKSFORME</B>
+<DD> All attempts at reproducing this bug were futile, reading the
+     code produces no clues as to why this behavior would occur. If
+     more information appears later, please re-assign the bug, for
+     now, file it.
+</DL>
+</TABLE>
+
+<H1>Other Fields</H1>
+
+<table border=1 cellpadding=4><tr><td>
+<h2><a name="severity">Severity</a></h2>
+
+This field describes the impact of a bug.
+
+<p>
+<p>
+ 
+<table>
+<tr><th>Blocker</th><td>Blocks development and/or testing work
+<tr><th>Critical</th><td>crashes, loss of data, severe memory leak 
+<tr><th>Major</th><td>major loss of function 
+<tr><th>Minor</th><td>minor loss of function, or other problem where easy workaround is present 
+<tr><th>Trivial</th><td>cosmetic problem like misspelled words or misaligned text 
+<tr><th>Enhancement</th><td>Request for enhancement
+</table> 
+
+</td><td>
+
+<h2><a name="priority">Priority</a></h2>
+
+This field describes the importance and order in which a bug should be
+fixed.  This field is utilized by the programmers/engineers to
+prioritize their work to be done.  The available priorities are:
+
+<p>
+<p>
+
+<table>
+<tr><th>P1</th><td>Most important
+<tr><th>P2</th><td>
+<tr><th>P3</th><td>
+<tr><th>P4</th><td>
+<tr><th>P5</th><td>Least important
+</table>
+</tr></table>
+
+<h2><a name="rep_platform">Platform</a></h2>
+This is the hardware platform against which the bug was reported.  Legal
+platforms include:
+
+<UL>
+<LI> All (happens on all platform; cross-platform bug)
+<LI> Macintosh
+<LI> PC
+<LI> Sun
+<LI> HP
+</UL>
+
+<b>Note:</b> Selecting the option "All" does not select bugs assigned against all platforms.  It
+merely selects bugs that <b>occur</b> on all platforms.
+
+<h2><a name="op_sys">Operating System</a></h2>
+This is the operating system against which the bug was reported.  Legal
+operating systems include:
+
+<UL>
+<LI> All (happens on all operating systems; cross-platform bug)
+<LI> Windows 95
+<LI> Mac System 8.0
+<LI> Linux
+</UL>
+
+Note that the operating system implies the platform, but not always.
+For example, Linux can run on PC and Macintosh and others.
+
+<h2><a name="assigned_to">Assigned To</a></h2>
+
+This is the person in charge of resolving the bug.  Every time this
+field changes, the status changes to <B>NEW</B> to make it easy to see
+which new bugs have appeared on a person's list.
+
+The default status for queries is set to NEW, ASSIGNED and REOPENED. When
+searching for bugs that have been resolved or verified, remember to set the
+status field appropriately. 
+
+<hr>
+<!-- hhmts start -->
+Last modified: Sun Apr 14 12:51:23 EST 2002
+<!-- hhmts end -->
+</body> </html>

mozilla/webtools/bugzilla/bugwritinghelp.html

@@ -0,0 +1,392 @@
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
+<html>
+<head>
+<meta http-equiv="content-type" content="text/html; charset=iso-8859-1">
+<title>Bug Writing Guidelines</title>
+</head>
+<body>
+<center>
+<h1>Bug Writing Guidelines</h1>
+</center>
+
+<h3>Why You Should Read This</h3>
+
+<blockquote>
+<p>Simply put, the more effectively you report a bug, the more
+likely an engineer will actually fix it.</p>
+
+<p>These guidelines are a general
+tutorial to teach novice and intermediate bug reporters how to compose effective bug reports. Not every sentence may precisely apply to
+your software project.</p>
+</blockquote>
+
+<h3>How to Write a Useful Bug Report</h3>
+
+<blockquote>
+<p>Useful bug reports are ones that get bugs fixed. A useful bug
+report normally has two qualities:</p>
+
+<ol>
+<li><b>Reproducible.</b> If an engineer can't see the bug herself to prove that it exists, she'll probably stamp your bug report "WORKSFORME" or "INVALID" and move on to the next bug. Every detail you can provide helps.<br>
+<br>
+</li>
+
+<li><b>Specific.</b> The quicker the engineer can isolate the bug
+to a specific area, the more likely she'll expediently fix it. 
+(If a programmer or tester has to decypher a bug, they may spend
+more time cursing the submitter than solving the problem.)
+<br>
+<br>
+[ <a href="#tips" name="Anchor">Tell Me More</a> ]
+</li>
+</ol>
+
+<p>Let's say the application you're testing is a web browser. You
+crash at foo.com, and want to write up a bug report:</p>
+
+<blockquote>
+<p><b>BAD:</b> "My browser crashed. I think I was on www.foo.com. I play golf with Bill Gates, so you better fix this problem, or I'll report you to him. By the way, your Back icon looks like a squashed rodent. UGGGLY. And my grandmother's home page is all messed up in your browser. Thx 4 UR help."
+</p>
+
+<p>
+ <b>GOOD:</b> "I crashed each time I went to www.foo.com, using
+the 2002-02-25 build on a Windows 2000 system. I also
+rebooted into Linux, and reproduced this problem using the 2002-02-24
+Linux build.
+</p>
+
+<p>
+ It again crashed each time upon drawing the Foo banner at the top
+of the page. I broke apart the page, and discovered that the
+following image link will crash the application reproducibly,
+unless you remove the "border=0" attribute:
+</p>
+
+<p>
+ <tt>&lt;IMG SRC="http://www.foo.com/images/topics/topicfoos.gif"
+width="34" height="44" border="0" alt="News"&gt;</tt>
+</p>
+</blockquote>
+</blockquote>
+
+<h3>How to Enter your Useful Bug Report into Bugzilla:</h3>
+
+<blockquote>
+<p>Before you enter your bug, use Bugzilla's 
+<a href="query.cgi">search page</a> to determine whether the defect you've discovered is a known, already-reported bug. If your bug is the 37th duplicate of a known issue, you're more likely to annoy the engineer. (Annoyed
+engineers fix fewer bugs.)
+</p>
+
+<p>
+Next, be sure to reproduce your bug using a recent
+build. Engineers tend to be most interested in problems affecting
+the code base that they're actively working on. After all, the bug you're reporting
+may already be fixed.
+
+</p>
+
+<p>
+ If you've discovered a new bug using a current build, report it in
+Bugzilla:
+</p>
+
+<ol>
+<li>From your Bugzilla main page, choose 
+"<a href="enter_bug.cgi">Enter a new bug</a>".</li>
+
+<li>Select the product that you've found a bug in.</li>
+
+<li>Enter your e-mail address, password, and press the "Login"
+button. (If you don't yet have a password, leave the password field empty, 
+and press the "E-mail me a password" button instead.
+You'll quickly receive an e-mail message with your password.)</li>
+</ol>
+
+<p>Now, fill out the form. Here's what it all means:</p>
+
+<p><b>Where did you find the bug?</b></p>
+
+<blockquote>
+<p><b>Product: In which product did you find the bug?</b><br>
+ You just specified this on the last page, so you can't edit it here.</p>
+
+<p><b>Version: In which product version did you find the
+bug?</b><br>
+ (If applicable)</p>
+
+<p><b>Component: In which component does the bug exist?</b><br>
+Bugzilla requires that you select a component to enter a bug. (Not sure which to choose? 
+Click on the Component link. You'll see a description of each component, to help you make the best choice.)</p>
+
+<p><b>OS: On which Operating System (OS) did you find this bug?</b>
+(e.g. Linux, Windows 2000, Mac OS 9.)<br>
+ If you know the bug happens on all OSs, choose 'All'. Otherwise,
+select the OS that you found the bug on, or "Other" if your OS
+isn't listed.</p>
+</blockquote>
+
+<p><b>How important is the bug?</b></p>
+
+<blockquote>
+<p><b>Severity: How damaging is the bug?</b><br>
+ This item defaults to 'normal'. If you're not sure what severity your bug deserves, click on the Severity link.
+ You'll see a description of each severity rating. <br>
+</p>
+</blockquote>
+
+<p><b>Who will be following up on the bug?</b></p>
+
+<blockquote>
+<p><b>Assigned To: Which engineer should be responsible for fixing
+this bug?</b><br>
+ Bugzilla will automatically assign the bug to a default engineer
+upon submitting a bug report. If you'd prefer to directly assign the bug to
+someone else, enter their e-mail address into this field. (To see the list of
+default engineers for each component, click on the Component
+link.)</p>
+
+<p><b>Cc: Who else should receive e-mail updates on changes to this
+bug?</b><br>
+ List the full e-mail addresses of other individuals who should
+receive an e-mail update upon every change to the bug report. You
+can enter as many e-mail addresses as you'd like, separated by spaces or commas, as long as those
+people have Bugzilla accounts.</p>
+</blockquote>
+
+<p><b>What else can you tell the engineer about the bug?</b></p>
+
+<blockquote>
+
+<p><b>Summary:</b> <b>How would you describe the bug, in
+approximately 60 or fewer characters?</b><br>
+ A good summary should <b>quickly and uniquely identify a bug
+report</b>. Otherwise, an engineer cannot meaningfully identify
+your bug by its summary, and will often fail to pay attention to
+your bug report when skimming through a 10 page bug list.<br>
+<br>
+ A useful summary might be 
+ "<tt>PCMCIA install fails on Tosh Tecra 780DVD w/ 3c589C</tt>". 
+ "<tt>Software fails</tt>" or "<tt>install problem</tt>" would be
+examples of a bad summary.<br>
+<br>
+ [ <a href="#summary">Tell Me More</a> ]<br>
+<br>
+ <b>Description: </b><br>
+ Please provide a detailed problem report in this field.
+Your bug's recipients will most likely expect the following information:</p>
+
+<blockquote>
+<p><b>Overview Description:</b> More detailed expansion of
+summary.</p>
+
+<blockquote>
+<pre>
+Drag-selecting any page crashes Mac builds in NSGetFactory
+</pre>
+</blockquote>
+
+<p><b>Steps to Reproduce:</b> Minimized, easy-to-follow steps that will
+trigger the bug. Include any special setup steps.</p>
+
+<blockquote>
+<pre>
+1) View any web page. (I used the default sample page,
+resource:/res/samples/test0.html)
+                          
+2) Drag-select the page. (Specifically, while holding down 
+the mouse button, drag the mouse pointer downwards from any 
+point in the browser's content region to the bottom of the 
+browser's content region.)                   
+</pre>
+</blockquote>
+
+<p>
+ <b>Actual Results:</b> What the application did after performing
+the above steps. 
+</p>
+
+<blockquote>
+<pre>
+The application crashed. Stack crawl appended below from MacsBug.
+</pre>
+</blockquote>
+
+<p><b>Expected Results:</b> What the application should have done,
+were the bug not present.</p>
+
+<blockquote>
+<pre>
+The window should scroll downwards. Scrolled content should be selected. 
+(Or, at least, the application should not crash.)
+</pre>
+</blockquote>
+
+<p><b>Build Date &amp; Platform:</b> Date and platform of the build
+that you first encountered the bug in.</p>
+
+<blockquote>
+<pre>
+Build 2002-03-15 on Mac OS 9.0
+</pre>
+</blockquote>
+
+<p><b>Additional Builds and Platforms:</b> Whether or not the bug
+takes place on other platforms (or browsers, if applicable).</p>
+
+<blockquote>
+<pre>
+- Also Occurs On        
+    Mozilla (2002-03-15 build on Windows NT 4.0) 
+                                    
+- Doesn't Occur On        
+    Mozilla (2002-03-15 build on Red Hat Linux; feature not supported)        
+    Internet Explorer 5.0 (shipping build on Windows NT 4.0)        
+    Netscape Communicator 4.5 (shipping build on Mac OS 9.0)
+</pre>
+</blockquote>
+
+<p><b>Additional Information:</b> Any other debugging information.
+For crashing bugs:</p>
+
+<ul>
+<li><b>Win32:</b> if you receive a Dr. Watson error, please note
+the type of the crash, and the module that the application crashed
+in. (e.g. access violation in apprunner.exe)</li>
+
+<li><b>Mac OS:</b> if you're running MacsBug, please provide the
+results of a <b>how</b> and an <b>sc</b>:</li>
+</ul>
+
+<blockquote>
+<pre>
+*** MACSBUG STACK CRAWL OF CRASH (Mac OS)
+Calling chain using A6/R1 links 
+    Back chain  ISA  Caller 
+    00000000    PPC  0BA85E74   
+    03AEFD80    PPC  0B742248   
+    03AEFD30    PPC  0B50FDDC  NSGetFactory+027FC
+PowerPC unmapped memory exception at 0B512BD0 NSGetFactory+055F0
+</pre>
+</blockquote>
+</blockquote>
+</blockquote>
+
+<p>You're done!<br>
+<br>
+ After double-checking your entries for any possible errors, press
+the "Commit" button, and your bug report will now be in the
+Bugzilla database.<br>
+</p>
+</blockquote>
+
+<hr>
+<h3>More Information on Writing Good Bugs</h3>
+
+<blockquote>
+<p><b><a name="tips"></a> 1. General Tips for a Useful Bug
+Report</b>
+</p>
+
+<blockquote>
+<p>
+ <b>Use an explicit structure, so your bug reports are easy to
+skim.</b> Bug report users often need immediate access to specific
+sections of your bug. If your Bugzilla installation supports the
+Bugzilla Helper, use it.
+</p>
+
+<p>
+ <b>Avoid cuteness if it costs clarity.</b> Nobody will be laughing
+at your funny bug title at 3:00 AM when they can't remember how to
+find your bug.
+</p>
+
+<p>
+ <b>One bug per report.</b> Completely different people typically
+fix, verify, and prioritize different bugs. If you mix a handful of
+bugs into a single report, the right people probably won't discover
+your bugs in a timely fashion, or at all. Certain bugs are also
+more important than others. It's impossible to prioritize a bug
+report when it contains four different issues, all of differing
+importance.
+</p>
+
+<p>
+ <b>No bug is too trivial to report.</b> Unless you're reading the
+source code, you can't see actual software bugs, like a dangling
+pointer -- you'll see their visible manifestations, such as the
+segfault when the application finally crashes. Severe software
+problems can manifest themselves in superficially trivial ways.
+File them anyway.<br>
+</p>
+</blockquote>
+
+<p><b><a name="summary"></a>2. How and Why to Write Good Bug Summaries</b>
+</p>
+
+<blockquote>
+<p><b>You want to make a good first impression on the bug
+recipient.</b> Just like a New York Times headline guides readers
+towards a relevant article from dozens of choices, will your bug summary
+suggest that your bug report is worth reading from dozens or hundreds of
+choices?
+</p>
+
+<p>
+ Conversely, a vague bug summary like <tt>install problem</tt> forces anyone
+reviewing installation bugs to waste time opening up your bug to
+determine whether it matters.
+</p>
+
+<p>
+ <b>Your bug will often be searched by its summary.</b> Just as
+you'd find web pages with Google by searching by keywords through
+intuition, so will other people locate your bugs. Descriptive bug
+summaries are naturally keyword-rich, and easier to find.
+</p>
+
+<p>
+ For example, you'll find a bug titled "<tt>Dragging icons from List View to
+gnome-terminal doesn't paste path</tt>" if you search on "List",
+"terminal", or "path". Those search keywords wouldn't have found a
+bug titled "<tt>Dragging icons
+doesn't paste</tt>".
+</p>
+
+<p>
+ Ask yourself, "Would someone understand my bug from just this
+summary?" If so, you've written a fine summary.
+</p>
+
+<p><b>Don't write titles like these:</b></p>
+
+<ol>
+ <li>"Can't install" - Why can't you install? What happens when you
+try to install?</li>
+<li>"Severe Performance Problems" - ...and they occur when you do
+what?</li>
+<li>"back button does not work" - Ever? At all?</li>
+</ol>
+
+<p><b>Good bug titles:</b></p>
+<ol>
+<li>"1.0 upgrade installation fails if Mozilla M18 package present"
+- Explains problem and the context.</li>
+<li>"RPM 4 installer crashes if launched on Red Hat 6.2 (RPM 3)
+system" - Explains what happens, and the context.</li>
+</ol>
+
+
+
+</blockquote>
+</blockquote>
+
+<p>(Written and maintained by 
+<a href="http://www.prometheus-music.com/eli">Eli Goldberg</a>. Claudius
+Gayle, Gervase Markham, Peter Mock, Chris Pratt, Tom Schutter and Chris Yeh also
+contributed significant changes. Constructive 
+<a href="mailto:eli@prometheus-music.com">suggestions</a> welcome.)</p>
+
+</body>
+</html>
+

mozilla/webtools/bugzilla/bugzilla.dtd

@@ -0,0 +1,46 @@
+<!ELEMENT bugzilla (bug+)>
+<!ATTLIST bugzilla
+	version CDATA #REQUIRED
+	urlbase CDATA #REQUIRED
+	maintainer CDATA #REQUIRED
+	exporter CDATA #IMPLIED
+>
+<!ELEMENT bug (bug_id, (bug_status, product, priority, version, rep_platform, assigned_to, delta_ts, component, reporter, target_milestone?, bug_severity, creation_ts, qa_contact?, op_sys, resolution?, bug_file_loc?, short_desc?, keywords*, status_whiteboard?, dependson*, blocks*, cc*, long_desc*, attachment*)?)>
+<!ATTLIST bug
+	error (NotFound | NotPermitted | InvalidBugId) #IMPLIED
+>
+<!ELEMENT bug_id (#PCDATA)>
+<!ELEMENT exporter (#PCDATA)>
+<!ELEMENT urlbase (#PCDATA)>
+<!ELEMENT bug_status (#PCDATA)>
+<!ELEMENT product (#PCDATA)>
+<!ELEMENT priority (#PCDATA)>
+<!ELEMENT version (#PCDATA)>
+<!ELEMENT rep_platform (#PCDATA)>
+<!ELEMENT assigned_to (#PCDATA)>
+<!ELEMENT delta_ts (#PCDATA)>
+<!ELEMENT component (#PCDATA)>
+<!ELEMENT reporter (#PCDATA)>
+<!ELEMENT target_milestone (#PCDATA)>
+<!ELEMENT bug_severity (#PCDATA)>
+<!ELEMENT creation_ts (#PCDATA)>
+<!ELEMENT qa_contact (#PCDATA)>
+<!ELEMENT status_whiteboard (#PCDATA)>
+<!ELEMENT op_sys (#PCDATA)>
+<!ELEMENT resolution (#PCDATA)>
+<!ELEMENT bug_file_loc (#PCDATA)>
+<!ELEMENT short_desc (#PCDATA)>
+<!ELEMENT keywords (#PCDATA)>
+<!ELEMENT dependson (#PCDATA)>
+<!ELEMENT blocks (#PCDATA)>
+<!ELEMENT cc (#PCDATA)>
+<!ELEMENT long_desc (who, bug_when, thetext)>
+<!ELEMENT who (#PCDATA)>
+<!ELEMENT bug_when (#PCDATA)>
+<!ELEMENT thetext (#PCDATA)>
+<!ELEMENT attachment (attachid, date, desc, type?, data?)>
+<!ELEMENT attachid (#PCDATA)>
+<!ELEMENT date (#PCDATA)>
+<!ELEMENT desc (#PCDATA)>
+<!ELEMENT type (#PCDATA)>
+<!ELEMENT data (#PCDATA)>

mozilla/webtools/bugzilla/changepassword.cgi

@@ -0,0 +1,39 @@
+#!/usr/bonsaitools/bin/perl -wT
+# -*- 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 the Bugzilla Bug Tracking System.
+#
+# The Initial Developer of the Original Code is Netscape Communications
+# Corporation. Portions created by Netscape are
+# Copyright (C) 1998 Netscape Communications Corporation. All
+# Rights Reserved.
+#
+# Contributor(s): Terry Weissman <terry@mozilla.org>
+
+use strict;
+
+print q{Content-type: text/html
+
+<HTML>
+<HEAD>
+<META HTTP-EQUIV="Refresh"
+  CONTENT="0; URL=userprefs.cgi">
+</HEAD>
+<BODY>
+This URL is obsolete.  Forwarding you to the correct one.
+<P>
+Going to <A HREF="userprefs.cgi">userprefs.cgi</A>
+<BR>
+</BODY>
+</HTML>
+}

mozilla/webtools/bugzilla/colchange.cgi

@@ -0,0 +1,124 @@
+#!/usr/bonsaitools/bin/perl -wT
+# -*- 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 the Bugzilla Bug Tracking System.
+#
+# The Initial Developer of the Original Code is Netscape Communications
+# Corporation. Portions created by Netscape are
+# Copyright (C) 1998 Netscape Communications Corporation. All
+# Rights Reserved.
+#
+# Contributor(s): Terry Weissman <terry@mozilla.org>
+
+use diagnostics;
+use strict;
+
+use lib qw(.);
+
+use vars qw(
+  @legal_keywords
+  $buffer
+  $template
+  $vars
+);
+
+require "CGI.pl";
+
+print "Content-type: text/html\n";
+
+# The master list not only says what fields are possible, but what order
+# they get displayed in.
+
+ConnectToDatabase();
+GetVersionTable();
+
+my @masterlist = ("opendate", "changeddate", "severity", "priority",
+                  "platform", "owner", "reporter", "status", "resolution",
+                  "product", "component", "version", "os", "votes");
+
+if (Param("usetargetmilestone")) {
+    push(@masterlist, "target_milestone");
+}
+if (Param("useqacontact")) {
+    push(@masterlist, "qa_contact");
+}
+if (Param("usestatuswhiteboard")) {
+    push(@masterlist, "status_whiteboard");
+}
+if (@::legal_keywords) {
+    push(@masterlist, "keywords");
+}
+
+
+push(@masterlist, ("summary", "summaryfull"));
+
+$vars->{masterlist} = \@masterlist;
+
+my @collist;
+if (defined $::FORM{'rememberedquery'}) {
+    my $splitheader = 0;
+    if (defined $::FORM{'resetit'}) {
+        @collist = @::default_column_list;
+    } else {
+        foreach my $i (@masterlist) {
+            if (defined $::FORM{"column_$i"}) {
+                push @collist, $i;
+            }
+        }
+        if (exists $::FORM{'splitheader'}) {
+            $splitheader = $::FORM{'splitheader'};
+        }
+    }
+    my $list = join(" ", @collist);
+    my $urlbase = Param("urlbase");
+    my $cookiepath = Param("cookiepath");
+    print "Set-Cookie: COLUMNLIST=$list ; path=$cookiepath ; expires=Sun, 30-Jun-2029 00:00:00 GMT\n";
+    print "Set-Cookie: SPLITHEADER=$::FORM{'splitheader'} ; path=$cookiepath ; expires=Sun, 30-Jun-2029 00:00:00 GMT\n";
+    print "Refresh: 0; URL=buglist.cgi?$::FORM{'rememberedquery'}\n";
+    print "\n";
+    print "<META HTTP-EQUIV=Refresh CONTENT=\"1; URL=$urlbase"."buglist.cgi?$::FORM{'rememberedquery'}\">\n";
+    print "<TITLE>What a hack.</TITLE>\n";
+    PutHeader ("Change columns");
+    print "Resubmitting your query with new columns...\n";
+    exit;
+}
+
+if (defined $::COOKIE{'COLUMNLIST'}) {
+    @collist = split(/ /, $::COOKIE{'COLUMNLIST'});
+} else {
+    @collist = @::default_column_list;
+}
+
+$vars->{collist} = \@collist;
+
+$vars->{splitheader} = 0;
+if ($::COOKIE{'SPLITHEADER'}) {
+    $vars->{splitheader} = 1;
+}
+
+my %desc = ();
+foreach my $i (@masterlist) {
+    $desc{$i} = $i;
+}
+
+$desc{'summary'} = "Summary (first 60 characters)";
+$desc{'summaryfull'} = "Full Summary";
+
+$vars->{desc} = \%desc;
+$vars->{buffer} = $::buffer;
+
+# Generate and return the UI (HTML page) from the appropriate template.
+print "Content-type: text/html\n\n";
+$template->process("list/change-columns.html.tmpl", $vars)
+  || ThrowTemplateError($template->error());
+

mozilla/webtools/bugzilla/collectstats.pl

@@ -0,0 +1,202 @@
+#!/usr/bonsaitools/bin/perl -w
+# -*- Mode: perl; indent-tabs-mode: nil -*-
+#
+# The contents of this file are subject to the Mozilla Public
+# License Version 1.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 the Bugzilla Bug Tracking System.
+#
+# The Initial Developer of the Original Code is Netscape Communications
+# Corporation. Portions created by Netscape are
+# Copyright (C) 1998 Netscape Communications Corporation. All
+# Rights Reserved.
+#
+# Contributor(s): Terry Weissman <terry@mozilla.org>,
+#                 Harrison Page <harrison@netscape.com>
+#         Gervase Markham <gerv@gerv.net>
+
+# Run me out of cron at midnight to collect Bugzilla statistics.
+
+
+use AnyDBM_File;
+use diagnostics;
+use strict;
+use vars @::legal_product;
+
+require "globals.pl";
+
+# tidy up after graphing module
+if (chdir("graphs")) {
+    unlink <./*.gif>;
+    unlink <./*.png>;
+    chdir("..");
+}
+
+ConnectToDatabase(1);
+GetVersionTable();
+
+my @myproducts;
+push( @myproducts, "-All-", @::legal_product );
+
+foreach (@myproducts) {
+    my $dir = "data/mining";
+
+    &check_data_dir ($dir);
+    &collect_stats ($dir, $_);
+}
+
+&calculate_dupes();
+
+sub check_data_dir {
+    my $dir = shift;
+
+    if (! -d) {
+        mkdir $dir, 0777;
+        chmod 0777, $dir;
+    }
+}
+
+sub collect_stats {
+    my $dir = shift;
+    my $product = shift;
+    my $when = localtime (time);
+
+    # NB: Need to mangle the product for the filename, but use the real
+    # product name in the query
+    my $file_product = $product;
+    $file_product =~ s/\//-/gs;
+    my $file = join '/', $dir, $file_product;
+    my $exists = -f $file;
+
+    if (open DATA, ">>$file") {
+        push my @row, &today;
+
+        foreach my $status ('NEW', 'ASSIGNED', 'REOPENED', 'UNCONFIRMED', 'RESOLVED', 'VERIFIED', 'CLOSED') {
+            if( $product eq "-All-" ) {
+                SendSQL("select count(bug_status) from bugs where bug_status='$status'");
+            } else {
+                SendSQL("select count(bug_status) from bugs where bug_status='$status' and product='$product'");
+            }
+
+            push @row, FetchOneColumn();
+        }
+
+        foreach my $resolution ('FIXED', 'INVALID', 'WONTFIX', 'LATER', 'REMIND', 'DUPLICATE', 'WORKSFORME', 'MOVED') {
+            if( $product eq "-All-" ) {
+                SendSQL("select count(resolution) from bugs where resolution='$resolution'");
+            } else {
+                SendSQL("select count(resolution) from bugs where resolution='$resolution' and product='$product'");
+            }
+
+            push @row, FetchOneColumn();
+        }
+
+        if (! $exists) {
+            print DATA <<FIN;
+# Bugzilla Daily Bug Stats
+#
+# Do not edit me! This file is generated.
+#
+# fields: DATE|NEW|ASSIGNED|REOPENED|UNCONFIRMED|RESOLVED|VERIFIED|CLOSED|FIXED|INVALID|WONTFIX|LATER|REMIND|DUPLICATE|WORKSFORME|MOVED
+# Product: $product
+# Created: $when
+FIN
+        }
+
+        print DATA (join '|', @row) . "\n";
+        close DATA;
+    } else {
+        print "$0: $file, $!";
+    }
+}
+
+sub calculate_dupes {
+    SendSQL("SELECT * FROM duplicates");
+
+    my %dupes;
+    my %count;
+    my @row;
+    my $key;
+    my $changed = 1;
+
+    my $today = &today_dash;
+
+    # Save % count here in a date-named file
+    # so we can read it back in to do changed counters
+    # First, delete it if it exists, so we don't add to the contents of an old file
+    if (my @files = <data/duplicates/dupes$today*>) {
+        unlink @files;
+    }
+   
+    dbmopen(%count, "data/duplicates/dupes$today", 0644) || die "Can't open DBM dupes file: $!";
+
+    # Create a hash with key "a bug number", value "bug which that bug is a
+    # direct dupe of" - straight from the duplicates table.
+    while (@row = FetchSQLData()) {
+        my $dupe_of = shift @row;
+        my $dupe = shift @row;
+        $dupes{$dupe} = $dupe_of;
+    }
+
+    # Total up the number of bugs which are dupes of a given bug
+    # count will then have key = "bug number", 
+    # value = "number of immediate dupes of that bug".
+    foreach $key (keys(%dupes)) 
+    {
+        my $dupe_of = $dupes{$key};
+
+        if (!defined($count{$dupe_of})) {
+            $count{$dupe_of} = 0;
+        }
+
+        $count{$dupe_of}++;
+    }   
+
+    # Now we collapse the dupe tree by iterating over %count until
+    # there is no further change.
+    while ($changed == 1)
+    {
+        $changed = 0;
+        foreach $key (keys(%count)) {
+            # if this bug is actually itself a dupe, and has a count...
+            if (defined($dupes{$key}) && $count{$key} > 0) {
+                # add that count onto the bug it is a dupe of,
+                # and zero the count; the check is to avoid
+                # loops
+                if ($count{$dupes{$key}} != 0) {
+                    $count{$dupes{$key}} += $count{$key};
+                    $count{$key} = 0;
+                    $changed = 1;
+                }
+            }
+        }
+    }
+
+    # Remove the values for which the count is zero
+    foreach $key (keys(%count))
+    {
+        if ($count{$key} == 0) {
+            delete $count{$key};
+        }
+    }
+   
+    dbmclose(%count);
+}
+
+sub today {
+    my ($dom, $mon, $year) = (localtime(time))[3, 4, 5];
+    return sprintf "%04d%02d%02d", 1900 + $year, ++$mon, $dom;
+}
+
+sub today_dash {
+    my ($dom, $mon, $year) = (localtime(time))[3, 4, 5];
+    return sprintf "%04d-%02d-%02d", 1900 + $year, ++$mon, $dom;
+}
+

mozilla/webtools/bugzilla/confirmhelp.html

@@ -0,0 +1,168 @@
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
+<html><head>
+
+<!--
+     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 the Bugzilla Bug Tracking System.
+    
+     The Initial Developer of the Original Code is Netscape Communications
+     Corporation. Portions created by Netscape are
+     Copyright (C) 2000 Netscape Communications Corporation. All
+     Rights Reserved.
+    
+     Contributor(s): Terry Weissman <terry@mozilla.org>
+-->
+
+<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
+<title>Understanding the UNCONFIRMED state, and other recent changes</title>
+</head>
+
+<body>
+<h1>Understanding the UNCONFIRMED state, and other recent changes</h1>
+
+<p>
+[This document is aimed primarily at people who have used Bugzilla
+before the UNCONFIRMED state was implemented.  It might be helpful for
+newer users as well.]
+</p>
+
+<p>
+
+New bugs in some products will now show up in a new state,
+UNCONFIRMED.  This means that we have nobody has confirmed that the
+bug is real.  Very busy engineers will probably generally ignore
+UNCONFIRMED that have been assigned to them, until they have been
+confirmed in one way or another.  (Engineers with more time will
+hopefully glance over their UNCONFIRMED bugs regularly.)
+</p>
+
+<p>
+The <a href="bug_status.html">page describing bug fields</a> has been
+updated to include UNCONFIRMED.
+</p>
+
+<p>
+There are two basic ways that a bug can become confirmed (and enter
+the NEW) state.
+</p>
+
+<ul>
+  <li> A user with the appropriate permissions (see below for more on
+       permissions) decides that the bug is a valid one, and confirms
+       it.  We hope to gather a small army of responsible volunteers
+       to regularly go through bugs for us.</li>
+  <li> The bug gathers a certain number of votes. <b>Any</b> valid Bugzilla user may vote for 
+bugs (each user gets a certain number of bugs); any UNCONFIRMED bug which 
+gets enough votes becomes automatically confirmed, and enters the NEW state.</li>
+</ul>
+
+<p>
+One implication of this is that it is worth your time to search the
+bug system for duplicates of your bug to vote on them, before
+submitting your own bug.  If we can spread around knowledge of this
+fact, it ought to help cut down the number of duplicate bugs in the
+system. 
+</p>
+
+<h2>Permissions.</h2>
+
+<p>
+Users now have a certain set of permissions.  To see your permissions,
+check out the
+<a href="userprefs.cgi?bank=permissions">user preferences</a> page.
+</p>
+
+<p>
+If you have the "Can confirm a bug" permission, then you will be able
+to move UNCONFIRMED bugs into the NEW state.
+</p>
+
+<p>
+If you have the "Can edit all aspects of any bug" permission, then you
+can tweak anything about any bug.  If not, you may only edit those
+bugs that you have submitted, or that you have assigned to you (or
+qa-assigned to you).  However, anyone may add a comment to any bug.
+</p>
+
+<p>
+Some people (initially, the initial owners and initial qa-contacts for
+components in the system) have the ability to give the above two
+permissions to other people.  So, if you really feel that you ought to
+have one of these permissions, a good person to ask (via private
+email, please!) is the person who is assigned a relevant bug.
+</p>
+
+<h2>Other details.</h2>
+
+<p>
+An initial stab was taken to decide who would be given which of the
+above permissions.  This was determined by some simple heurstics of
+who was assigned bugs, and who the default owners of bugs were, and a
+look at people who seem to have submitted several bugs that appear to
+have been interesting and valid.  Inevitably, we have failed to give
+someone the permissions they deserve.  Please don't take it
+personally; just bear with us as we shake out the new system.
+</p>
+
+<p>
+People with one of the two bits above can easily confirm their own
+bugs, so bugs they submit will actually start out in the NEW state.
+They can override this when submitting a bug.
+</p>
+
+<p>
+People can ACCEPT or RESOLVE a bug assigned to them, even if they
+aren't allowed to confirm it.  However, the system remembers, and if
+the bug gets REOPENED or reassigned to someone else, it will revert
+back to the UNCONFIRMED state.  If the bug has ever been confirmed,
+then REOPENing or reassigning will cause it to go to the NEW or
+REOPENED state.
+</p>
+
+<p>
+Note that only some products support the UNCONFIRMED state.  In other
+products, all new bugs will automatically start in the NEW state.
+</p>
+
+<h2>Things still to be done.</h2>
+
+<p>
+There probably ought to be a way to get a bug back into the
+UNCONFIRMED state, but there isn't yet.
+</p>
+
+<p>
+If a person has submitted several bugs that get confirmed, then this
+is probably a person who understands the system well, and deserves the
+"Can confirm a bug" permission.  This kind of person should be
+detected and promoted automatically.
+</p>
+
+<p>
+There should also be a way to automatically promote people to get the
+"Can edit all aspects of any bug" permission.
+</p>
+
+<p>
+The "enter a new bug" page needs to be revamped with easy ways for new
+people to educate themselves on the benefit of searching for a bug
+like the one they're about to submit and voting on it, rather than
+adding a new useless duplicate.
+</p>
+
+<hr>
+<p>
+<!-- hhmts start -->
+Last modified: Sun Apr 14 12:55:14 EST 2002
+<!-- hhmts end -->
+</p>
+</body> </html>

mozilla/webtools/bugzilla/contrib/BugzillaEmail.pm

@@ -0,0 +1,79 @@
+# -*- 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.
+#
+# This code is based on code found in bug_email.pl from the bugzilla
+# email tracker.  Initial contributors are :: 
+#                 Terry Weissman <terry@mozilla.org>
+#                 Gregor Fischer <fischer@suse.de>
+#                 Klaas Freitag  <freitag@suse.de>
+#                 Seth Landsman  <seth@dworkin.net>
+
+# The purpose of this module is to abstract out a bunch of the code
+#  that is central to email interfaces to bugzilla and its database
+
+# Contributor : Seth Landsman <seth@dworkin.net>
+
+# Initial checkin : 03/15/00 (SML)
+#  findUser() function moved from bug_email.pl to here
+
+push @INC, "../."; # this script now lives in contrib
+
+require "globals.pl";
+
+use diagnostics;
+use strict;
+
+my $EMAIL_TRANSFORM_NONE = "email_transform_none";
+my $EMAIL_TRANSFORM_BASE_DOMAIN = "email_transform_base_domain";
+my $EMAIL_TRANSFORM_NAME_ONLY = "email_transform_name_only";
+
+# change to do incoming email address fuzzy matching
+my $email_transform = $EMAIL_TRANSFORM_NAME_ONLY;
+
+# findUser()
+# This function takes an email address and returns the user email.
+# matching is sloppy based on the $email_transform parameter
+sub findUser($) {
+  my ($address) = @_;
+  # if $email_transform is $EMAIL_TRANSFORM_NONE, return the address, otherwise, return undef
+  if ($email_transform eq $EMAIL_TRANSFORM_NONE) {
+    my $stmt = "SELECT login_name FROM profiles WHERE profiles.login_name = \'$address\';";
+    SendSQL($stmt);
+    my $found_address = FetchOneColumn();
+    return $found_address;
+  } elsif ($email_transform eq $EMAIL_TRANSFORM_BASE_DOMAIN) {
+    my ($username) = ($address =~ /(.+)@/);
+    my $stmt = "SELECT login_name FROM profiles WHERE profiles.login_name RLIKE \'$username\';";
+    SendSQL($stmt);
+
+    my $domain;
+    my $found = undef;
+    my $found_address;
+    my $new_address = undef;
+    while ((!$found) && ($found_address = FetchOneColumn())) {
+      ($domain) = ($found_address =~ /.+@(.+)/);
+      if ($address =~ /$domain/) {
+        $found = 1;
+        $new_address = $found_address;
+      }
+    }
+    return $new_address;
+  } elsif ($email_transform eq $EMAIL_TRANSFORM_NAME_ONLY) {
+    my ($username) = ($address =~ /(.+)@/);
+    my $stmt = "SELECT login_name FROM profiles WHERE profiles.login_name RLIKE \'$username\';";
+    SendSQL($stmt);
+    my $found_address = FetchOneColumn();
+    return $found_address;
+  }
+}
+
+1;

mozilla/webtools/bugzilla/contrib/README

@@ -0,0 +1,22 @@
+This directory contains contributed software related to Bugzilla.
+Things in here have not necessarily been tested or tried by anyone
+except the original contributor, so tred carefully.  But it may still
+be useful to you.
+
+This directory includes:
+
+  mysqld-watcher.pl --  This script can be installed as a frequent cron 
+                        job to clean up stalled/dead queries.
+        gnats2bz.pl --  A perl script to help import bugs from a GNATS 
+                        database into a Bugzilla database.  Contributed by
+                        Tom Schutter <tom@platte.com>
+
+       bug_email.pl --  A perl script that can receive email containing
+                        bug reports (email-interface). Contributed by
+                        Klaas Freitag <freitag@SuSE.de>
+	
+      README.Mailif --  Readme describing the mail interface.
+  bugmail_help.html --  User help page for the mail interface.
+
+       yp_nomail.sh --  Script you can run via cron that regularly updates
+                        the nomail file for terminated employees 

mozilla/webtools/bugzilla/contrib/README.Mailif

@@ -0,0 +1,80 @@
+
+The Bugzilla Mail interface
+===========================
+
+(UPDATE 03/14/00 to better reflect reality by SML)
+
+The Bugzilla Mail interface allows to submit bugs to Bugzilla by email.
+
+The Mail Interface Contribution consists of three files:
+README.Mailif - this readme.
+bug_email.pl  - the script
+bugmail_help.html - a user help html site
+
+Installation:
+
+Next is to add a user who receives the bugmails, e. g. bugmail. Create a 
+mail account and a home directory for the user. 
+
+The mailinterface script bug_email.pl needs to get the mail through stdin.
+I use procmail for that, with the following line in the .procmailrc:
+
+BUGZILLA_HOME=/usr/local/httpd/htdocs/bugzilla
+:0 c
+|(cd $BUGZILLA_HOME/contrib; ./bug_email.pl)
+
+This defines the Bugzilla directory as the variable BUGZILLA_HOME and passes
+all incoming mail to the script after cd'ing into the bugzilla home.
+
+In some cases, it is necessary to alter the headers of incoming email.  The 
+additional line to procmail :
+
+:0 fhw
+| formail -I "From " -a "From "
+
+fixes many problems.
+
+See bugzilla.procmailrc for a sample procmailrc that works for me (SML) and
+also deals with bugzilla_email_append.pl
+
+Customation:
+
+There are some values inside the script which need to be customized for your
+needs:
+
+1. In sub-routine Reply (search 'sub Reply':
+there is the line
+    print MAIL "From: Bugzilla Mailinterface<yourmail\@here.com>\n";
+                                            ^^^^^^^^^^^^^^^^^^^^
+Fill in your correct mail here. That will make it easy for people to reply
+to the mail.
+
+2. check, if your sendmail resides in /usr/sbin/sendmail, change the path if neccessary.
+Search the script after 'default' - you find some default-Settings for bug
+reports, which are used, if the sender did not send a field for it. The defaults
+should be checked and changed.
+
+Thats hopefully all, we will come up with any configuration file or something.
+
+
+If your mail works, your script will insert mails from now on.
+
+The mailinterface supports two commandline switches:
+
+There are two command line switches :
+
+-t: Testmode
+    The mailinterface does not really insert the bug into the database, but
+    writes some debug output to stdout and writes the mail into the file
+    bug_email_test.log in the data-dir.
+
+-r: restricted mode
+    All lines before the first line with a keyword character are skipped.
+    In not restricted, default mode, these lines are added to the long 
+    description of the bug.
+
+
+02/2000 - Klaas Freitag, SuSE GmbH <freitag@suse.de>
+03/2000 - Seth M. Landsman <seth@cs.brandeis.edu>
+ bug_email.pl now lives out of bugzilla/contrib
+ added line about formail

mozilla/webtools/bugzilla/contrib/bugmail_help.html

@@ -0,0 +1,223 @@
+<HTML>
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
+<!--
+     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 the Bugzilla Bug Tracking System.
+    
+     Contributor(s): Klaas Freitag <Freitag@SuSE.de>
+-->
+
+<HEAD> <TITLE>Bugzilla Mail Interface</TITLE> </HEAD>
+<BODY BGCOLOR="#FFFFFF">
+<CENTER><H1>The Bugzilla Mail Interface</H1>
+Contributor: <A HREF="mailto:freitag@suse.de">Klaas Freitag</A>, SuSE GmbH 
+</CENTER>
+<P>
+The bugzilla Mail interface allows the registered bugzilla users to submit bugs by 
+sending email with a bug description. This is usefull for people, who do not work 
+inhouse and want to submitt bugs to the bugzilla system.
+<p>
+
+
+I know, show me the <A HREF="#examplemail">example-mail !</A>
+
+
+<H2>What do you need to do to submitt a bug by mail ?</H2>
+You need to send a email in the described format to the bugmail-user of the 
+bugzilla-system. This is <A HREF="mailto:our_bugzilla@xyz.com">yourbugzilla@here.com</A>
+
+You receive a reply mail with the new bug-ID if your request was ok. 
+If not, you get a mail with 
+some help on the bugmail system and a specific analysis of your request.
+<P>
+Please dont refuse to send one or two wrong mails, you will get all the information 
+you need in the replies, and <I>only</I> in the mail replies. The information on this
+page, concerning available products, versions and so on, is not dynamicly generated and 
+may  be old therefore.
+
+<H1>The Mail Format</H1>
+The bugmail needs a special format , which consists of some keywords and suitable 
+values for them and a description text. Note that the keyword block needs to be
+above of the description text.
+
+<H2>Keywords</H2>
+You need to tell bugzilla some properties of the bugs. This is done by keywords, which
+start on a new line with a @, followed by the keyword and and equal-sign, followed by a
+hopefully valid value.
+
+
+<TABLE BORDER=4 FRAME=box CELLSPACING="5" width=95%> <COLGROUP> <col width="2*"> 
+<col width="5*"> <col width="1*"> </COLGROUP>
+	<TR>
+		<TH>Keyword</TH>
+		<TH>Value description</TH>
+		<TH>required and default value</TH>
+	</TR>
+	<TR>
+	        <TD>@product</TD>
+	        <TD>The product which has a bug</TD>
+	        <TD>yes. <br> This is the most important information. Many other
+		fields depend on the product.</TD>
+	</TR>
+	<TR>
+	        <TD>@component</TD>
+	        <TD>the desired component which is affected by the bug</TD>
+	        <TD>yes. <br> As the @product, this is a very important 
+		field.</TD>
+	</TR>
+	<TR>
+	        <TD>@version</TD>
+	        <TD>The version of the product</TD>
+	        <TD>yes. <br>See @product and @component</TD>
+	</TR>
+	<TR>
+	        <TD>@short_desc</TD>
+	        <TD>A summary of your bug report</TD>
+	        <TD>yes. <br>This summary of the error you want to report 
+		describes what happen. You may skip the long description,
+		but not this summary.<br>
+		<b>Note:</b>The short description may be given in the mail subject
+		instead of using the keyword !</TD>
+	</TR>
+	<TR>
+	        <TD>@rep_platform</TD>
+	        <TD>The desired platform</TD>
+	        <TD>no.<br>If you dont give a value, this field is set to <I>All</I>.</TD>
+	</TR>
+	<TR>
+	        <TD>@bug_severity</TD>
+	        <TD>The severity of the bug</TD>
+	        <TD>no. <br> If you dont give a value, this field is set to 
+		<I>normal</I></TD>
+	</TR>
+	<TR>
+	        <TD>@priority</TD>
+	        <TD>The priority of the bug</TD>
+	        <TD>no.<br>If you dont give a value, this field is set to <I>P3</I></TD>
+	</TR>
+	<TR>
+	        <TD>@op_sys</TD>
+	        <TD>The operating system</TD>
+	        <TD>no.<br>If you dont give a value, this field is set to <I>Linux</I>.</TD>
+	</TR>
+	<TR>
+	        <TD>@assigned_to</TD>
+	        <TD>The one to whom the bug is assigned to</TD>
+	        <TD>no. <br>There is an initial owner for every product/version/component.
+		He owns the bug by default. The initial owner can only be found if 
+		product, version and component are valid.</TD>
+	</TR>
+	<TR>
+	        <TD>@bug_file_loc</TD>
+	        <TD>?</TD>
+	        <TD>no.</TD>
+	</TR>
+	<TR>
+	        <TD>@status_whiteboard</TD>
+	        <TD>?</TD>
+	        <TD>no.</TD>
+	</TR>
+	<TR>
+	        <TD>@target_milestone</TD>
+	        <TD>?</TD>
+	        <TD>no.</TD>
+	</TR>
+	<TR>
+	        <TD>@groupset</TD>
+	        <TD>rules the visibility of the bug.</TD>
+	        <TD>no.<br>This value defaults to the smallest of the available groups,
+		which is <I>readInternal</I>.</TD>
+	</TR>
+	<TR>
+	        <TD>@qa_contact</TD>
+	        <TD>the quality manager for the product</TD>
+	        <TD>no.<br>This value can be retrieved from product, component and 
+		version</TD>
+	</TR>
+
+</TABLE>
+<H2>Valid values</H2>
+Give string values for the most keys above. Some keywords  require special values:<br>
+<ol>
+<li>E-Mail adresses: If you want to set the qa-contact, specify a email-adress for @qa_contact. The email must be known by bugzilla of course.</li>
+<li>Listvalues: Most of the values have to be one of a list of valid values. Try by sending
+a mail and read the reply. Skip fields if you dont get help for them unless you dont know
+which values you may choose.</li>
+<li>free Text: The descriptions may be free text. </li>
+<li>Special: The field groupset may be specified in different in three different kinds:
+ <ol>
+    <li> A plain numeric way, which is one usually huge number, e. g. <I>65536</I></li>
+    <li> a string with added numbers e.g. <I>65536+131072</I></li>
+    <li> a string list, e.g. <I>ReadInternal, ReadBeta </I></li>
+ </ol>
+</li>
+</ol>
+
+<p>
+
+But most of them need <b>valid</b> values.
+<p>
+Sorry, you will not find lists of valid products, components and the other stuff
+here. Send a mail to with any text, and you will get a list of valid keywords in the reply.
+
+<p>
+Some of the values must be choosen from a list:<br>
+<ol>
+  <li>bug_severity: blocker, critical, major, normal, minor, trivial, enhancement</li>
+  <li>op_sys: Linux </li>
+  <li>priority: P1, P2, P3, P4, P5</li>
+  <li>rep_platform: All, i386, AXP, i686, Other</li></ol>
+  
+
+<p>
+
+After you have specified the required keywords and maybe some other value, you may 
+describe your bug. You dont need  a keyword for starting your bug description. All 
+text which follows the keyword block is handled as long description of the bug.
+<p>
+
+The bugmail interface is able to find required information by itself. E.g. if you specify
+a product which has exactly one component, this component will be found by the interface
+automatically. 
+
+<H1>Attachments</H1>
+
+The mail interface is able to cope with MIME-attachments. 
+People could for example add a logfile as a mail attachment, and it will appear in 
+bugzilla as attachment. A comment for the attachment should be added, it will describe
+the attachment in bugzilla.
+
+<H1><A NAME="examplemail">Example Mail</A></H1>
+
+See the example of the mail <b>body</b> (Dont forget to specify the short description
+in the mail subject):<hr><pre>
+
+  @product      = Bugzilla
+  @component    = general
+  @version      = All
+  @groupset     = ReadWorld ReadPartners
+  @op_sys       = Linux
+  @priority     = P3
+  @rep_platform = i386
+
+
+  This is the description of the bug I found. It is not neccessary to start
+  it with a keyword. 
+
+  Note: The short_description is neccessary and may be given with the keyword
+  @short_description or will be retrieved from the mail subject.
+
+
+</pre><hr>
+
+</BODY>
+</HTML>

mozilla/webtools/bugzilla/contrib/bugzilla.procmailrc

@@ -0,0 +1,30 @@
+:0 fhw
+| formail -I "From " -a "From "
+
+BUGZILLA_HOME=/home/bugzilla/WEB/bugzilla/contrib
+
+:0
+* ^Subject: .*\[Bug .*\]
+RESULT=|(cd $BUGZILLA_HOME && ./bugzilla_email_append.pl)
+
+
+# Feed mail to stdin of bug_email.pl
+:0 Ec
+#* !^Subject: .*[Bug .*]
+RESULT=|(cd $BUGZILLA_HOME && ./bug_email.pl )
+
+# write result to a logfile
+:0 c
+|echo `date '+%d.%m.%y %H:%M:  '` $RESULT >> $HOME/bug_email.log
+
+
+:0 c
+|echo "----------------------------------" >> $HOME/bug_email.log
+
+:0 c
+$HOME/bug_email.log
+ 
+# Move mail to the inbox
+:0
+$HOME/Mail/INBOX
+

mozilla/webtools/bugzilla/contrib/bugzilla_email_append.pl

@@ -0,0 +1,189 @@
+#!/usr/bin/perl -w
+# -*- 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 purpose of this script is to take an email message, which
+# specifies a bugid and append it to the bug as part of the longdesc
+# table
+
+# Contributor : Seth M. Landsman <seth@dworkin.net>
+
+# 03/15/00 : Initial version by SML
+# 03/15/00 : processmail gets called
+
+# Email subject must be of format :
+# .* Bug ### .*
+# replying to a typical bugzilla email should be valid
+
+# TODO : 
+# 1. better way to get the body text (I don't know what dump_entity() is 
+#   actually doing
+
+use diagnostics;
+use strict;
+use MIME::Parser;
+
+push @INC, "../."; # this script lives in contrib
+require "globals.pl";
+require "BugzillaEmail.pm";
+
+# Create a new MIME parser:
+my $parser = new MIME::Parser;
+
+my $Comment = "";
+
+# Create and set the output directory:
+# FIXME: There should be a $BUGZILLA_HOME variable (SML)
+(-d "../data/mimedump-tmp") or mkdir "../data/mimedump-tmp",0755 or die "mkdir: $!";
+(-w "../data/mimedump-tmp") or die "can't write to directory";
+
+$parser->output_dir("../data/mimedump-tmp");
+    
+# Read the MIME message:
+my $entity = $parser->read(\*STDIN) or die "couldn't parse MIME stream";
+$entity->remove_sig(10);          # Removes the signature in the last 10 lines
+
+# Getting values from parsed mail
+my $Sender = $entity->get( 'From' );
+$Sender ||=  $entity->get( 'Reply-To' );
+my $Message_ID = $entity->get( 'Message-Id' );
+
+die (" *** Cant find Sender-adress in sent mail ! ***\n" ) unless defined( $Sender );
+chomp( $Sender );
+chomp( $Message_ID );
+
+print "Dealing with the sender $Sender\n";
+
+ConnectToDatabase();
+
+my $SenderShort = $Sender;
+$SenderShort =~ s/^.*?([a-zA-Z0-9_.-]+?\@[a-zA-Z0-9_.-]+\.[a-zA-Z0-9_.-]+).*$/$1/;
+
+$SenderShort = findUser($SenderShort);
+
+print "SenderShort is $SenderShort\n";
+if (!defined($SenderShort)) {
+  $SenderShort = $Sender;
+  $SenderShort =~ s/^.*?([a-zA-Z0-9_.-]+?\@[a-zA-Z0-9_.-]+\.[a-zA-Z0-9_.-]+).*$/$1/;
+}
+print "The sendershort is now $SenderShort\n";
+
+if (!defined($SenderShort)) {
+  DealWithError("No such user $SenderShort exists.");
+}
+
+my $Subject = $entity->get('Subject');
+print "The subject is $Subject\n";
+
+my ($bugid) = ($Subject =~ /\[Bug ([\d]+)\]/);
+print "The bugid is $bugid\n";
+
+# make sure the bug exists
+
+SendSQL("SELECT bug_id FROM bugs WHERE bug_id = $bugid;");
+my $found_id = FetchOneColumn();
+print "Did we find the bug? $found_id-\n";
+if (!defined($found_id)) {
+  DealWithError("Bug $bugid does not exist");
+}
+
+# get the user id
+SendSQL("SELECT userid FROM profiles WHERE login_name = \'$SenderShort\';");
+my $userid = FetchOneColumn();
+if (!defined($userid)) {
+  DealWithError("Userid not found for $SenderShort");
+}
+
+# parse out the text of the message
+dump_entity($entity);
+
+# Get rid of the bug id
+$Subject =~ s/\[Bug [\d]+\]//;
+#my $Comment = "This is only a test ...";
+my $Body = "Subject: " . $Subject . "\n" . $Comment;
+
+# shove it in the table
+my $long_desc_query = "INSERT INTO longdescs SET bug_id=$found_id, who=$userid, bug_when=NOW(), thetext=" . SqlQuote($Body) . ";";
+SendSQL($long_desc_query);
+
+system("cd .. ; ./processmail $found_id '$SenderShort'");
+
+sub DealWithError {
+  my ($reason) = @_;
+  print $reason . "\n";
+}
+
+# Yanking this wholesale from bug_email, 'cause I know this works.  I'll
+#  figure out what it really does later
+#------------------------------
+#
+# dump_entity ENTITY, NAME
+#
+# Recursive routine for parsing a mime coded mail.
+# One mail may contain more than one mime blocks, which need to be
+# handled. Therefore, this function is called recursively.
+#
+# It gets the for bugzilla important information from the mailbody and 
+# stores them into the global attachment-list @attachments. The attachment-list
+# is needed in storeAttachments.
+#
+sub dump_entity {
+    my ($entity, $name) = @_;
+    defined($name) or $name = "'anonymous'";
+    my $IO;
+
+
+    # Output the body:
+    my @parts = $entity->parts;
+    if (@parts) {                     # multipart...
+	my $i;
+	foreach $i (0 .. $#parts) {       # dump each part...
+	    dump_entity($parts[$i], ("$name, part ".(1+$i)));
+	}
+    } else {                            # single part...	
+
+	# Get MIME type, and display accordingly...
+	my $msg_part = $entity->head->get( 'Content-Disposition' );
+	
+	$msg_part ||= ""; 
+
+	my ($type, $subtype) = split('/', $entity->head->mime_type);
+	my $body = $entity->bodyhandle;
+	my ($data, $on_disk );
+
+	if(  $msg_part =~ /^attachment/ ) {
+	    # Attached File
+	    my $des = $entity->head->get('Content-Description');
+	    $des ||= "";
+
+	    if( defined( $body->path )) { # Data is on disk
+		$on_disk = 1;
+		$data = $body->path;
+		
+	    } else {                      # Data is in core
+		$on_disk = 0;
+		$data = $body->as_string;
+	    }
+#	    push ( @attachments, [ $data, $entity->head->mime_type, $on_disk, $des ] );
+	} else {
+	    # Real Message
+	    if ($type =~ /^(text|message)$/) {     # text: display it...
+		if ($IO = $body->open("r")) {
+		    $Comment .=  $_ while (defined($_ = $IO->getline));
+		    $IO->close;
+		} else {       # d'oh!
+		    print "$0: couldn't find/open '$name': $!";
+		}
+	    } else { print "Oooops - no Body !\n"; }
+	}
+    }
+}

mozilla/webtools/bugzilla/contrib/cmdline/buglist

@@ -0,0 +1,94 @@
+#!/bin/sh
+# 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 the Bugzilla Bug Tracking System.
+#
+# The Initial Developer of the Original Code is 
+# Andreas Franke <afranke@ags.uni-sb.de>.
+# Corporation. Portions created by Andreas Franke are
+# Copyright (C) 2001 Andreas Franke. All
+# Rights Reserved.
+#
+# Contributor(s): 
+
+conf="`dirname $0`/query.conf"
+
+query="http://bugzilla.mozilla.org/buglist.cgi?cmd=doit"
+defaultcolumnlist="severity priority platform status resolution target_milestone status_whiteboard keywords summaryfull"
+
+chart=0
+and=0
+while test "$1" != ""; do
+    arg=$1
+    arg_len=`expr length ${arg}`
+    if test `expr substr "${arg}" 1 2` == "--"; then
+        eq_pos=`expr match ${arg} '--.*='`
+        if test "${eq_pos}" == "0"; then
+            echo 'Missing value for long option '"${arg}"' ("=" not found)' 1>&2
+            exit 1;
+        fi
+        # extract option name
+        let name_len=${eq_pos}-3
+        name=`expr substr ${arg} 3 ${name_len}`
+        # extract option value
+        let val_start=${eq_pos}+1
+        let val_len=${arg_len}-${eq_pos}
+        val=`expr substr ${arg} ${val_start} ${val_len}`
+    elif test `expr substr ${arg} 1 1` == "-" &&
+         test "`expr substr ${arg} 2 1`" != ""; then
+        # extract
+        name=`expr substr ${arg} 2 1`
+        let val_len=${arg_len}-2
+        val=`expr substr ${arg} 3 ${val_len}`
+    else
+        name="default"
+        val="${arg}"
+        #echo "Unrecognized option ${arg}" 1>&2
+        #exit 1
+    fi
+
+    # find field and comparison type for option ${name}
+    field=`grep '"'${name}'"' ${conf} | awk '{printf $1}'`
+    type=`grep '"'${name}'"' ${conf} | awk '{printf $2}'`
+    if test "${field}" == ""  || test "${type}" == ""; then
+        echo "Field name & comparison type not found for option ${name}." 1>&2
+        exit 1;
+    fi
+
+    or=0
+    while test "${val}" != ""; do
+        comma_idx=`expr index ${val} ,`
+        if test ${comma_idx} == "0"; then
+            val1="${val}"
+            val=""
+        else
+            let val1_len=${comma_idx}-1
+            val1=`expr substr ${val} 1 ${val1_len}`
+            val_len=`expr length ${val}`
+            let rest_start=${comma_idx}+1
+            let rest_len=${val_len}-${comma_idx}
+            val=`expr substr ${val} ${rest_start} ${rest_len}`
+        fi
+        query="${query}&field${chart}-${and}-${or}=${field}"
+        query="${query}&type${chart}-${and}-${or}=${type}"
+        query="${query}&value${chart}-${and}-${or}=${val1}"
+        #echo "----- ${name} : ${field} : ${type} : ${val1} -----" 1>&2
+        let or=${or}+1
+    done
+    let chart=${chart}+1
+    shift
+done
+
+outputfile="/dev/stdout"
+#outputfile="buglist.html"
+#\rm -f ${outputfile}
+wget -q -O ${outputfile} --header="Cookie: COLUMNLIST=${COLUMNLIST-${defaultcolumnlist}}" "${query}"
+

mozilla/webtools/bugzilla/contrib/cmdline/bugs

@@ -0,0 +1,31 @@
+#!/bin/sh
+# 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 the Bugzilla Bug Tracking System.
+#
+# The Initial Developer of the Original Code is 
+# Andreas Franke <afranke@ags.uni-sb.de>.
+# Corporation. Portions created by Andreas Franke are
+# Copyright (C) 2001 Andreas Franke. All
+# Rights Reserved.
+#
+# Contributor(s): 
+
+buglist="`dirname $0`/buglist"
+htmlfile="`dirname $0`/buglist.html"
+
+${buglist} "$@" 2>&1 1>${htmlfile}
+if test ${?} == "0"; then
+    echo `grep 'TR VALIGN=TOP ALIGN=LEFT CLASS=' ${htmlfile} | sed -e 's/<TR.*id=//' | sed -e 's/".*//'` | sed -e 's/ /\,/g'
+else
+    cat ${htmlfile} 1>&2
+    exit 1
+fi

mozilla/webtools/bugzilla/contrib/cmdline/query.conf

@@ -0,0 +1,49 @@
+# 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 the Bugzilla Bug Tracking System.
+#
+# The Initial Developer of the Original Code is 
+# Andreas Franke <afranke@ags.uni-sb.de>.
+# Corporation. Portions created by Andreas Franke are
+# Copyright (C) 2001 Andreas Franke. All
+# Rights Reserved.
+#
+# Contributor(s): 
+
+#
+# This is `query.conf', the config file for `buglist'.
+#
+# Columns: 1: field_name, 2: comparison_type, 3: cmd-line options
+#
+bug_status              substring       "s","status"
+resolution              substring       "r","resolution"
+rep_platform            substring       "p","platform"
+op_sys                  substring       "o","os","opsys"
+priority                substring       "p","priority"
+bug_severity            substring       "S","severity"
+assigned_to             substring       "A","O","owner","assignedto"
+reporter                substring       "R","reporter"
+qa_contact              substring       "Q","qa","qacontact"
+cc                      substring       "C","cc"
+product                 substring       "product"
+version                 substring       "V","version"
+component               substring       "c","component"
+target_milestone        substring       "M","milestone"
+short_desc              substring       "default","summary"
+longdesc                substring       "d","description","longdesc"
+bug_file_loc            substring       "u","url"
+status_whiteboard       substring       "w","whiteboard"
+keywords                substring       "k","K","keywords"
+attachments.description substring       "attachdesc"
+attachments.thedata     substring       "attachdata"
+attachments.mimetype    substring       "attachmime"
+dependson               substring       # bug 30823
+blocked                 substring       # bug 30823

mozilla/webtools/bugzilla/contrib/cvs-update.sh

@@ -0,0 +1,40 @@
+#!/bin/sh
+#
+# 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 the Bugzilla Bug Tracking System.
+#
+# The Initial Developer of the Original Code is Netscape Communications
+# Corporation. Portions created by Netscape are
+# Copyright (C) 1998 Netscape Communications Corporation. All
+# Rights Reserved.
+#
+# Contributor(s): Dawn Endico <endico@mozilla.org>
+
+
+# Keep a record of all cvs updates made from a given directory.
+#
+# Later, if changes need to be backed out, look at the log file
+# and run the cvs command with the date that you want to back
+# out to. (Probably the second to last entry).
+
+#DATE=`date +%e/%m/%Y\ %k:%M:%S\ %Z`
+DATE=`date`
+COMMAND="cvs update -d -P -D" 
+echo $COMMAND \"$DATE\" >> cvs-update.log
+$COMMAND "$DATE"
+
+
+# sample log file
+#cvs update -P -D "11/04/2000 20:22:08 PDT"
+#cvs update -P -D "11/05/2000 20:22:22 PDT"
+#cvs update -P -D "11/07/2000 20:26:29 PDT"
+#cvs update -P -D "11/08/2000 20:27:10 PDT"

mozilla/webtools/bugzilla/contrib/jb2bz.py

@@ -0,0 +1,303 @@
+#!/usr/local/bin/python
+# -*- mode: python -*-
+
+"""
+jb2bz.py - a nonce script to import bugs from JitterBug to Bugzilla
+Written by Tom Emerson, tree@basistech.com
+
+This script is provided in the hopes that it will be useful.  No
+rights reserved. No guarantees expressed or implied. Use at your own
+risk. May be dangerous if swallowed. If it doesn't work for you, don't
+blame me. It did what I needed it to do.
+
+This code requires a recent version of Andy Dustman's MySQLdb interface,
+
+    http://sourceforge.net/projects/mysql-python
+
+Share and enjoy.
+"""
+
+import rfc822, mimetools, multifile, mimetypes
+import sys, re, glob, StringIO, os, stat, time
+import MySQLdb, getopt
+
+# mimetypes doesn't include everything we might encounter, yet.
+if not mimetypes.types_map.has_key('.doc'):
+    mimetypes.types_map['.doc'] = 'application/msword'
+
+if not mimetypes.encodings_map.has_key('.bz2'):
+    mimetypes.encodings_map['.bz2'] = "bzip2"
+
+bug_status='NEW'
+component="default"
+version=""
+product="" # this is required, the rest of these are defaulted as above
+
+"""
+Each bug in JitterBug is stored as a text file named by the bug number.
+Additions to the bug are indicated by suffixes to this:
+
+<bug>
+<bug>.followup.*
+<bug>.reply.*
+<bug>.notes
+
+The dates on the files represent the respective dates they were created/added.
+
+All <bug>s and <bug>.reply.*s include RFC 822 mail headers. These could include
+MIME file attachments as well that would need to be extracted.
+
+There are other additions to the file names, such as
+
+<bug>.notify
+
+which are ignored.
+
+Bugs in JitterBug are organized into directories. At Basis we used the following
+naming conventions:
+
+<product>-bugs         Open bugs
+<product>-requests     Open Feature Requests
+<product>-resolved     Bugs/Features marked fixed by engineering, but not verified
+<product>-verified     Resolved defects that have been verified by QA
+
+where <product> is either:
+
+<product-name>
+
+or
+
+<product-name>-<version>
+"""
+
+def process_notes_file(current, fname):
+    try:
+        new_note = {}
+        notes = open(fname, "r")
+        s = os.fstat(notes.fileno())
+
+        new_note['text']  = notes.read()
+        new_note['timestamp'] = time.gmtime(s[stat.ST_MTIME])
+
+        notes.close()
+
+        current['notes'].append(new_note)
+
+    except IOError:
+        pass
+
+def process_reply_file(current, fname):
+    new_note = {}
+    reply = open(fname, "r")
+    msg = rfc822.Message(reply)
+    new_note['text'] = "%s\n%s" % (msg['From'], msg.fp.read())
+    new_note['timestamp'] = rfc822.parsedate_tz(msg['Date'])
+    current["notes"].append(new_note)
+
+def add_notes(current):
+    """Add any notes that have been recorded for the current bug."""
+    process_notes_file(current, "%d.notes" % current['number'])
+
+    for f in glob.glob("%d.reply.*" % current['number']):
+        process_reply_file(current, f)
+
+    for f in glob.glob("%d.followup.*" % current['number']):
+        process_reply_file(current, f)
+
+def maybe_add_attachment(current, file, submsg):
+    """Adds the attachment to the current record"""
+    cd = submsg["Content-Disposition"]
+    m = re.search(r'filename="([^"]+)"', cd)
+    if m == None:
+        return
+    attachment_filename = m.group(1)
+    if (submsg.gettype() == 'application/octet-stream'):
+        # try get a more specific content-type for this attachment
+        type, encoding = mimetypes.guess_type(m.group(1))
+        if type == None:
+            type = submsg.gettype()
+    else:
+        type = submsg.gettype()
+
+    try:
+        data = StringIO.StringIO()
+        mimetools.decode(file, data, submsg.getencoding())
+    except:
+        return
+
+    current['attachments'].append( ( attachment_filename, type, data.getvalue() ) )
+
+def process_mime_body(current, file, submsg):
+    data = StringIO.StringIO()
+    mimetools.decode(file, data, submsg.getencoding())
+    current['description'] = data.getvalue()
+
+
+
+def process_text_plain(msg, current):
+    print "Processing: %d" % current['number']
+    current['description'] = msg.fp.read()
+
+def process_multi_part(file, msg, current):
+    print "Processing: %d" % current['number']
+    mf = multifile.MultiFile(file)
+    mf.push(msg.getparam("boundary"))
+    while mf.next():
+        submsg = mimetools.Message(file)
+        if submsg.has_key("Content-Disposition"):
+            maybe_add_attachment(current, mf, submsg)
+        else:
+            # This is the message body itself (always?), so process
+            # accordingly
+            process_mime_body(current, mf, submsg)
+
+def process_jitterbug(filename):
+    current = {}
+    current['number'] = int(filename)
+    current['notes'] = []
+    current['attachments'] = []
+    current['description'] = ''
+    current['date-reported'] = ()
+    current['short-description'] = ''
+    
+    file = open(filename, "r")
+    msg = mimetools.Message(file)
+
+    msgtype = msg.gettype()
+
+    add_notes(current)
+    current['date-reported'] = rfc822.parsedate_tz(msg['Date'])
+    current['short-description'] = msg['Subject']
+
+    if msgtype[:5] == 'text/':
+        process_text_plain(msg, current)
+    elif msgtype[:10] == "multipart/":
+        process_multi_part(file, msg, current)
+    else:
+        # Huh? This should never happen.
+        print "Unknown content-type: %s" % msgtype
+        sys.exit(1)
+
+    # At this point we have processed the message: we have all of the notes and
+    # attachments stored, so it's time to add things to the database.
+    # The schema for JitterBug 2.14 can be found at:
+    #
+    #    http://www.trilobyte.net/barnsons/html/dbschema.html
+    #
+    # The following fields need to be provided by the user:
+    #
+    # bug_status
+    # product
+    # version
+    # reporter
+    # component
+    # resolution
+
+    # change this to the user_id of the Bugzilla user who is blessed with the
+    # imported defects
+    reporter=6
+
+    # the resolution will need to be set manually
+    resolution=""
+
+    db = MySQLdb.connect(db='bugs',user='root',host='localhost')
+    cursor = db.cursor()
+
+    cursor.execute( "INSERT INTO bugs SET " \
+                    "bug_id=%s," \
+                    "bug_severity='normal',"  \
+                    "bug_status=%s," \
+                    "creation_ts=%s,"  \
+                    "short_desc=%s," \
+                    "product=%s," \
+                    "rep_platform='All'," \
+                    "assigned_to=%s,"
+                    "reporter=%s," \
+                    "version=%s,"  \
+                    "component=%s,"  \
+                    "resolution=%s",
+                    [ current['number'],
+                      bug_status,
+                      time.strftime("%Y-%m-%d %H:%M:%S", current['date-reported'][:9]),
+                      current['short-description'],
+                      product,
+                      reporter,
+                      reporter,
+                      version,
+                      component,
+                      resolution] )
+
+    # This is the initial long description associated with the bug report
+    cursor.execute( "INSERT INTO longdescs VALUES (%s,%s,%s,%s)",
+                    [ current['number'],
+                      reporter,
+                      time.strftime("%Y-%m-%d %H:%M:%S", current['date-reported'][:9]),
+                      current['description'] ] )
+
+    # Add whatever notes are associated with this defect
+    for n in current['notes']:
+        cursor.execute( "INSERT INTO longdescs VALUES (%s,%s,%s,%s)",
+                        [current['number'],
+                         reporter,
+                         time.strftime("%Y-%m-%d %H:%M:%S", n['timestamp'][:9]),
+                         n['text']])
+
+    # add attachments associated with this defect
+    for a in current['attachments']:
+        cursor.execute( "INSERT INTO attachments SET " \
+                        "bug_id=%s, creation_ts=%s, description='', mimetype=%s," \
+                        "filename=%s, thedata=%s, submitter_id=%s",
+                        [ current['number'],
+                          time.strftime("%Y-%m-%d %H:%M:%S", current['date-reported'][:9]),
+                          a[1], a[0], a[2], reporter ])
+
+    cursor.close()
+    db.close()
+
+def usage():
+    print """Usage: jb2bz.py [OPTIONS] Product
+
+Where OPTIONS are one or more of the following:
+
+  -h                This help information.
+  -s STATUS         One of UNCONFIRMED, NEW, ASSIGNED, REOPENED, RESOLVED, VERIFIED, CLOSED
+                    (default is NEW)
+  -c COMPONENT      The component to attach to each bug as it is important. This should be
+                    valid component for the Product.
+  -v VERSION        Version to assign to these defects.
+
+Product is the Product to assign these defects to.
+
+All of the JitterBugs in the current directory are imported, including replies, notes,
+attachments, and similar noise.
+"""
+    sys.exit(1)
+
+
+def main():
+    global bug_status, component, version, product
+    opts, args = getopt.getopt(sys.argv[1:], "hs:c:v:")
+
+    for o,a in opts:
+        if o == "-s":
+            if a in ('UNCONFIRMED','NEW','ASSIGNED','REOPENED','RESOLVED','VERIFIED','CLOSED'):
+                bug_status = a
+        elif o == '-c':
+            component = a
+        elif o == '-v':
+            version = a
+        elif o == '-h':
+            usage()
+
+    if len(args) != 1:
+        sys.stderr.write("Must specify the Product.\n")
+        sys.exit(1)
+
+    product = args[0]
+
+    for bug in filter(lambda x: re.match(r"\d+$", x), glob.glob("*")):
+        process_jitterbug(bug)
+        
+
+if __name__ == "__main__":
+    main()

mozilla/webtools/bugzilla/contrib/mysqld-watcher.pl

@@ -0,0 +1,102 @@
+#!/usr/bonsaitools/bin/perl -w
+#
+# 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 the Bugzilla Bug Tracking System.
+# 
+# The Initial Developer of the Original Code is Netscape Communications
+# Corporation. Portions created by Netscape are
+# Copyright (C) 2000 Netscape Communications Corporation.  All
+# Rights Reserved.
+# 
+# Contributor(s): Dan Mosedale <dmose@mozilla.org>
+#
+
+# mysqld-watcher.pl - a script that watches the running instance of
+# mysqld and kills off any long-running SELECTs against the shadow_db
+# 
+use diagnostics;
+use strict;
+
+require "globals.pl";
+
+# some configurables: 
+
+# length of time before a thread is eligible to be killed, in seconds
+#
+my $long_query_time = 600;
+#
+# the From header for any messages sent out
+#
+my $mail_from = "root\@lounge.mozilla.org";
+#
+# mail transfer agent.  this should probably really be converted to a Param().
+#
+my $mta_program = "/usr/lib/sendmail -t -ODeliveryMode=deferred";
+
+# and STDIN is where we get the info about running threads
+#
+close(STDIN);
+open(STDIN, "/usr/bonsaitools/bin/mysqladmin processlist |");
+
+# iterate through the running threads
+#
+my @LONGEST = (0,0,0,0,0,0,0,0,0);
+while ( <STDIN> ) { 
+    my @F = split(/\|/);
+
+    # if this line is not the correct number of fields, or if the thread-id
+    # field contains Id, skip this line.  both these cases indicate that this
+    # line contains pretty-printing gunk and not thread info.
+    #
+    next if ( $#F != 9 || $F[1] =~ /Id/); 
+
+    if ( $F[4] =~ /shadow_bugs/             # shadowbugs database in use
+         && $F[5] =~ /Query/                # this is actually a query
+         && $F[6] > $long_query_time        # this query has taken too long
+         && $F[8] =~ /(select|SELECT)/      # only kill a select
+         && $F[6] > $LONGEST[6] ) {         # the longest running query seen
+        @LONGEST = @F;
+    }
+}
+
+# send an email message
+#
+# should perhaps be moved to somewhere more global for use in bugzilla as a 
+# whole; should also do more error-checking
+#
+sub sendEmail($$$$) {
+    ($#_ == 3) || die("sendEmail: invalid number of arguments");
+    my ($from, $to, $subject, $body) = @_;
+
+    open(MTA, "|$mta_program");
+    print MTA "From: $from\n";
+    print MTA "To: $to\n";
+    print MTA "Subject: $subject\n";
+    print MTA "\n";
+    print MTA $body;
+    print MTA "\n";
+    close(MTA);
+   
+}
+
+# if we found anything, kill the database thread and send mail about it
+#
+if ($LONGEST[6] != 0) {
+
+    system ("/usr/bonsaitools/bin/mysqladmin", "kill", $LONGEST[1]);
+
+    # fire off an email telling the maintainer that we had to kill a thread
+    #
+    sendEmail($mail_from, Param("maintainer"), 
+	     "long running MySQL thread killed",
+	     join(" ", @LONGEST) . "\n");
+}

mozilla/webtools/bugzilla/contrib/yp_nomail.sh

@@ -0,0 +1,78 @@
+#!/bin/sh
+# -*- Mode: ksh -*-
+##############################################################################
+# $Id: yp_nomail.sh,v 1.1 2000-09-12 23:50:31 cyeh%bluemartini.com Exp $
+# yp_nomail
+#
+# Our mail admins got annoyed when bugzilla kept sending email
+# to people who'd had bugzilla entries and left the company.  They
+# were no longer in the list of valid email users so it'd bounce.
+# Maintaining the 'data/nomail' file was a pain.  Luckily, our UNIX
+# admins list all the users that ever were, but the people who've left
+# have a distinct marker in their password file. For example:
+#
+# fired:*LK*:2053:1010:You're Fired Dude:/home/loser:/bin/false
+#
+# This script takes advantage of the "*LK*" convention seen via 
+# ypcat passwd and dumps those people into the nomail file. Any
+# manual additions are kept in a "nomail.(domainname)" file and 
+# appended to the list of yp lockouts every night via Cron
+#
+# 58 23 * * * /export/bugzilla/contrib/yp_nomail.sh > /dev/null 2>&1
+#
+# Tak ( Mark Takacs ) 08/2000
+#
+# XXX: Maybe should crosscheck w/bugzilla users?
+##############################################################################
+
+####
+# Configure this section to suite yer installation
+####
+
+DOMAIN=`domainname`
+MOZILLA_HOME="/export/mozilla"
+BUGZILLA_HOME="${MOZILLA_HOME}/bugzilla"
+NOMAIL_DIR="${BUGZILLA_HOME}/data"
+NOMAIL="${NOMAIL_DIR}/nomail"
+NOMAIL_ETIME="${NOMAIL}.${DOMAIN}"
+NOMAIL_YP="${NOMAIL}.yp"
+FIRED_FLAG="\*LK\*"
+
+YPCAT="/usr/bin/ypcat"
+GREP="/usr/bin/grep"
+SORT="/usr/bin/sort"
+
+########################## no more config needed  #################
+
+# This dir comes w/Bugzilla. WAY too paranoid
+if [ ! -d ${NOMAIL_DIR} ] ; then
+    echo "Creating $date_dir"
+    mkdir -p ${NOMAIL_DIR}
+fi
+
+#
+# Do some (more) paranoid checking
+#
+touch ${NOMAIL}
+if [ ! -w ${NOMAIL} ] ; then
+    echo "Can't write nomail file: ${NOMAIL} -- exiting"
+    exit
+fi
+if [ ! -r ${NOMAIL_ETIME} ] ; then
+    echo "Can't access custom nomail file: ${NOMAIL_ETIME} -- skipping"
+    NOMAIL_ETIME=""
+fi
+
+#
+# add all the people with '*LK*' password to the nomail list
+# XXX: maybe I should customize the *LK* string. Doh.
+#
+
+LOCKOUT=`$YPCAT passwd | $GREP "${FIRED_FLAG}" | cut -d: -f1 | sort > ${NOMAIL_YP}`
+`cat ${NOMAIL_YP} ${NOMAIL_ETIME} > ${NOMAIL}`
+
+exit
+
+
+# end
+

mozilla/webtools/bugzilla/createaccount.cgi

@@ -0,0 +1,88 @@
+#!/usr/bonsaitools/bin/perl -wT
+# -*- 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 the Bugzilla Bug Tracking System.
+#
+# The Initial Developer of the Original Code is Netscape Communications
+# Corporation. Portions created by Netscape are
+# Copyright (C) 1998 Netscape Communications Corporation. All
+# Rights Reserved.
+#
+# Contributor(s): Terry Weissman <terry@mozilla.org>
+#                 David Gardiner <david.gardiner@unisa.edu.au>
+#                 Joe Robins <jmrobins@tgix.com>
+#                 Christopher Aillon <christopher@aillon.com>
+#                 Gervase Markham <gerv@gerv.net>
+
+use diagnostics;
+use strict;
+
+use lib qw(.);
+
+require "CGI.pl";
+require "globals.pl";
+
+# Shut up misguided -w warnings about "used only once":
+use vars qw(
+  %FORM
+  $template
+  $vars
+);
+
+ConnectToDatabase();
+
+# If we're using LDAP for login, then we can't create a new account here.
+if(Param('useLDAP')) {
+  DisplayError("This site is using LDAP for authentication.  Please contact 
+                an LDAP administrator to get a new account created.",
+               "Can't create LDAP accounts");
+  PutFooter();
+  exit;
+}
+
+# Clear out the login cookies.  Make people log in again if they create an
+# account; otherwise, they'll probably get confused.
+my $cookiepath = Param("cookiepath");
+print "Set-Cookie: Bugzilla_login= ; path=$cookiepath; expires=Sun, 30-Jun-80 00:00:00 GMT
+Set-Cookie: Bugzilla_logincookie= ; path=$cookiepath; expires=Sun, 30-Jun-80 00:00:00 GMT\n";
+
+print "Content-Type: text/html\n\n";
+
+my $login = $::FORM{'login'};
+my $realname = trim($::FORM{'realname'});
+
+if (defined($login)) {
+    # We've been asked to create an account.
+    CheckEmailSyntax($login);
+    trick_taint($login);
+    $vars->{'login'} = $login;
+    
+    if (!ValidateNewUser($login)) {
+        # Account already exists        
+        $template->process("account/exists.html.tmpl", $vars)
+          || ThrowTemplateError($template->error());
+        exit;
+    }
+    
+    # Create account
+    my $password = InsertNewUser($login, $realname);
+    MailPassword($login, $password);
+    
+    $template->process("account/created.html.tmpl", $vars)
+      || ThrowTemplateError($template->error());
+    exit;
+}
+
+# Show the standard "would you like to create an account?" form.
+$template->process("account/create.html.tmpl", $vars)
+  || ThrowTemplateError($template->error());

mozilla/webtools/bugzilla/css/buglist.css

@@ -0,0 +1,38 @@
+/* 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 the Bugzilla Bug Tracking System.
+  *
+  * The Initial Developer of the Original Code is Netscape Communications
+  * Corporation. Portions created by Netscape are
+  * Copyright (C) 1998 Netscape Communications Corporation. All
+  * Rights Reserved.
+  *
+  * Contributor(s): Myk Melez <myk@mozilla.org>
+  */
+
+/* Right align bug IDs. */
+.bz_id_column { text-align: right; }
+
+/* Style bug rows according to severity. */
+.bz_blocker { color: red; font-weight: bold; }
+.bz_critical { color: red; }
+.bz_enhancement { font-style: italic; }
+
+/* Style secure bugs if the installation is not using bug groups.
+ * Installations that *are* using bug groups are likely to be using
+ * them for almost all bugs, in which case special styling is not
+ * informative and generally a nuisance.
+ */
+.bz_secure { color: black; background-color: lightgrey; }
+
+/* Align columns in the "change multiple bugs" form to the right. */
+table#form tr th { text-align: right; }
+

mozilla/webtools/bugzilla/css/panel.css

@@ -0,0 +1,37 @@
+body
+  {
+    font-family:       sans-serif;
+    font-size:        10pt;
+    background-color:  white;
+  }
+
+ul
+  {
+    padding-left: 12px;
+  }
+
+radio
+  {
+    -moz-user-select: ignore;
+  }
+
+.text-link
+  {
+    margin-left:      3px;
+  }
+
+.text-link:hover
+  {
+    text-decoration:  underline;
+    cursor:           pointer;
+  }
+
+.descriptive-content
+  {
+    color:            #AAAAAA;
+  }
+
+.descriptive-content[focused=true]
+  {
+    color:            black;
+  }

mozilla/webtools/bugzilla/defparams.pl

@@ -0,0 +1,601 @@
+# -*- 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 the Bugzilla Bug Tracking System.
+#
+# The Initial Developer of the Original Code is Netscape Communications
+# Corporation. Portions created by Netscape are
+# Copyright (C) 1998 Netscape Communications Corporation. All
+# Rights Reserved.
+#
+# Contributor(s): Terry Weissman <terry@mozilla.org>
+#                 Dawn Endico <endico@mozilla.org>
+#                 Dan Mosedale <dmose@mozilla.org>
+#                 Joe Robins <jmrobins@tgix.com>
+#                 Jake <jake@acutex.net>
+#
+
+# This file defines all the parameters that we have a GUI to edit within
+# Bugzilla.
+
+# ATTENTION!!!!   THIS FILE ONLY CONTAINS THE DEFAULTS.
+# You cannot change your live settings by editing this file.
+# Only adding new parameters is done here.  Once the parameter exists, you 
+# must use %baseurl%/editparams.cgi from the web to edit the settings.
+
+use diagnostics;
+use strict;
+
+# Shut up misguided -w warnings about "used only once".  For some reason,
+# "use vars" chokes on me when I try it here.
+
+sub defparams_pl_sillyness {
+    my $zz;
+    $zz = %::param_checker;
+    $zz = %::param_desc;
+    $zz = %::param_type;
+}
+
+sub WriteParams {
+    foreach my $i (@::param_list) {
+        if (!defined $::param{$i}) {
+            $::param{$i} = $::param_default{$i};
+            if (!defined $::param{$i}) {
+                die "No default parameter ever specified for $i";
+            }
+        }
+    }
+
+    my $tmpname = "data/params.$$";
+    open(FID, ">$tmpname") || die "Can't create $tmpname";
+    my $v = $::param{'version'};
+    delete $::param{'version'};  # Don't write the version number out to
+                                # the params file.
+    print FID GenerateCode('%::param');
+    $::param{'version'} = $v;
+    print FID "1;\n";
+    close FID;
+    rename $tmpname, "data/params" || die "Can't rename $tmpname to data/params";
+    ChmodDataFile('data/params', 0666);
+}
+    
+
+sub DefParam {
+    my ($id, $desc, $type, $default, $checker) = (@_);
+    push @::param_list, $id;
+    $::param_desc{$id} = $desc;
+    $::param_type{$id} = $type;
+    $::param_default{$id} = $default;
+    if (defined $checker) {
+        $::param_checker{$id} = $checker;
+    }
+}
+
+
+sub check_numeric {
+    my ($value) = (@_);
+    if ($value !~ /^[0-9]+$/) {
+        return "must be a numeric value";
+    }
+    return "";
+}
+    
+sub check_shadowdb {
+    my ($value) = (@_);
+    $value = trim($value);
+    if ($value eq "") {
+        return "";
+    }
+    SendSQL("SHOW DATABASES");
+    while (MoreSQLData()) {
+        my $n = FetchOneColumn();
+        if (lc($n) eq lc($value)) {
+            return "The $n database already exists.  If that's really the name you want to use for the backup, please CAREFULLY make the existing database go away somehow, and then try again.";
+        }
+    }
+    SendSQL("CREATE DATABASE $value");
+    SendSQL("INSERT INTO shadowlog (command) VALUES ('SYNCUP')", 1);
+    return "";
+}
+
+@::param_list = ();
+
+
+
+# OK, here are the definitions themselves.
+#
+# The type of parameters (the third parameter to DefParam) can be one
+# of the following:
+#
+# t -- A short text entry field (suitable for a single line)
+# l -- A long text field (suitable for many lines)
+# b -- A boolean value (either 1 or 0)
+
+DefParam("maintainer",
+         "The email address of the person who maintains this installation of Bugzilla.",
+         "t",
+         'THE MAINTAINER HAS NOT YET BEEN SET');
+
+DefParam("urlbase",
+         "The URL that is the common initial leading part of all Bugzilla URLs.",
+         "t",
+         "http://cvs-mirror.mozilla.org/webtools/bugzilla/",
+         \&check_urlbase);
+
+sub check_urlbase {
+    my ($url) = (@_);
+    if ($url !~ m:^http.*/$:) {
+        return "must be a legal URL, that starts with http and ends with a slash.";
+    }
+    return "";
+}
+
+DefParam("cookiepath", 
+  "Directory path under your document root that holds your Bugzilla installation. Make sure to begin with a /.",
+  "t",
+  "/");
+
+DefParam("usequip",
+        "If this is on, Bugzilla displays a silly quip at the beginning of buglists, and lets users add to the list of quips.",
+        "b",
+        1);
+
+# Added parameter - JMR, 2/16/00
+DefParam("usebuggroups",
+         "If this is on, Bugzilla will associate a bug group with each product in the database, and use it for querying bugs.",
+         "b",
+         0); 
+
+# Added parameter - JMR, 2/16/00
+DefParam("usebuggroupsentry",
+         "If this is on, Bugzilla will use product bug groups to restrict who can enter bugs.  Requires usebuggroups to be on as well.",
+         "b",
+         0); 
+
+DefParam("shadowdb",
+         "If non-empty, then this is the name of another database in which Bugzilla will keep a shadow read-only copy of everything.  This is done so that long slow read-only operations can be used against this db, and not lock up things for everyone else.  Turning on this parameter will create the given database; be careful not to use the name of an existing database with useful data in it!",
+         "t",
+         "",
+         \&check_shadowdb);
+
+DefParam("queryagainstshadowdb",
+         "If this is on, and the shadowdb is set, then queries will happen against the shadow database.",
+         "b",
+         0);
+         
+
+# Adding in four parameters for LDAP authentication.  -JMR, 7/28/00
+DefParam("useLDAP",
+         "Turn this on to use an LDAP directory for user authentication ".
+         "instead of the Bugzilla database.  (User profiles will still be ".
+         "stored in the database, and will match against the LDAP user by ".
+         "email address.)",
+         "b",
+         0);
+
+
+DefParam("LDAPserver",
+         "The name (and optionally port) of your LDAP server. (e.g. ldap.company.com, or ldap.company.com:portnum)",
+         "t",
+         "");
+
+
+DefParam("LDAPBaseDN",
+         "The BaseDN for authenticating users against. (e.g. \"ou=People,o=Company\")",
+         "t",
+         "");
+
+
+DefParam("LDAPmailattribute",
+         "The name of the attribute of a user in your directory that ".
+         "contains the email address.",
+         "t",
+         "mail");
+#End of LDAP parameters
+
+
+DefParam("mostfreqthreshold",
+         "The minimum number of duplicates a bug needs to show up on the <A HREF=\"duplicates.cgi\">most frequently reported bugs page</a>. If you have a large database and this page takes a long time to load, try increasing this number.",
+         "t",
+         "2");
+
+
+DefParam("mybugstemplate",
+         "This is the URL to use to bring up a simple 'all of my bugs' list for a user.  %userid% will get replaced with the login name of a user.",
+         "t",
+         "buglist.cgi?bug_status=NEW&amp;bug_status=ASSIGNED&amp;bug_status=REOPENED&amp;email1=%userid%&amp;emailtype1=exact&amp;emailassigned_to1=1&amp;emailreporter1=1");
+    
+
+DefParam("shutdownhtml",
+         "If this field is non-empty, then Bugzilla will be completely disabled and this text will be displayed instead of all the Bugzilla pages.",
+         "l",
+         "");
+
+DefParam("sendmailnow",
+         "If this is on, Bugzilla will tell sendmail to send any e-mail immediately. If you have a large number of users with a large amount of e-mail traffic, enabling this option may dramatically slow down Bugzilla. Best used for smaller installations of Bugzilla.",
+         "b",
+         0);
+
+DefParam("passwordmail",
+q{The email that gets sent to people to tell them their password.  Within
+this text, %mailaddress% gets replaced by the person's email address,
+%login% gets replaced by the person's login (usually the same thing), and
+%password% gets replaced by their password.  %<i>anythingelse</i>% gets
+replaced by the definition of that parameter (as defined on this page).},
+         "l",
+         q{From: bugzilla-daemon
+To: %mailaddress%
+Subject: Your Bugzilla password.
+
+To use the wonders of Bugzilla, you can use the following:
+
+ E-mail address: %login%
+       Password: %password%
+
+ To change your password, go to:
+ %urlbase%userprefs.cgi
+});
+
+
+DefParam("newchangedmail",
+q{The email that gets sent to people when a bug changes.  Within this
+text, %to% gets replaced with the e-mail address of the person recieving
+the mail.  %bugid% gets replaced by the bug number.  %diffs% gets
+replaced with what's changed.  %neworchanged% is "New:" if this mail is
+reporting a new bug or empty if changes were made to an existing one.
+%summary% gets replaced by the summary of this bug. %reasonsheader% 
+is replaced by an abbreviated list of reasons why the user is getting the email,
+suitable for use in an email header (such as X-Bugzilla-Reason).
+%reasonsbody% is replaced by text that explains why the user is getting the email 
+in more user friendly text than %reasonsheader%.
+%<i>anythingelse</i>% gets replaced by the definition of 
+that parameter (as defined on this
+page).},
+         "l",
+"From: bugzilla-daemon
+To: %to%
+Subject: [Bug %bugid%] %neworchanged%%summary%
+X-Bugzilla-Reason: %reasonsheader%
+
+%urlbase%show_bug.cgi?id=%bugid%
+
+%diffs%
+
+
+
+%reasonsbody%");
+
+
+
+DefParam("whinedays",
+         "The number of days that we'll let a bug sit untouched in a NEW state before our cronjob will whine at the owner.",
+         "t",
+         7,
+         \&check_numeric);
+
+
+DefParam("whinemail",
+         "The email that gets sent to anyone who has a NEW bug that hasn't been touched for more than <b>whinedays</b>.  Within this text, %email% gets replaced by the offender's email address.  %userid% gets replaced by the offender's bugzilla login (which, in most installations, is the same as the email address.)  %<i>anythingelse</i>% gets replaced by the definition of that parameter (as defined on this page).<p> It is a good idea to make sure this message has a valid From: address, so that if the mail bounces, a real person can know that there are bugs assigned to an invalid address.",
+         "l",
+         q{From: %maintainer%
+To: %email%
+Subject: Your Bugzilla buglist needs attention.
+
+[This e-mail has been automatically generated.]
+
+You have one or more bugs assigned to you in the Bugzilla 
+bugsystem (%urlbase%) that require
+attention.
+
+All of these bugs are in the NEW state, and have not been touched
+in %whinedays% days or more.  You need to take a look at them, and 
+decide on an initial action.
+
+Generally, this means one of three things:
+
+(1) You decide this bug is really quick to deal with (like, it's INVALID),
+    and so you get rid of it immediately.
+(2) You decide the bug doesn't belong to you, and you reassign it to someone
+    else.  (Hint: if you don't know who to reassign it to, make sure that
+    the Component field seems reasonable, and then use the "Reassign bug to
+    owner of selected component" option.)
+(3) You decide the bug belongs to you, but you can't solve it this moment.
+    Just use the "Accept bug" command.
+
+To get a list of all NEW bugs, you can use this URL (bookmark it if you like!):
+
+    %urlbase%buglist.cgi?bug_status=NEW&assigned_to=%userid%
+
+Or, you can use the general query page, at
+%urlbase%query.cgi.
+
+Appended below are the individual URLs to get to all of your NEW bugs that 
+haven't been touched for a week or more.
+
+You will get this message once a day until you've dealt with these bugs!
+
+});
+
+
+
+DefParam("defaultquery",
+          "This is the default query that initially comes up when you submit a bug.  It's in URL parameter format, which makes it hard to read.  Sorry!",
+         "t",
+         "bug_status=NEW&bug_status=ASSIGNED&bug_status=REOPENED&emailassigned_to1=1&emailassigned_to2=1&emailreporter2=1&emailcc2=1&emailqa_contact2=1&order=%22Importance%22");
+
+
+DefParam("letsubmitterchoosepriority",
+         "If this is on, then people submitting bugs can choose an initial priority for that bug.  If off, then all bugs initially have the default priority selected below.",
+         "b",
+         1);
+
+
+sub check_priority {
+    my ($value) = (@_);
+    GetVersionTable();
+    if (lsearch(\@::legal_priority, $value) < 0) {
+        return "Must be a legal priority value: one of " .
+            join(", ", @::legal_priority);
+    }
+    return "";
+}
+
+DefParam("defaultpriority",
+         "This is the priority that newly entered bugs are set to.",
+         "t",
+         "P2",
+         \&check_priority);
+
+
+DefParam("usetargetmilestone",
+         "Do you wish to use the Target Milestone field?",
+         "b",
+         0);
+
+DefParam("nummilestones",
+         "If using Target Milestone, how many milestones do you wish to
+          appear?",
+         "t",
+         10,
+         \&check_numeric);
+
+DefParam("curmilestone",
+         "If using Target Milestone, Which milestone are we working toward right now?",
+         "t",
+         1,
+         \&check_numeric);
+
+DefParam("musthavemilestoneonaccept",
+         "If you are using Target Milestone, do you want to require that the milestone be set in order for a user to ACCEPT a bug?",
+         "b",
+         0);
+
+DefParam("useqacontact",
+         "Do you wish to use the QA Contact field?",
+         "b",
+         0);
+
+DefParam("usestatuswhiteboard",
+         "Do you wish to use the Status Whiteboard field?",
+         "b",
+         0);
+
+DefParam("usebrowserinfo",
+         "Do you want bug reports to be assigned an OS & Platform based on the browser
+          the user makes the report from?",
+         "b",
+         1);
+
+DefParam("usedependencies",
+         "Do you wish to use dependencies (allowing you to mark which bugs depend on which other ones)?",
+         "b",
+         1);
+
+DefParam("webdotbase",
+         "It is possible to show graphs of dependent bugs. You may set this parameter to
+any of the following:
+<ul>
+<li>A complete file path to \'dot\' (part of <a
+href=\"http://www.graphviz.org\">GraphViz</a>) will generate the graphs
+locally.</li>
+<li>A URL prefix pointing to an installation of the <a
+href=\"http://www.research.att.com/~north/cgi-bin/webdot.cgi\">webdot
+package</a> will generate the graphs remotely.</li>
+<li>A blank value will disable dependency graphing.</li>
+</ul>
+The default value is a publically-accessible webdot server.",
+         "t",
+         "http://www.research.att.com/~north/cgi-bin/webdot.cgi/%urlbase%",
+         \&check_webdotbase);
+
+sub check_webdotbase {
+    my ($value) = (@_);
+    $value = trim($value);
+    if ($value eq "") {
+        return "";
+    }
+    if($value !~ /^https?:/) {
+        if(! -x $value) {
+            return "The file path \"$value\" is not a valid executable.  Please specify the complete file path to 'dot' if you intend to generate graphs locally.";
+        }
+        # Check .htaccess allows access to generated images
+        if(-e "data/webdot/.htaccess") {
+            open HTACCESS, "data/webdot/.htaccess";
+            if(! grep(/png/,<HTACCESS>)) {
+                print "Dependency graph images are not accessible.\nDelete data/webdot/.htaccess and re-run checksetup.pl to rectify.\n";
+            }
+            close HTACCESS;
+        }
+    }
+    return "";
+}
+
+DefParam("expectbigqueries",
+         "If this is on, then we will tell mysql to <tt>set option SQL_BIG_TABLES=1</tt> before doing queries on bugs.  This will be a little slower, but one will not get the error <tt>The table ### is full</tt> for big queries that require a big temporary table.",
+         "b",
+         0);
+
+DefParam("emailregexp",
+         'This defines the regexp to use for legal email addresses.  The default tries to match fully qualified email addresses.  Another popular value to put here is <tt>^[^@]+$</tt>, which means "local usernames, no @ allowed."',
+         "t",
+         q:^[^@]+@[^@]+\\.[^@]+$:);
+
+DefParam("emailregexpdesc",
+         "This describes in english words what kinds of legal addresses are allowed by the <tt>emailregexp</tt> param.",
+         "l",
+         "A legal address must contain exactly one '\@', and at least one '.' after the \@.");
+
+DefParam("emailsuffix",
+         "This is a string to append to any email addresses when actually sending mail to that address.  It is useful if you have changed the <tt>emailregexp</tt> param to only allow local usernames, but you want the mail to be delivered to username\@my.local.hostname.",
+         "t",
+         "");
+
+
+DefParam("voteremovedmail",
+q{This is a mail message to send to anyone who gets a vote removed from a bug for any reason.  %to% gets replaced by the person who used to be voting for this bug.  %bugid% gets replaced by the bug number.  %reason% gets replaced by a short reason describing why the vote(s) were removed.  %votesremoved%, %votesold% and %votesnew% is the number of votes removed, before and after respectively.  %votesremovedtext%, %votesoldtext% and %votesnewtext% are these as sentences, eg "You had 2 votes on this bug."  %count% is also supported for backwards compatibility.  %<i>anythingelse</i>% gets replaced by the definition of that parameter (as defined on this page).},
+         "l",
+"From: bugzilla-daemon
+To: %to%
+Subject: [Bug %bugid%] Some or all of your votes have been removed.
+
+Some or all of your votes have been removed from bug %bugid%.
+
+%votesoldtext%
+
+%votesnewtext%
+
+Reason: %reason%
+
+%urlbase%show_bug.cgi?id=%bugid%
+");
+         
+DefParam("allowbugdeletion",
+         q{The pages to edit products and components and versions can delete all associated bugs when you delete a product (or component or version).  Since that is a pretty scary idea, you have to turn on this option before any such deletions will ever happen.},
+         "b",
+         0);
+
+
+DefParam("allowemailchange",
+         q{Users can change their own email address through the preferences.  Note that the change is validated by emailing both addresses, so switching this option on will not let users use an invalid address.},
+         "b",
+         0);
+
+
+DefParam("allowuserdeletion",
+         q{The pages to edit users can also let you delete a user.  But there is no code that goes and cleans up any references to that user in other tables, so such deletions are kinda scary.  So, you have to turn on this option before any such deletions will ever happen.},
+         "b",
+         0);
+
+DefParam("browserbugmessage",
+         "If bugzilla gets unexpected data from the browser, in addition to displaying the cause of the problem, it will output this HTML as well.",
+         "l",
+         "this may indicate a bug in your browser.\n");
+
+#
+# Parameters to force users to comment their changes for different actions.
+DefParam("commentonaccept", 
+         "If this option is on, the user needs to enter a short comment if he accepts the bug",
+         "b", 0 );
+DefParam("commentonclearresolution", 
+         "If this option is on, the user needs to enter a short comment if the bugs resolution is cleared",
+         "b", 0 );
+DefParam("commentonconfirm", 
+         "If this option is on, the user needs to enter a short comment when confirming a bug",
+         "b", 0 );
+DefParam("commentonresolve", 
+         "If this option is on, the user needs to enter a short comment if the bug is resolved",
+         "b", 0 );
+DefParam("commentonreassign", 
+         "If this option is on, the user needs to enter a short comment if the bug is reassigned",
+         "b", 0 );
+DefParam("commentonreassignbycomponent", 
+         "If this option is on, the user needs to enter a short comment if the bug is reassigned by component",
+         "b", 0 );
+DefParam("commentonreopen", 
+         "If this option is on, the user needs to enter a short comment if the bug is reopened",
+         "b", 0 );
+DefParam("commentonverify", 
+         "If this option is on, the user needs to enter a short comment if the bug is verified",
+         "b", 0 );
+DefParam("commentonclose", 
+         "If this option is on, the user needs to enter a short comment if the bug is closed",
+         "b", 0 );
+DefParam("commentonduplicate",
+         "If this option is on, the user needs to enter a short comment if the bug is marked as duplicate",
+         "b", 0 );
+DefParam("supportwatchers",
+         "Support one user watching (ie getting copies of all related email" .
+         " about) another's bugs.  Useful for people going on vacation, and" .
+         " QA folks watching particular developers' bugs",
+         "b", 0 );
+
+
+DefParam("move-enabled",
+         "If this is on, Bugzilla will allow certain people to move bugs to the defined database.",
+         "b",
+         0);
+DefParam("move-button-text",
+         "The text written on the Move button. Explain where the bug is being moved to.",
+         "t",
+         'Move To Bugscape');
+DefParam("move-to-url",
+         "The URL of the database we allow some of our bugs to be moved to.",
+         "t",
+         '');
+DefParam("move-to-address",
+         "To move bugs, an email is sent to the target database. This is the email address that database
+          uses to listen for incoming bugs.",
+         "t",
+         'bugzilla-import');
+DefParam("moved-from-address",
+         "To move bugs, an email is sent to the target database. This is the email address from which
+          this mail, and error messages are sent.",
+         "t",
+         'bugzilla-admin');
+DefParam("movers",
+         "A list of people with permission to move bugs and reopen moved bugs (in case the move operation fails).",
+         "t",
+         '');
+DefParam("moved-default-product",
+         "Bugs moved from other databases to here are assigned to this product.",
+         "t",
+         '');
+DefParam("moved-default-component",
+         "Bugs moved from other databases to here are assigned to this component.",
+         "t",
+         '');
+
+# The maximum size (in bytes) for patches and non-patch attachments.
+# The default limit is 1000KB, which is 24KB less than mysql's default
+# maximum packet size (which determines how much data can be sent in a
+# single mysql packet and thus how much data can be inserted into the
+# database) to provide breathing space for the data in other fields of
+# the attachment record as well as any mysql packet overhead (I don't
+# know of any, but I suspect there may be some.)
+
+DefParam("maxpatchsize",
+         "The maximum size (in kilobytes) of patches.  Bugzilla will not 
+          accept patches greater than this number of kilobytes in size.
+          To accept patches of any size (subject to the limitations of 
+          your server software), set this value to zero." ,
+         "t",
+         '1000');
+
+DefParam("maxattachmentsize" , 
+         "The maximum size (in kilobytes) of non-patch attachments.  Bugzilla 
+          will not accept attachments greater than this number of kilobytes 
+          in size.  To accept attachments of any size (subject to the
+          limitations of your server software), set this value to zero." , 
+         "t" , 
+         '1000');
+
+1;

mozilla/webtools/bugzilla/describecomponents.cgi

@@ -0,0 +1,128 @@
+#!/usr/bonsaitools/bin/perl -wT
+# -*- 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 the Bugzilla Bug Tracking System.
+#
+# The Initial Developer of the Original Code is Netscape Communications
+# Corporation. Portions created by Netscape are
+# Copyright (C) 1998 Netscape Communications Corporation. All
+# Rights Reserved.
+#
+# Contributor(s): Terry Weissman <terry@mozilla.org>
+#                 Bradley Baetz <bbaetz@student.usyd.edu.au>
+
+use vars qw(
+  %FORM
+  $userid
+);
+
+use diagnostics;
+use strict;
+
+use lib qw(.);
+
+require "CGI.pl";
+
+ConnectToDatabase();
+GetVersionTable();
+
+if (!defined $::FORM{'product'}) {
+    # Reference to a subset of %::proddesc, which the user is allowed to see
+    my %products;
+
+    if (Param("usebuggroups")) {
+        # OK, now only add products the user can see
+        confirm_login();
+        foreach my $p (@::legal_product) {
+            if (!GroupExists($p) || UserInGroup($p)) {
+                $products{$p} = $::proddesc{$p};
+            }
+        }
+    }
+    else {
+          %products = %::proddesc;
+    }
+
+    my $prodsize = scalar(keys %products);
+    if ($prodsize == 0) {
+        DisplayError("Either no products have been defined ".
+                     "or you have not been given access to any.\n");
+        exit;
+    }
+    elsif ($prodsize > 1) {
+        $::vars->{'proddesc'} = \%products;
+        $::vars->{'target'} = "describecomponents.cgi";
+        $::vars->{'title'} = "Bugzilla component description";
+        $::vars->{'h2'} = 
+          "Please specify the product whose components you want described.";
+
+        print "Content-type: text/html\n\n";
+        $::template->process("global/choose-product.html.tmpl", $::vars)
+          || ThrowTemplateError($::template->error());
+        exit;
+    }
+
+    $::FORM{'product'} = (keys %::proddesc)[0];
+}
+
+my $product = $::FORM{'product'};
+
+# Make sure the user specified a valid product name.  Note that
+# if the user specifies a valid product name but is not authorized
+# to access that product, they will receive a different error message
+# which could enable people guessing product names to determine
+# whether or not certain products exist in Bugzilla, even if they
+# cannot get any other information about that product.
+grep($product eq $_ , @::legal_product)
+  || DisplayError("The product name is invalid.")
+  && exit;
+
+# Make sure the user is authorized to access this product.
+if (Param("usebuggroups") && GroupExists($product) && !$::userid) {
+    confirm_login();
+    UserInGroup($product)
+      || DisplayError("You are not authorized to access that product.")
+        && exit;
+}
+
+######################################################################
+# End Data/Security Validation
+######################################################################
+
+my @components;
+SendSQL("SELECT value, initialowner, initialqacontact, description FROM " .
+        "components WHERE program = " . SqlQuote($product) . " ORDER BY " .
+        "value");
+while (MoreSQLData()) {
+    my ($name, $initialowner, $initialqacontact, $description) =
+      FetchSQLData();
+
+    my %component;
+
+    $component{'name'} = $name;
+    $component{'initialowner'} = $initialowner ?
+      DBID_to_name($initialowner) : '';
+    $component{'initialqacontact'} = $initialqacontact ?
+      DBID_to_name($initialqacontact) : '';
+    $component{'description'} = $description;
+
+    push @components, \%component;
+}
+
+$::vars->{'product'} = $product;
+$::vars->{'components'} = \@components;
+
+print "Content-type: text/html\n\n";
+$::template->process("reports/components.html.tmpl", $::vars)
+  || ThrowTemplateError($::template->error());
+

mozilla/webtools/bugzilla/describekeywords.cgi

@@ -0,0 +1,58 @@
+#!/usr/bonsaitools/bin/perl -wT
+# -*- 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 the Bugzilla Bug Tracking System.
+#
+# The Initial Developer of the Original Code is Terry Weissman.
+# Portions created by Terry Weissman are
+# Copyright (C) 2000 Terry Weissman. All
+# Rights Reserved.
+#
+# Contributor(s): Terry Weissman <terry@mozilla.org>
+# Contributor(s): Gervase Markham <gerv@gerv.net>
+
+use diagnostics;
+use strict;
+use lib ".";
+
+require "CGI.pl";
+
+# Use the global template variables. 
+use vars qw($vars $template);
+
+ConnectToDatabase();
+
+quietly_check_login();
+
+SendSQL("SELECT keyworddefs.name, keyworddefs.description, 
+                COUNT(keywords.bug_id)
+         FROM keyworddefs LEFT JOIN keywords ON keyworddefs.id=keywords.keywordid
+         GROUP BY keyworddefs.id, keyworddefs.name, keyworddefs.description, keywords.bug_id
+         ORDER BY keyworddefs.name");
+
+my @keywords;
+
+while (MoreSQLData()) {
+    my ($name, $description, $bugs) = FetchSQLData();
+   
+    push (@keywords, { name => $name, 
+                       description => $description,
+                       bugcount => $bugs });
+}
+   
+$vars->{'keywords'} = \@keywords;
+$vars->{'caneditkeywords'} = UserInGroup("editkeywords");
+
+print "Content-type: text/html\n\n";
+$template->process("reports/keywords.html.tmpl", $vars)
+  || ThrowTemplateError($template->error());

mozilla/webtools/bugzilla/docs/README.docs

@@ -0,0 +1,149 @@
+Welcome to the Bugzilla documentation project!
+You'll find these directories and files here:
+
+README.docs	# This README file
+html/		# The compiled HTML docs from SGML sources (do not edit)
+sgml/		# The original SGML doc sources (edit these)
+txt/		# The compiled text docs from SGML sources
+ps/		# The compiled PostScript docs from SGML sources
+pdf/		# The compiled Adobe PDF docs from SGML sources
+
+A note about SGML:
+  The documentation is written in DocBook 3.1/4.1 SGML, and attempts to adhere
+to the LinuxDoc standards everywhere applicable (http://www.linuxdoc.org).
+Please consult "The LDP Author Guide" at linuxdoc.org for details on how
+to set up your personal environment for compiling SGML files.
+  If you need to make corrections to typographical errors, or other minor
+editing duties, feel free to use any text editor to make the changes.  SGML
+is not rocket science -- simply make sure your text appears between 
+appropriate tags (like <para>This is a paragraph</para>) and we'll be fine.
+If you are making more extensive changes, please ensure you at least validate
+your SGML before checking it in with something like:
+	nsgmls -s Bugzilla-Guide.sgml
+
+  When you validate, please validate the master document (Bugzilla-Guide.sgml)
+as well as the document you edited to ensure there are no critical errors.
+The following errors are considered "normal" when validating with nsgmls:
+
+ DTDDECL catalog entries are not supported
+ "DOCTYPE" declaration not allowed in instance
+
+  The reason these occur is that free sgml validators do not yet support
+the DTDDECL catalog entries, and I've included DOCTYPE declarations in
+entities referenced from Bugzilla-Guide.sgml so these entities can compile
+individually, if necessary.  I suppose I ought to comment them out at some
+point, but for now they are convenient and don't hurt anything.
+
+  Thanks for taking the time to read these notes and consulting the
+documentation.  Please address comments and questions to the newsgroup:
+news://news.mozilla.org/netscape/public/mozilla/webtools .
+
+==========
+HOW TO SET UP YOUR OWN SGML EDITING ENVIRONMENT:
+==========
+
+Trying to set up an SGML/XML Docbook editing environment the 
+first time can be a daunting task.
+I use Linux-Mandrake, in part, because it has a fully-functional
+SGML/XML Docbook editing environment included as part of the
+distribution CD's.  If you have easier instructions for how to
+do this for a particular Linux distribution or platform, please
+let the team know at the mailing list: mozilla-webtools@mozilla.org.
+
+The following text is taken nearly verbatim from
+http://bugzilla.mozilla.org/show_bug.cgi?id=95970, where I gave
+these instructions to someone who wanted the greater manageability
+maintaining a document in Docbook brings:
+
+This is just off the top of my head, but here goes.  Note some of these may 
+NOT be necessary, but I don't think they hurt anything by being installed.
+
+rpms:
+
+openjade
+jadetex
+docbook-dtds
+docbook-style-dsssl
+docbook-style-dsssl-doc
+docbook-utils
+xemacs
+psgml
+sgml-tools
+sgml-common
+
+
+If you're getting these from RedHat, make sure you get the ones in the
+rawhide area.  The ones in the 7.2 distribution are too old and don't
+include the XML stuff.
+
+Download "ldp.dsl" from the Resources page on linuxdoc.org.  This is the 
+stylesheet I use to get the HTML and text output.  It works well, and has a 
+nice, consistent look with the rest of the linuxdoc documents.  You'll have to 
+adjust the paths in ldp.dsl at the top of the file to reflect the actual 
+locations of your docbook catalog files.  I created a directory, 
+/usr/share/sgml/docbook/ldp, and put the ldp.dsl file there.  I then edited 
+ldp.dsl and changed two lines near the top:
+<!ENTITY docbook.dsl SYSTEM "../dsssl-stylesheets/html/docbook.dsl" CDATA 
+dsssl>
+...and...
+<!ENTITY docbook.dsl SYSTEM "../dsssl-stylesheets/print/docbook.dsl" CDATA
+dsssl>
+
+Note the difference is the top one points to the HTML docbook stylesheet, 
+and the next one points to the PRINT docbook stylesheet.
+
+  You know, this sure looks awful involved.  Anyway, once you have this in
+place, add to your .bashrc:
+export SGML_CATALOG_FILES=/etc/sgml/catalog
+export LDP_HOME=/usr/share/sgml/docbook/ldp
+export JADE_PUB=/usr/share/doc/openjade-1.3.1/pubtext
+
+or in .tcshrc:
+setenv SGML_CATALOG_FILES /etc/sgml/catalog
+setenv LDP_HOME /usr/share/sgml/docbook/ldp
+setenv JADE_PUB /usr/share/doc/openjade-1.3.1/pubtext
+
+  If you have root access and want to set this up for anyone on your box,
+you can add those lines to /etc/profile for bash users and /etc/csh.login
+for tcsh users.
+
+  Make sure you edit the paths in the above environment variables if those
+folders are anywhere else on your system (for example, the openjade version
+might change if you get a new version at some point).
+
+  I suggest xemacs for editing your SGML/XML Docbook documents.  The darn
+thing just works, and generally includes PSGML mode by default.  Not to
+mention you can validate the SGML from right within it without having to
+remember the command-line syntax for nsgml (not that it's that hard
+anyway).  If not, you can download psgml at
+http://www.sourceforge.net/projects/psgml.
+
+==========
+NOTES:
+==========
+
+  Here are the commands I use to maintain this documentation.
+  You MUST have DocBook 4.1.2 set up correctly in order for this to work.
+
+To create HTML documentation:
+bash$ cd html
+bash$ jade -t sgml -i html -d $LDP_HOME/ldp.dsl\#html \
+$JADE_PUB/xml.dcl ../sgml/Bugzilla-Guide.sgml
+
+To create HTML documentation as a single big HTML file:
+bash$ cd html
+bash$ jade -V nochunks -t sgml -i html -d $LDP_HOME/ldp.dsl\#html \
+$JADE_PUB/xml.dcl ../sgml/Bugzilla-Guide.sgml >Bugzilla-Guide.html
+
+To create TXT documentation as a single big TXT file:
+bash$ cd txt
+bash$ lynx -dump -nolist ../html/Bugzilla-Guide.html >Bugzilla-Guide.txt
+
+
+Sincerely,
+ Matthew P. Barnson
+ The Bugzilla "Doc Knight"
+ mbarnson@sisna.com
+
+ with major edits by Dave Miller <justdave@syndicomm.com> based on
+ experience setting this up on the Landfill test server.

mozilla/webtools/bugzilla/docs/html/about.html

@@ -0,0 +1,178 @@
+<HTML
+><HEAD
+><TITLE
+>About This Guide</TITLE
+><META
+NAME="GENERATOR"
+CONTENT="Modular DocBook HTML Stylesheet Version 1.76b+
+"><LINK
+REL="HOME"
+TITLE="The Bugzilla Guide"
+HREF="index.html"><LINK
+REL="PREVIOUS"
+TITLE="The Bugzilla Guide"
+HREF="index.html"><LINK
+REL="NEXT"
+TITLE="Purpose and Scope of this Guide"
+HREF="aboutthisguide.html"></HEAD
+><BODY
+CLASS="chapter"
+BGCOLOR="#FFFFFF"
+TEXT="#000000"
+LINK="#0000FF"
+VLINK="#840084"
+ALINK="#0000FF"
+><DIV
+CLASS="NAVHEADER"
+><TABLE
+SUMMARY="Header navigation table"
+WIDTH="100%"
+BORDER="0"
+CELLPADDING="0"
+CELLSPACING="0"
+><TR
+><TH
+COLSPAN="3"
+ALIGN="center"
+>The Bugzilla Guide</TH
+></TR
+><TR
+><TD
+WIDTH="10%"
+ALIGN="left"
+VALIGN="bottom"
+><A
+HREF="index.html"
+ACCESSKEY="P"
+>Prev</A
+></TD
+><TD
+WIDTH="80%"
+ALIGN="center"
+VALIGN="bottom"
+></TD
+><TD
+WIDTH="10%"
+ALIGN="right"
+VALIGN="bottom"
+><A
+HREF="aboutthisguide.html"
+ACCESSKEY="N"
+>Next</A
+></TD
+></TR
+></TABLE
+><HR
+ALIGN="LEFT"
+WIDTH="100%"></DIV
+><DIV
+CLASS="chapter"
+><H1
+><A
+NAME="about">Chapter 1. About This Guide</H1
+><DIV
+CLASS="TOC"
+><DL
+><DT
+><B
+>Table of Contents</B
+></DT
+><DT
+>1.1. <A
+HREF="aboutthisguide.html"
+>Purpose and Scope of this Guide</A
+></DT
+><DT
+>1.2. <A
+HREF="copyright.html"
+>Copyright Information</A
+></DT
+><DT
+>1.3. <A
+HREF="disclaimer.html"
+>Disclaimer</A
+></DT
+><DT
+>1.4. <A
+HREF="newversions.html"
+>New Versions</A
+></DT
+><DT
+>1.5. <A
+HREF="credits.html"
+>Credits</A
+></DT
+><DT
+>1.6. <A
+HREF="translations.html"
+>Translations</A
+></DT
+><DT
+>1.7. <A
+HREF="conventions.html"
+>Document Conventions</A
+></DT
+></DL
+></DIV
+></DIV
+><DIV
+CLASS="NAVFOOTER"
+><HR
+ALIGN="LEFT"
+WIDTH="100%"><TABLE
+SUMMARY="Footer navigation table"
+WIDTH="100%"
+BORDER="0"
+CELLPADDING="0"
+CELLSPACING="0"
+><TR
+><TD
+WIDTH="33%"
+ALIGN="left"
+VALIGN="top"
+><A
+HREF="index.html"
+ACCESSKEY="P"
+>Prev</A
+></TD
+><TD
+WIDTH="34%"
+ALIGN="center"
+VALIGN="top"
+><A
+HREF="index.html"
+ACCESSKEY="H"
+>Home</A
+></TD
+><TD
+WIDTH="33%"
+ALIGN="right"
+VALIGN="top"
+><A
+HREF="aboutthisguide.html"
+ACCESSKEY="N"
+>Next</A
+></TD
+></TR
+><TR
+><TD
+WIDTH="33%"
+ALIGN="left"
+VALIGN="top"
+>The Bugzilla Guide</TD
+><TD
+WIDTH="34%"
+ALIGN="center"
+VALIGN="top"
+>&nbsp;</TD
+><TD
+WIDTH="33%"
+ALIGN="right"
+VALIGN="top"
+>Purpose and Scope of this Guide</TD
+></TR
+></TABLE
+></DIV
+></BODY
+></HTML
+>

mozilla/webtools/bugzilla/docs/html/aboutthisguide.html

@@ -0,0 +1,184 @@
+<HTML
+><HEAD
+><TITLE
+>Purpose and Scope of this Guide</TITLE
+><META
+NAME="GENERATOR"
+CONTENT="Modular DocBook HTML Stylesheet Version 1.76b+
+"><LINK
+REL="HOME"
+TITLE="The Bugzilla Guide"
+HREF="index.html"><LINK
+REL="UP"
+TITLE="About This Guide"
+HREF="about.html"><LINK
+REL="PREVIOUS"
+TITLE="About This Guide"
+HREF="about.html"><LINK
+REL="NEXT"
+TITLE="Copyright Information"
+HREF="copyright.html"></HEAD
+><BODY
+CLASS="section"
+BGCOLOR="#FFFFFF"
+TEXT="#000000"
+LINK="#0000FF"
+VLINK="#840084"
+ALINK="#0000FF"
+><DIV
+CLASS="NAVHEADER"
+><TABLE
+SUMMARY="Header navigation table"
+WIDTH="100%"
+BORDER="0"
+CELLPADDING="0"
+CELLSPACING="0"
+><TR
+><TH
+COLSPAN="3"
+ALIGN="center"
+>The Bugzilla Guide</TH
+></TR
+><TR
+><TD
+WIDTH="10%"
+ALIGN="left"
+VALIGN="bottom"
+><A
+HREF="about.html"
+ACCESSKEY="P"
+>Prev</A
+></TD
+><TD
+WIDTH="80%"
+ALIGN="center"
+VALIGN="bottom"
+>Chapter 1. About This Guide</TD
+><TD
+WIDTH="10%"
+ALIGN="right"
+VALIGN="bottom"
+><A
+HREF="copyright.html"
+ACCESSKEY="N"
+>Next</A
+></TD
+></TR
+></TABLE
+><HR
+ALIGN="LEFT"
+WIDTH="100%"></DIV
+><DIV
+CLASS="section"
+><H1
+CLASS="section"
+><A
+NAME="aboutthisguide">1.1. Purpose and Scope of this Guide</H1
+><P
+>&#13;      Bugzilla is simply the best piece of bug-tracking software the
+      world has ever seen.  This document is intended to be the
+      comprehensive guide to  the installation, administration,
+      maintenance, and use of the Bugzilla bug-tracking system.
+    </P
+><P
+>&#13;      This release of the Bugzilla Guide is the
+      <EM
+>2.16</EM
+> release. It is so named that it
+      may match the current version of Bugzilla. The numbering
+      tradition stems from that used for many free software projects,
+      in which <EM
+>even-numbered</EM
+> point releases (1.2,
+      1.14, etc.) are considered "stable releases", intended for
+      public consumption; on the other  hand,
+      <EM
+>odd-numbered</EM
+> point releases (1.3, 2.09,
+      etc.) are considered unstable <EM
+>development</EM
+>
+      releases intended for advanced users, systems administrators,
+      developers, and those who enjoy a lot of pain. 
+    </P
+><P
+>&#13;      Newer revisions of the Bugzilla Guide follow the numbering
+      conventions of the main-tree Bugzilla releases, available at
+      <A
+HREF="http://www.bugzilla.org/"
+TARGET="_top"
+>http://www.bugzilla.org/</A
+>.  Intermediate releases will have
+      a minor revision number following a period.  The current version
+      of Bugzilla, as of this writing (April 2nd, 2002) is 2.16; if
+      something were seriously wrong with that edition of the Guide,
+      subsequent releases would receive an additional dotted-decimal
+      digit to indicate the update (2.16.1, 2.16.2, etc.).
+      Got it?  Good.
+    </P
+></DIV
+><DIV
+CLASS="NAVFOOTER"
+><HR
+ALIGN="LEFT"
+WIDTH="100%"><TABLE
+SUMMARY="Footer navigation table"
+WIDTH="100%"
+BORDER="0"
+CELLPADDING="0"
+CELLSPACING="0"
+><TR
+><TD
+WIDTH="33%"
+ALIGN="left"
+VALIGN="top"
+><A
+HREF="about.html"
+ACCESSKEY="P"
+>Prev</A
+></TD
+><TD
+WIDTH="34%"
+ALIGN="center"
+VALIGN="top"
+><A
+HREF="index.html"
+ACCESSKEY="H"
+>Home</A
+></TD
+><TD
+WIDTH="33%"
+ALIGN="right"
+VALIGN="top"
+><A
+HREF="copyright.html"
+ACCESSKEY="N"
+>Next</A
+></TD
+></TR
+><TR
+><TD
+WIDTH="33%"
+ALIGN="left"
+VALIGN="top"
+>About This Guide</TD
+><TD
+WIDTH="34%"
+ALIGN="center"
+VALIGN="top"
+><A
+HREF="about.html"
+ACCESSKEY="U"
+>Up</A
+></TD
+><TD
+WIDTH="33%"
+ALIGN="right"
+VALIGN="top"
+>Copyright Information</TD
+></TR
+></TABLE
+></DIV
+></BODY
+></HTML
+>

mozilla/webtools/bugzilla/docs/html/administration.html

@@ -0,0 +1,233 @@
+<HTML
+><HEAD
+><TITLE
+>Administering Bugzilla</TITLE
+><META
+NAME="GENERATOR"
+CONTENT="Modular DocBook HTML Stylesheet Version 1.76b+
+"><LINK
+REL="HOME"
+TITLE="The Bugzilla Guide"
+HREF="index.html"><LINK
+REL="PREVIOUS"
+TITLE="Win32 Installation Notes"
+HREF="win32.html"><LINK
+REL="NEXT"
+TITLE="Post-Installation Checklist"
+HREF="postinstall-check.html"></HEAD
+><BODY
+CLASS="chapter"
+BGCOLOR="#FFFFFF"
+TEXT="#000000"
+LINK="#0000FF"
+VLINK="#840084"
+ALINK="#0000FF"
+><DIV
+CLASS="NAVHEADER"
+><TABLE
+SUMMARY="Header navigation table"
+WIDTH="100%"
+BORDER="0"
+CELLPADDING="0"
+CELLSPACING="0"
+><TR
+><TH
+COLSPAN="3"
+ALIGN="center"
+>The Bugzilla Guide</TH
+></TR
+><TR
+><TD
+WIDTH="10%"
+ALIGN="left"
+VALIGN="bottom"
+><A
+HREF="win32.html"
+ACCESSKEY="P"
+>Prev</A
+></TD
+><TD
+WIDTH="80%"
+ALIGN="center"
+VALIGN="bottom"
+></TD
+><TD
+WIDTH="10%"
+ALIGN="right"
+VALIGN="bottom"
+><A
+HREF="postinstall-check.html"
+ACCESSKEY="N"
+>Next</A
+></TD
+></TR
+></TABLE
+><HR
+ALIGN="LEFT"
+WIDTH="100%"></DIV
+><DIV
+CLASS="chapter"
+><H1
+><A
+NAME="administration">Chapter 4. Administering Bugzilla</H1
+><DIV
+CLASS="TOC"
+><DL
+><DT
+><B
+>Table of Contents</B
+></DT
+><DT
+>4.1. <A
+HREF="postinstall-check.html"
+>Post-Installation Checklist</A
+></DT
+><DT
+>4.2. <A
+HREF="useradmin.html"
+>User Administration</A
+></DT
+><DD
+><DL
+><DT
+>4.2.1. <A
+HREF="useradmin.html#defaultuser"
+>Creating the Default User</A
+></DT
+><DT
+>4.2.2. <A
+HREF="useradmin.html#manageusers"
+>Managing Other Users</A
+></DT
+></DL
+></DD
+><DT
+>4.3. <A
+HREF="programadmin.html"
+>Product, Component, Milestone, and Version
+      Administration</A
+></DT
+><DD
+><DL
+><DT
+>4.3.1. <A
+HREF="programadmin.html#products"
+>Products</A
+></DT
+><DT
+>4.3.2. <A
+HREF="programadmin.html#components"
+>Components</A
+></DT
+><DT
+>4.3.3. <A
+HREF="programadmin.html#versions"
+>Versions</A
+></DT
+><DT
+>4.3.4. <A
+HREF="programadmin.html#milestones"
+>Milestones</A
+></DT
+><DT
+>4.3.5. <A
+HREF="programadmin.html#voting"
+>Voting</A
+></DT
+><DT
+>4.3.6. <A
+HREF="programadmin.html#groups"
+>Groups and Group Security</A
+></DT
+></DL
+></DD
+><DT
+>4.4. <A
+HREF="security.html"
+>Bugzilla Security</A
+></DT
+></DL
+></DIV
+><FONT
+COLOR="RED"
+>&#13;    Or, I just got this cool thing installed.  Now what the heck do I
+    do with it?
+  </FONT
+><P
+>&#13;    So you followed <SPAN
+CLASS="QUOTE"
+>"<A
+HREF="installation.html"
+>Bugzilla Installation</A
+>"</SPAN
+> to the
+    letter, and logged into Bugzilla for the very first time with your
+    super-duper god account.  You sit, contentedly staring at the
+    Bugzilla Query Screen, the worst of the whole mad business of
+    installing this terrific program behind you. It seems, though, you
+    have nothing yet to query! Your first act of business should be to
+    setup the operating parameters for Bugzilla so you can get busy
+    getting data into your bug tracker.
+  </P
+></DIV
+><DIV
+CLASS="NAVFOOTER"
+><HR
+ALIGN="LEFT"
+WIDTH="100%"><TABLE
+SUMMARY="Footer navigation table"
+WIDTH="100%"
+BORDER="0"
+CELLPADDING="0"
+CELLSPACING="0"
+><TR
+><TD
+WIDTH="33%"
+ALIGN="left"
+VALIGN="top"
+><A
+HREF="win32.html"
+ACCESSKEY="P"
+>Prev</A
+></TD
+><TD
+WIDTH="34%"
+ALIGN="center"
+VALIGN="top"
+><A
+HREF="index.html"
+ACCESSKEY="H"
+>Home</A
+></TD
+><TD
+WIDTH="33%"
+ALIGN="right"
+VALIGN="top"
+><A
+HREF="postinstall-check.html"
+ACCESSKEY="N"
+>Next</A
+></TD
+></TR
+><TR
+><TD
+WIDTH="33%"
+ALIGN="left"
+VALIGN="top"
+>Win32 Installation Notes</TD
+><TD
+WIDTH="34%"
+ALIGN="center"
+VALIGN="top"
+>&nbsp;</TD
+><TD
+WIDTH="33%"
+ALIGN="right"
+VALIGN="top"
+>Post-Installation Checklist</TD
+></TR
+></TABLE
+></DIV
+></BODY
+></HTML
+>