[perl5.git] / server

#!./perl

$pat = 'S n C4 x8';
$inet = 2;
$echo = 7;
$smtp = 25;
$nntp = 119;

$this = pack($pat,$inet,2345, 0,0,0,0);
select(NS); $| = 1; select(stdout);

if (socket(S,2,1,6)) { print "socket ok\n"; } else { die $!; }
if (bind(S,$this)) { print "bind ok\n"; } else { die $!; }
if (listen(S,5)) { print "listen ok\n"; } else { die $!; }
for (;;) {
    print "Listening again\n";
    if ($addr = accept(NS,S)) { print "accept ok\n"; } else { die $!; }

    @ary = unpack($pat,$addr);
    $, = ' ';
    print @ary; print "\n";

    while (<NS>) {
	print;
	print NS;
    }
}
Commit	Line	Data
a687059c LW	1	#!./perl
	2
	3	$pat = 'S n C4 x8';
	4	$inet = 2;
	5	$echo = 7;
	6	$smtp = 25;
	7	$nntp = 119;
	8
	9	$this = pack($pat,$inet,2345, 0,0,0,0);
	10	select(NS); $\| = 1; select(stdout);
	11
	12	if (socket(S,2,1,6)) { print "socket ok\n"; } else { die $!; }
	13	if (bind(S,$this)) { print "bind ok\n"; } else { die $!; }
	14	if (listen(S,5)) { print "listen ok\n"; } else { die $!; }
	15	for (;;) {
	16	print "Listening again\n";
	17	if ($addr = accept(NS,S)) { print "accept ok\n"; } else { die $!; }
	18
	19	@ary = unpack($pat,$addr);
	20	$, = ' ';
	21	print @ary; print "\n";
	22
	23	while (<NS>) {
	24	print;
	25	print NS;
	26	}
	27	}