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 | } |