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

Perl скрипт ices

Вадим @tayler882

14.01.2012

Вот нашел скрипт perl для ices, подключается к БД и выбирает трек с id=1. Поможете дописать чтобы треки играли по очереди, например: id=1, id=2 и т.д.

 
 
 sub ices_shutdown {
 print "Perl subsystem shutting down:\n";
 }
 
 sub ices_get_next {
 
 use DBI;
 use DBD::mysql;
 $dbh = DBI->connect('DBI:mysql:ices;host=localhost', 'юзверь', 'пасс'
 ) || die "Could not connect to database: $DBI::errstr";
 $sth = $dbh->prepare('SELECT filename FROM mp_id3_tags WHERE id=1');
 $sth->execute();
 $result = $sth->fetchrow_hashref();
 print "Value returned: $result->{filename}\n";
 return $result->{filename};
 
 $dbh->disconnect();
 }
 
 # If defined, the return value is used for title streaming (metadata)
 sub ices_get_metadata {
 
 use DBI;
 use DBD::mysql;
 $dbh = DBI->connect('DBI:mysql:ices;host=localhost', 'юзверь', 'пасс'
 ) || die "Could not connect to database: $DBI::errstr";
 $sth = $dbh->prepare('SELECT filename FROM mp_id3_tags WHERE id=1');
 $sth->execute();
 $result = $sth->fetchrow_hashref();
 print "Value returned: $result->{filename}\n";
 return $result->{name};
 
 $dbh->disconnect();
 
 #return "Artist - Title (Album, Year)";
 }
 
 
 
 
 sub ices_get_lineno {
 return 1;
 }
 
 return 1;

6245

Тарас @tarasian666

14.01.2012

WHERE id= $id

$id++;

Вадим @tayler882

14.01.2012

Спасибо.

Согласие на обработку данных на нашем сайте
Продолжая просматривать страницу, вы соглашаетесь с использованием файлов «Cookie» и с Политикой конфиденциальности «Privacy».
Наверху или внизу страницы вы можете изменить валюту и язык по умолчанию. Английская версия сайта ещё находится в доработке и доступна не полностью.