MainRadiotalkCustom
Технологии вещания, софт, скрипты
4   •   Посмотреть все темы

Графическая статистика для Radio Toolbox (Windows)

 

1572
KyPIIaToB @KyPIIaToB
Иметься: старая машина под виндой на которой вертится Sam, Icecast, и апачь для малых нужд.

Задача: требуется собирать статистику по часам, суткам и т.д.

Условия: варианты с cacti и mrtg не подходят по причине крайне малого оставшегося машинного ресурса.

Решение:
Найдена и заюзана программа Radio Toolbox, она мониторит и ведет логи по всем необходимым потокам (в нашем случае три), логи имеют вид: 03_10_2009_rtb_log.txt

Используем два php скрипта, один простой, другой повеселее.

1. для перевода логов RTB в что нибудь попроще.

$file_name='C:/Radio Toolbox/logs/' .$m .'_' .$d. '_' .$y. '_rtb_log.txt';
//директория хранениея логов Radio Toolbox с выборкой нужной даты
$r=fopen($file_name,'r');
$text=fread($r,filesize($file_name));
fclose($r);
$massiv=explode("\r\n", $text);
foreach ($massiv as $txt) {
$h = substr($txt,12,2);
$h=$h*1;
$temp=explode(" ", $txt);
$l[$h]=$l[$h]+$temp[1];
$s[$h]=$s[$h]+1;
}
$txtout='<?php'."\r\n";
for ($i=0; $i<=23; $i++) {
$txtout=$txtout. '$ls[]=' .$l[$i]. '; $kz[]=' .$s[$i]. ";\r\n";

}
$txtout=$txtout.'?>';
//запись в файл
$fp = fopen ("C:/listens/".$y.$m.$d.".dat", "w");
fwrite($fp,$txtout);
fclose($fp);
?>

данный скрипт запускаем после полуночи (когда начинает вестись лог на новый день)
php toBD.php (или диспетчером задач или crontab)

в итоге у нас получается файл 20010310.dat
обыкновенный текстовик формата

<?php
$ls[]=165; $kz[]=120;
<sciped>
$ls[]=360; $kz[]=120;
?>

всего в файле 24 записе (по 1 на час), первое значение сумма слушателей зарегенных в логах за час, второе количество замеров, т.е. среднее в час, это сумма/замеры

2. вывод статистики, более сложный и веселый

<?php
$kratnost=5; //кратность графика
$font="ariblk.ttf";
//имя шрифта
$dir='C:/*.dat';
//путь к файлам БД =)
$y=$_GET['y'];
$m=$_GET['m'];
$d=$_GET['d'];
$in=$_GET['in'];
$t=$_GET['t'];
if ($y<2009) {$y=date("Y",time()-86500);}
if ($y>2038) {$y=date("Y",time()-86500);}
if ($m<1) {$m=date("m",time()-86500);}
if ($m>12) {$m=date("m",time()-86500);}
if ($d<1) {$d=date("d",time()-86500);}
if ($d>31) {$d=date("d",time()-86500);}
if ($in==0) {$in=1;}
if ($in<0) {$in=1;}
if ($in>3) {$in=1;}
if ($t<1) {$t=1;}
if ($t>3) {$t=1;}
if ($t==1 && $in>2) {$in=2;}
if ($t==2 && $in<2) {$in=2;}
if ($t==3 && $in<3) {$in=3;}
$d=substr("0000" .$d,-2,2);
$m=substr("0000" .$m,-2,2);
if ($in==1) {
$d1=$y.$m.$d;
$d2=$y.$m.$d;
}
if ($in==2) {
$d1=$y.$m."01";
$d2=$y.$m."31";
}
if ($in==3) {
$d1=$y."0101";
$d2=$y."1231";
}
$d1=$d1*1;
$d2=$d2*1;
if ($t<0) {$t=1;}
if ($t>3) {$t=1;}
$mass=glob($dir);
$x=0;
$td=0;
$pem=0;
$nachalo=mktime(0,0,0,substr($d1,4,2),substr($d1,6,2),substr($d1,0,4));
//обработка БД согласно вводным
foreach ($mass as $filename){
$locfile= substr($filename,-12,8);
$locfile=$locfile*1;
if ($locfile >=$d1 && $locfile <=$d2) {
$tm=1*substr($filename,-8,2);
if ($pem==0) {$pem=1;$pm=$tm;}
if ($t==3 && $pm<>$tm) {
$pm=$tm;
$l[$td]=array_sum($ls);
$s[$td]=array_sum($kz);
$ls='';
$kz='';
$td=$td+1;
}
include($filename);
if ($t==2) {
$l[$td]=array_sum($ls);
$s[$td]=array_sum($kz);
$ls='';
$kz='';
$td=$td+1;
}

}
}
if ($t==1) {
$name="hours";
$l=$ls;
$s=$kz;

}
if ($t==2) {
$name="days";
}
if ($t==3) {
$name="months";
if ($t==3) {
$l[$td]=array_sum($ls);
$s[$td]=array_sum($kz);
}
}
$k=sizeof($l);
$vivod=0;
if (array_sum($l)==0) {$vivod=2;}
if ($k==0) {$vivod=1;}
$vis=0;
for ($i=0;$i<$k;$i++){
$r=$l[$i]/$s[$i];
if ($vis<$r) {$vis=$r;}
}
$vt=250;
$vis=$kratnost*ceil($vis/$kratnost);
if ($t==1 && $in==2) {$vt=300;}
if ($t==2 && $in==3) {$vt=300;}
//генерация графика
header("Content-type: image/png");
$image = imageCreate(800, $vt);
$colorback = imageColorAllocate($image, 0, 0, 0);
$color1 = imageColorAllocate($image, 211, 211, 211);
$color2 = imageColorAllocate($image, 250, 250, 220);
imageFilledRectangle($image, 0, 0, 99, 99, $colorback);
imageLine($image,30,10,30, 240,$color2);
$max=$k;
if ($vivod==0) {
if ($t==1 && $in==1) {$max=23;}
if ($t==1 && $in==2) {$max=24*(date("t",$nachalo)-1);}
if ($t==2 && $in==2) {$max=date("t",$nachalo)-1;}
if ($t==2 && $in==3) {$max=365;}
if ($t==3 && $in==3) {$max=11;}
$sh=750/($max+1);
$vd=round($vis);
$st=0;
if ($vis==0) {$rp=20;$st=1;}
if ($vis<>0) {
$rp=200*$st/$vis;
while ($rp<10) {
$st=$st+$kratnost;
$rp=200*$st/$vis;
}
}
$i=0;
while ($i<=$vd) {
$v=200*$i/$vis;
$bbox=imagettfbbox(6, 0, $font, $i);
imageLine($image,20,229-$v,780, 229-$v,$color2);
imagettftext ($image, 6, 0, 30-$bbox[2]-3, 229-$v-2, $color2, $font,$i);
$i=$i+$st;
}
for ($i=0;$i<$k;$i++){
$r=$l[$i]/$s[$i];
$v=200*$r/$vis;
$nc=$i+1;
if ($t==1) {$nc=$i;}
imageFilledRectangle($image, 31+$sh*$i, 229-$v, 29+$sh*($i+1), 229, $color1);
$bbox=imagettfbbox(6, 0, $font, $i);
}

$st=1;$oo=1;$u=0;
if ($t==1 && $in==2) {$st=24;$oo=0;$u=-90;}
if ($t==2 && $in==3) {$st=30;$oo=0;$u=-90;}
$rp=750*$st/$max;
while ($rp<10) {
$st=$st+1;
$rp=200*$sh;
}
$i=0;

while ($i<=$max) {
$v=750*$i/$max;
$io=$i;
if ($t<>1) {$io=$i+1;}
if ($t==1 && $in==2) {$io=date("d-M",$nachalo+3600*$i);}
if ($t==2 && $in==3) {$io=date("M",$nachalo+24*3600*$i);}
if ($t==3) {$io=date("M",$nachalo+31*24*3600*$i);}
if ($i<>0) {imagettftext ($image, 6, $u, 31+$sh+$sh*$i-$sh/2-$bbox[2]/2, 240-$bbox[3]/2, $color2, $font,$io);}
if ($i==0 && $oo==1) {imagettftext ($image, 6, $u, 31+$sh+$sh*$i-$sh/2-$bbox[2]/2, 240-$bbox[3]/2, $color2, $font,$io);}
$i=$i+$st;
}
}
if ($vivod==1) {imagettftext ($image, 20, 0, 175, 150, $color1, $font,"NOT DATA IN STORAGE");}
if ($vivod==2) {imagettftext ($image, 20, 0, 260, 150, $color1, $font,"Not Listens");}
$dati=substr($d1,0,4).":".substr($d1,4,2).":".substr($d1,6,2)."-".substr($d2,0,4).":".substr($d2,4,2).":".substr($d2,6,2)." (" . date("T",$nachalo). ")";
if ($d1==$d2) {$dati=substr($d1,0,4).":".substr($d1,4,2).":".substr($d1,6,2)." (" . date("T",$nachalo). ")";}
imagettftext ($image, 8, 0, 40, 10, $color2, $font,$dati);
imagettftext ($image, 6, 0, 760, 10, $color2, $font,'V.2.9');
imagettftext ($image, 6, 0, 2, 247, $color2, $font,$name);
imageInterlace($image, 1);
imagepng($image);
?>

Переменные, которые можно передать скрипту
d - день
m - месяц
y - год
t - тип графика (1-по часам, 2- по дням, 3 - по месяцам)
in - период графика (1 - день, 2 - месяц, 3 - год)
т.е. можно укозать скрипту данные на которое отображать, шаг графика и период
так например:
script.php?d=8&m=3&y=2009&t=1&in=1 отразит статистику за 8 марта 2009 по часам.
script.php?y=2009&t=3&in=3 отразит статистику за 2009 год по месяцам
неуказанные данные принимаются по умолчанию: текущая дата, по часам за сутки
В целях не загромождения графика ограничения в комбинациях периода и шага (для часов, только за сутки и месяц, для дней, только за месяц и год, для месяца, только за год)

Результат работы: **********

Аспекты: так как код и так довольно громоздок, дни когда логи не велись (с 1 января 2009 года, по 7 марта 2009 года) созданы "пустые" файлы:

<?php
$ls[]=0; $kz[]=120;
<sciped>
$ls[]=0; $kz[]=120;
?>

Заглушки: при запросе данных, которых нет в БД или только "пустые"записи, выдается соответствующее предупреждение.

Плюсы:
1. вторая версия скрипта (та что представлена выше) довольна шустра и имеет потенциал развития (например отображение графика по минутам, но в этом случае целесообразно для "поминутных" записей хранить в отдельной БД.
2. оно работает.

Минусы:
1. Статистика только раньше текущих суток.
2. отображение "средних" показателей

Скрипт от Klef

Отредактировано KyPIIaToB - 22.05.2011