mirror of
https://github.com/webmin/webmin.git
synced 2025-07-23 00:30:33 +00:00
48 lines
749 B
Perl
Executable File
48 lines
749 B
Perl
Executable File
|
|
do 'user-lib.pl';
|
|
|
|
# backup_config_files()
|
|
# Returns files and directories that can be backed up
|
|
sub backup_config_files
|
|
{
|
|
local @rv;
|
|
foreach $f ("passwd_file", "group_file", "shadow_file", "master_file",
|
|
"gshadow_file") {
|
|
push(@rv, $config{$f}) if ($config{$f});
|
|
}
|
|
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
|
|
{
|
|
&making_changes();
|
|
return undef;
|
|
}
|
|
|
|
# post_restore(&files)
|
|
# Called after the files are restored from a backup
|
|
sub post_restore
|
|
{
|
|
&made_changes();
|
|
return undef;
|
|
}
|
|
|
|
1;
|
|
|