database/mariadb
1
0
Fork 0
mirror of https://github.com/MariaDB/server.git synced 2025-07-30 16:24:05 +03:00
Code Activity

merge

Browse Source 
Docs/manual.texi:
  merge (need to fix with emacs to get everthing right)
This commit is contained in:
unknown
2001-07-28 23:33:16 +03:00
parent 29ef945557 e7eb74372c
commit c6318e4731
1 changed files with 33 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

45
scripts/mysqlhotcopy.sh
View File

@ -223,18 +223,27 @@ foreach my $rdb ( @db_desc ) {
my $db = $rdb->{src}; my $db = $rdb->{src};
eval { $dbh->do( "use $db" ); }; eval { $dbh->do( "use $db" ); };
die "Database '$db' not accessible: $@" if ( $@ ); die "Database '$db' not accessible: $@" if ( $@ );
my @dbh_tables = $dbh->func( '_ListTables' ); my @dbh_tables = $dbh->tables();
## generate regex for tables/files ## generate regex for tables/files
my $t_regex = $rdb->{t_regex}; ## assign temporary regex my $t_regex;
my $negated = $t_regex =~ tr/~//d; ## remove and count negation operator: we don't allow ~ in table names my $negated;
$t_regex = qr/$t_regex/; ## make regex string from user regex if ($rdb->{t_regex}) {
$t_regex = $rdb->{t_regex}; ## assign temporary regex
$negated = $t_regex =~ tr/~//d; ## remove and count
## negation operator: we
## don't allow ~ in table
## names
## filter (out) tables specified in t_regex $t_regex = qr/$t_regex/; ## make regex string from
print "Filtering tables with '$t_regex'\n" if $opt{debug}; ## user regex
@dbh_tables = ( $negated
? grep { $_ !~ $t_regex } @dbh_tables ## filter (out) tables specified in t_regex
: grep { $_ =~ $t_regex } @dbh_tables ); print "Filtering tables with '$t_regex'\n" if $opt{debug};
@dbh_tables = ( $negated
? grep { $_ !~ $t_regex } @dbh_tables
: grep { $_ =~ $t_regex } @dbh_tables );
}
## get list of files to copy ## get list of files to copy
my $db_dir = "$datadir/$db"; my $db_dir = "$datadir/$db";
@ -249,10 +258,18 @@ foreach my $rdb ( @db_desc ) {
closedir( DBDIR ); closedir( DBDIR );
## filter (out) files specified in t_regex ## filter (out) files specified in t_regex
my @db_files = ( $negated my @db_files;
? grep { $db_files{$_} !~ $t_regex } keys %db_files if ($rdb->{t_regex}) {
: grep { $db_files{$_} =~ $t_regex } keys %db_files ); @db_files = ($negated
? grep { $db_files{$_} !~ $t_regex } keys %db_files
: grep { $db_files{$_} =~ $t_regex } keys %db_files );
}
else {
@db_files = keys %db_files;
}
@db_files = sort @db_files; @db_files = sort @db_files;
my @index_files=(); my @index_files=();
## remove indices unless we're told to keep them ## remove indices unless we're told to keep them
@ -809,3 +826,7 @@ Ask Bjoern Hansen - Cleanup code to fix a few bugs and enable -w again.
Emil S. Hansen - Added resetslave and resetmaster. Emil S. Hansen - Added resetslave and resetmaster.
Jeremy D. Zawodny - Removed depricated DBI calls. Fixed bug which
resulted in nothing being copied when a regexp was specified but no
database name(s).