X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=373e595c9c25cd74e501d9fda29de17f3d3c5711;hb=8dfb46f118199934c742e1fcaee0ceb8084a6998;hp=a46e3b2d58f692e9905666b4618484a47c8be18a;hpb=7de34899527cbc4dfacdcc6452926b3d2d73792c;p=spider.git

diff --git a/perl/cluster.pl b/perl/cluster.pl
index a46e3b2d..373e595c 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -70,7 +70,7 @@ package main;
 
 @inqueue = ();					# the main input queue, an array of hashes
 $systime = 0;					# the time now (in seconds)
-$version = "1.36";				# the version no of the software
+$version = "1.39";				# 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
@@ -113,16 +113,6 @@ sub rec
 	# set up the basic channel info - this needs a bit more thought - there is duplication here
 	if (!defined $dxchan) {
 		my ($sort, $call, $line) = $msg =~ /^(\w)(\S+)\|(.*)$/;
-		my ($scall, $ssid) = split /-/, $call;
-		
-		# adjust the callsign if it has an SSID, SSID <= 8 are legal > 8 are netrom connections
-        if ($ssid) {
-			$ssid = 15 if $ssid > 15;
-			if ($ssid > 8) {
-				$ssid = 15 - $ssid;
-				$call = "$scall-$ssid";
-			}
-		}
  
 		# is there one already connected to me - locally? 
 		my $user = DXUser->get($call);