delete with --delete given as arg1

1 files changed, 12 insertions, 1 deletions

diff --git a/src/retain-snapshots b/src/retain-snapshots
index 86f0120..70be955 100755
--- a/src/retain-snapshots
+++ b/src/retain-snapshots
@@ -13,6 +13,12 @@ snapshot_prefix='.snapshot~'
 
 main()
 {
+        delete=
+        if [ "$1" = --delete ]
+        then
+                delete=$1
+                shift
+        fi
         [ $# = 1 ] || exit
         case "$1" in
                 /*) ;;
@@ -34,7 +40,12 @@ is_readonly_subvolume()
 
 btrfs_subvolume_delete()
 {
-        >&2 echo btrfs subvolume delete "$@"
+        if [ "$delete" = --delete ]
+        then
+                btrfs subvolume delete "$@"
+        else
+                >&2 echo btrfs subvolume delete "$@"
+        fi
 }
 
 # Delete all snapshots that we do not retain.