Хотелось бы чтоб на отдельные каналы, отдельные файлы читал и все строки. тут я пробовал токо 1 строку читал.
Заранее Спасибо!!!
# Биндим паблик команду.
bind pub - !проба proba
# Начинаем процедуру, срабатывающую на бинд.
proc proba {nick uhost hand chan text} {
# Имя <span class="posthilit">файла</span> который будем читать.
set fname "data/proba.dat"
# Открываем доступ к файлу для чтения (мы не ловим ошибки, однако
# можно использовать catch {} в случае если файл отсутствует.
set fp [open $fname "r"]
# Тут мы считываем все данные <span class="posthilit">из</span> <span class="posthilit">файла</span>.
set data [read -nonewline $fp]
# Закрываем файл.
close $fp
# Теперь разбиваем данные на отдельные строки.
set lines [split $data "\n"]
# Пишем в канал эту строку.
putserv "PRIVMSG $nick :$data"
# Процедура закончена.
}
