From 840ace66681d2d615ff412e1197fa613f262c1f2 Mon Sep 17 00:00:00 2001
From: djk <djk>
Date: Mon, 19 Jun 2000 11:33:51 +0000
Subject: [PATCH] *** empty log message ***

---
 Changes                                 |  4 ++++
 cmd/Aliases                             |  6 +++---
 cmd/show/{ann_dups.pl => dup_ann.pl}    |  2 +-
 cmd/show/{spot_dups.pl => dup_spots.pl} |  0
 cmd/show/dup_wcy.pl                     | 11 +++++++++++
 cmd/show/{wwv_dups.pl => dup_wwv.pl}    |  2 +-
 perl/client.pl                          |  2 +-
 perl/cluster.pl                         |  2 +-
 8 files changed, 22 insertions(+), 7 deletions(-)
 rename cmd/show/{ann_dups.pl => dup_ann.pl} (78%)
 rename cmd/show/{spot_dups.pl => dup_spots.pl} (100%)
 create mode 100644 cmd/show/dup_wcy.pl
 rename cmd/show/{wwv_dups.pl => dup_wwv.pl} (79%)

diff --git a/Changes b/Changes
index ca70e71c..48c55d35 100644
--- 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 8b006a98..7b3d1a50 100644
--- 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/dup_ann.pl
similarity index 78%
rename from cmd/show/ann_dups.pl
rename to cmd/show/dup_ann.pl
index 26428c1b..e065fbc9 100644
--- a/cmd/show/ann_dups.pl
+++ b/cmd/show/dup_ann.pl
@@ -1,5 +1,5 @@
 #
-# show a list of all the outstanding spot dups
+# show a list of all the outstanding announce dups
 # for debugging really
 #
 # Copyright (c) 2000 Dirk Koopman G1TLH
diff --git a/cmd/show/spot_dups.pl b/cmd/show/dup_spots.pl
similarity index 100%
rename from cmd/show/spot_dups.pl
rename to cmd/show/dup_spots.pl
diff --git a/cmd/show/dup_wcy.pl b/cmd/show/dup_wcy.pl
new file mode 100644
index 00000000..a493b7f2
--- /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/wwv_dups.pl b/cmd/show/dup_wwv.pl
similarity index 79%
rename from cmd/show/wwv_dups.pl
rename to cmd/show/dup_wwv.pl
index bf0cbe75..4bd5ad3f 100644
--- a/cmd/show/wwv_dups.pl
+++ b/cmd/show/dup_wwv.pl
@@ -1,5 +1,5 @@
 #
-# show a list of all the outstanding spot dups
+# show a list of all the outstanding wwv dups
 # for debugging really
 #
 # Copyright (c) 2000 Dirk Koopman G1TLH
diff --git a/perl/client.pl b/perl/client.pl
index 611c313d..7a539cf2 100755
--- 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 4da018b0..b96cf370 100755
--- 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
-- 
2.43.0