|
|
ru.cgi.perl- RU.CGI.PERL ------------------------------------------------------------------ From : Sergey Smagin 2:5054/60 13 May 2002 21:50:27 To : Alexey Fomin Subject : Звук -------------------------------------------------------------------------------- 09 Май 02 23:13, Alexey Fomin wrote to All: AF> Имеется скрипт чата, требуется прикрутить к нему такую фишку чтобы при AF> входе нового юзверя подавался звуковой сигнал (или проигрывался аудио AF> файл). AF> Хочется поглядеть на кусок скрипта который может всё выше сказанное. Сначала уясни как это будет происходить. Я бы рефрешил фрейм с юзерами примерно так: /cgi-bin/update.pl?last_user_count=20 Если сервер насчитывает более 20 юзеров в списке, который он вернет юзеру, то сервер дописывает соответствующий код для проигрывания файла. И собственно твоя задача заключается в том, чтобы сравнить текущее кол-во юзеров перед отправкой списка к клиенту и полученное от клиента коли-во юзеров. А это есть $sth->numrows; и param('last_user_count'); соответственно. Hу, а дальше, я думаю, ты справишься :) Hе забудь про use CGI qw(:standard); use DBI; Такая реализация не даст юзера долбиться в уши, если в чат зайдет десять человек одновременно, также, не допустит дублирования сигналов. (а при желании, можно в ручную запрашивать с меньшим кол-вом юзеров, если кому-то звук понравился :) Sergey (www.domainpoint.by.ru) Заходи в чат на http://pchat.perm.ru --- MP3: Eros Ramazzotti - Amica Donna Mia - * Origin: 1249 days Fidonet available (2:5054/60) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.cgi.perl/18243cdff01f.html, оценка из 5, голосов 10
|