Files
webmin/lilo/backup_config.pl
Jamie Cameron 9dbd5db2c9 Fix permissions
2009-07-20 23:42:32 -07:00

49 lines
807 B
Perl
Executable File

do 'lilo-lib.pl';
# backup_config_files()
# Returns files and directories that can be backed up
sub backup_config_files
{
local @rv = ( $config{'lilo_conf'} );
local $conf = &get_lilo_conf();
local $msg = &find_value("message", $conf);
push(@rv, $msg) if ($msg);
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
{
return undef;
}
# post_restore(&files)
# Called after the files are restored from a backup
sub post_restore
{
local $out = &backquote_logged("$config{'lilo_cmd'} -v 2>&1");
if ($?) {
return "<pre>$out</pre>";
}
return undef;
}
1;