#!/bin/sh

export STAT_SERVER="/tmp/ctasd.stats"

perl -e '
        use IO::Socket;
        use IO::Socket::UNIX;
        use IO::Select;
	use Socket;
        my $client = new IO::Socket::UNIX(Type => SOCK_DGRAM, Blocking => 0, Proto => AF_UNIX) or
                die "failed to create client socket. $!";

	my $client_sock = "/tmp/.stats_all"."_$$.sock";
	unlink $client_sock;
	my $client_addr = sockaddr_un($client_sock);
	$client->bind($client_addr) or die "failed to bind client socket. $!";
	chmod 666,$client_sock;

        my $server_addr = sockaddr_un($ENV{STAT_SERVER});
	$client->send ("getall",0,$server_addr) or die "failed to send to server_socket $!";
	my $sel = new IO::Select $client;
	$sel->can_read(5) or die "timeout waiting for server"; 
	$client->recv ($s, 100000);
	print $s;
'

