List:Commits« Previous MessageNext Message »
From:knielsen Date:June 8 2006 2:39pm
Subject:bk commit into 5.1 tree (knielsen:1.2190)
View as plain text  
Below is the list of changes that have just been committed into a local
5.1 repository of knielsen. When knielsen 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
  1.2190 06/06/08 16:39:08 knielsen@stripped +1 -0
  Add trigger to prevent pushing from clones of the crashed 5.1 tree.

  BitKeeper/triggers/pre-outgoing.crash-protect.pl
    1.1 06/06/08 16:38:59 knielsen@stripped +114 -0

  BitKeeper/triggers/pre-outgoing.crash-protect.pl
    1.0 06/06/08 16:38:59 knielsen@stripped +0 -0
    BitKeeper file /data0/bk/mysql-5.1/BitKeeper/triggers/pre-outgoing.crash-protect.pl

# 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:	knielsen
# Host:	bk-internal.mysql.com
# Root:	/data0/bk/mysql-5.1
--- New file ---
+++ BitKeeper/triggers/pre-outgoing.crash-protect.pl	06/06/08 16:38:59
#! /usr/bin/perl

use strict;
use warnings;

print "Checking for bad changesets from old crashed 5.1 tree...\n";

my @bad_csets=
    ( 'msvensson@shellback.(none)|ChangeSet|20060529142745|46985',
      'msvensson@shellback.(none)|ChangeSet|20060529143332|33946',
      'msvensson@shellback.(none)|ChangeSet|20060531083338|34492',
      'mskold@stripped|ChangeSet|20060531133249|59726',
      'msvensson@shellback.(none)|ChangeSet|20060531141906|46150',
      'msvensson@shellback.(none)|ChangeSet|20060531142803|34535',
      'msvensson@shellback.(none)|ChangeSet|20060531143208|29327',
      'msvensson@shellback.(none)|ChangeSet|20060531201917|31727',
      'msvensson@shellback.(none)|ChangeSet|20060531202140|30569',
      'msvensson@shellback.(none)|ChangeSet|20060531210656|30302',
      'msvensson@shellback.(none)|ChangeSet|20060531213650|30228',
      'msvensson@stripped|ChangeSet|20060531220152|32024',
      'mskold@stripped|ChangeSet|20060601064347|57850',
      'jonas@stripped|ChangeSet|20060601065058|57665',
      'jonas@stripped|ChangeSet|20060601065157|32046',
      'msvensson@shellback.(none)|ChangeSet|20060601103235|30886',
      'jonas@stripped|ChangeSet|20060601105712|57872',
      'msvensson@shellback.(none)|ChangeSet|20060601113527|58530',
      'elliot@stripped|ChangeSet|20060604134029|08076',
      'elliot@stripped|ChangeSet|20060428201319|48501',
      'msvensson@neptunus.(none)|ChangeSet|20060523093514|36516',
      'elliot@stripped|ChangeSet|20060524130255|05714',
      'iggy@stripped|ChangeSet|20060524133436|07673',
      'msvensson@neptunus.(none)|ChangeSet|20060529111121|49878',
      'msvensson@neptunus.(none)|ChangeSet|20060529111617|54251',
      'msvensson@neptunus.(none)|ChangeSet|20060529130531|54248',
      'msvensson@neptunus.(none)|ChangeSet|20060529130637|37471',
      'iggy@stripped|ChangeSet|20060530122212|37016',
      'tnurnberg@stripped|ChangeSet|20060531122731|36474',
      'msvensson@shellback.(none)|ChangeSet|20060601103352|33933',
      'cmiller@zippy.(none)|ChangeSet|20060601184744|61577',
      'elliot@stripped|ChangeSet|20060604220244|04353',
      '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|20060604155222|37062',
      'monty@stripped|ChangeSet|20060604180522|19990',
      'monty@stripped|ChangeSet|20060605031608|14088',
      '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',
      );

# 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! $ENV{BK_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;
  }
}

print "No bad changesets found, proceeding.\n";

exit 0;

Thread
bk commit into 5.1 tree (knielsen:1.2190)knielsen8 Jun