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

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
@[EMAIL PROTECTED]
 -1745,7 +1745,7 @[EMAIL PROTECTED]
         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}++;
@[EMAIL PROTECTED]
 -1754,48 +1754,48 @[EMAIL PROTECTED]
             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);