From 85e6fe838fb25b257a1b363debf8691c0992ef71 Mon Sep 17 00:00:00 2001 From: Larry Wall Date: Wed, 4 May 1994 23:00:00 +0000 Subject: perl 5.0 alpha 9 [editor's note: the sparc executables have not been included, and emacs backup files have been removed] --- server | 27 --------------------------- 1 file changed, 27 deletions(-) delete mode 100755 server (limited to 'server') diff --git a/server b/server deleted file mode 100755 index 49a140a4c2..0000000000 --- a/server +++ /dev/null @@ -1,27 +0,0 @@ -#!./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 () { - print; - print NS; - } -} -- cgit v1.2.1