Changeset 13072

Timestamp:

Apr 27, 2007, 3:15:38 PM (19 years ago)

Author:

jhoblitt

Message:

change Nebulous::Client->move() to use ->rename_object()

Location:

trunk

Files:

• Nebulous-Server/Changes (modified) (1 diff)
• Nebulous/Changes (modified) (1 diff)
• Nebulous/lib/Nebulous/Client.pm (modified) (2 diffs)

trunk/Nebulous-Server/Changes

@@ -2 +2 @@
 
 0.05
+    - change Nebulous::Client->move() to use ->rename_object()
     - add Nebulous::Server->rename_object()
     - add neb-rm

trunk/Nebulous/Changes

@@ -2 +2 @@
 
 0.05
+    - change Nebulous::Client->move() to use ->rename_object()
     - add Nebulous::Server->rename_object()
     - add neb-rm

trunk/Nebulous/lib/Nebulous/Client.pm

@@ -1 +1 @@
 # Copyright (c) 2004  Joshua Hoblitt
 #
-# $Id: Client.pm,v 1.27 2007-04-27 23:50:57 jhoblitt Exp $
+# $Id: Client.pm,v 1.28 2007-04-28 01:15:38 jhoblitt Exp $
 
 package Nebulous::Client;
@@ -644 +644 @@
     $log->debug( "entered - @_" );
 
-    unless ( $self->copy( $key, $new_key ) ) {
-        $log->debug( "can not copy object" );
-        $log->debug( "leaving" );
-
-        return undef;
-    }
-
-    unless ( $self->delete( $key ) ) {
-        $log->debug( "can not delete object" );
+    my $response = $self->{ 'server' }->rename_object( $key, $new_key );
+    if ( $response->fault ) {
+        $log->error( $response->faultcode, " - ", $response->faultstring );
         $log->debug( "leaving" );