Index: trunk/DataStore/scripts/dsproductls
===================================================================
--- trunk/DataStore/scripts/dsproductls	(revision 22718)
+++ trunk/DataStore/scripts/dsproductls	(revision 24126)
@@ -16,10 +16,11 @@
 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,5 +60,12 @@
 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,5 +92,5 @@
 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,4 +102,10 @@
 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.