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

Remove debug message for number of cx's in title window

Browse source 
Finally fixed bug for sorting the Add Hosts menu
This commit is contained in:
duncan_ferguson 2004-03-25 10:49:19 +00:00
parent cda4dd2b32
commit d76b4aa3b0
1 changed files with 5 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

13
clusterssh/cssh
View file

@ -299,8 +299,6 @@ sub change_title_number {
my $number=keys(%servers); my $number=keys(%servers);
print "number=$number\n";
$mw->title($control_title." [$number]"); $mw->title($control_title." [$number]");
} }
@ -535,7 +533,7 @@ sub add_host_win_entry {
# Only way it seems we can to the hosts menu is to delete all and recreate # Only way it seems we can to the hosts menu is to delete all and recreate
# name and ensure it has an entry on "Add Hosts" menu. Start at 2 so # name and ensure it has an entry on "Add Hosts" menu. Start at 2 so
# we don't delete the "Add Host" item or seperator # we don't delete the "Add Host" item
my $menu=$mw_mb->entrycget('Hosts', -menu); my $menu=$mw_mb->entrycget('Hosts', -menu);
$menu->delete(2,'end'); $menu->delete(2,'end');
@ -547,7 +545,6 @@ sub add_host_win_entry {
my $serv=$serv_name; my $serv=$serv_name;
$serv=~s/__.*//; $serv=~s/__.*//;
# entry not found for this server, so add it in
$hosts_menu->checkbutton( $hosts_menu->checkbutton(
-label=>$serv, -label=>$serv,
-variable=>\$servers{$serv_name}[0], -variable=>\$servers{$serv_name}[0],
@ -748,7 +745,7 @@ $hosts_menu->command(
$hosts_menu->separator; $hosts_menu->separator;
# Now add in all the hosts we know about from command line # Now add in all the hosts we know about from command line
for (keys(%servers)) for (sort(keys(%servers)))
{ {
my $serv=$_; my $serv=$_;
$serv=~s/__.*//; $serv=~s/__.*//;
@ -1318,9 +1315,9 @@ L<Config::Simple>
# Moved to sf.net cvs # Moved to sf.net cvs
# #
# $Log$ # $Log$
# Revision 1.53 2004/03/25 10:23:57 duncan_ferguson # Revision 1.54 2004/03/25 10:49:19 duncan_ferguson
# Include option for displaying total number of connections in console title bar [Daivd Gardner] # Remove debug message for number of cx's in title window
# Work on bug for failed connection messages not always showing [Daivd Gardner] # Finally fixed bug for sorting the Add Hosts menu
# #
# Revision 1.52 2004/03/24 12:29:14 duncan_ferguson # Revision 1.52 2004/03/24 12:29:14 duncan_ferguson
# Added in client side variables (i.e. CSSH_CLIENT and CSSH_SERVER) with -s|c # Added in client side variables (i.e. CSSH_CLIENT and CSSH_SERVER) with -s|c