hamradio/spider
1
0
Fork 0
mirror of git://scm.dxcluster.org/scm/spider synced 2024-09-21 07:47:10 +00:00
Code Issues Packages Projects Releases Wiki Activity

fix .gtkconsole_data creation bug

Browse Source
This commit is contained in:
Dirk Koopman 2007-10-01 18:40:19 +01:00
parent 299b605c22
commit 79e5e96cba
3 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Changes
View File

@ -1,3 +1,5 @@
01Oct07=======================================================================
1. fix .gtkconsole_data creation bug.
27Sep07======================================================================= 27Sep07=======================================================================
1. Fixed gtkconsole to split out all the windows. See 1. Fixed gtkconsole to split out all the windows. See
/spider/gtkconsole/README for installation and usage instructions. This /spider/gtkconsole/README for installation and usage instructions. This

11
gtkconsole/gtkconsole
View File

@ -11,9 +11,6 @@
use strict; use strict;
our $VERSION = '$Revision$';
$VERSION =~ s|[^\d\.]+||g;
our $root; our $root;
# search local then perl directories # 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 # read in the user data
our $userfn = "$ENV{HOME}/.gtkconsole_data"; our $userfn = "$ENV{HOME}/.gtkconsole_data";
our $user = read_user_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 # connect and send stuff
my $sock = IO::Socket::INET->new(PeerAddr=>$host, PeerPort=>$port); my $sock = IO::Socket::INET->new(PeerAddr=>$host, PeerPort=>$port);
@ -413,6 +415,7 @@ sub write_user_data
my $dd = new Data::Dumper([ $u ]); my $dd = new Data::Dumper([ $u ]);
$dd->Indent(1); $dd->Indent(1);
$dd->Quotekeys(0); $dd->Quotekeys(0);
$dd->Terse(1);
$fh->print($dd->Dumpxs); $fh->print($dd->Dumpxs);
$fh->close; $fh->close;
return 1; return 1;

2
perl/Version.pm
View File

@ -11,6 +11,6 @@ use vars qw($version $subversion $build);
$version = '1.54'; $version = '1.54';
$subversion = '0'; $subversion = '0';
$build = '161'; $build = '162';
1; 1;