egghelp/eggheads community

DCC send

2004-05-26T20:23:46-04:00

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.

Statistics: Posted by Alchera — Wed May 26, 2004 8:23 pm

DCC send

2004-05-26T16:43:06-04:00

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?!

Statistics: Posted by Guest — Wed May 26, 2004 4:43 pm

DCC send

2004-05-26T13:47:43-04:00

Here's the fixed code:

Code:

bind pub - !get getfile proc getfile {nick uhost hand chan argv} { global filesdir foreach chan [channels] { if [onchan $nick $chan] { putserv "NOTICE @$chan :Beginning DCC Send to $nick ($argv)" } } putserv "PRIVMSG $nick :\001DCCSEND\001 $argv $nick"}

Note the addition of "chan" in the arguments passed to the proc. Also note the format of the "dccsend" command.

Statistics: Posted by Alchera — Wed May 26, 2004 1:47 pm

DCC send

2004-05-26T10:08:04-04:00

Code:

set filesdir "arhiv/system"####################################################################################################bind pub - !get getfileproc getfile {nick uhost hand argv} {global filesdirforeach chan [channels] {if [onchan $nick $chan] {putserv "NOTICE @$chan :Beginning DCC Send to $nick ($argv)"}}dccsend $argv $nick}####################################################################################################bind pub - !getlist pub:getlistproc 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 ;-{

Statistics: Posted by Guest — Wed May 26, 2004 10:08 am