projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add connection info to title bar
[spider.git]
/
gtkconsole
/
gtkconsole
diff --git
a/gtkconsole/gtkconsole
b/gtkconsole/gtkconsole
index 4c0492deaf8eb09e6a579cdab5602bebc797478f..1fef23f128ebb44d96636611c6fc19a6042d958c 100755
(executable)
--- a/
gtkconsole/gtkconsole
+++ b/
gtkconsole/gtkconsole
@@
-11,6
+11,8
@@
use strict;
use strict;
+our $VERSION = '$Revision$';
+
our $root;
# search local then perl directories
our $root;
# search local then perl directories
@@
-113,7
+115,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
- The DXSpider Console - $call
");
+$main->set_title("gtkconsole
$VERSION - DXSpider Console - $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);