DocServ 0.3-rc1. lyrics-скрипт для Eggdrop

Скрипт для Eggdrop, который умел по запросу выдать список файлов или какой-нибудь конкретный текстовый файл. Пытался сделать канал, где можно было получить по запросу лириксы на конкретный альбом исполнителя.
Как обычно, ни к чему это не привело. Остался скрипт =)

bind join — *         join:msg_welcome
bind pub — «!get»    txt:get
bind msg — «get»    txt:get
bind pub — «!getdcc»    dcc:get
bind msg — «getdcc»    dcc:get
set botnick
set DS_ver «0.3-rc1 Tue May 11 18:40:02 2004»
set welcome «Type ‘!get help’ (without quotes!) for getting more information.»
set our_channels «#phobos.talk #lyr»
set sharedir «/home/mef/lyr/»
set nafile «File not available. Type ‘!get list’ for getting lastest filelist.»
proc join:msg_welcome {nick host hand chan} {
global botnick our_channels welcome
if { [lsearch $our_channels $chan] == -1} { return 0 }
puthelp «NOTICE $nick :$welcome»
return 1
}
proc dcc:get {nick uhost hand chan file} {
global our_channels nafile sharedir
if { [lsearch $our_channels $chan] == -1 } then { return 0 }
if { [dccsend $sharedir/$file $nick] != 0 } {
dccsend $sharedir/$file $nick }
putlog «DocServ dcc $file -> $nick»
puthelp «NOTICE $nick :Sending $file to you..»
dccsend $file $nick
return 1
}
proc txt:get {nick uhost hand chan file} {
set file [lindex $file 0] global our_channels nafile sharedir
if { [lsearch $our_channels $chan] == -1 } { return 0 }
set end_file 0
if { [file exist $sharedir/$file] } {
set open_file [open $sharedir/$file r] } else { puthelp «NOTICE $nick :$nafile» }
putlog «DocServ txt $file -> $nick»
while { ![eof $open_file] } {
gets $open_file line
puthelp «PRIVMSG $nick :$line»
set end_file 1
}
close $open_file
return 1
}
putlog «DocServ $DS_ver by mef@RusNet <[email protected]> «