Changeset 28581 for trunk/Nebulous/bin/neb-ls

Timestamp:

Jul 1, 2010, 3:16:35 PM (16 years ago)

Author:

watersc1

Message:

Update to automation cleanups to queue magic destreak cleanups.

Added -l option to neb-ls which passes the files to ls -al to look at permissions and sizes.

File:

• trunk/Nebulous/bin/neb-ls (modified) (3 diffs)

trunk/Nebulous/bin/neb-ls

@@ -17 +17 @@
     $server,
     $path,
+    $ls,
     $column,
 );
@@ -26 +27 @@
     'server|s=s'    => \$server,
     'path|p'        => \$path,
+    'l'             => \$ls,
     'column|c'      => \$column,
 ) || pod2usage( 2 );
@@ -61 +63 @@
     @{ $keys } = @files;
 } 
+if ($ls) {
+    my @files;
+    foreach my $key (@{ $keys }) {
+        my $uris = `ls -al $key`;
+        chomp($uris);
+        if (defined $uris) {
+            push @files, $uris;
+        }
+    }
+    @{ $keys } = @files;
+}    
 if ($keys) {
     if ($column) {