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
@[EMAIL PROTECTED]
-596,6 +596,9 @[EMAIL PROTECTED]
&App::sub_entry if ($App::trace);
my ($self, $entry, $columns, $values) = @[EMAIL PROTECTED]
+ 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};
@[EMAIL PROTECTED]
-1740,6 +1743,9 @[EMAIL PROTECTED]
&App::sub_entry if ($App::trace);
my ($self, $op, $entry, $columns, $values) = @[EMAIL PROTECTED]
+ 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
@[EMAIL PROTECTED]
-302,6 +302,10 @[EMAIL PROTECTED]
sub release {
&App::sub_entry if ($App::trace);
my ($self, $entry, $columns, $values) = @[EMAIL PROTECTED]
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);
@[EMAIL PROTECTED]
-339,6 +343,9 @[EMAIL PROTECTED]
&App::sub_entry if ($App::trace);
my ($self, $entry, $columns, $values) = @[EMAIL PROTECTED]
+ my $context = $self->{context};
+ $context->log("NOTE: _release_in_db : subrequest_id[" .
$entry->{subrequest_id} . "]\n");
+
my @[EMAIL PROTECTED]
= ( $self->{status_attrib} );
my @[EMAIL PROTECTED]
= ( $self->{STATUS_RELEASED} );
if ($columns) {
|
