Whamcloud - gitweb
LU-9485 test: revert a change from LU-5361
[fs/lustre-release.git] / lustre / tests / socketclient
1 #!/usr/bin/perl -w
2 use Socket;
3 use strict;
4 my ($rendezvous, $line);
5
6 $rendezvous = shift || <@ARGV>;
7 socket(SOCK, AF_UNIX, SOCK_STREAM, 0)   || die "socket: $!";
8 connect(SOCK, sockaddr_un($rendezvous)) || die "connect: $!";
9 while (defined($line = <SOCK>)) {
10         print $line;
11 }
12 exit;