Re: SCTP Protocol Support

Thanks for the replies. I tried the suggested changes, which didn't help. Adding a print statement after the "Accept" loop shows the script will listen, but not accept a connection. I have verified that the server listens on port SCTP/5002 using a "netstat -an". I'm also learning/writing/testing a C program in parallel, and C can open the same port and responds to the SCTP requests.

#!/opt/ActivePerl-5.10/bin/perl -U
use Socket;
$port     = 5002;
$iaddr    = inet_aton('localhost');
$paddr    = sockaddr_in($port, $iaddr);
$proto    = getprotobyname('sctp');

socket( Server, AF_INET, SOCK_STREAM, $proto )|| die "Socket Failed: $
+!";
setsockopt(Server, SOL_SOCKET, SO_REUSEADDR, pack("l", 1))  || die "se
+tsockopt: $!";
bind(Server, $paddr) || die "Socket Bind Failed: $!";
listen(Server, SOMAXCON) || die "Socket Listen Failed: $!";
print "SERVER started on SCTP port $port\n";

while (accept CONNECTION, Server)
{   print "Connection Accepted\n";
    select CONNECTION; $| = 1; select STDOUT;
    print "Client connected at ", scalar(localtime), "\n";
    print CONNECTION "You're connected to the server!\n";

 while (<CONNECTION>) {
    print "Client says: $_\n";
   print CONNECTION $_;
}

close CONNECTION;
print "Client disconnected\n";
}
[download]

Comment on Re: SCTP Protocol Support Download Code

Replies are listed 'Best First'.
Re^2: SCTP Protocol Support by mr_mischief (Monsignor) on Apr 10, 2008 at 05:49 UTC
I haven't worked much with SCTP -- nothing beyond toy programs. Your code (in Re: SCTP Protocol Support) works for me using Strawberry 5.10 on XP including the setsockopt. My Linux box at home still has 5.8.7, and I get an error about SCTP not being supported. I can try the code on a more recent Linux distro with a more recent perl tomorrow at the office if I don't get around to upgrading at home tonight. Update: I got your code to work on perl 5.10.0 and 5.8.7 on my Mandriva 2006.0 box by changing out the `$proto` as returned by `getprotobyname` for the constant `IPPROTO_SCTP` in the fourth argument position for `socket` as one would in C. I guess this particular system isn't up to getting the protocol by its name. `#socket( Server, AF_INET, SOCK_STREAM, $proto )\|\| die "Socket Failed: +$!"; socket( Server, AF_INET, SOCK_STREAM, IPPROTO_SCTP )\|\| die "Socket Fai +led: $!";` [download] This is just a stab in the dark, but I remember seeing something somewhere about Perl's implementation of setsockopt not working on SCTP sockets. Searching on Google for "setsockopt Perl SCTP" to see if I could find any evidence, I found this Fedora ticket which says nothing on Fedora works with getsockopt or setsockopt for socket type SCTP, although the author of the bug report had no problems on Solaris with the same Perl source. Perhaps it's a rare Perl on Linux issue, or perhaps it's a distribution-specific issue in some distributions. Perhaps your Solaris on x86 has the same issue as Fedora, while Solaris on Sparc does not. It's hard to tell at this point. I hope this helps at least somewhat. I haven't taken the time to really use it yet, but SCTP does look promising.	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^2: SCTP Protocol Support
by mr_mischief (Monsignor) on Apr 10, 2008 at 05:49 UTC

Your code (in Re: SCTP Protocol Support) works for me using Strawberry 5.10 on XP including the setsockopt. My Linux box at home still has 5.8.7, and I get an error about SCTP not being supported. I can try the code on a more recent Linux distro with a more recent perl tomorrow at the office if I don't get around to upgrading at home tonight.

Update: I got your code to work on perl 5.10.0 and 5.8.7 on my Mandriva 2006.0 box by changing out the $proto as returned by getprotobyname for the constant IPPROTO_SCTP in the fourth argument position for socket as one would in C. I guess this particular system isn't up to getting the protocol by its name.

#socket( Server, AF_INET, SOCK_STREAM, $proto )|| die "Socket Failed: 
+$!";
socket( Server, AF_INET, SOCK_STREAM, IPPROTO_SCTP )|| die "Socket Fai
+led: $!";
[download]

This is just a stab in the dark, but I remember seeing something somewhere about Perl's implementation of setsockopt not working on SCTP sockets. Searching on Google for "setsockopt Perl SCTP" to see if I could find any evidence, I found this Fedora ticket which says nothing on Fedora works with getsockopt or setsockopt for socket type SCTP, although the author of the bug report had no problems on Solaris with the same Perl source. Perhaps it's a rare Perl on Linux issue, or perhaps it's a distribution-specific issue in some distributions. Perhaps your Solaris on x86 has the same issue as Fedora, while Solaris on Sparc does not. It's hard to tell at this point.

I hope this helps at least somewhat. I haven't taken the time to really use it yet, but SCTP does look promising.

[reply]
[d/l]
[select]