cyteen
/
sanoid
mirror of https://github.com/jimsalterjrs/sanoid
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

implemented pre pruning script hook

This commit is contained in:
Christoph Klaffl 2020-02-13 01:01:09 +01:00
parent 487693993b
commit 44f7cae115
No known key found for this signature in database
GPG Key ID: 8FC1D76EED4970D2
3 changed files with 22 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
sanoid
View File

@ -316,6 +316,25 @@ sub prune_snapshots {
if (checklock('sanoid_pruning')) { if (checklock('sanoid_pruning')) {
writelock('sanoid_pruning'); writelock('sanoid_pruning');
foreach my $snap( @prunesnaps ){ foreach my $snap( @prunesnaps ){
my $dataset = (split '@', $snap)[0];
my $snapname = (split '@', $snap)[1];
if (! $args{'readonly'} && $config{$dataset}{'pre_pruning_script'}) {
$ENV{'SANOID_TARGET'} = $dataset;
$ENV{'SANOID_SNAPNAME'} = $snapname;
if ($args{'verbose'}) { print "executing pre_pruning_script '".$config{$dataset}{'pre_pruning_script'}."' on dataset '$dataset'\n"; }
my $ret = runscript('pre_pruning_script', $dataset);
delete $ENV{'SANOID_TARGET'};
delete $ENV{'SANOID_SNAPNAME'};
if ($ret != 0) {
# warning was already thrown by runscript function
# skip pruning if pre snapshot script returns non zero exit code
next;
}
}
if ($args{'verbose'}) { print "INFO: pruning $snap ... \n"; } if ($args{'verbose'}) { print "INFO: pruning $snap ... \n"; }
if (!$args{'force-prune'} && iszfsbusy($path)) { if (!$args{'force-prune'} && iszfsbusy($path)) {
if ($args{'verbose'}) { print "INFO: deferring pruning of $snap - $path is currently in zfs send or receive.\n"; } if ($args{'verbose'}) { print "INFO: deferring pruning of $snap - $path is currently in zfs send or receive.\n"; }
@ -323,8 +342,6 @@ sub prune_snapshots {
if (! $args{'readonly'}) { if (! $args{'readonly'}) {
if (system($zfs, "destroy", $snap) == 0) { if (system($zfs, "destroy", $snap) == 0) {
$pruned{$snap} = 1; $pruned{$snap} = 1;
my $dataset = (split '@', $snap)[0];
my $snapname = (split '@', $snap)[1];
if ($config{$dataset}{'pruning_script'}) { if ($config{$dataset}{'pruning_script'}) {
$ENV{'SANOID_TARGET'} = $dataset; $ENV{'SANOID_TARGET'} = $dataset;
$ENV{'SANOID_SNAPNAME'} = $snapname; $ENV{'SANOID_SNAPNAME'} = $snapname;

2
sanoid.conf
View File

@ -97,6 +97,8 @@
pre_snapshot_script = /path/to/script.sh pre_snapshot_script = /path/to/script.sh
### run script after snapshot ### run script after snapshot
post_snapshot_script = /path/to/script.sh post_snapshot_script = /path/to/script.sh
### run script before pruning snapshot
pre_pruning_script = /path/to/script.sh
### run script after pruning snapshot ### run script after pruning snapshot
pruning_script = /path/to/script.sh pruning_script = /path/to/script.sh
### don't take an inconsistent snapshot (skip if pre script fails) ### don't take an inconsistent snapshot (skip if pre script fails)

1
sanoid.defaults.conf
View File

@ -21,6 +21,7 @@ skip_children =
pre_snapshot_script = pre_snapshot_script =
post_snapshot_script = post_snapshot_script =
pre_pruning_script =
pruning_script = pruning_script =
script_timeout = 5 script_timeout = 5
no_inconsistent_snapshot = no_inconsistent_snapshot =