Edit File: ib_logfile_size_check.inc
perl; my $dir = $ENV{'MYSQLD_DATADIR'}; my $size; opendir(DIR, $dir) or die $!; while (my $file = readdir(DIR)) { next unless ($file =~ m/\ib_logfile.$/); $size = -s "$dir/$file"; print "The size of the ib_logfile(0/1): $size \n"; } close(DIR); exit(0) EOF