From: Dirk Koopman Date: Fri, 5 Oct 2007 17:49:35 +0000 (+0100) Subject: treat PC61 as PC11. X-Git-Tag: 1.55~52 X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;ds=sidebyside;h=8320b88d08622ad45f3b68c551bdb53762060f79;p=spider.git treat PC61 as PC11. --- diff --git a/Changes b/Changes index 7284c004..2eba7883 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,5 @@ +05Oct07======================================================================= +1. Handle PC61 from VE1CC clusters as PC11. 01Oct07======================================================================= 1. fix .gtkconsole_data creation bug. 27Sep07======================================================================= diff --git a/gtkconsole/gtkconsole b/gtkconsole/gtkconsole index e4a2b247..d371f0c4 100755 --- a/gtkconsole/gtkconsole +++ b/gtkconsole/gtkconsole @@ -53,6 +53,9 @@ our $wwvwin; # wwv window handle our $wcywin; # wcy window handle our $chatwin; # chat window handle +# wants +our ($wantann, $wantdx, $wantwwv, $wantwcy, $wantchat) = (1, 1, 1, 1, 1); + require "$root/local/DXVars.pm" if -e "$root/local/DXVars.pm"; our ($version, $subversion, $build); @@ -428,6 +431,12 @@ sub def_menu_callback } +sub set_win +{ + my $var = shift; + $$var = shift; +} + sub gtk_create_main_screen { $main = new Gtk2::Window('toplevel'); @@ -453,6 +462,31 @@ sub gtk_create_main_screen } ], }, + _Screens => { + item_type =>'', + children => [ + _Dx => { + item_type => '', + callback => sub { set_win(\$wantdx, $@)}, + }, + _Announce => { + item_type => '', + callback => sub { set_win(\$wantann, $@)}, + }, + _Chat => { + item_type => '', + callback => sub { set_win(\$wantchat, $@)}, + }, + _WWV => { + item_type => '', + callback => sub { set_win(\$wantwwv, $@)}, + }, + _WCY => { + item_type => '', + callback => sub { set_win(\$wantwcy, $@)}, + }, + ], + }, _Help => { item_type => '', diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm index 4cca42f9..d73bbc62 100644 --- a/perl/DXProtHandle.pm +++ b/perl/DXProtHandle.pm @@ -1265,6 +1265,8 @@ sub handle_51 } } +sub handle_61 { goto &handle_11; } + # dunno but route it sub handle_75 { diff --git a/perl/Version.pm b/perl/Version.pm index f4eb974f..c9276554 100644 --- a/perl/Version.pm +++ b/perl/Version.pm @@ -11,6 +11,6 @@ use vars qw($version $subversion $build); $version = '1.54'; $subversion = '0'; -$build = '162'; +$build = '163'; 1;