Index: /trunk/Nebulous/Changes
===================================================================
--- /trunk/Nebulous/Changes	(revision 24263)
+++ /trunk/Nebulous/Changes	(revision 24264)
@@ -9,4 +9,5 @@
     - add neb-swap
     - add nebclient:nebSetXattr()
+    - add neb-rm --move flag
 
 0.09 Wed Jul  9 16:36:27 HST 2008
Index: /trunk/Nebulous/bin/neb-rm
===================================================================
--- /trunk/Nebulous/bin/neb-rm	(revision 24263)
+++ /trunk/Nebulous/bin/neb-rm	(revision 24264)
@@ -16,5 +16,5 @@
 use Pod::Usage qw( pod2usage );
 
-my ($server);
+my ($server, $move);
 
 $server = $ENV{'NEB_SERVER'} unless $server;
@@ -22,4 +22,5 @@
 GetOptions(
     'server|s=s'    => \$server,
+    'move|m'        => \$move,
 ) || pod2usage( 2 );
 
@@ -35,5 +36,9 @@
 
 foreach my $key (@ARGV) {
-    $neb->delete($key) or warn "failed to delete key: $key";
+    unless (defined $move) {
+        $neb->delete($key) or warn "failed to delete key: $key";
+    } else {
+        $neb->move($key, "${key}.rm") or warn "failed to move key: $key";
+    }
 }
 
@@ -48,5 +53,5 @@
 =head1 SYNOPSIS
 
-    neb-rm [--server <URL>] <key...>
+    neb-rm [--server <URL>] [--move] <key...>
 
 =head1 DESCRIPTION
@@ -58,4 +63,11 @@
 
 =over 4
+
+=item * --move|-m
+
+When set, this flag causes C<<key>> to be renamed to C<<key>.rm> instead of
+being deleted.
+
+Optional.
 
 =item * --server|-s <URL>