Add in --quiet | -Q option

Add new option to reduce output in certain scenarios

Changes

@@ -2,6 +2,7 @@
 - Ensure documentation is generated using same perl as the build (Github issue #45)
 - 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)
+- Add in '--quiet | -Q ' option to reduce output in certian scenarios
 
 4.04 2015-11-03 Duncan Ferguson <duncan_ferguson@user.sf.net>
 - Include bash completion script in distribution (Github issue #29)

lib/App/ClusterSSH.pm

@@ -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

lib/App/ClusterSSH/Getopt.pm

@@ -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).'
         ),
     );
+    $self->add_option(
+        spec => 'quiet|Q',
+        help => $self->loc('Do not output extra text when using some options'),
+    );
 
     return $self;
 }