From 1f1ba20386876b3d2a74e5e4d77bf7119a04610b Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Sat, 4 Nov 2000 00:12:35 +0000
Subject: [PATCH] remove references to iscallsign

---
 Changes        | 1 +
 perl/DXMsg.pm  | 2 +-
 perl/DXUtil.pm | 2 +-
 perl/client.pl | 2 +-
 4 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/Changes b/Changes
index 3de9f881..81382122 100644
--- a/Changes
+++ b/Changes
@@ -1,6 +1,7 @@
 04Nov00=======================================================================
 1. fix sh/filter so ity now works for any callsign (and not just connected
 ones).
+2. Have only one is_callsign and not an iscallsign as well.
 03Nov00=======================================================================
 1. allow - in filter strings
 2. store only the filter expression NOTE BENE: you will need to clear all 
diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm
index 60351bd4..75ae1bef 100644
--- a/perl/DXMsg.pm
+++ b/perl/DXMsg.pm
@@ -203,7 +203,7 @@ sub process
 
 			# look to see whether this is a non private message sent to a known callsign
 			my $uref = DXUser->get_current($ref->{to});
-			if (iscallsign($ref->{to}) && !$ref->{private} && $uref && $uref->homenode) {
+			if (is_callsign($ref->{to}) && !$ref->{private} && $uref && $uref->homenode) {
 				$ref->{private} = 1;
 				dbg('msg', "set bull to $ref->{to} to private");
 			}
diff --git a/perl/DXUtil.pm b/perl/DXUtil.pm
index b1d2b629..2e8a5284 100644
--- a/perl/DXUtil.pm
+++ b/perl/DXUtil.pm
@@ -16,7 +16,7 @@ require Exporter;
 @ISA = qw(Exporter);
 @EXPORT = qw(atime ztime cldate cldatetime slat slong yesno promptf 
 			 parray parraypairs shellregex readfilestr writefilestr
-             print_all_fields cltounix iscallsign unpad is_callsign
+             print_all_fields cltounix unpad is_callsign
 			 is_freq is_digits is_pctext is_pcflag insertitem deleteitem
             );
 
diff --git a/perl/client.pl b/perl/client.pl
index ff2ca473..b36be347 100755
--- a/perl/client.pl
+++ b/perl/client.pl
@@ -419,7 +419,7 @@ if ($loginreq) {
 	$s =~ s/\s+//og;
 	$s =~ s/-\d+$//o;            # no ssids!
 	cease(0) unless $s && $s gt ' ';
-	unless (iscallsign($s)) {
+	unless (is_callsign($s)) {
 		$stdout->print("Sorry, $s is an invalid callsign");
 		cease(0);
 	} 
-- 
2.34.1