blob: a5e4d9d80350a93ed738ce3bacbab40307cdfee6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
my $pid_file = $ARGV[0];
my $log_file = $ARGV[1];
open(my $fh, '<', $pid_file) || die "Cannot open pid file $pid_file";
my $slave_pid = <$fh>;
close($fh);
$slave_pid =~ s/\s//g;
open(my $log_fh, '<', $log_file) || die "Cannot open log file $log_file";
my $pid_found = 0;
while (my $line = <$log_fh>) {
next unless ($pid_found || $line =~ /^[\d-]* [\d:]* $slave_pid /);
$pid_found = 1 unless ($pid_found);
if ($line =~ /^RocksDB: Last binlog file position.*slave-bin\..*\n/) {
print "Binlog Info Found\n";
}
}
close($log_fh);
|
