bk commit into 5.0 tree (msvensson:1.2478)

[msvensson]

Below is the list of changes that have just been committed into a local
5.0 repository of msvensson. When msvensson does a push these changes will
be propagated to the main repository and, within 24 hours after the
push, to the public repository.
For information on how to access the public repository
see http://dev.mysql.com/doc/mysql/en/installing-source-tree.html

ChangeSet@stripped, 2007-05-15 17:04:31+02:00, msvensson@stripped +2 -0
  Add triggers for detecting bad changesets to mysql-5.0

  BitKeeper/triggers/pre-outgoing.crash-protect.pl@stripped, 2007-05-15 17:04:30+02:00,
msvensson@stripped +82 -0
    Add triggers for detecting bad changesets to mysql-5.0

  BitKeeper/triggers/pre-outgoing.crash-protect.pl@stripped, 2007-05-15 17:04:30+02:00,
msvensson@stripped +0 -0

  BitKeeper/triggers/pre-resolve.crash-protect.pl@stripped, 2007-05-15 17:04:30+02:00,
msvensson@stripped +82 -0
    Add triggers for detecting bad changesets to mysql-5.0

  BitKeeper/triggers/pre-resolve.crash-protect.pl@stripped, 2007-05-15 17:04:30+02:00,
msvensson@stripped +0 -0

# This is a BitKeeper patch.  What follows are the unified diffs for the
# set of deltas contained in the patch.  The rest of the patch, the part
# that BitKeeper cares about, is below these diffs.
# User:	msvensson
# Host:	pilot.blaudden
# Root:	/home/msvensson/mysql/mysql-5.0-maint
--- New file ---
+++ BitKeeper/triggers/pre-outgoing.crash-protect.pl	07/05/15 17:04:30
#! /usr/bin/perl

use strict;
use warnings;

my $event= $ENV{BK_EVENT};
unless($event eq 'outgoing pull' || $event eq 'outgoing push' ||
       $event eq 'resolve') {
  exit 0;
}

my @bad_csets=
    ( 'monty@stripped|ChangeSet|20060418090255|16983',
      'monty@stripped|ChangeSet|20060418090458|02628',
      'monty@stripped|ChangeSet|20060419084236|49576',
      'monty@stripped|ChangeSet|20060503164655|51444',
      'monty@stripped|ChangeSet|20060503225814|60133',
      'monty@stripped|ChangeSet|20060504033006|54878',
      'monty@stripped|ChangeSet|20060504130520|48660',
      'monty@stripped|ChangeSet|20060504164102|03511',
      'monty@stripped|ChangeSet|20060504193112|04109',
      'monty@stripped|ChangeSet|20060505015314|02799',
      'monty@stripped|ChangeSet|20060505084007|16704',
      'monty@stripped|ChangeSet|20060505104008|16695',
      'monty@stripped|ChangeSet|20060505171041|13924',
      'monty@stripped|ChangeSet|20060508121933|13866',
      'monty@stripped|ChangeSet|20060508160902|15029',
      'monty@stripped|ChangeSet|20060509145448|38636',
      'monty@stripped|ChangeSet|20060509224111|40037',
      'monty@stripped|ChangeSet|20060510090758|40678',
      'monty@stripped|ChangeSet|20060515164104|46760',
      'monty@stripped|ChangeSet|20060530114549|35852',
      'monty@stripped|ChangeSet|20060605032828|23579',
      'monty@stripped|ChangeSet|20060605033011|10641',
      'monty@stripped|ChangeSet|20060605060652|09843',
      'msvensson@neptunus.(none)|ChangeSet|20060605094744|10838',
      'msvensson@neptunus.(none)|ChangeSet|20060605105746|11800',
      'msvensson@neptunus.(none)|ChangeSet|20060605122345|12772',
      'jmiller@stripped|ChangeSet|20060531210831|36442',
      'jmiller@stripped|ChangeSet|20060602151941|36118',
      'jmiller@stripped|ChangeSet|20060602152136|27762',
      'jmiller@stripped|ChangeSet|20060605121748|12864',
      'jmiller@stripped|ChangeSet|20060605160304|14798',
      'jimw@stripped|ChangeSet|20060605210201|14667',
      'igor@stripped|ChangeSet|20060605220727|15265',
      'igor@stripped|ChangeSet|20060605221206|15134',
      'stewart@stripped|ChangeSet|20060525073521|11169',
      'stewart@stripped|ChangeSet|20060605154220|12975',
      'stewart@stripped|ChangeSet|20060606040001|15337',
      'hartmut@stripped/linux.site|ChangeSet|20070413121444|50289'
      );

# Read the list of changesets.
my $csetlist = $ENV{BK_CSETLIST};
if(!defined($csetlist) || !open(FH, '<', $csetlist)) {
  die "Failed to open list of incoming changesets '$csetlist': $!.\n";
}
my @csets = <FH>;
close FH;

# Reject any attempt to push/pull a bad changeset.
for my $cs (@csets) {
  # Do this the raw way, don't want to be bitten by different EOL conventions
  # on server and client (Unix/Windows/Mac).
  $cs =~ s/\x0d?\x0a?$//s;
  if(grep($_ eq $cs, @bad_csets)) {
    print <<END;
BAD CHANGESET DETECTED! $event REJECTED!

The changeset with key '$cs' was detected in the attempted push or pull.
This changeset is from the corrupt part of the crashed mysql-5.1-new tree.
Pushing or pulling this changeset would result in corruption of the new tree,
and therefore the operation has been rejected.

Contact Kristian Nielsen (knielsen\@mysql.com, IRC knielsen) if you have any
questions regarding this.
END
    exit 1;
  }
}

exit 0;

--- New file ---
+++ BitKeeper/triggers/pre-resolve.crash-protect.pl	07/05/15 17:04:30
#! /usr/bin/perl

use strict;
use warnings;

my $event= $ENV{BK_EVENT};
unless($event eq 'outgoing pull' || $event eq 'outgoing push' ||
       $event eq 'resolve') {
  exit 0;
}

my @bad_csets=
    ( 'monty@stripped|ChangeSet|20060418090255|16983',
      'monty@stripped|ChangeSet|20060418090458|02628',
      'monty@stripped|ChangeSet|20060419084236|49576',
      'monty@stripped|ChangeSet|20060503164655|51444',
      'monty@stripped|ChangeSet|20060503225814|60133',
      'monty@stripped|ChangeSet|20060504033006|54878',
      'monty@stripped|ChangeSet|20060504130520|48660',
      'monty@stripped|ChangeSet|20060504164102|03511',
      'monty@stripped|ChangeSet|20060504193112|04109',
      'monty@stripped|ChangeSet|20060505015314|02799',
      'monty@stripped|ChangeSet|20060505084007|16704',
      'monty@stripped|ChangeSet|20060505104008|16695',
      'monty@stripped|ChangeSet|20060505171041|13924',
      'monty@stripped|ChangeSet|20060508121933|13866',
      'monty@stripped|ChangeSet|20060508160902|15029',
      'monty@stripped|ChangeSet|20060509145448|38636',
      'monty@stripped|ChangeSet|20060509224111|40037',
      'monty@stripped|ChangeSet|20060510090758|40678',
      'monty@stripped|ChangeSet|20060515164104|46760',
      'monty@stripped|ChangeSet|20060530114549|35852',
      'monty@stripped|ChangeSet|20060605032828|23579',
      'monty@stripped|ChangeSet|20060605033011|10641',
      'monty@stripped|ChangeSet|20060605060652|09843',
      'msvensson@neptunus.(none)|ChangeSet|20060605094744|10838',
      'msvensson@neptunus.(none)|ChangeSet|20060605105746|11800',
      'msvensson@neptunus.(none)|ChangeSet|20060605122345|12772',
      'jmiller@stripped|ChangeSet|20060531210831|36442',
      'jmiller@stripped|ChangeSet|20060602151941|36118',
      'jmiller@stripped|ChangeSet|20060602152136|27762',
      'jmiller@stripped|ChangeSet|20060605121748|12864',
      'jmiller@stripped|ChangeSet|20060605160304|14798',
      'jimw@stripped|ChangeSet|20060605210201|14667',
      'igor@stripped|ChangeSet|20060605220727|15265',
      'igor@stripped|ChangeSet|20060605221206|15134',
      'stewart@stripped|ChangeSet|20060525073521|11169',
      'stewart@stripped|ChangeSet|20060605154220|12975',
      'stewart@stripped|ChangeSet|20060606040001|15337',
      'hartmut@stripped/linux.site|ChangeSet|20070413121444|50289'
      );

# Read the list of changesets.
my $csetlist = $ENV{BK_CSETLIST};
if(!defined($csetlist) || !open(FH, '<', $csetlist)) {
  die "Failed to open list of incoming changesets '$csetlist': $!.\n";
}
my @csets = <FH>;
close FH;

# Reject any attempt to push/pull a bad changeset.
for my $cs (@csets) {
  # Do this the raw way, don't want to be bitten by different EOL conventions
  # on server and client (Unix/Windows/Mac).
  $cs =~ s/\x0d?\x0a?$//s;
  if(grep($_ eq $cs, @bad_csets)) {
    print <<END;
BAD CHANGESET DETECTED! $event REJECTED!

The changeset with key '$cs' was detected in the attempted push or pull.
This changeset is from the corrupt part of the crashed mysql-5.1-new tree.
Pushing or pulling this changeset would result in corruption of the new tree,
and therefore the operation has been rejected.

Contact Kristian Nielsen (knielsen\@mysql.com, IRC knielsen) if you have any
questions regarding this.
END
    exit 1;
  }
}

exit 0;