Skip to content
Snippets Groups Projects
Commit 23391588 authored by Jessica Severin's avatar Jessica Severin
Browse files

quiet down the debug statements to a bare minimum

parent 7c1f1d9f
No related branches found
No related tags found
No related merge requests found
...@@ -222,7 +222,7 @@ sub _generic_fetch { ...@@ -222,7 +222,7 @@ sub _generic_fetch {
my $sth = $self->prepare($sql); my $sth = $self->prepare($sql);
$sth->execute; $sth->execute;
print STDOUT $sql,"\n"; #print STDOUT $sql,"\n";
return $self->_objs_from_sth($sth); return $self->_objs_from_sth($sth);
} }
...@@ -338,7 +338,7 @@ sub store_out_files { ...@@ -338,7 +338,7 @@ sub store_out_files {
$sql .= " (" . $job->dbID. ", 'STDOUT', '". $job->stdout_file."')" if($job->stdout_file); $sql .= " (" . $job->dbID. ", 'STDOUT', '". $job->stdout_file."')" if($job->stdout_file);
$sql .= "," if($job->stdout_file and $job->stderr_file); $sql .= "," if($job->stdout_file and $job->stderr_file);
$sql .= " (" . $job->dbID. ", 'STDERR', '". $job->stderr_file."')" if($job->stderr_file); $sql .= " (" . $job->dbID. ", 'STDERR', '". $job->stderr_file."')" if($job->stderr_file);
print("$sql\n"); #print("$sql\n");
my $sth = $self->prepare($sql); my $sth = $self->prepare($sql);
$sth->execute(); $sth->execute();
...@@ -355,7 +355,7 @@ sub claim_jobs_for_worker { ...@@ -355,7 +355,7 @@ sub claim_jobs_for_worker {
my $ug = new Data::UUID; my $ug = new Data::UUID;
my $uuid = $ug->create(); my $uuid = $ug->create();
my $claim = $ug->to_string( $uuid ); my $claim = $ug->to_string( $uuid );
print("claiming jobs with uuid $claim\n"); print("claiming jobs for hive_id=", $worker->hive_id, " with uuid $claim\n");
my $sql = "UPDATE analysis_job SET job_claim='$claim'". my $sql = "UPDATE analysis_job SET job_claim='$claim'".
" , hive_id='". $worker->hive_id ."'". " , hive_id='". $worker->hive_id ."'".
...@@ -364,7 +364,7 @@ sub claim_jobs_for_worker { ...@@ -364,7 +364,7 @@ sub claim_jobs_for_worker {
" AND analysis_id='" .$worker->analysis->dbID. "'". " AND analysis_id='" .$worker->analysis->dbID. "'".
" LIMIT " . $worker->batch_size; " LIMIT " . $worker->batch_size;
print("$sql\n"); #print("$sql\n");
my $sth = $self->prepare($sql); my $sth = $self->prepare($sql);
$sth->execute(); $sth->execute();
$sth->finish; $sth->finish;
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment