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