From 79e5e96cbacbdc4433349e8d789be69ec95cdd94 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Mon, 1 Oct 2007 18:40:19 +0100 Subject: [PATCH] fix .gtkconsole_data creation bug --- Changes | 2 ++ gtkconsole/gtkconsole | 11 +++++++---- perl/Version.pm | 2 +- 3 files changed, 10 insertions(+), 5 deletions(-) diff --git a/Changes b/Changes index b0ce1be7..7284c004 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,5 @@ +01Oct07======================================================================= +1. fix .gtkconsole_data creation bug. 27Sep07======================================================================= 1. Fixed gtkconsole to split out all the windows. See /spider/gtkconsole/README for installation and usage instructions. This diff --git a/gtkconsole/gtkconsole b/gtkconsole/gtkconsole index f2d39d9f..e4a2b247 100755 --- a/gtkconsole/gtkconsole +++ b/gtkconsole/gtkconsole @@ -11,9 +11,6 @@ use strict; -our $VERSION = '$Revision$'; -$VERSION =~ s|[^\d\.]+||g; - our $root; # search local then perl directories @@ -58,6 +55,11 @@ our $chatwin; # chat window handle require "$root/local/DXVars.pm" if -e "$root/local/DXVars.pm"; +our ($version, $subversion, $build); +require "$root/perl/Version.pm"; + +our $VERSION = "$version.$subversion build $build"; + # read in the user data our $userfn = "$ENV{HOME}/.gtkconsole_data"; our $user = read_user_data(); @@ -120,7 +122,7 @@ die "You need a callsign ($call), a hostname($host) and a port($port) to proceed gtk_create_main_screen(); -$main->set_title("gtkconsole $VERSION - DXSpider Console - $call \@ $host:$port"); +$main->set_title("DXSpider gtkconsole $VERSION - $call \@ $host:$port"); # connect and send stuff my $sock = IO::Socket::INET->new(PeerAddr=>$host, PeerPort=>$port); @@ -413,6 +415,7 @@ sub write_user_data my $dd = new Data::Dumper([ $u ]); $dd->Indent(1); $dd->Quotekeys(0); + $dd->Terse(1); $fh->print($dd->Dumpxs); $fh->close; return 1; diff --git a/perl/Version.pm b/perl/Version.pm index 5586e4f8..f4eb974f 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 = '161'; +$build = '162'; 1; -- 2.43.0