mirror of
git://scm.dxcluster.org/scm/spider
synced 2024-09-21 07:47:10 +00:00
fix .gtkconsole_data creation bug
This commit is contained in:
parent
299b605c22
commit
79e5e96cba
2
Changes
2
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
|
||||
|
@ -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;
|
||||
|
@ -11,6 +11,6 @@ use vars qw($version $subversion $build);
|
||||
|
||||
$version = '1.54';
|
||||
$subversion = '0';
|
||||
$build = '161';
|
||||
$build = '162';
|
||||
|
||||
1;
|
||||
|
Loading…
Reference in New Issue
Block a user