lustre/tests/socketserver

   1 #! /usr/bin/perl -w
   2 use strict;
   3 use Socket;
   4
   5 BEGIN { $ENV{PATH} = '/usr/ucb:/bin' }
   6 sub logmsg { print "$0 $$: @_ at ", scalar localtime, "\n" }
   7
   8 my $NAME = <@ARGV>;
   9 my $uaddr = sockaddr_un($NAME);
  10
  11 socket(Server,AF_UNIX,SOCK_STREAM,0)    || die "socket: $!";
  12 unlink($NAME);
  13 bind  (Server, $uaddr)                  || die "bind: $!";
  14 listen(Server,SOMAXCONN)                        || die "listen: $!";
  15
  16 logmsg "server started on $NAME";
  17
  18 accept(Client,Server);
  19 logmsg "connection on $NAME";
  20 print Client "from server\n";
  21 close Client;