add CTY-3304

[spider.git] / perl / EphMsg.pm

diff --git a/perl/EphMsg.pm b/perl/EphMsg.pm
index 0814df84d7288d5a21f0775d4b7f3c556e00d178..2fa7a593e960bf4edb61333f33831b74b317084f 100644 (file)
--- a/perl/EphMsg.pm
+++ b/perl/EphMsg.pm
@@ -45,7 +45,7 @@ sub dequeue
        my $conn = shift;
        my $msg;
 
-       if ($conn->{csort} eq 'ax25' && exists $conn->{msg}) {
+       if ($conn->ax25 && exists $conn->{msg}) {
                $conn->{msg} =~ s/\cM/\cJ/g;
        }
 
@@ -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;