X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=gtkconsole%2Fgtkconsole;h=ad2d05a3bfdfc0544ffa2381a6ccf32e211d959c;hb=65a45b7d9575729c7ff253f5dd412b91bea4d5ae;hp=4c0492deaf8eb09e6a579cdab5602bebc797478f;hpb=1483f78fa8fff9f1d97e59127064f1e5d84da78c;p=spider.git

diff --git a/gtkconsole/gtkconsole b/gtkconsole/gtkconsole
index 4c0492de..ad2d05a3 100755
--- a/gtkconsole/gtkconsole
+++ b/gtkconsole/gtkconsole
@@ -11,6 +11,9 @@
 
 use strict;
 
+our $VERSION = '$Revision$';
+$VERSION =~ s|[^\d\.]+||g;
+
 our $root;
 
 # search local then perl directories
@@ -113,7 +116,7 @@ die "You need a callsign ($call), a hostname($host) and a port($port) to proceed
 
 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);