[perl5.git] / eg / client

#!./perl

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

$SIG{'INT'} = 'dokill';

$this = pack($pat,$inet,0,   128,149,13,43);
$that = pack($pat,$inet,$test,127,0,0,1);

if (socket(S,2,1,6)) { print "socket ok\n"; } else { die $!; }
if (bind(S,$this)) { print "bind ok\n"; } else { die $!; }
if (connect(S,$that)) { print "connect ok\n"; } else { die $!; }

select(S); $| = 1; select(stdout);

if ($child = fork) {
    while (<STDIN>) {
	print S;
    }
    sleep 3;
    do dokill();
}
else {
    while (<S>) {
	print;
    }
}

sub dokill { kill 9,$child if $child; }
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	$test = 2345;
	9
	10	$SIG{'INT'} = 'dokill';
	11
	12	$this = pack($pat,$inet,0, 128,149,13,43);
	13	$that = pack($pat,$inet,$test,127,0,0,1);
	14
	15	if (socket(S,2,1,6)) { print "socket ok\n"; } else { die $!; }
	16	if (bind(S,$this)) { print "bind ok\n"; } else { die $!; }
	17	if (connect(S,$that)) { print "connect ok\n"; } else { die $!; }
	18
	19	select(S); $\| = 1; select(stdout);
	20
	21	if ($child = fork) {
21d892ea	22	while (<STDIN>) {
a687059c LW	23	print S;
	24	}
	25	sleep 3;
	26	do dokill();
	27	}
	28	else {
	29	while (<S>) {
	30	print;
	31	}
	32	}
	33
	34	sub dokill { kill 9,$child if $child; }