Changeset 17873

Timestamp:

May 30, 2008, 4:41:17 PM (18 years ago)

Author:

jhoblitt

Message:

make neb-ls non-recursive by default and add a --recursive flag

Location:

trunk/Nebulous

Files:

• Changes (modified) (1 diff)
• bin/neb-ls (modified) (4 diffs)

trunk/Nebulous/Changes

@@ -2 +2 @@
 
 0.09
+    - make neb-ls non-recursive by default and add a --recursive flag
     - add neb-copies util
     - move print_all_xattrs(), print_xattrs(), write_xattrs(), delete_xattrs(),

trunk/Nebulous/bin/neb-ls

@@ -3 +3 @@
 # Copyright (C) 2007-2008  Joshua Hoblitt
 #
-# $Id: neb-ls,v 1.5 2008-01-30 00:15:18 jhoblitt Exp $
+# $Id: neb-ls,v 1.6 2008-05-31 02:41:17 jhoblitt Exp $
 
 use strict;
@@ -16 +16 @@
 use Pod::Usage qw( pod2usage );
 
-my ($server, $long);
+my ($server, $long, $recursive);
 
 $server = $ENV{'NEB_SERVER'} unless $server;
@@ -22 +22 @@
 GetOptions(
     'server|s=s'    => \$server,
+    'recursive|r'   => \$recursive,
     'l|1'           => \$long,
 ) || pod2usage( 2 );
@@ -40 +41 @@
 # default to listing everything (bad idea?)
 $pattern ||= ".*";
+
+if ($recursive) {
+    $pattern = "^" . $pattern . ".*";
+} else {
+    $pattern = "^" . $pattern . "\$";
+}
 
 my $keys = $neb->find_objects($pattern);