do 'virtual-server-lib.pl';
# backup_config_files()
# Returns files and directories that can be backed up
sub backup_config_files
{
local @rv;
# Add all domain files
foreach my $d (&list_domains()) {
push(@rv, $d->{'file'});
}
# Add all bandwidth files
foreach my $d (&list_domains()) {
push(@rv, "$bandwidth_dir/$d->{'id'}")
if (-r "$bandwidth_dir/$d->{'id'}");
}
# Add all templates
foreach my $t (&list_templates()) {
if ($t->{'id'} > 0) {
push(@rv, "$templates_dir/$t->{'id'}");
}
}
# Add records of installed scripts
foreach my $d (&list_domains()) {
push(@rv, "$script_log_directory/$d->{'id'}")
if (-r "$script_log_directory/$d->{'id'}");
}
# Add mail templates
foreach my $tf (@all_template_files) {
push(@rv, "$module_config_directory/$tf");
}
# Add other files
push(@rv, $custom_fields_file);
push(@rv, $scripts_unavail_file);
# Add spam and procmail config files
foreach my $d (&list_domains()) {
push(@rv, "$procmail_spam_dir/$d->{'id'}")
if (-r "$procmail_spam_dir/$d->{'id'}");
push(@rv, "$spam_config_dir/$d->{'id'}")
if (-r "$spam_config_dir/$d->{'id'}");
}
# Add initial users
foreach my $d (&list_domains()) {
push(@rv, "$initial_users_dir/$d->{'id'}")
if (-r "$initial_users_dir/$d->{'id'}");
}
# IDs files
push(@rv, $old_uids_file, $old_gids_file);
return @rv;
}
# 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
{
# Delete other domains
foreach my $d (&list_domains()) {
&delete_domain($d);
}
return undef;
}
# post_restore(&files)
# Called after the files are restored from a backup
sub post_restore
{
return undef;
}
1;