From: Dirk Koopman <djk@tobit.co.uk>
Date: Sat, 13 Mar 2010 20:42:00 +0000 (+0000)
Subject: add setting csort to to_connected
X-Git-Tag: 1.56~35
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=44ac4cfc87f3d628417502609668eaeb86d80976;p=spider.git

add setting csort to to_connected
---

diff --git a/perl/EphMsg.pm b/perl/EphMsg.pm
index a6da8a2d..2fa7a593 100644
--- a/perl/EphMsg.pm
+++ b/perl/EphMsg.pm
@@ -71,19 +71,6 @@ sub dequeue
 	}
 }
 
-sub to_connected
-{
-	my ($conn, $call, $dir, $sort) = @_;
-	$conn->{state} = 'C';
-	$conn->conns($call);
-	delete $conn->{cmd};
-	$conn->{timeout}->del if $conn->{timeout};
-	delete $conn->{timeout};
-	$conn->nolinger;
-	&{$conn->{rproc}}($conn, "$dir$call|$sort");
-}
-
-
 sub start_connect
 {
 	my $call = shift;
diff --git a/perl/ExtMsg.pm b/perl/ExtMsg.pm
index a84b598a..71957817 100644
--- a/perl/ExtMsg.pm
+++ b/perl/ExtMsg.pm
@@ -153,6 +153,7 @@ sub to_connected
 	delete $conn->{cmd};
 	$conn->{timeout}->del if $conn->{timeout};
 	delete $conn->{timeout};
+	$conn->{csort} = $sort;
 	$conn->nolinger unless $conn->ax25;
 	&{$conn->{rproc}}($conn, "$dir$call|$sort");
 	$conn->_send_file("$main::data/connected") unless $conn->{outgoing};
diff --git a/perl/Version.pm b/perl/Version.pm
index 66456c43..f2a84ecb 100644
--- a/perl/Version.pm
+++ b/perl/Version.pm
@@ -11,6 +11,6 @@ use vars qw($version $subversion $build);
 
 $version = '1.55';
 $subversion = '0';
-$build = '64';
+$build = '65';
 
 1;