403Webshell
Server IP : 189.126.111.107  /  Your IP : 216.73.217.69
Web Server : Apache
System : Linux www.gadotticar.com.br 5.4.0-135-generic #152-Ubuntu SMP Wed Nov 23 20:19:22 UTC 2022 x86_64
User : gadotticar ( 1000)
PHP Version : 8.2.27
Disable Function : NONE
MySQL : OFF  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : ON  |  Sudo : ON  |  Pkexec : ON
Directory :  /usr/share/webmin/virtual-server/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :


[ Back ]     

Current File : /usr/share/webmin/virtual-server/backup_config.pl
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;


Youez - 2016 - github.com/yon3zu
LinuXploit