#!/usr/local/bin/perl -w 

# launched by crontab every 1 minute
# start all pollers groups

use strict;
use Sys::Syslog; 
use Sys::Syslog qw(:DEFAULT setlogsock);

my $conf_file="/usr/local/etc/netmagis.conf";
my $dir_bin="/usr/local/bin";

require "/usr/local/lib/netmagis/libmetro.pl";

my %config = read_global_conf_file($conf_file);

# get pollers groups
my @groupes = split(/,/,$config{pollergroups});

my $syslogfacility = $config{pollerlogfacility} ;

# log message for starting of pollers
writelog("metropoller-run", $syslogfacility, "info",
        "\t #######################################");

my $i;
for($i=0;$i<@groupes;$i++)
{
    # get number of process for each poller group member
    my $nb_process = $config{"gpnbproc_$groupes[$i]"};

    my $j;
    for($j=1;$j<=$nb_process;$j++)
    {
	if(system("$dir_bin/metropoller $groupes[$i] $j $nb_process &") == 0)
	{
		writelog("metropoller-run",$config{pollerlogfacility},"info",
        		"\t -> STARTING metropoller group '$groupes[$i]' process $j of $nb_process");
	}

	sleep(1);
    }
}
