X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=5ba3b2bd97b0feb7192a2a3847b3e2bf89a693d4;hb=1910df7183401a62084e85c3ace179df492a6fbe;hp=c5882c3660ddec7a52cc84338be0a268b8e668df;hpb=0a26d8269de811ac52450fcb411ebac7cab1d382;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index c5882c36..5ba3b2bd 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -1426,11 +1426,6 @@ sub disconnect
 	$self->SUPER::disconnect;
 }
 
-# check that a field only has callsign characters in it
-sub is_callsign
-{
-	return $_[0] !~ /[^A-Z0-9\-]/
-}
 
 # 
 # send a talk message to this thingy