Perl

Example: Socket.AcceptNext method

Demonstrates how to call the AcceptNext method. Perl

use chilkat();

$success = 0;

$listenSocket = chilkat::CkSocket->new();
$connectedSocket = chilkat::CkSocket->new();

$port = 5555;
$backlog = 25;
$success = $listenSocket->BindAndListen($port,$backlog);
if ($success == 0) {
    print $listenSocket->lastErrorText() . "\r\n";
    exit;
}

# Accept next incoming connection
$maxWaitMs = 200000;
$success = $listenSocket->AcceptNext($maxWaitMs,$connectedSocket);
if ($success == 0) {
    print $listenSocket->lastErrorText() . "\r\n";
    exit;
}

# ...
# ...

$maxWaitMs = 20000;
$connectedSocket->Close();