Форум программистов
 
Расширенный поиск
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Скриптовые языки программирования > Perl
Регистрация

Восстановить пароль
Повторная активизация e-mail

Excel VBA, CAD, Софт, ОС, Windows, Ubuntu, Android, VPS
Win Api, Assembler, C++, Java, Pascal, Lazarus, Delphi, OpenGL, DirectX
C#, Qt, .NET, ASP.NET, Windows Forms, ADO.NET, Framework, WPF, UWP, WinRT, XAML
HTML, CSS, JavaScript, Ajax, PHP, Perl, Python, Ruby, SQL, WordPress, API, XML, JSON, ActionScript, Flash

Ответ
 
Опции темы
Старый 26.02.2012, 20:08   #1
ev0lution
Новичок
 
Регистрация: 26.02.2012
Сообщений: 1
Репутация: 10
По умолчанию Cron + Perl + IceCast2

Вообщем ретранслирую Радио. Надо чтобы каждые секунд 15-30 (с помощью Cron) бралось название трека отсюда: (http://radiorecord.ru/script/record.txt) И обновлялось на IceCast2 (т.е Update Metadata).

Нашел скрипт в интернете:

Цитата:
#!/usr/bin/perl
# Version 0.05

use strict;
use LWP;
use Time::HiRes qw(gettimeofday);

my $mount = 'Radio_Record';
my $icecast_addr = '192.168.0.1';
my $icecast_port = 8000;
my $icecast_password = 'ваш_пароль_от_admin';

my $browser = LWP::UserAgent->new;
$browser->timeout ( 5 );
$browser->credentials ( "$icecast_addr:$icecast_port", 'Icecast2 Server', 'admin' => $icecast_password );

for ( my $i = 0; $i <= 3; $i++ ) {
my $time = gettimeofday ();
my $title = 'Radio Record';
my $response = $browser->get ( 'http://radiorecord.ru/script/record.txt' );
if ( $response->is_success ) {
$response->content =~ /:\s(.*)/;
if ( my ( $artist, $song ) = $1 =~ /(.*?)\s\xE2\x80\x94\s(.*)/ ) {
$artist =~ s/<[\/]?strong>//g;
$artist =~ s/([^,\.\/]*), ([^,\.\/]*)/$2 $1/g;
$title = "$artist - $song";
} elsif ( my ( $artist, $song ) = $1 =~ /(.*?)\s-\s?(.*)/ ) {
$artist =~ s/([^,\.\/]*), ([^,\.\/]*)/$2 $1/g;
$title = "$artist - $song";
} else {
$title .= ' - ' . $1;
}
$title =~ s/<[\/]?a[^>]*>//g;
$title =~ s/\xD0\x94\xD0\xB8\x2D\xD0\x94\xD0\xB 6\xD0\xB5\xD0\xB9/DJ/g;
$title =~ s/\[ampersand\]amp;/&/g;
}
$title =~ s/(.)/ sprintf ( "%%%02X", ord ( $1 ) ) /ge;
$response = $browser->get ( "http://$icecast_addr:$icecast_port/admin/metadata.xsl?song=/admin/metadata.xsl?song=$title&mount=/$mount&mode=updinfo" );
my $delta = gettimeofday () - $time;
sleep ( 15 - int( $delta + .5 * ( $delta <=> 0 ) ) );
}
Но почему то мне не запустить этот скрипт на своём сервере...
Сервер VDS. ОС: Debian.

Помогите плз, как правильно настроить Cron ?
ev0lution вне форума   Ответить с цитированием
Старый 02.03.2012, 15:11   #2
ssdm
Участник клуба
 
Регистрация: 20.05.2009
Адрес: СПб
Сообщений: 506
Репутация: 90

icq: 212307232
По умолчанию

Цитата:
Но почему то мне не запустить этот скрипт на своём сервере...
Какие ошибки выдает ?
ssdm вне форума   Ответить с цитированием
Ответ



Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вакансии REG.RU: программист Perl и ведущий разработчик (Perl) REG.RU Работа на постоянной основе 0 20.12.2011 19:57
Требуется web-программист (perl или php, готовый переучиться на perl). офис в Казани uCoz Работа на постоянной основе 0 20.01.2011 19:03
возникла проблема cron + множество id webber9989 PHP 3 01.11.2010 17:44
Скрипт мониторинга web сайтов php+cron и т.д. webber9989 Фриланс 1 29.06.2010 08:05
php (cron), скрипт записи файла. oleg17 Помощь студентам 0 17.11.2009 19:17




04:07.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

купить трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru