[svn:p5ee] r10507 - p5ee/trunk/App-WorkQueue/lib/App

[spadkins]

Author: spadkins
Date: Thu Jan 10 07:15:17 2008
New Revision: 10507

Modified:
   p5ee/trunk/App-WorkQueue/lib/App/WorkQueue.pm

Log:
made some very common logging messages wait until level 3 is enabled

Modified: p5ee/trunk/App-WorkQueue/lib/App/WorkQueue.pm
==============================================================================
--- p5ee/trunk/App-WorkQueue/lib/App/WorkQueue.pm       (original)
+++ p5ee/trunk/App-WorkQueue/lib/App/WorkQueue.pm       Thu Jan 10 07:15:17 2008
@@ -1745,7 +1745,7 @@
         my $resource_counts = $self->_resource_counts();
 
         if ($op eq "push") {
-            $context->log("WQ: _maintain_queue_buffers : entry push begin\n");
+            $context->log({level=>3}, "WQ: _maintain_queue_buffers : entry 
push begin\n");
             $resource_counts->{total}{$resource_key}++;
             if ($resource_counts->{buffer}{$resource_key} < $BUFFER_SIZE) {
                 $resource_counts->{buffer}{$resource_key}++;
@@ -1754,48 +1754,48 @@
             else {
                 $self->_push_in_mem($entry,1); # release lowest
             }
-            $context->log("WQ: _maintain_queue_buffers : entry push end\n");
+            $context->log({level=>3}, "WQ: _maintain_queue_buffers : entry 
push end\n");
         }
         elsif ($op eq "acquire") {
-            $context->log("WQ: _maintain_queue_buffers : entry acquire 
begin\n");
+            $context->log({level=>3}, "WQ: _maintain_queue_buffers : entry 
acquire begin\n");
             $resource_counts->{total}{$resource_key}--;
             $resource_counts->{buffer}{$resource_key}--;
-            $context->log("WQ: _maintain_queue_buffers : entry acquire end\n");
+            $context->log({level=>3}, "WQ: _maintain_queue_buffers : entry 
acquire end\n");
         }
         elsif ($op eq "release") {
-            $context->log("WQ: _maintain_queue_buffers : entry release 
begin\n");
+            $context->log({level=>3}, "WQ: _maintain_queue_buffers : entry 
release begin\n");
             $self->_release_in_mem($entry, $columns, $values);
-            $context->log("WQ: _maintain_queue_buffers : entry release end\n");
+            $context->log({level=>3}, "WQ: _maintain_queue_buffers : entry 
release end\n");
         }
         elsif ($op eq "unacquire") {
-            $context->log("WQ: _maintain_queue_buffers : entry unacquire 
begin\n");
+            $context->log({level=>3}, "WQ: _maintain_queue_buffers : entry 
unacquire begin\n");
             $resource_counts->{total}{$resource_key}++;
             $resource_counts->{buffer}{$resource_key}++;
-            $context->log("WQ: _maintain_queue_buffers : entry unacquire 
end\n");
+            $context->log({level=>3}, "WQ: _maintain_queue_buffers : entry 
unacquire end\n");
         }
-        $context->log("WQ: _maintain_queue_buffers : entry call _refill_buffer 
begin\n");
+        $context->log({level=>3}, "WQ: _maintain_queue_buffers : entry call 
_refill_buffer begin\n");
         my $num_total       = $resource_counts->{total}{$resource_key};
         my $num_in_buffer   = $resource_counts->{buffer}{$resource_key};
         if ($num_total > $num_in_buffer && $num_in_buffer < $BUFFER_SIZE) {
             my $num_added = $self->_refill_buffer($resource_key);
             $resource_counts->{buffer}{$resource_key} += $num_added;
         }
-        $context->log("WQ: _maintain_queue_buffers : entry call _refill_buffer 
end\n");
+        $context->log({level=>3}, "WQ: _maintain_queue_buffers : entry call 
_refill_buffer end\n");
     }
     else {
-        $context->log("WQ: _maintain_queue_buffers : no entry foreach 
resource_count key begin\n");
+        $context->log({level=>3}, "WQ: _maintain_queue_buffers : no entry 
foreach resource_count key begin\n");
         my $resource_counts = $self->_resource_counts();
         foreach my $resource_key (keys %{$resource_counts->{total}}) {
-            $context->log("WQ: _maintain_queue_buffers : no entry 
_refill_buffer begin\n");
+            $context->log({level=>3}, "WQ: _maintain_queue_buffers : no entry 
_refill_buffer begin\n");
             my $num_total       = $resource_counts->{total}{$resource_key};
             my $num_in_buffer   = $resource_counts->{buffer}{$resource_key};
             if ($num_total > $num_in_buffer && $num_in_buffer < $BUFFER_SIZE) {
                 my $num_added = $self->_refill_buffer($resource_key);
                 $resource_counts->{buffer}{$resource_key} += $num_added;
             }
-            $context->log("WQ: _maintain_queue_buffers : no entry 
_refill_buffer end\n");
+            $context->log({level=>3}, "WQ: _maintain_queue_buffers : no entry 
_refill_buffer end\n");
         }
-        $context->log("WQ: _maintain_queue_buffers : no entry foreach 
resource_count key end\n");
+        $context->log({level=>3}, "WQ: _maintain_queue_buffers : no entry 
foreach resource_count key end\n");
     }
 
     &App::sub_exit() if ($App::trace);