59 lines
1.0 KiB
Perl
Executable File
59 lines
1.0 KiB
Perl
Executable File
|
|
do 'mysql-lib.pl';
|
|
|
|
# backup_config_files()
|
|
# Returns files and directories that can be backed up
|
|
sub backup_config_files
|
|
{
|
|
return &get_all_mysqld_files();
|
|
}
|
|
|
|
# pre_backup(&files)
|
|
# Called before the files are actually read
|
|
sub pre_backup
|
|
{
|
|
return undef;
|
|
}
|
|
|
|
# post_backup(&files)
|
|
# Called after the files are actually read
|
|
sub post_backup
|
|
{
|
|
return undef;
|
|
}
|
|
|
|
# pre_restore(&files)
|
|
# Called before the files are restored from a backup
|
|
sub pre_restore
|
|
{
|
|
if (&is_mysql_running() != -1) {
|
|
%oldconfig = %config;
|
|
}
|
|
else {
|
|
%oldconfig = ( );
|
|
}
|
|
return undef;
|
|
}
|
|
|
|
# post_restore(&files)
|
|
# Called after the files are restored from a backup
|
|
sub post_restore
|
|
{
|
|
$authstr = &make_authstr();
|
|
&read_file_cached($module_config_file, \%config);
|
|
if (&is_mysql_running() == -1 && %oldconfig) {
|
|
# New restored login isn't valid .. put back the old one
|
|
$config{'login'} = $oldconfig{'login'};
|
|
$config{'pass'} = $oldconfig{'pass'};
|
|
&save_module_config();
|
|
}
|
|
if (&is_mysql_running()) {
|
|
&stop_mysql();
|
|
return &start_mysql();
|
|
}
|
|
return undef;
|
|
}
|
|
|
|
1;
|
|
|