[exim.git] / test / aux-fixed / 0601.udpserver

#!/usr/bin/perl
use IO::Socket::INET;
use IO::Select;

if (fork != 0) {
  sleep 1;
  exit 0;
}

my ($select,$socket,$received_data);

$socket = new IO::Socket::INET (
  LocalPort => '1223',
  Proto => 'udp',
) or die "ERROR in Socket Creation : $!\n";

$select = IO::Select->new($socket) or die "IO::Select $!";

if (scalar ($select->can_read(5)) == 1) {
	$socket->recv($recieved_data,1024);
	select(undef, undef, undef, 0.5);
	print "received: $recieved_data\n";
}
Commit	Line	Data
f77cff22 JH	1	#!/usr/bin/perl
	2	use IO::Socket::INET;
	3	use IO::Select;
	4
	5	if (fork != 0) {
	6	sleep 1;
	7	exit 0;
	8	}
	9
	10	my ($select,$socket,$received_data);
	11
	12	$socket = new IO::Socket::INET (
	13	LocalPort => '1223',
	14	Proto => 'udp',
	15	) or die "ERROR in Socket Creation : $!\n";
	16
	17	$select = IO::Select->new($socket) or die "IO::Select $!";
	18
	19	if (scalar ($select->can_read(5)) == 1) {
	20	$socket->recv($recieved_data,1024);
cdcb9659	21	select(undef, undef, undef, 0.5);
f77cff22 JH	22	print "received: $recieved_data\n";
f77cff22 JH	23	}