From c66d28ace3e5bf4b9fa20256425d7d1416e7d8c5 Mon Sep 17 00:00:00 2001 From: djk Date: Mon, 21 Dec 1998 12:10:09 +0000 Subject: [PATCH] 1. Added "issue" to the client program for 'login' connections 2. Added more docs for client program. 3. Fixed problem introduced in 1.12 where a connect locally with a callsign of someone connected remotely would stop the cluster. 4. issue release 1.13 --- Changes | 6 ++++++ perl/cluster.pl | 8 +++----- 2 files changed, 9 insertions(+), 5 deletions(-) diff --git a/Changes b/Changes index d74a7b85..c8f8ee15 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,9 @@ +21Dec98======================================================================== +1. Added "issue" to the client program for 'login' connections +2. Added more docs for client program. +3. Fixed problem introduced in 1.12 where a connect locally with a callsign of +someone connected remotely would stop the cluster. +4. issue release 1.13 20Dec98======================================================================== 1. Removed all the warnings I get with perl -w (at least for just starting the cluster and running a few commands). diff --git a/perl/cluster.pl b/perl/cluster.pl index b7bdd037..16a03037 100755 --- a/perl/cluster.pl +++ b/perl/cluster.pl @@ -89,19 +89,17 @@ sub rec # is there one already connected elsewhere in the cluster (and not a cluster) my $user = DXUser->get($call); if ($user) { - if ($user->sort eq 'A' && !DXCluster->get_exact($call)) { - ; - } elsif ($user->sort eq 'U' && $call eq $main::myalias && !DXCluster->get_exact($call)) { + if (($user->sort eq 'A' || $call == $myalias) && !DXCluster->get_exact($call)) { ; } else { - if (DXChannel->get($call)) { + if (DXCluster->get($call) || DXChannel->get($call)) { my $mess = DXM::msg($lang, $user->sort eq 'A' ? 'concluster' : 'conother', $call); already_conn($conn, $call, $mess); return; } } } else { - if (DXChannel->get($call)) { + if (DXCluster->get($call) || DXChannel->get($call)) { my $mess = DXM::msg($lang, 'conother', $call); already_conn($conn, $call, $mess); return; -- 2.43.0