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

1
Changes
View file

@ -2,6 +2,7 @@
- Ensure documentation is generated using same perl as the build (Github issue #45) - Ensure documentation is generated using same perl as the build (Github issue #45)
- Pass '--action' through macro parsing (Github issue #42) - Pass '--action' through macro parsing (Github issue #42)
- Workaround for glitch in KDE where windows can become unmoveable (Github issue #46) (thanks to Brandon Perkins) - Workaround for glitch in KDE where windows can become unmoveable (Github issue #46) (thanks to Brandon Perkins)
- Add in '--quiet | -Q ' option to reduce output in certian scenarios
4.04 2015-11-03 Duncan Ferguson <duncan_ferguson@user.sf.net> 4.04 2015-11-03 Duncan Ferguson <duncan_ferguson@user.sf.net>
- Include bash completion script in distribution (Github issue #29) - Include bash completion script in distribution (Github issue #29)

6
lib/App/ClusterSSH.pm
View file

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

4
lib/App/ClusterSSH/Getopt.pm
View file

@ -222,6 +222,10 @@ sub add_common_options {
'If a hostname resolves to multiple IP addresses, toggle whether or not to connect to all of them, or just the first one (see also config file entry).' 'If a hostname resolves to multiple IP addresses, toggle whether or not to connect to all of them, or just the first one (see also config file entry).'
), ),
); );
$self->add_option(
spec => 'quiet|Q',
help => $self->loc('Do not output extra text when using some options'),
);
return $self; return $self;
} }