Changeset 16263

Timestamp:

Jan 29, 2008, 2:15:18 PM (18 years ago)

Author:

jhoblitt

Message:

add neb-ls -l1 option

Location:

trunk

Files:

• Nebulous-Server/Changes (modified) (1 diff)
• Nebulous/Changes (modified) (1 diff)
• Nebulous/bin/neb-ls (modified) (7 diffs)

trunk/Nebulous-Server/Changes

@@ -2 +2 @@
 
 0.07
+    - add neb-ls -l|-1 option
+    - add neb-fsck
     - add neb-stat
     - add additional fkey constrains to the instance table

trunk/Nebulous/Changes

@@ -2 +2 @@
 
 0.07
+    - add neb-ls -l|-1 option
+    - add neb-fsck
     - add neb-stat
     - add additional fkey constrains to the instance table

trunk/Nebulous/bin/neb-ls

@@ -1 +1 @@
 #!/usr/bin/env perl
 
-# Copyright (C) 2007  Joshua Hoblitt
+# Copyright (C) 2007-2008  Joshua Hoblitt
 #
-# $Id: neb-ls,v 1.4 2007-04-28 01:19:59 jhoblitt Exp $
+# $Id: neb-ls,v 1.5 2008-01-30 00:15:18 jhoblitt Exp $
 
 use strict;
@@ -9 +9 @@
 
 use vars qw( $VERSION );
-$VERSION = '0.01';
+$VERSION = '0.02';
 
 use Nebulous::Client;
@@ -16 +16 @@
 use Pod::Usage qw( pod2usage );
 
-my ($server);
+my ($server, $long);
 
 $server = $ENV{'NEB_SERVER'} unless $server;
 
 GetOptions(
-    'server|s=s'     => \$server,
+    'server|s=s'    => \$server,
+    'l|1'           => \$long,
 ) || pod2usage( 2 );
 
@@ -43 +44 @@
 
 if ($keys) {
-    print join(" ", @{ $keys }), "\n";
+    if ($long) {
+        print join("\n", @{ $keys }), "\n";
+    } else {
+        print join(" ", @{ $keys }), "\n";
+    }
 }
 
@@ -56 +61 @@
 =head1 SYNOPSIS
 
-    neb-ls [--server <URL>] <pattern>
+    neb-ls [--server <URL>] [-l|-1] <pattern>
 
 =head1 DESCRIPTION
@@ -67 +72 @@
 
 =over 4
+
+=item * -l|-1
+
+Use a long listing format.
+
+Optional
 
 =item * --server|-s <URL>
@@ -104 +115 @@
 =head1 COPYRIGHT
 
-Copyright (C) 2007  Joshua Hoblitt.  All rights reserved.
+Copyright (C) 2007-2008  Joshua Hoblitt.  All rights reserved.
 
 This program is free software; you can redistribute it and/or modify it under