Have released a draft beta version of SCTP Perl Module that is published in CPAN.

This SCTP module is created to access lksctp to provide SCTP implementation. Before installing Net::SIGTRAN::SCTP, make sure that the following package:

$ rpm -qa|grep sctp
lksctp-tools-1.0.6-3.el5
lksctp-tools-devel-1.0.6-3.el5

Alternatively you can download and compile the source from http://lksctp.sourceforge.net.

The following is example source code to get started.

SCTP Server Example

use Net::SIGTRAN::SCTP; 
use threads;

my $server=new Net::SIGTRAN::SCTP( PORT=>12345 );
my $ssock=$server->bind(); 
if ($ssock) { 
   my $csock; 
   while($csock = $server->accept($ssock)) { 
      print "New Client Connection\n"; 
      my $thr=threads->create(\&processRequest,$server,$csock); 
      $thr->detach();
   }
}

sub processRequest { 
   my $connection=shift; 
   my $socket=shift; 
   my ($readlen,$buffer)= $connection->recieve($socket,1000); 
   print "Recieved ($readlen,$buffer)\n"; 
}

SCTP Server Example

use Net::SIGTRAN::SCTP;

my $textstring='Hello World';
my $client=new Net::SIGTRAN::SCTP( HOST=>'127.0.0.1', PORT=>12345 );

my $csock=$client->connect();

$client->send($csock,0,length($textstring),$textstring); 
$client->close($csock);

INSTALLATION

To install the module, perform the usual perl module installation procedures. The following is the steps:

perl Makefile.PL
make
make install