Changeset 24126 for trunk/DataStore/scripts/dsproductls

Timestamp:

May 9, 2009, 2:20:29 PM (17 years ago)

Author:

bills

Message:

add option to cause dsproductls to print out any 'extra' fields retrieved from the data store

File:

• trunk/DataStore/scripts/dsproductls (modified) (4 diffs)

trunk/DataStore/scripts/dsproductls

@@ -16 +16 @@
 use Pod::Usage qw( pod2usage );
 
-my ($uri, $last_fileset, $timeout);
+my ($uri, $last_fileset, $timeout, $extra);
 
 GetOptions(
     'uri|u=s'           => \$uri,
     'last_fileset|l=s'  => \$last_fileset,
-    'timeout|t=s'         => \$timeout,
+    'timeout|t=s'       => \$timeout,
+    'extra|e'         => \$extra,
 ) or pod2usage( 2 );
 
@@ -59 +60 @@
 print "# uri fileset datetime type\n";
 foreach my $fs (@$data) {
-    print $fs->uri, " ", $fs->fileset, " ", $fs->datetime, " ", $fs->type, "\n";
+    print $fs->uri, " ", $fs->fileset, " ", $fs->datetime, " ", $fs->type;
+    if ($extra) {
+        my $cols = $fs->extra;
+        foreach my $col (@$cols) {
+            print " ", $col;
+        }
+    }
+    print "\n";
 }
 
@@ -84 +92 @@
 The URI of the file to be retrieved.
 
-=item * --lst_fileset|-l <filesetid>
+=item * --last_fileset|-l <filesetid>
 
 The FileSet ID of the last FileSet that you've seen.
@@ -94 +102 @@
 The ammount of time (in seconds) to wait for a response from the DataStore
 after making an HTTP request.  The default is 30s.
+
+Optional.
+
+=item * --extra|-e
+
+Print out any extra columns in the listing.
 
 Optional.