Whamcloud - gitweb
LU-6142 tests: Fix style issues for statmany.c
[fs/lustre-release.git] / 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;