mirror of
https://github.com/MariaDB/server.git
synced 2025-01-17 12:32:27 +01:00
14b1de4293
that they control. BitKeeper/triggers/post-commit.innodb.pl: Trigger to notify InnoDB developers about changes in InnoDB files. BitKeeper/triggers/post-incoming.innodb.pl: Trigger to notify InnoDB developers about changes in InnoDB files. BitKeeper/triggers/pre-commit.innodb.pl: Trigger to warn MySQL developers that they have changed InnoDB files, and that their changes will be sent to the InnoDB developers if they choose to commit. BitKeeper/triggers/triggers-lib.pl: Utility functions for BK triggers written in Perl.
30 lines
616 B
Perl
Executable file
30 lines
616 B
Perl
Executable file
#! /usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use FindBin;
|
|
require "$FindBin::Bin/triggers-lib.pl";
|
|
|
|
# Don't run unless push/pull was successful
|
|
check_status() or exit 0;
|
|
|
|
# Don't run if push/pull is in local clones
|
|
exit 0 if repository_type() eq 'local';
|
|
|
|
# For each pushed ChangeSet, check it for InnoDB files and send
|
|
# diff of entire ChangeSet to InnoDB developers if such changes
|
|
# exist.
|
|
|
|
my $error = 0;
|
|
|
|
foreach my $cset (read_bk_csetlist())
|
|
{
|
|
my $changes = innodb_get_changes('cset', $cset, 'yes')
|
|
or next;
|
|
|
|
innodb_send_changes_email($cset, $changes)
|
|
or $error = 1;
|
|
}
|
|
|
|
exit ($error == 0 ? 0 : 1);
|