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

More functionality fixes

Browse source
This commit is contained in:
Duncan Ferguson 2011-11-21 22:39:47 +00:00
parent 311dbffcc9
commit f92c4b22c6
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lib/App/ClusterSSH.pm
View file

@ -1165,6 +1165,7 @@ sub capture_terminal() {
} }
sub toggle_active_state() { sub toggle_active_state() {
my ($self) = @_;
logmsg( 2, "Toggling active state of all hosts" ); logmsg( 2, "Toggling active state of all hosts" );
foreach my $svr ( sort( keys(%servers) ) ) { foreach my $svr ( sort( keys(%servers) ) ) {
@ -1173,12 +1174,13 @@ sub toggle_active_state() {
} }
sub close_inactive_sessions() { sub close_inactive_sessions() {
my ($self) = @_;
logmsg( 2, "Closing all inactive sessions" ); logmsg( 2, "Closing all inactive sessions" );
foreach my $svr ( sort( keys(%servers) ) ) { foreach my $svr ( sort( keys(%servers) ) ) {
terminate_host($svr) if ( !$servers{$svr}{active} ); terminate_host($svr) if ( !$servers{$svr}{active} );
} }
build_hosts_menu(); $self->build_hosts_menu();
} }
sub add_host_by_name() { sub add_host_by_name() {
@ -1207,7 +1209,7 @@ sub add_host_by_name() {
$self->open_client_windows( $self->resolve_names(@hosts) ); $self->open_client_windows( $self->resolve_names(@hosts) );
} }
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
@ -1700,11 +1702,11 @@ sub create_menubar() {
# [ "command", "Capture Terminal", -command => \&capture_terminal, ], # [ "command", "Capture Terminal", -command => \&capture_terminal, ],
[ "command", [ "command",
"Toggle active state", "Toggle active state",
-command => \&toggle_active_state, -command => sub{ $self->toggle_active_state() },
], ],
[ "command", [ "command",
"Close inactive sessions", "Close inactive sessions",
-command => \&close_inactive_sessions, -command => sub{ $self->close_inactive_sessions() },
], ],
[ "command", [ "command",
"Add Host(s) or Cluster(s)", "Add Host(s) or Cluster(s)",