Author: spadkins
Date: Thu Nov 8 12:25:10 2007
New Revision: 10200
Modified:
p5ee/trunk/App-WorkQueue/lib/App/WorkQueue.pm
p5ee/trunk/App-WorkQueue/lib/App/WorkQueue/Repository.pm
Log:
more logging
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 Nov 8 12:25:10 2007
@@ -596,6 +596,9 @@
&App::sub_entry if ($App::trace);
my ($self, $entry, $columns, $values) = @_;
+ my $context = $self->{context};
+ $context->log("NOTE: _release_in_mem : subrequest_id[" .
$entry->{subrequest_id} . "]\n");
+
my $STATUS_ACQUIRED = $self->{STATUS_ACQUIRED};
my $STATUS_RELEASED = $self->{STATUS_RELEASED};
my $status_attrib = $self->{status_attrib};
@@ -1740,6 +1743,9 @@
&App::sub_entry if ($App::trace);
my ($self, $op, $entry, $columns, $values) = @_;
+ my $context = $self->{context};
+ $context->log("NOTE: _maintain_queue_buffers : subrequest_id[" .
$entry->{subrequest_id} . "]\n");
+
$op ||= "";
my $BUFFER_SIZE = $self->{BUFFER_SIZE};
Modified: p5ee/trunk/App-WorkQueue/lib/App/WorkQueue/Repository.pm
==============================================================================
--- p5ee/trunk/App-WorkQueue/lib/App/WorkQueue/Repository.pm (original)
+++ p5ee/trunk/App-WorkQueue/lib/App/WorkQueue/Repository.pm Thu Nov 8
12:25:10 2007
@@ -302,6 +302,10 @@
sub release {
&App::sub_entry if ($App::trace);
my ($self, $entry, $columns, $values) = @_;
+
+ my $context = $self->{context};
+ $context->log("NOTE: release : subrequest_id[" . $entry->{subrequest_id} .
"]\n");
+
my $status_attrib = $self->{status_attrib};
my $STATUS_ACQUIRED = $self->{STATUS_ACQUIRED};
my ($resource_counts, $resource_key, $release_without_acquire);
@@ -339,6 +343,9 @@
&App::sub_entry if ($App::trace);
my ($self, $entry, $columns, $values) = @_;
+ my $context = $self->{context};
+ $context->log("NOTE: _release_in_db : subrequest_id[" .
$entry->{subrequest_id} . "]\n");
+
my @columns = ( $self->{status_attrib} );
my @values = ( $self->{STATUS_RELEASED} );
if ($columns) {
