Commit ec2ca3df authored by Leo Gordon's avatar Leo Gordon
Browse files

this diagnostic information is no longer needed

parent 3bbf5583
...@@ -358,7 +358,7 @@ sub AUTOLOAD { ...@@ -358,7 +358,7 @@ sub AUTOLOAD {
die "unknown column '$value_column'"; die "unknown column '$value_column'";
} }
print "Setting up '$AUTOLOAD' method\n"; # print "Setting up '$AUTOLOAD' method\n";
*$AUTOLOAD = sub { *$AUTOLOAD = sub {
my $self = shift @_; my $self = shift @_;
return $self->fetch_all( return $self->fetch_all(
...@@ -376,7 +376,7 @@ sub AUTOLOAD { ...@@ -376,7 +376,7 @@ sub AUTOLOAD {
my $column_set = $self->column_set(); my $column_set = $self->column_set();
if($column_set->{$filter_name}) { if($column_set->{$filter_name}) {
print "Setting up '$AUTOLOAD' method\n"; # print "Setting up '$AUTOLOAD' method\n";
*$AUTOLOAD = sub { my ($self, $filter_value) = @_; return $self->count_all("$filter_name='$filter_value'"); }; *$AUTOLOAD = sub { my ($self, $filter_value) = @_; return $self->count_all("$filter_name='$filter_value'"); };
goto &$AUTOLOAD; # restart the new method goto &$AUTOLOAD; # restart the new method
} else { } else {
...@@ -384,7 +384,7 @@ sub AUTOLOAD { ...@@ -384,7 +384,7 @@ sub AUTOLOAD {
} }
} elsif($AUTOLOAD =~ /::update_(\w+)$/) { } elsif($AUTOLOAD =~ /::update_(\w+)$/) {
my @columns_to_update = split('_and_', $1); my @columns_to_update = split('_and_', $1);
print "Setting up '$AUTOLOAD' method\n"; # print "Setting up '$AUTOLOAD' method\n";
*$AUTOLOAD = sub { my ($self, $object) = @_; return $self->update($object, @columns_to_update); }; *$AUTOLOAD = sub { my ($self, $object) = @_; return $self->update($object, @columns_to_update); };
goto &$AUTOLOAD; # restart the new method goto &$AUTOLOAD; # restart the new method
} else { } else {
......
...@@ -662,7 +662,7 @@ sub get_hive_current_load { ...@@ -662,7 +662,7 @@ sub get_hive_current_load {
(my $load)=$sth->fetchrow_array(); (my $load)=$sth->fetchrow_array();
$sth->finish; $sth->finish;
$load=0 unless($load); $load=0 unless($load);
print("current hive load = $load\n"); # print("current hive load = $load\n");
return $load; return $load;
} }
...@@ -782,7 +782,7 @@ sub schedule_workers_resync_if_necessary { ...@@ -782,7 +782,7 @@ sub schedule_workers_resync_if_necessary {
my $workers_to_run_by_rc_id = $self->schedule_workers($analysis, $pending_by_rc_id, $available_submit_limit); my $workers_to_run_by_rc_id = $self->schedule_workers($analysis, $pending_by_rc_id, $available_submit_limit);
unless( keys %$workers_to_run_by_rc_id or $self->get_hive_current_load() or $self->count_running_workers() ) { unless( keys %$workers_to_run_by_rc_id or $self->get_hive_current_load() or $self->count_running_workers() ) {
print "*** nothing is running and nothing to do (according to analysis_stats) => perform a hard resync\n" ; print "\nScheduler: nothing is running and nothing to do (according to analysis_stats) => executing garbage collection and sync\n" ;
$self->check_for_dead_workers($valley, 1); $self->check_for_dead_workers($valley, 1);
$self->synchronize_hive($analysis); $self->synchronize_hive($analysis);
......
Markdown is supported
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