X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fclient.pl;h=b36be34715282605f542948529e1c2f96e375dc4;hb=1f1ba20386876b3d2a74e5e4d77bf7119a04610b;hp=ff2ca473f82b03451e0f023d7d72d3ee6e9adc5b;hpb=b85ee0ca2b03ee2c5be20bd430cfa00757b7ebdb;p=spider.git

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);
 	}