add setting csort to to_connected

This commit is contained in:
Dirk Koopman 2010-03-13 20:42:00 +00:00
parent c02dc2d8b5
commit 44ac4cfc87
3 changed files with 2 additions and 14 deletions

View File

@ -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;

View File

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

View File

@ -11,6 +11,6 @@ use vars qw($version $subversion $build);
$version = '1.55';
$subversion = '0';
$build = '64';
$build = '65';
1;