mirror of
https://github.com/MariaDB/server.git
synced 2025-01-16 12:02:42 +01:00
81 lines
3 KiB
PHP
81 lines
3 KiB
PHP
# Purpose:
|
|
# Simple search with Perl for a pattern in some file.
|
|
#
|
|
# The advantages compared to thinkable auxiliary constructs using the
|
|
# mysqltest language and SQL are:
|
|
# 1. We do not need a running MySQL server.
|
|
# 2. SQL causes "noise" during debugging and increases the size of logs.
|
|
# Perl code does not disturb at all.
|
|
#
|
|
# The environment variables SEARCH_FILE and SEARCH_PATTERN must be set
|
|
# before sourcing this routine.
|
|
#
|
|
# Optionally, SEARCH_RANGE can be set to the max number of bytes of the file
|
|
# to search. If negative, it will search that many bytes at the end of the
|
|
# file. By default the search happens from the last CURRENT_TEST:
|
|
# marker till the end of file (appropriate for searching error logs).
|
|
#
|
|
# Optionally, SEARCH_ABORT can be set to "FOUND" or "NOT FOUND" and this
|
|
# will abort if the search result doesn't match the requested one.
|
|
#
|
|
# In case of
|
|
# - SEARCH_FILE and/or SEARCH_PATTERN is not set
|
|
# - SEARCH_FILE cannot be opened
|
|
# the test will abort immediate.
|
|
#
|
|
# Typical use case (check invalid server startup options):
|
|
# let $error_log= $MYSQLTEST_VARDIR/log/my_restart.err;
|
|
# --error 0,1
|
|
# --remove_file $error_log
|
|
# let SEARCH_FILE= $error_log;
|
|
# # Stop the server
|
|
# let $restart_file= $MYSQLTEST_VARDIR/tmp/mysqld.1.expect;
|
|
# --exec echo "wait" > $restart_file
|
|
# --shutdown_server 10
|
|
# --source include/wait_until_disconnected.inc
|
|
#
|
|
# --error 1
|
|
# --exec $MYSQLD_CMD <whatever wrong setting> > $error_log 2>&1
|
|
# # The server restart aborts
|
|
# let SEARCH_PATTERN= \[ERROR\] Aborting;
|
|
# --source include/search_pattern_in_file.inc
|
|
#
|
|
# Created: 2011-11-11 mleich
|
|
#
|
|
|
|
perl;
|
|
use strict;
|
|
die "SEARCH_FILE not set" unless $ENV{SEARCH_FILE};
|
|
my @search_files= glob($ENV{SEARCH_FILE});
|
|
my $search_pattern= $ENV{SEARCH_PATTERN} or die "SEARCH_PATTERN not set";
|
|
my $search_range= $ENV{SEARCH_RANGE};
|
|
my $content;
|
|
foreach my $search_file (@search_files) {
|
|
open(FILE, '<', $search_file) || die("Can't open file $search_file: $!");
|
|
my $file_content;
|
|
if ($search_range > 0) {
|
|
read(FILE, $file_content, $search_range, 0);
|
|
} elsif ($search_range < 0) {
|
|
my $size= -s $search_file;
|
|
$search_range = -$size if $size > -$search_range;
|
|
seek(FILE, $search_range, 2);
|
|
read(FILE, $file_content, -$search_range, 0);
|
|
} else {
|
|
while(<FILE>) { # error log
|
|
if (/^CURRENT_TEST:/) {
|
|
$content='';
|
|
} else {
|
|
$content.=$_;
|
|
}
|
|
}
|
|
}
|
|
close(FILE);
|
|
$content.= $file_content;
|
|
}
|
|
my @matches=($content =~ m/$search_pattern/gs);
|
|
my $res=@matches ? "FOUND " . scalar(@matches) : "NOT FOUND";
|
|
$ENV{SEARCH_FILE} =~ s{^.*?([^/\\]+)$}{$1};
|
|
print "$res /$search_pattern/ in $ENV{SEARCH_FILE}\n";
|
|
die "$ENV{SEARCH_ABORT}\n"
|
|
if $ENV{SEARCH_ABORT} && $res =~ /^$ENV{SEARCH_ABORT}/;
|
|
EOF
|