Index: trunk/DataStore/scripts/dsfilesetls
===================================================================
--- trunk/DataStore/scripts/dsfilesetls	(revision 17455)
+++ trunk/DataStore/scripts/dsfilesetls	(revision 17637)
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 
-# Copyright (C) 2006  Joshua Hoblitt
+# Copyright (C) 2006-2008  Joshua Hoblitt
 #
-# $Id: dsfilesetls,v 1.6 2008-04-18 23:33:13 jhoblitt Exp $
+# $Id: dsfilesetls,v 1.7 2008-05-12 22:04:53 jhoblitt Exp $
 
 use strict;
@@ -16,8 +16,9 @@
 use Pod::Usage qw( pod2usage );
 
-my ($uri);
+my ($uri, $timeout);
 
 GetOptions(
     'uri|u=s'           => \$uri,
+    'timeout|t'     => \$timeout,
 ) or pod2usage( 2 );
 
@@ -28,5 +29,10 @@
 ) unless defined $uri;
 
-my $response = DataStore::FileSet->new( uri => $uri )->request;
+# default http request timeout is 30s
+$timeout ||= 30;
+
+my $response = DataStore::FileSet->new( uri => $uri )->request(
+        ua_args  => { timeout => $timeout },
+    );
 
 die "request failed" unless defined $response;
@@ -76,4 +82,11 @@
 The URI of the file to be retrieved.
 
+=item * --timeout|-t
+
+The ammount of time (in seconds) to wait for a response from the DataStore
+after making an HTTP request.  The default is 30s.
+
+Optional.
+
 =back
 
@@ -92,5 +105,5 @@
 =head1 COPYRIGHT
 
-Copyright (C) 2006  Joshua Hoblitt.  All rights reserved.
+Copyright (C) 2006-2008  Joshua Hoblitt.  All rights reserved.
 
 This program is free software; you can redistribute it and/or modify it under
@@ -112,5 +125,5 @@
 =head1 SEE ALSO
 
-L<DataStore>, L<DataStore::FileSet>, L<DataStore::File>
+L<dsget>, L<dsleech>, L<dsrootls>, L<dsproductls>, L<dsfilesetls>, L<DataStore>
 
 =cut