47 lines
729 B
Perl
Executable File
47 lines
729 B
Perl
Executable File
|
|
do 'xinetd-lib.pl';
|
|
|
|
# backup_config_files()
|
|
# Returns files and directories that can be backed up
|
|
sub backup_config_files
|
|
{
|
|
local @conf = &get_xinetd_config();
|
|
local @rv = map { $_->{'file'} } @conf;
|
|
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
|
|
{
|
|
local $pid;
|
|
if ($pid = &is_xinetd_running()) {
|
|
&kill_logged('USR2', $pid);
|
|
}
|
|
return undef;
|
|
}
|
|
|
|
1;
|
|
|