"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "lib/App/ClusterSSH/Window/Tk.pm" between
clusterssh-4.15.tar.gz and clusterssh-4.16.tar.gz

About: ClusterSSH is a tool for making the same change on multiple servers at the same time.

Tk.pm  (clusterssh-4.15):Tk.pm  (clusterssh-4.16)
skipping to change at line 359 skipping to change at line 359
$self->debug( 2, "host=", $menus{host_entry} ); $self->debug( 2, "host=", $menus{host_entry} );
my @names my @names
= $self->parent->resolve_names( split( /\s+/, $menus{host_entry} ) ) ; = $self->parent->resolve_names( split( /\s+/, $menus{host_entry} ) ) ;
$self->debug( 0, 'Opening to: ', join( ' ', @names ) ) if (@names); $self->debug( 0, 'Opening to: ', join( ' ', @names ) ) if (@names);
$self->open_client_windows(@names); $self->open_client_windows(@names);
} }
if ( defined $menus{listbox} && $menus{listbox}->curselection() ) { if ( defined $menus{listbox} && $menus{listbox}->curselection() ) {
my @hosts = $menus{listbox}->get( $menus{listbox}->curselection() ); my @hosts = $menus{listbox}->get( $menus{listbox}->curselection() );
$self->debug( 2, "host=", join( ' ', @hosts ) ); $self->debug( 2, "host=", join( ' ', @hosts ) );
$self->open_client_windows( $self->resolve_names(@hosts) ); $self->open_client_windows( $self->parent->resolve_names(@hosts) );
} }
$self->build_hosts_menu(); $self->build_hosts_menu();
$menus{host_entry} = ""; $menus{host_entry} = "";
# retile, or bring console to front # retile, or bring console to front
if ( $self->config->{window_tiling} eq "yes" ) { if ( $self->config->{window_tiling} eq "yes" ) {
return $self->retile_hosts(); return $self->retile_hosts();
} }
else { else {
skipping to change at line 1207 skipping to change at line 1207
if ($ext_cmd) { if ($ext_cmd) {
my @external_commands = split( /\n/, $ext_cmd ); my @external_commands = split( /\n/, $ext_cmd );
for my $cmd_line (@external_commands) { for my $cmd_line (@external_commands) {
chomp($cmd_line); chomp($cmd_line);
my ( $cmd, @tags ) = split /\s+/, $cmd_line; my ( $cmd, @tags ) = split /\s+/, $cmd_line;
$self->debug( 2, $self->debug( 2,
"Got external command: $cmd -> @tags" ); "Got external command: $cmd -> @tags" );
for ($cmd) { for ($cmd) {
if (m/^open$/) { if (m/^open$/) {
my @new_hosts = $self->resolve_names(@tags); my @new_hosts = $self->parent->resolve_names(@ta gs);
$self->open_client_windows(@new_hosts); $self->open_client_windows(@new_hosts);
$self->build_hosts_menu(); $self->build_hosts_menu();
last; last;
} }
if (m/^retile$/) { if (m/^retile$/) {
$self->retile_hosts(); $self->retile_hosts();
last; last;
} }
warn "Unknown external command: $cmd_line", $/; warn "Unknown external command: $cmd_line", $/;
} }
 End of changes. 2 change blocks. 
2 lines changed or deleted 2 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)