Changeset 2895 for trunk/Nebulous/lib/Nebulous/Client.pm

Timestamp:

Jan 4, 2005, 1:27:37 PM (22 years ago)

Author:

jhoblitt

Message:

more consistent tracing messages

File:

• trunk/Nebulous/lib/Nebulous/Client.pm (modified) (15 diffs)

trunk/Nebulous/lib/Nebulous/Client.pm

@@ -1 +1 @@
 # Copyright (c) 2004  Joshua Hoblitt
 #
-# $Id: Client.pm,v 1.8 2005-01-04 22:08:20 jhoblitt Exp $
+# $Id: Client.pm,v 1.9 2005-01-04 23:27:37 jhoblitt Exp $
 
 package PS::IPP::IData::Client;
@@ -70 +70 @@
     );
 
-    $log->debug( "entered - args: @{[ %args ]}" );
+    $log->debug( "entered - @_" );
 
     my $lite = SOAP::Lite->new(
@@ -110 +110 @@
     );
 
-    $log->debug( "entered - key: $key, params: @params" );
+    $log->debug( "entered - @_" );
 
     # how should already existing files be handled?
@@ -158 +158 @@
     );
 
-    $log->debug( "entered - key: $key, params: @params" );
+    $log->debug( "entered - @_" );
 
     my $response = $self->{ 'server' }->replicate_object( $key, @params );
@@ -216 +216 @@
     );
 
-    $log->debug( "entered - key: $key" );
+    $log->debug( "entered - @_" );
 
     # need some way to determine which is the best instance to remove
@@ -281 +281 @@
     my $endtime = time() + $timeout;
 
-    $log->debug( "entered - key: $key, type: $type, timeout: $timeout" );
+    $log->debug( "entered - @_" );
 
     my $locked;
@@ -333 +333 @@
     );
 
-    $log->debug( "entered - key: $key, type: $type" );
+    $log->debug( "entered - @_" );
 
     my $unlocked;
@@ -373 +373 @@
     );
 
-    $log->debug( "entered - key: $key" );
+    $log->debug( "entered - @_" );
 
     my $response = $self->{ 'server' }->find_instances( $key, @params );
@@ -405 +405 @@
     );
 
-    $log->debug( "entered - key: $key" );
+    $log->debug( "entered - @_" );
 
     my $locations = $self->find_instances( $key );
@@ -435 +435 @@
     );
 
-    $log->debug( "entered - key: $key, type: $type" );
+    $log->debug( "entered - @_" );
 
     my $fh;
@@ -505 +505 @@
     );
 
-    $log->debug( "entered - key: $key" );
+    $log->debug( "entered - @_" );
 
     unless ($self->lock( $key, "write" )) {
@@ -539 +539 @@
     );
 
-    $log->debug( "entered - key: $key, new_key: $new_key" );
+    $log->debug( "entered - @_" );
 
     my $fh      = $self->open( $key, 'read' );
@@ -593 +593 @@
     );
 
-    $log->debug( "entered - key: $key, new_key: $new_key" );
+    $log->debug( "entered - @_" );
 
     unless ( $self->copy( $key, $new_key ) ) {
@@ -623 +623 @@
     );
 
-    $log->debug( "entered - uri: $uri" );
+    $log->debug( "entered - @_" );
 
     # it is being assumed here that it is better to have files on disk and not in
@@ -663 +663 @@
     );
 
-    $log->debug( "entered - key: $key" );
+    $log->debug( "entered - @_" );
 
     my $response = $self->{ 'server' }->stat_object( $key );