*** empty log message ***

diff --git a/Changes b/Changes
index ca70e71c0b486aaf54caea201e8cbbd3da28d317..48c55d357b8638f5b5b5382a83b1beac3a2422a5 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,3 +1,7 @@
+19Jun00=======================================================================
+1. move ann_dup, spot_dup etc to dup_ann, dup_spots etc
+2. made mode 3 the default line ending convention for all out going connects
+via telnet in client.pl
 18Jun00=======================================================================
 1. fixed line ending ambiguities (I think) for telnet connections. Well 
 actually only really band aided it. It works but isn't how I want it. 

diff --git a/cmd/Aliases b/cmd/Aliases
index 8b006a98c2b5b3ff0be7fb57a1ff8c02ea8352cb..7b3d1a50f33961c25b4019d40bd9a1d77d316765 100644 (file)
--- a/cmd/Aliases
+++ b/cmd/Aliases
@@ -26,9 +26,9 @@ package CmdAlias;
          '^\?', 'apropos', 'apropos',
        ],
     'a' => [
-         '^ann.*/full', 'announce full', 'announce', 
-         '^ann.*/sysop', 'announce sysop', 'announce',
-         '^ann.*/(.*)$', 'announce $1', 'announce',
+         '^ann\w*/full', 'announce full', 'announce', 
+         '^ann\w*/sysop', 'announce sysop', 'announce',
+         '^ann\w*/(.*)$', 'announce $1', 'announce',
        ],
        'b' => [
        ],

diff --git a/cmd/show/ann_dups.pl b/cmd/show/ann_dups.pl
deleted file mode 100644 (file)
index 26428c1..0000000
--- a/cmd/show/ann_dups.pl
+++ /dev/null
@@ -1,11 +0,0 @@
-#
-# show a list of all the outstanding spot dups
-# for debugging really
-#
-# Copyright (c) 2000 Dirk Koopman G1TLH
-#
-# $Id$
-#
-my $self = shift;
-return (1, $self->msg('e5')) unless $self->priv >= 9; 
-return (1, AnnTalk::listdups);

diff --git a/cmd/show/dup_ann.pl b/cmd/show/dup_ann.pl
new file mode 100644 (file)
index 0000000..e065fbc
--- /dev/null
+++ b/cmd/show/dup_ann.pl
@@ -0,0 +1,11 @@
+#
+# show a list of all the outstanding announce dups
+# for debugging really
+#
+# Copyright (c) 2000 Dirk Koopman G1TLH
+#
+# $Id$
+#
+my $self = shift;
+return (1, $self->msg('e5')) unless $self->priv >= 9; 
+return (1, AnnTalk::listdups);

diff --git a/cmd/show/dup_spots.pl b/cmd/show/dup_spots.pl
new file mode 100644 (file)
index 0000000..5bd9b17
--- /dev/null
+++ b/cmd/show/dup_spots.pl
@@ -0,0 +1,11 @@
+#
+# show a list of all the outstanding spot dups
+# for debugging really
+#
+# Copyright (c) 2000 Dirk Koopman G1TLH
+#
+# $Id$
+#
+my $self = shift;
+return (1, $self->msg('e5')) unless $self->priv >= 9; 
+return (1, Spot::listdups);

diff --git a/cmd/show/dup_wcy.pl b/cmd/show/dup_wcy.pl
new file mode 100644 (file)
index 0000000..a493b7f
--- /dev/null
+++ b/cmd/show/dup_wcy.pl
@@ -0,0 +1,11 @@
+#
+# show a list of all the outstanding wcy dups
+# for debugging really
+#
+# Copyright (c) 2000 Dirk Koopman G1TLH
+#
+# $Id$
+#
+my $self = shift;
+return (1, $self->msg('e5')) unless $self->priv >= 9; 
+return (1, WCY::listdups);

diff --git a/cmd/show/dup_wwv.pl b/cmd/show/dup_wwv.pl
new file mode 100644 (file)
index 0000000..4bd5ad3
--- /dev/null
+++ b/cmd/show/dup_wwv.pl
@@ -0,0 +1,11 @@
+#
+# show a list of all the outstanding wwv dups
+# for debugging really
+#
+# Copyright (c) 2000 Dirk Koopman G1TLH
+#
+# $Id$
+#
+my $self = shift;
+return (1, $self->msg('e5')) unless $self->priv >= 9; 
+return (1, Geomag::listdups);

diff --git a/cmd/show/spot_dups.pl b/cmd/show/spot_dups.pl
deleted file mode 100644 (file)
index 5bd9b17..0000000
--- a/cmd/show/spot_dups.pl
+++ /dev/null
@@ -1,11 +0,0 @@
-#
-# show a list of all the outstanding spot dups
-# for debugging really
-#
-# Copyright (c) 2000 Dirk Koopman G1TLH
-#
-# $Id$
-#
-my $self = shift;
-return (1, $self->msg('e5')) unless $self->priv >= 9; 
-return (1, Spot::listdups);

diff --git a/cmd/show/wwv_dups.pl b/cmd/show/wwv_dups.pl
deleted file mode 100644 (file)
index bf0cbe7..0000000
--- a/cmd/show/wwv_dups.pl
+++ /dev/null
@@ -1,11 +0,0 @@
-#
-# show a list of all the outstanding spot dups
-# for debugging really
-#
-# Copyright (c) 2000 Dirk Koopman G1TLH
-#
-# $Id$
-#
-my $self = shift;
-return (1, $self->msg('e5')) unless $self->priv >= 9; 
-return (1, Geomag::listdups);

diff --git a/perl/client.pl b/perl/client.pl
index 611c313daa61de0be049f8122a0b0dd977907717..7a539cf2259202d8cf4bb3b4cb3ec01b60a50f08 100755 (executable)
--- a/perl/client.pl
+++ b/perl/client.pl
@@ -229,7 +229,7 @@ sub doconnect
                $sock->option_accept(Dont => TELOPT_ECHO, Wont => TELOPT_ECHO);
                $sock->open($host) or die "Can't connect to $host port $port $!";
                $sock->binmode(1);
-               $mode = ($port == 23) ? 2 : 3;
+               $mode = 3;
        } elsif ($sort eq 'ax25' || $sort eq 'prog') {
                my @args = split /\s+/, $line;
                $rfh = new IO::File;

diff --git a/perl/cluster.pl b/perl/cluster.pl
index 4da018b0bfd25b8d6b2d55e407288a923acffc62..b96cf370b3162081628d7e355e66fe316215b1b3 100755 (executable)
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -71,7 +71,7 @@ package main;
 
 @inqueue = ();                                 # the main input queue, an array of hashes
 $systime = 0;                                  # the time now (in seconds)
-$version = "1.42";                             # the version no of the software
+$version = "1.43";                             # the version no of the software
 $starttime = 0;                 # the starting time of the cluster   
 $lockfn = "cluster.lock";       # lock file name
 @outstanding_connects = ();     # list of outstanding connects