1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
|
# Purpose:
# To get the immediate_commit_timestamp value from the
# current connection server's current binlog file for a
# particular GTID.
#
# Parameters:
# --let $gtid=server_uuid:id
#
# $readable
# By default thie file returns the Immediate_commit_timestamp as a
# utc timestamp. If this variable is set this file returns the
# Immediate commit timestamp in human readable form.
#
# $only_time
# If this parameter is set then this file returns only the time
# portion of the human readable immediate_commit_timestamp. Note
# that this parameter has an effect only when $readable is set.
#
# Usage:
# --let $gtid=85e5e835-dcd2-11e3-a2ce-3c970e9d6412:2
# --source include/get_immediate_commit_timestamp.inc
#
# Return Value:
# $immediate_commit_timestamp
#
--let $MYSQLD_DATADIR = `select @@datadir`
--let $binlog_file = query_get_value(SHOW MASTER STATUS, File, 1)
--let $prefix = `select uuid()`
--let $out_file = $MYSQLTEST_VARDIR/tmp/$prefix.out
--exec $MYSQL_BINLOG --include-gtids=$gtid --force-if-open $MYSQLD_DATADIR/$binlog_file > $out_file
--let GTID_VAR = $gtid
--let OUTFILE = $out_file
--let READ_VAR = $readable
--let TIME_VAR = $only_time
perl;
use strict;
my $outfile = $ENV{'OUTFILE'} or die "OUTFILE not set";
my $gtid = $ENV{'GTID_VAR'} or die "GTID_VAR not set";
my $readable = $ENV{'READ_VAR'};
my $only_time = $ENV{'TIME_VAR'};
open(FILE, "$outfile") or die("Unable to open $outfile: $!\n");
my $gtid_next_stmt;
my $prev_gtid_next_stmt;
my $prev;
my $prev_prev;
my $ICT;
while (my $gtid_next_stmt = <FILE>)
{
chomp $gtid_next_stmt;
if ($gtid_next_stmt =~ /$gtid/ )
{
last;
}
$ICT=$prev_prev;
$prev_prev=$prev;
$prev=$prev_gtid_next_stmt;
$prev_gtid_next_stmt=$gtid_next_stmt;
}
if ($readable == 1 )
{
if ($only_time == 1)
{
$ICT =~ s/.*([0-9][0-9]:[0-9][0-9]:[0-9][0-9]*).*/\1/;
}
else
{
$ICT =~ s/.*([0-9]{4}-[0-9]*-[0-9]* [0-9][0-9]:[0-9][0-9]:[0-9][0-9]*).*/\1/;
}
}
else
{
$ICT =~ s/.*immediate_commit_timestamp=([0-9][0-9]*).*/\1/;
}
my $dir = $ENV{'MYSQLTEST_VARDIR'};
open (OUTPUT, ">$dir/tmp/tar.inc") ;
print OUTPUT "--let \$immediate_commit_timestamp = $ICT\n";
close (OUTPUT);
EOF
--source $MYSQLTEST_VARDIR/tmp/tar.inc
--remove_file $MYSQLTEST_VARDIR/tmp/tar.inc
--remove_file $out_file
|
