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 my $rc = fork();
  19 if ($rc > 0) { #parent
  20     exit();
  21 } elsif ($rc < 0) { # error
  22     logmsg "fork failed: $rc";
  23     exit();
  24 }
  25
  26 accept(Client,Server);
  27 logmsg "connection on $NAME";
  28 print Client "from server\n";
  29 close Client;