Changeset 17649 for trunk/DataStore/scripts/dsfilesetls

Timestamp:

May 12, 2008, 5:12:52 PM (18 years ago)

Author:

jhoblitt

Message:

change ds*ls utilties to always return the HTTP status code - 300 as the exit status

File:

• trunk/DataStore/scripts/dsfilesetls (modified) (3 diffs)

trunk/DataStore/scripts/dsfilesetls

@@ -3 +3 @@
 # 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 +19 @@
 
 GetOptions(
-    'uri|u=s'           => \$uri,
+    'uri|u=s'       => \$uri,
     'timeout|t'     => \$timeout,
 ) or pod2usage( 2 );
@@ -36 +36 @@
     );
 
-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