set filesdir "arhiv/system"
####################################################################################################
bind pub - !get getfile
proc getfile {nick uhost hand argv} {
global filesdir
foreach chan [channels] {
if [onchan $nick $chan] {
putserv "NOTICE @$chan :Beginning DCC Send to $nick ($argv)"
}
}
dccsend $argv $nick
}
####################################################################################################
bind pub - !getlist pub:getlist
proc pub:getlist {nick uhost handle chan arg} {
global filesdir
if {$arg != ""} { set cdir $filesdir/$arg } else { set cdir $filesdir }
set tdir [pwd]
cd $cdir
foreach fil "[glob *]" {
if {[file isdirectory $fil]} { puthelp "NOTICE $nick :$arg/$fil" }
if {[file isfile $fil]} { puthelp "NOTICE $nick :$arg/$fil (size: [file size $fil] bytes)" }
}
puthelp "NOTICE $nick :end of getlist!"
cd $tdir
}
It's my DCC bot's code. When I want to see the list of files for downloading all well, but when I want download what or the file that is written to me here this inscription Tcl error [getfile]: wrong * args: should be " getfile nick uhost hand argv " I do not understand in what business. You could not help me. What code should be, that the boat sent a file to the user which requests a file?
P.S. I very need it ! Sorry for bad English, I'm russian ;-{
After I have inserted your code. After a spelling of a command! get everyone receive in privat such line DCCSEND games/Quake 3/Quake III Arena.rar spooki! But the file is not sent. How to make that a file it was sent the user, instead of the inscription at all in private was written, what for a file is sent?!
Using eggdrop as a file server can be a complicated process. There is already an excellent script wriiten that might make everything easier for you. You can download jIRCoff here.
Hope this helps.
Add [SOLVED] to the thread title if your issue has been. Search | FAQ | RTM