amassivus/clusterssh
1
0
Fork 0
mirror of https://github.com/duncs/clusterssh.git synced 2025-07-03 09:53:23 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Merge pull request #21 from cqexbesd/logmsg

Browse source 
logmsg -> $self->debug
This commit is contained in:
Duncan Ferguson 2015-01-24 18:34:04 +00:00
commit ef13feb390
1 changed files with 2 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/App/ClusterSSH.pm
View file

@ -1164,7 +1164,7 @@ sub toggle_active_state() {
sub set_all_active() { sub set_all_active() {
my ($self) = @_; my ($self) = @_;
logmsg( 2, "Setting all hosts to be active" ); $self->debug( 2, "Setting all hosts to be active" );
foreach my $svr ( keys(%servers) ) { foreach my $svr ( keys(%servers) ) {
$servers{$svr}{active} = 1; $servers{$svr}{active} = 1;
@ -1174,7 +1174,7 @@ sub set_all_active() {
sub set_half_inactive() { sub set_half_inactive() {
my ($self) = @_; my ($self) = @_;
logmsg( 2, "Setting approx half of all hosts to inactive" ); $self->debug( 2, "Setting approx half of all hosts to inactive" );
my (@keys) = keys(%servers); my (@keys) = keys(%servers);
$#keys /= 2; $#keys /= 2;
@ -2124,8 +2124,6 @@ the code until this time.
=item load_keyboard_map =item load_keyboard_map
=item logmsg
=item new =item new
=item open_client_windows =item open_client_windows