sub ices_get_next {
use DBI;

my $dsn = 'DBI:mysql:music:localhost';
my $db_user_name = 'root';
my $db_password = '123456';
my ($id, $password);
my $dbh = DBI->connect($dsn, $db_user_name, $db_password);

	$sql="SELECT `time` FROM `ps_timeline` WHERE `farmId`='1'"; # в строке time записан сколько раз будем подключать рекламы  в одном часе, например там 4
    $qu=$dbh->Query($sql); #запрос
    @arr=$qu->FetchRow; # массив
    
    print "Perl subsystem quering for new track:\n"; # не знаю для чего

    $time=0;
    @time_arr="";
    for($i=0;$i<$arr[0];$i++){ #$arr[0] ровно 4
        $chas=60 / $arr[0]; # 60 / 4 = 15
        $time += $chas; # 15 потом 30 потом 45 потом 60
        $time_arr[$i] = $time - 5; # снимаем 5 чтобы получилось от 10 до 15, от 25 до 30
    }
    
    use Time::localtime;
    $tm = localtime;
    $min = $tm->min; #получаем текущий минут
      if(@time_arr[$min]!=""){ # проверяем если в массиве $time_arr есть текущий минута то есть не пустой  подключаем рекламы
        @music=`/bin/ls -1 /music/music.mp3`; 
    }
    else{ # если нет то музыку
        @music=`/bin/ls -1 /music/music.mp3`;
    }
    $num = scalar (@music);
    $play=int(rand($num));
    chomp $music[0];
    return $music[0];
}