From: Dirk Koopman <djk@tobit.co.uk>
Date: Mon, 1 Oct 2007 17:40:19 +0000 (+0100)
Subject: fix .gtkconsole_data creation bug
X-Git-Tag: 1.55~53
X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=79e5e96cbacbdc4433349e8d789be69ec95cdd94;p=spider.git

fix .gtkconsole_data creation bug
---

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;