diff options
Diffstat (limited to 'gnu/usr.bin/perl/eg/server')
-rw-r--r-- | gnu/usr.bin/perl/eg/server | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/gnu/usr.bin/perl/eg/server b/gnu/usr.bin/perl/eg/server new file mode 100644 index 0000000..49a140a --- /dev/null +++ b/gnu/usr.bin/perl/eg/server @@ -0,0 +1,27 @@ +#!./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; + } +} |