Commit b912f9ec authored by unknown's avatar unknown
Browse files

Add trigger to protect against changesets from crashed tree

parent 7f19b1cc

BitKeeper/triggers/pre-outgoing.crash-protect.pl

0 → 100755
+117 −0
Original line number Diff line number Diff line 
#! /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;

}



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@mysql.com|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@devsrv-b.mysql.com|ChangeSet|20060531220152|32024',

      'mskold@mysql.com|ChangeSet|20060601064347|57850',

      'jonas@perch.ndb.mysql.com|ChangeSet|20060601065058|57665',

      'jonas@perch.ndb.mysql.com|ChangeSet|20060601065157|32046',

      'msvensson@shellback.(none)|ChangeSet|20060601103235|30886',

      'jonas@perch.ndb.mysql.com|ChangeSet|20060601105712|57872',

      'msvensson@shellback.(none)|ChangeSet|20060601113527|58530',

      'elliot@mysql.com|ChangeSet|20060604134029|08076',

      'elliot@mysql.com|ChangeSet|20060428201319|48501',

      'msvensson@neptunus.(none)|ChangeSet|20060523093514|36516',

      'elliot@mysql.com|ChangeSet|20060524130255|05714',

      'iggy@mysql.com|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@mysql.com|ChangeSet|20060530122212|37016',

      'tnurnberg@mysql.com|ChangeSet|20060531122731|36474',

      'msvensson@shellback.(none)|ChangeSet|20060601103352|33933',

      'cmiller@zippy.(none)|ChangeSet|20060601184744|61577',

      'elliot@mysql.com|ChangeSet|20060604220244|04353',

      'monty@mysql.com|ChangeSet|20060418090255|16983',

      'monty@mysql.com|ChangeSet|20060418090458|02628',

      'monty@mysql.com|ChangeSet|20060419084236|49576',

      'monty@mysql.com|ChangeSet|20060503164655|51444',

      'monty@mysql.com|ChangeSet|20060503225814|60133',

      'monty@mysql.com|ChangeSet|20060504033006|54878',

      'monty@mysql.com|ChangeSet|20060504130520|48660',

      'monty@mysql.com|ChangeSet|20060504164102|03511',

      'monty@mysql.com|ChangeSet|20060504193112|04109',

      'monty@mysql.com|ChangeSet|20060505015314|02799',

      'monty@mysql.com|ChangeSet|20060505084007|16704',

      'monty@mysql.com|ChangeSet|20060505104008|16695',

      'monty@mysql.com|ChangeSet|20060505171041|13924',

      'monty@mysql.com|ChangeSet|20060508121933|13866',

      'monty@mysql.com|ChangeSet|20060508160902|15029',

      'monty@mysql.com|ChangeSet|20060509145448|38636',

      'monty@mysql.com|ChangeSet|20060509224111|40037',

      'monty@mysql.com|ChangeSet|20060510090758|40678',

      'monty@mysql.com|ChangeSet|20060515164104|46760',

      'monty@mysql.com|ChangeSet|20060530114549|35852',

      'monty@mysql.com|ChangeSet|20060605032828|23579',

      'monty@mysql.com|ChangeSet|20060605033011|10641',

      'monty@mysql.com|ChangeSet|20060605060652|09843',

      'msvensson@neptunus.(none)|ChangeSet|20060605094744|10838',

      'msvensson@neptunus.(none)|ChangeSet|20060605105746|11800',

      'msvensson@neptunus.(none)|ChangeSet|20060605122345|12772',

      'jmiller@mysql.com|ChangeSet|20060531210831|36442',

      'jmiller@mysql.com|ChangeSet|20060602151941|36118',

      'jmiller@mysql.com|ChangeSet|20060602152136|27762',

      'jmiller@mysql.com|ChangeSet|20060605121748|12864',

      'jmiller@mysql.com|ChangeSet|20060605160304|14798',

      'jimw@mysql.com|ChangeSet|20060605210201|14667',

      'igor@rurik.mysql.com|ChangeSet|20060605220727|15265',

      'igor@rurik.mysql.com|ChangeSet|20060605221206|15134',

      'stewart@mysql.com|ChangeSet|20060525073521|11169',

      'stewart@mysql.com|ChangeSet|20060605154220|12975',

      'stewart@mysql.com|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! $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;

BitKeeper/triggers/pre-resolve.crash-protect.pl

0 → 100755
+117 −0
Original line number Diff line number Diff line 
#! /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;

}



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@mysql.com|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@devsrv-b.mysql.com|ChangeSet|20060531220152|32024',

      'mskold@mysql.com|ChangeSet|20060601064347|57850',

      'jonas@perch.ndb.mysql.com|ChangeSet|20060601065058|57665',

      'jonas@perch.ndb.mysql.com|ChangeSet|20060601065157|32046',

      'msvensson@shellback.(none)|ChangeSet|20060601103235|30886',

      'jonas@perch.ndb.mysql.com|ChangeSet|20060601105712|57872',

      'msvensson@shellback.(none)|ChangeSet|20060601113527|58530',

      'elliot@mysql.com|ChangeSet|20060604134029|08076',

      'elliot@mysql.com|ChangeSet|20060428201319|48501',

      'msvensson@neptunus.(none)|ChangeSet|20060523093514|36516',

      'elliot@mysql.com|ChangeSet|20060524130255|05714',

      'iggy@mysql.com|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@mysql.com|ChangeSet|20060530122212|37016',

      'tnurnberg@mysql.com|ChangeSet|20060531122731|36474',

      'msvensson@shellback.(none)|ChangeSet|20060601103352|33933',

      'cmiller@zippy.(none)|ChangeSet|20060601184744|61577',

      'elliot@mysql.com|ChangeSet|20060604220244|04353',

      'monty@mysql.com|ChangeSet|20060418090255|16983',

      'monty@mysql.com|ChangeSet|20060418090458|02628',

      'monty@mysql.com|ChangeSet|20060419084236|49576',

      'monty@mysql.com|ChangeSet|20060503164655|51444',

      'monty@mysql.com|ChangeSet|20060503225814|60133',

      'monty@mysql.com|ChangeSet|20060504033006|54878',

      'monty@mysql.com|ChangeSet|20060504130520|48660',

      'monty@mysql.com|ChangeSet|20060504164102|03511',

      'monty@mysql.com|ChangeSet|20060504193112|04109',

      'monty@mysql.com|ChangeSet|20060505015314|02799',

      'monty@mysql.com|ChangeSet|20060505084007|16704',

      'monty@mysql.com|ChangeSet|20060505104008|16695',

      'monty@mysql.com|ChangeSet|20060505171041|13924',

      'monty@mysql.com|ChangeSet|20060508121933|13866',

      'monty@mysql.com|ChangeSet|20060508160902|15029',

      'monty@mysql.com|ChangeSet|20060509145448|38636',

      'monty@mysql.com|ChangeSet|20060509224111|40037',

      'monty@mysql.com|ChangeSet|20060510090758|40678',

      'monty@mysql.com|ChangeSet|20060515164104|46760',

      'monty@mysql.com|ChangeSet|20060530114549|35852',

      'monty@mysql.com|ChangeSet|20060605032828|23579',

      'monty@mysql.com|ChangeSet|20060605033011|10641',

      'monty@mysql.com|ChangeSet|20060605060652|09843',

      'msvensson@neptunus.(none)|ChangeSet|20060605094744|10838',

      'msvensson@neptunus.(none)|ChangeSet|20060605105746|11800',

      'msvensson@neptunus.(none)|ChangeSet|20060605122345|12772',

      'jmiller@mysql.com|ChangeSet|20060531210831|36442',

      'jmiller@mysql.com|ChangeSet|20060602151941|36118',

      'jmiller@mysql.com|ChangeSet|20060602152136|27762',

      'jmiller@mysql.com|ChangeSet|20060605121748|12864',

      'jmiller@mysql.com|ChangeSet|20060605160304|14798',

      'jimw@mysql.com|ChangeSet|20060605210201|14667',

      'igor@rurik.mysql.com|ChangeSet|20060605220727|15265',

      'igor@rurik.mysql.com|ChangeSet|20060605221206|15134',

      'stewart@mysql.com|ChangeSet|20060525073521|11169',

      'stewart@mysql.com|ChangeSet|20060605154220|12975',

      'stewart@mysql.com|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! $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;