28 lines
571 B
Perl
28 lines
571 B
Perl
#!./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;
|
|
}
|
|
}
|