From e6fc2a6f46d6f8248eac9042a38dfc930d9a143e Mon Sep 17 00:00:00 2001
From: Jim Salter <github@jrs-s.net>
Date: Wed, 1 Apr 2015 15:42:12 -0400
Subject: [PATCH] added --readonly to sanoid to make testing a bit less
 hair-raising =)

---
 sanoid | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/sanoid b/sanoid
index 2509c9c..76592fb 100755
--- a/sanoid
+++ b/sanoid
@@ -220,7 +220,7 @@ sub prune_snapshots {
 						if (iszfsbusy($path)) {
 							print "INFO: deferring pruning of $snap - $path is currently in zfs send or receive.\n";
 						} else {
-							system($zfs, "destroy","-Rr",$snap) == 0 or die "could not remove $snap : $?";
+							if (! $args{'readonly'}) { system($zfs, "destroy","-Rr",$snap) == 0 or die "could not remove $snap : $?"; }
 						}
 					}
 					removelock('sanoid_pruning');
@@ -326,7 +326,7 @@ sub take_snapshots {
 	if ( (scalar(@newsnaps)) > 0) {
 		foreach my $snap ( @newsnaps ) {
 			if ($args{'verbose'}) { print "taking snapshot $snap\n"; }
-			system($zfs, "snapshot", "$snap");
+			if (!$args{'readonly'}) { system($zfs, "snapshot", "$snap"); }
 			# make sure we don't end up with multiple snapshots with the same ctime
 			sleep 1;
 		}
@@ -971,8 +971,8 @@ sub getargs {
 	my %validargs;
 	my %novalueargs;
 
-	push my @validargs, 'verbose','debug','version','monitor-health','monitor-snapshots','force-update','cron','take-snapshots','prune-snapshots';
-	push my @novalueargs, 'verbose','debug','version','monitor-health','monitor-snapshots','force-update','cron','take-snapshots','prune-snapshots';
+	push my @validargs, 'verbose','debug','version','monitor-health','monitor-snapshots','force-update','cron','take-snapshots','prune-snapshots','readonly';
+	push my @novalueargs, 'verbose','debug','version','monitor-health','monitor-snapshots','force-update','cron','take-snapshots','prune-snapshots','readonly';
 	foreach my $item (@validargs) { $validargs{$item}=1; }
 	foreach my $item (@novalueargs) { $novalueargs{$item}=1; }