Current File : //usr/share/webmin/pam/backup_config.pl
do 'pam-lib.pl';
# backup_config_files()
# Returns files and directories that can be backed up
sub backup_config_files
{
local @conf = &get_pam_config();
local @rv = map { $_->{'file'} } @conf;
local $p;
foreach $p (@conf) {
local $m;
foreach $m (@{$p->{'mods'}}) {
if ($m->{'args'} =~ /file=(\/\S+)/ && -r $1 && !-d $1) {
push(@rv, $1);
}
}
}
return &unique(@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
{
return undef;
}
# post_restore(&files)
# Called after the files are restored from a backup
sub post_restore
{
return undef;
}
1;
Mini Shell