Accept the Next Incoming Connection

See more Socket/SSL/TLS Examples

Demonstrates Socket.AcceptNext, which waits for and accepts the next incoming connection on a listening socket, delivering it as a new connected Socket.

use strict;
use warnings;
use Chilkat2;

my $socket = Chilkat2::Socket->new;

my $success = $socket->BindAndListen(5000, 25);
if (!$success) {
    print $socket->LastErrorText, "\n";
    exit;
}

# Wait for and accept the next incoming connection on the listening socket.  maxWaitMs = 0 waits
# indefinitely; a positive value waits up to that many milliseconds.  For a TLS listener, acceptance
# includes the server-side TLS handshake.
my $connectedSock = Chilkat2::Socket->new;
$success = $socket->AcceptNext(20000, $connectedSock);
if (!$success) {
    print $socket->LastErrorText, "\n";
    exit;
}

print 'Accepted a connection from ', $connectedSock->RemoteIpAddress, "\n";