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

Ensure code is run through 'perltidy -pbp -nst -nse'

Browse source
This commit is contained in:
Duncan Ferguson 2014-09-19 23:33:08 +01:00
parent d9446aa28a
commit f8ed9da353
13 changed files with 184 additions and 156 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lib/App/ClusterSSH.pm
View file

@ -518,7 +518,7 @@ sub send_text($@) {
my $macro_servername = $self->config->{macro_servername};
my $servername = $svr;
$servername =~ s/\s+//;
$text =~ s/$macro_servername/$servername/xsmg;
$text =~ s/$macro_servername/$servername/xsmg;
}
$text =~ s/%h/hostname()/xsmeg;
@ -592,7 +592,7 @@ sub send_text_to_all_servers {
}
sub send_variable_text_to_all_servers($&) {
my($self, $code) = @_;
my ( $self, $code ) = @_;
foreach my $svr ( keys(%servers) ) {
$self->send_text( $svr, $code->($svr) )
@ -1881,8 +1881,8 @@ sub populate_send_menu {
-label => 'Random Number',
-command => sub {
$self->send_variable_text_to_all_servers(
sub { int(rand(1024)) }
),
sub { int( rand(1024) ) } ),
;
},
);
}