Index: /trunk/DataStore/Changes
===================================================================
--- /trunk/DataStore/Changes	(revision 17648)
+++ /trunk/DataStore/Changes	(revision 17649)
@@ -1,3 +1,7 @@
 Revision history for Perl module DataStore
+
+0.08
+    - change ds*ls utilties to always return the HTTP status code - 300 as the
+      exit status
 
 0.07 Mon May 12 12:04:24 HST 2008
Index: /trunk/DataStore/lib/DataStore.pm
===================================================================
--- /trunk/DataStore/lib/DataStore.pm	(revision 17648)
+++ /trunk/DataStore/lib/DataStore.pm	(revision 17649)
@@ -1,5 +1,5 @@
 # Copyright (C) 2006  Joshua Hoblitt
 #
-# $Id: DataStore.pm,v 1.10 2007-09-25 23:52:46 jhoblitt Exp $
+# $Id: DataStore.pm,v 1.11 2008-05-13 03:12:52 jhoblitt Exp $
 
 package DataStore;
@@ -9,5 +9,5 @@
 
 use vars qw($VERSION);
-$VERSION = '0.07';
+$VERSION = '0.08';
 
 =pod
Index: /trunk/DataStore/scripts/dsfilesetls
===================================================================
--- /trunk/DataStore/scripts/dsfilesetls	(revision 17648)
+++ /trunk/DataStore/scripts/dsfilesetls	(revision 17649)
@@ -3,5 +3,5 @@
 # Copyright (C) 2006-2008  Joshua Hoblitt
 #
-# $Id: dsfilesetls,v 1.7 2008-05-12 22:04:53 jhoblitt Exp $
+# $Id: dsfilesetls,v 1.8 2008-05-13 03:12:52 jhoblitt Exp $
 
 use strict;
@@ -19,5 +19,5 @@
 
 GetOptions(
-    'uri|u=s'           => \$uri,
+    'uri|u=s'       => \$uri,
     'timeout|t'     => \$timeout,
 ) or pod2usage( 2 );
@@ -36,6 +36,8 @@
     );
 
-die "request failed" unless defined $response;
-die "request failed: ", $response->status_line unless $response->is_success;
+unless (defined $response or $response->is_success) {
+    warn "request failed: ", $response->status_line;
+    exit($response->code - 300);
+}
 
 # file retreival succeed
Index: /trunk/DataStore/scripts/dsget
===================================================================
--- /trunk/DataStore/scripts/dsget	(revision 17648)
+++ /trunk/DataStore/scripts/dsget	(revision 17649)
@@ -3,5 +3,5 @@
 # Copyright (C) 2006-2008  Joshua Hoblitt
 #
-# $Id: dsget,v 1.24 2008-05-12 22:04:53 jhoblitt Exp $
+# $Id: dsget,v 1.25 2008-05-13 03:12:52 jhoblitt Exp $
 
 use strict;
@@ -130,9 +130,10 @@
     );
 
-die "request failed" unless defined $response;
-unless ($response->is_success) {
+
+unless (defined $response or $response->is_success) {
     warn "request failed: ", $response->status_line;
     exit($response->code - 300);
 }
+
 die "checksum failed" unless $response->data;
 
Index: /trunk/DataStore/scripts/dsleech
===================================================================
--- /trunk/DataStore/scripts/dsleech	(revision 17648)
+++ /trunk/DataStore/scripts/dsleech	(revision 17649)
@@ -3,5 +3,5 @@
 # Copyright (C) 2006-2008  Joshua Hoblitt
 #
-# $Id: dsleech,v 1.10 2008-05-12 22:04:53 jhoblitt Exp $
+# $Id: dsleech,v 1.11 2008-05-13 03:12:52 jhoblitt Exp $
 
 use strict;
@@ -67,6 +67,7 @@
 );
 
-unless (defined $response->is_success) {
-    die "request failed: ", $response->status_line;
+unless (defined $response or $response->is_success) {
+    warn "request failed: ", $response->status_line;
+    exit($response->code - 300);
 }
 
Index: /trunk/DataStore/scripts/dsproductls
===================================================================
--- /trunk/DataStore/scripts/dsproductls	(revision 17648)
+++ /trunk/DataStore/scripts/dsproductls	(revision 17649)
@@ -3,5 +3,5 @@
 # Copyright (C) 2006-2008  Joshua Hoblitt
 #
-# $Id: dsproductls,v 1.4 2008-05-12 22:04:53 jhoblitt Exp $
+# $Id: dsproductls,v 1.5 2008-05-13 03:12:52 jhoblitt Exp $
 
 use strict;
@@ -43,6 +43,8 @@
     );
 
-die "request failed" unless defined $response;
-die "request failed: ", $response->status_line unless $response->is_success;
+unless (defined $response or $response->is_success) {
+    warn "request failed: ", $response->status_line;
+    exit($response->code - 300);
+}
 
 # file retreival succeed
Index: /trunk/DataStore/scripts/dsrootls
===================================================================
--- /trunk/DataStore/scripts/dsrootls	(revision 17648)
+++ /trunk/DataStore/scripts/dsrootls	(revision 17649)
@@ -3,5 +3,5 @@
 # Copyright (C) 2006-2008  Joshua Hoblitt
 #
-# $Id: dsrootls,v 1.2 2008-05-12 22:04:53 jhoblitt Exp $
+# $Id: dsrootls,v 1.3 2008-05-13 03:12:52 jhoblitt Exp $
 
 use strict;
@@ -40,6 +40,8 @@
     );
 
-die "request failed" unless defined $response;
-die "request failed: ", $response->status_line unless $response->is_success;
+unless (defined $response or $response->is_success) {
+    warn "request failed: ", $response->status_line;
+    exit($response->code - 300);
+}
 
 # file retreival succeed