#!/bin/sh

CTIPD_SCRIPTSDIR=${CTIPD_SCRIPTSDIR:=`dirname $0`/..}
. $CTIPD_SCRIPTSDIR/ctipd-config $CTIPD_SCRIPTSDIR

get_value CTIPD_STATS_PORT stats port
export CTIPD_STATS_PORT

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 (0666, $client_sock);

        my $server_addr = sockaddr_un($ENV{CTIPD_STATS_PORT});
	$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;
'
