#!/usr/bin/perl

use strict;
use warnings;
use open ':std', ':encoding(UTF-8)';

use JSON::XS;
use FileHandle;
use Text::CSV::Easy(qw/csv_build csv_parse/);

use lib '/app/tools/common/lib';
use Common::Session;

eval {

    my $clients = Common::Session::getclients;

    foreach my $host ( sort keys %{ $clients->by_host } ) {
        my $dbh = Common::Session::getdbh($host);

        foreach my $client ( @{ $clients->by_host->{$host} } ) {
			next if $client->client_type ne 'RPS';
            my $dbname = $client->dbname;
            my $cnt    = ( $dbh->selectrow_array("SELECT COUNT(*) FROM $dbname.agg_sale_stage") )[0];
            my $line   = csv_build( ( $host, $dbname, $cnt ) );
            print "$line\n";
        }
    }
};
if ($@) {
    logMessage( 'error', $@ );
}