udpliteserver.pl

udp-lite for upd lite linux kernel

#!/usr/bin/perl

# A simple Perl UDP-Litev4 server which listens on `$PORTNO'

use Socket;
$PORTNO = 2000;

# this uses /etc/protocols and defaults to IPPROTO_UDPLITE
$proto = getprotobyname("udplite") || 136;

socket(SOCKET, PF_INET, SOCK_DGRAM, $proto )   or die "socket: $!";
bind(SOCKET, sockaddr_in($PORTNO, INADDR_ANY)) or die "bind: $!";

while(1) {
 defined($src = recv(SOCKET, $msg, 1024, 0)) or die "recv: $!";
 
 ($port, $ipaddr) = sockaddr_in($src);
 printf "from %s#%s: $msg\n", inet_ntoa($ipaddr), $port;
}