<?php include "max.php"; //обращению к файлу, где храниться зафиксированный максимум $xmlf[] = "http://adres:port/potok1.xspf"; $xmlf[] = "http://adres:port/potok2.xspf"; //прописываем потоки, сколько надо (пример "http://wasteland.spb.su:8080/radio.xspf") $i=0; //задаем первую позицию счетчика для цикла $kolpotok=sizeof($xmlf)-1; //определяем количество прописаных потоков по масиву (т.к. счет с нуля, то -1) $VIEWERS=0; //задаем нулевое значение счетчика слушателей while ($i <= $kolpotok) { $xml = simplexml_load_file($xmlf[$i]); //обращение к xspf файлу текущего потока $ano = $xml->trackList->track->annotation; //выбираем значение из <trackList><track><annotation> $mass=explode("\n", $ano); //разбиваем знаечение на масив (т.к. там много чего а нам надо тока строку "Current Listeners:") $kol=substr($mass[4],19); //строка "Current Listeners" есть 5 по счету (незабываем счет с нуля, т.к. это будет 4) и т.к. нам нужна тока цифорка, то начиная с 19 символа $i=$i+1; //шаг счетчика для цикла $VIEWERS=$VIEWERS+$kol; //прибавляем полученное количество слушателей по потоку к общему значению } if ($VIEWERS>$maxobserve) //проверяем текущее значение с зафиксированным максимум, если больше то записываем новое { $txtout='<?php'."\r\n"; $txtout=$txtout. '$maxobserve=' .$VIEWERS. ";\r\n"; $txtout=$txtout."\r\n".'?>'; //создаем переменную с текстом файла $fp = fopen ("путь к файлу/max.php", "w"); //открываем на запись файл, путь должен быть полным, например для виндовс "C:/www/stat/max.php" fwrite($fp,$txtout); //записываем файл fclose($fp); //не забываем закрыть его $maxobserve=$VIEWERS; //принимаем значение максимального на текущее значение } echo "listens: " . $VIEWERS . "<br>"; echo "max listens: " . $maxobserve . "<br>"; //выводим полученные значения ?>
<?php $ml=100; ?>
<?php $file_name='http://radio.nextrim.ru:8000/status2.xsl?mount=/anime.ogg'; $r=fopen($file_name,'r'); $text=fread($r,10000); fclose($r); $mass=explode(",", $text); echo $mass [14] ."<br>"; ?>
$file_name='http://ip:8080/status2.xsl'; $r=fopen($file_name,'r'); $text=fread($r,300); fclose($r); $mass=explode(",", $text); echo $mass [9] ."<br>";
<?php header ("Content-type: image/png"); $im = ImageCreateFromPng("blank.png"); $color = imagecolorallocate ($im, 255, 255, 255); imagettftext ($im, 6, 0, 20, 30, $color, "ft.ttf", "1"); imagettftext ($im, 14, 45, 20, 60, $color, "ft.ttf", "2"); imagettftext ($im, 14, 0, 20, 90, $color, "ft.ttf", "3"); imagettftext ($im, 14, 170, 45, 120, $color, "ft.ttf", "4"); imagepng ($im); imagedestroy ($im); ?>
<?php header ("Content-type: image/png"); $im = ImageCreateFromPng("blank.png"); $color = imagecolorallocate ($im, 255, 255, 255); $file_name='http://wasteland.spb.su:8080/status2.xsl'; $r=fopen($file_name,'r'); $text=fread($r,1000); fclose($r); $mass=explode(",", $text); $current="track".$mass [16]; imagettftext ($im, 6, 0, 15, 20, $color, "ft.ttf",$current); imagepng ($im); imagedestroy ($im); ?>
<?php header ("Content-type: image/png"); $im = ImageCreateFromPng("blank.png"); $color = imagecolorallocate ($im, 255, 255, 255); $file_name='http://wasteland.spb.su:8080/status2.xsl'; $r=fopen($file_name,'r'); $text=fread($r,1000); fclose($r); $mass=explode(",", $text); $current=$mass [16]; $cm=explode(" - ", $current); imagettftext ($im, 6, 0, 15, 20, $color, "ft.ttf","Artist: ".$cm[1]); imagettftext ($im, 6, 0, 15, 30, $color, "ft.ttf","Song: ".$cm[2]); imagepng ($im); imagedestroy ($im); ?>
<!--LOOP(queue,1)--> <!--LOOP_HEADER--> <!--LOOP_ROW--> $queue.artist$ $queue.combine$ $queue.title$ <!--LOOP_FOOTER--> <!--LOOP_END-->
Jimi Hendrix Jimi Hendrix - Pali Gap Pali Gap
<?php header ("Content-type: image/png"); $im = ImageCreateFromPng("blank.png"); $color = imagecolorallocate ($im, 255, 255, 255); $file_name='http://wasteland.spb.su:8080/status2.xsl'; $r=fopen($file_name,'r'); $text=fread($r,1000); fclose($r); $mass=explode(",", $text); $current=$mass [16]; $cm=explode(" - ", $current); $file_name='zago.php'; $r=fopen($file_name,'r'); $text=fread($r,filesize($file_name)); fclose($r); $mas=explode("\r\n", $text); imagettftext ($im, 6, 0, 15, 20, $color, "ft.ttf","Artist: ".$cm[1]); imagettftext ($im, 6, 0, 15, 30, $color, "ft.ttf","Song: ".$cm[2]); imagettftext ($im, 6, 0, 15, 40, $color, "ft.ttf","Next track: ".$mas[3]); imagettftext ($im, 6, 0, 15, 50, $color, "ft.ttf","Next artist: ".$mas[2]); imagettftext ($im, 6, 0, 15, 60, $color, "ft.ttf","Next song: ".$mas[4]); imagepng ($im); imagedestroy ($im); ?>
<?php header ("Content-type: image/png"); $im = ImageCreateFromPng("blank.png"); $color = imagecolorallocate ($im, 255, 255, 255); $file_name='http://wasteland.spb.su:8080/status2.xsl'; $r=fopen($file_name,'r'); $text=fread($r,1000); fclose($r); $mass=explode(",", $text); $current=$mass [16]; $listens=$mass [9]; $cm=explode(" - ", $current); $file_name='zago.php'; $r=fopen($file_name,'r'); $text=fread($r,filesize($file_name)); fclose($r); $mas=explode("\r\n", $text); imagettftext ($im, 6, 0, 15, 20, $color, "ft.ttf","Artist: ".$cm[1]); imagettftext ($im, 6, 0, 15, 30, $color, "ft.ttf","Song: ".$cm[2]); imagettftext ($im, 6, 0, 15, 40, $color, "ft.ttf","Next artist: ".$mas[2]); imagettftext ($im, 6, 0, 15, 50, $color, "ft.ttf","Next song: ".$mas[4]); imagettftext ($im, 6, 0, 15, 60, $color, "ft.ttf","Listns: ".$listens); imagepng ($im); imagedestroy ($im); ?>
<?php $ml=0; ?>
<?php header ("Content-type: image/png"); $im = ImageCreateFromPng("blank.png"); $color = imagecolorallocate ($im, 255, 255, 255); $file_name='http://wasteland.spb.su:8080/status2.xsl'; $r=fopen($file_name,'r'); $text=fread($r,1000); fclose($r); $mass=explode(",", $text); $current=$mass [16]; $listens=$mass [9]; $cm=explode(" - ", $current); include "max.php"; if ($listens>$max) { $txtout='<?php'."\r\n"; $txtout=$txtout. '$max=' .$listens. ";\r\n"; $txtout=$txtout."\r\n".'?>'; $fp = fopen ("max.php", "w"); fwrite($fp,$txtout); fclose($fp); $max=$listens; } $file_name='zago.php'; $r=fopen($file_name,'r'); $text=fread($r,filesize($file_name)); fclose($r); $mas=explode("\r\n", $text); imagettftext ($im, 6, 0, 15, 20, $color, "ft.ttf","Artist: ".$cm[1]); imagettftext ($im, 6, 0, 15, 30, $color, "ft.ttf","Song: ".$cm[2]); imagettftext ($im, 6, 0, 15, 40, $color, "ft.ttf","Next artist: ".$mas[2]); imagettftext ($im, 6, 0, 15, 50, $color, "ft.ttf","Next song: ".$mas[4]); imagettftext ($im, 6, 0, 15, 60, $color, "ft.ttf","Listns: ".$listens); imagettftext ($im, 6, 0, 15, 70, $color, "ft.ttf","Max listens: ".$max); imagepng ($im); imagedestroy ($im); ?>