Автоматизация эфира: проигрывание свежих подкастов.

11.02.2008

Этот пхп-скрипт выводит плейлист треков, которые необходимо поставить в начале СЛЕДУЮЩЕГО за текущим часом.
Для интеграции с сэмом можно использовать функции WebToFile и Queue.AddList.

Скрипт написан в основном с одной целью: ставить свежие подкасты в эфир.

1. <?
2. error_reporting(E_NONE);
4. /*
5. скрипт возвращает список адресов, которые необходимо поставить после часовой отбивки.
6. Адреса хранятся в MySQL-таблице:
7. DROP TABLE IF EXISTS `local`.`timer`;
8. CREATE TABLE `local`.`timer` (
9. `time` int(10) unsigned NOT NULL default '0',
10. `name` varchar(512) NOT NULL,
11. `day` varchar(3) NOT NULL default '0',
12. `id` int(10) unsigned NOT NULL auto_increment,
13. `type` int(10) unsigned NOT NULL,
14. PRIMARY KEY (`id`)
15. ) ENGINE=InnoDB DEFAULT CHARSET=utf8 ROW_FORMAT=DYNAMIC;
16. поле time: порядковый номер часа (1-24), в который необходимо поставить файл
17. поле name: адрес файла (url или локальный)
18. поле day: трехбуквенное обозначения дня недели, в который ставить файл (или ALL, если каждый день)
19. поле id: номер записи :)
20. поле type: тип файла (0 - звуковой файл, 1 - rss-файл подкаста)
21. */
23. mysql_connect('host', 'user', 'pass');
24. mysql_select_db('database');
26. $day = date('D');
28. $time = date('G')+1;
29. $query = "SELECT * FROM `timer` WHERE (`time` = '$time' OR `time` = 0) AND (`day` = '$day' or `day` = 'ALL')";
30. $res = mysql_query($query) or die(mysql_error());
32. $ret = '';
33. while ($ln = mysql_fetch_array($res)) {
34. if ($ln['type'] == 1) {
35. $i = 0;
36. $rss = simplexml_load_file($ln['name']);
37. $urls = $rss->xpath('//enclosure');
38. $addr = (is_array($urls[$i]['url'])) ? $urls[$i++]['url'][0] : $urls[$i]['url'];
39. $i++;
40. while(($i < count($urls)) && (($url = checkUrl("$addr")) === false)) {
41. $addr = (is_array($urls[$i]['url'])) ? $urls[$i++]['url'][0] : $urls[$i]['url'];
42. $i++;
43. };
44. if ($url) {
45. if ($ret) $ret .= "\r\n".$url;
46. else $ret = $url;
47. }
48. } else {
49. if ($ln['name']) {
50. if ($ret) $ret .= "\r\n".$ln['name'];
51. else $ret = $ln['name'];
52. }
53. }
54. }
56. function checkUrl($url) {
57. if (stristr($url, '.mp3?')) $adr = array_shift(explode('.mp3?', $url)).'.mp3';
58. elseif(is_array($url)) $adr = $url[0];
59. else $adr = $url;
60. $headers = get_headers($adr, 1);
61. if (@isset($headers['Location'])) {
62. return checkUrl($headers['Location']);
63. }
64. if (@isset($headers['Content-Length']) && ($headers['Content-Length'] == 0)) return false;
65. if (@isset($headers['Content-Type']) && (!strstr($headers['Content-Type'], 'audio'))) return false;
66. return $adr;
67. }
69. echo $ret;
70. ?>

11.02.2008

Кстати, мысль: при помощи данного скрипта можно автоматически выводить в эфир диджеев по расписанию. Для этого достаточно в поле name в таблице указать ссылку на аудиопоток диджея (именно на поток, а не на плейлист!!! для IceCast эта ссылка выглядит так: ********** - БЕЗ .m3u!!!). Сэм сможет подключиться к этому потоку и начать его проигрывать.
Плюсы данного метода вывода диджеев в эфир:
- диджеи выходят по расписанию
- диджеи выводятся без артефактов в виде резкого переключения музыки.
- перед выходом диджея в эфир можно поставить джингл, открывающий его программу (для этого нужно немного изменить sql-запрос в скрипте, дописав к нему " ORDER BY `id`").
- если диджея не оказалось в эфире, то сэм это учтет и сразу начнет проигрывать следующий трек.

12.02.2008

Спасибо, будет время - потестим.