projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix .gtkconsole_data creation bug
[spider.git]
/
gtkconsole
/
gtkconsole
diff --git
a/gtkconsole/gtkconsole
b/gtkconsole/gtkconsole
index f2d39d9f3bd90d2d717b45ff74538679a62814cc..e4a2b2476bc0d2ff94b570f6867c9f2bf6391c22 100755
(executable)
--- a/
gtkconsole/gtkconsole
+++ b/
gtkconsole/gtkconsole
@@
-11,9
+11,6
@@
use strict;
use strict;
-our $VERSION = '$Revision$';
-$VERSION =~ s|[^\d\.]+||g;
-
our $root;
# search local then perl directories
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";
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();
# 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();
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);
# 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);
my $dd = new Data::Dumper([ $u ]);
$dd->Indent(1);
$dd->Quotekeys(0);
+ $dd->Terse(1);
$fh->print($dd->Dumpxs);
$fh->close;
return 1;
$fh->print($dd->Dumpxs);
$fh->close;
return 1;