try to fix the gtkconsole CVS version no

add missing gcomiit scripts

diff --git a/gcommit b/gcommit
new file mode 120000 (symlink)
index 0000000..0f051e4
--- /dev/null
+++ b/gcommit
@@ -0,0 +1 @@
+perl/gcommit
\ No newline at end of file

diff --git a/gtkconsole/gtkconsole b/gtkconsole/gtkconsole
index ad2d05a3bfdfc0544ffa2381a6ccf32e211d959c..2af1c4e94c6bf3fcae3658fdaf99b3703912a960 100755 (executable)
--- a/gtkconsole/gtkconsole
+++ b/gtkconsole/gtkconsole
@@ -4,7 +4,7 @@
 #
 # usage: gtkconsole [<callsign>] [<host> <port>]
 # 
 #
 # usage: gtkconsole [<callsign>] [<host> <port>]
 # 

-# Copyright (c) 2001-6 Dirk Koopman G1TLH
+# Copyright (c) 2006-2007 Dirk Koopman G1TLH

 #
 # $Id$
 #
 #
 # $Id$
 #


@@ -49,6 +49,8 @@ our ($dx, $cmd, $ann, $wcy, $wwv); # scrolling list windows
 our $bot;                                              # the cmd entry window
 our $date;                                             # the current date
 
 our $bot;                                              # the cmd entry window
 our $date;                                             # the current date
 

+require "$root/local/DXVars.pm" if -e "$root/local/DXVars.pm";
+

 # 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();


@@ -80,7 +82,7 @@ unless ($call && $host) {
        my $node = $user->{clusters}->{$user->{node}};
        
        if ($node->{call} || $user->{call}) {
        my $node = $user->{clusters}->{$user->{node}};
        
        if ($node->{call} || $user->{call}) {

-               $call = $node->{call} || $user->{call};
+               $call = $node->{call} || $user->{call} || $main::myalias;

                $host = $node->{passwd};
                $host = $node->{host};
                $port = $node->{port};
                $host = $node->{passwd};
                $host = $node->{host};
                $port = $node->{port};


@@ -88,15 +90,13 @@ unless ($call && $host) {
 }
 
 unless ($call && $host) {
 }
 
 unless ($call && $host) {

-       if (-e "$root/local/DXVars.pm") {
-               require "$root/local/DXVars.pm";
-               $call = $main::myalias;
-               $call = $main::myalias; # for the warning
-       }

        if (-e "$root/local/Listeners.pm") {
                require  "$root/local/Listeners.pm";
                $host = $main::listen->[0]->[0];
                $port = $main::listen->[0]->[1];
        if (-e "$root/local/Listeners.pm") {
                require  "$root/local/Listeners.pm";
                $host = $main::listen->[0]->[0];
                $port = $main::listen->[0]->[1];

+               $host ||= '127.0.0.1';
+               $host = "127.0.0.1" if $host eq '0.0.0.0';
+               $port ||= 7300;

        }
 }
 
        }
 }
 


@@ -365,11 +365,13 @@ sub read_user_data
                
                $u = {
                          clusters => {
                
                $u = {
                          clusters => {

+                                                  'LOCAL' => {host => '127.0.0.1', port => 7300},

                                                   'GB7DJK' => {host => 'gb7djk.dxcluster.net', port => 7300},
                                                   'WR3D' => {host => 'wr3d.dxcluster.net', port => 7300},
                                                   'GB7BAA' => {host => 'gb7baa.dxcluster.net', port => 7300},
                                                  },
                                                   'GB7DJK' => {host => 'gb7djk.dxcluster.net', port => 7300},
                                                   'WR3D' => {host => 'wr3d.dxcluster.net', port => 7300},
                                                   'GB7BAA' => {host => 'gb7baa.dxcluster.net', port => 7300},
                                                  },

-                         node => 'GB7DJK',
+                         node => 'LOCAL',
+                         call => $main::myalias,

                         };
                write_user_data($u);
        }
                         };
                write_user_data($u);
        }

diff --git a/perl/Version.pm b/perl/Version.pm
index 53cb47277886b56e98bf884e41199fc3442962a4..dac731e1599087dc98b435c00f0563b8006a54dc 100644 (file)
--- a/perl/Version.pm
+++ b/perl/Version.pm
@@ -10,6 +10,6 @@ package main;
 use vars qw($version $build);
 
 $version = '1.53';
 use vars qw($version $build);
 
 $version = '1.53';

-$build = '15';
+$build = '16';

 
 1;
 
 1;

diff --git a/perl/gcommit b/perl/gcommit
new file mode 100755 (executable)
index 0000000..efdff89
--- /dev/null
+++ b/perl/gcommit
@@ -0,0 +1,4 @@
+#!/bin/sh
+# do a startard git commit
+/spider/perl/issue.pl
+git commit -a $@