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

Add in --quiet | -Q option

Browse source 
Add new option to reduce output in certain scenarios
This commit is contained in:
Duncan Ferguson 2015-11-15 21:57:55 +00:00
parent 43d4f1d246
commit e87192db9b
3 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/App/ClusterSSH.pm
View file

@ -2046,12 +2046,12 @@ sub run {
$self->config->{extra_tag_file} || '' );
if ( $self->options->list ) {
print( 'Available cluster tags:', $/ );
print( 'Available cluster tags:', $/ ) unless($self->options->quiet);
print "\t", $_, $/ foreach ( sort( $self->cluster->list_tags ) );
my @external_clusters = $self->cluster->list_external_clusters;
if (@external_clusters) {
print( 'Available external command tags:', $/ );
print( 'Available external command tags:', $/ ) unless($self->options->quiet);
print "\t", $_, $/ foreach ( sort(@external_clusters) );
}
@ -2085,7 +2085,7 @@ sub run {
$self->debug( 2, "Capture map events" );
$self->capture_map_events();
$self->debug( 0, 'Opening to: ', join( ' ', @servers ) ) if (@servers);
$self->debug( 0, 'Opening to: ', join( ' ', @servers ) ) if (@servers && ! $self->options->quiet);
$self->open_client_windows(@servers);
# Check here if we are tiling windows. Here instead of in func so