From 482420faba96352c07a8292c5bd61c048397df2e Mon Sep 17 00:00:00 2001
From: Dave Eddy <dave@daveeddy.com>
Date: Sat, 27 Nov 2021 19:17:32 -0500
Subject: [PATCH] add -R option for recursive deleting

---
 man/zfs-prune-snapshots.1  |  3 +++
 man/zfs-prune-snapshots.md |  3 +++
 zfs-prune-snapshots        | 13 ++++++++++---
 3 files changed, 16 insertions(+), 3 deletions(-)

diff --git a/man/zfs-prune-snapshots.1 b/man/zfs-prune-snapshots.1
index 8d920c0..59e6cab 100644
--- a/man/zfs-prune-snapshots.1
+++ b/man/zfs-prune-snapshots.1
@@ -30,6 +30,9 @@ invert matching of prefix and suffix
 \fB\fC\-q\fR
 quiet, do not printout removed snapshots
 .TP
+\fB\fC\-R\fR
+recursively delete, pass '\-R' directly to 'zfs destroy'
+.TP
 \fB\fC\-v\fR
 increase verbosity
 .TP
diff --git a/man/zfs-prune-snapshots.md b/man/zfs-prune-snapshots.md
index 2342e90..37c0d8f 100644
--- a/man/zfs-prune-snapshots.md
+++ b/man/zfs-prune-snapshots.md
@@ -39,6 +39,9 @@ OPTIONS
 `-q`
   quiet, do not printout removed snapshots
 
+`-R`
+  recursively delete, pass '-R' directly to 'zfs destroy'
+
 `-v`
   increase verbosity
 
diff --git a/zfs-prune-snapshots b/zfs-prune-snapshots
index 23cd076..742c561 100755
--- a/zfs-prune-snapshots
+++ b/zfs-prune-snapshots
@@ -11,7 +11,7 @@ VERSION='v1.2.0'
 usage() {
 	local prog=${0##*/}
 	cat <<-EOF
-	usage: $prog [-hniqvV] [-p <prefix>] [-s <suffix>] <time> [[dataset1] ...]
+	usage: $prog [-hniqRvV] [-p <prefix>] [-s <suffix>] <time> [[dataset1] ...]
 
 	remove snapshots from one or more zpools that match given criteria
 
@@ -59,6 +59,7 @@ usage() {
 	    -s <suffix>    snapshot suffix string to match
 	    -i             invert matching of prefix and suffix
 	    -q             quiet, do not printout removed snapshots
+	    -R             recursively delete, pass '-R' directly to 'zfs destroy'
 	    -v             increase verbosity
 	    -V             print the version number and exit
 	EOF
@@ -105,13 +106,14 @@ if ! type -P zfs &>/dev/null; then
 	exit 1
 fi
 
+recursive=false
 dryrun=false
 verbosity=0
 prefix=
 suffix=
 invert=false
 quiet=false
-while getopts 'hniqp:s:vV' option; do
+while getopts 'hniqRp:s:vV' option; do
 	case "$option" in
 		h) usage; exit 0;;
 		n) dryrun=true;;
@@ -119,6 +121,7 @@ while getopts 'hniqp:s:vV' option; do
 		p) prefix=$OPTARG;;
 		s) suffix=$OPTARG;;
 		q) quiet=true;;
+		R) recursive=true;;
 		v) ((verbosity++));;
 		V) echo "$VERSION"; exit 0;;
 		*) usage; exit 1;;
@@ -157,6 +160,10 @@ fi
 shift
 pools=("$@")
 
+destroyargs=()
+if $recursive; then
+	destroyargs+=('-R')
+fi
 now=$(date +%s)
 code=0
 while read -r creation snapshot; do
@@ -205,7 +212,7 @@ while read -r creation snapshot; do
 		if ! $quiet; then
 			echo
 		fi
-		zfs destroy "$snapshot" || code=1
+		zfs destroy "${destroyargs[@]}" "$snapshot" || code=1
 	fi
 done < <(zfs list -Hpo creation,name -t snapshot -r "${pools[@]}")
 exit "$code"