DCC file transfer script

2021-09-03T02:52:26-04:00

I think the getfiles* doesn't return exactly what is needed, probably you must change it with a glob

* a list of files in the directory given; the directory is relative to dcc-path

Statistics: Posted by CrazyCat — Fri Sep 03, 2021 2:52 am

DCC file transfer script

2021-09-02T21:22:28-04:00

Hiya, so i found this old script from this forum made by CrazyCat back in 2004(old ikr?), however i can't get it to work, here's the code

Code:

set mypath "/home/computertech/tech/filesys/foo/"set myfile [getfiles $mypath]bind pub - !list ftp:listbind pub - !send ftp:sendproc ftp:list { nick uhost handle chan args } {global myfileputserv "privmsg $nick :type !send "putserv "privmsg $nick :with  in $myfile"}proc ftp:send {nick uhost handle chan args} {set file [concat $::mypath [lindex $args 0]]if {![file exists $file] } {putserv "privmsg $nick :This file doesn't exist"return 0} else {dccsend $file $nick}}

From this Page

And i get this when i do !list

Code:

18 type !send 18 with  in

Thanks in advanced

Statistics: Posted by ComputerTech — Thu Sep 02, 2021 9:22 pm

egghelp/eggheads community

DCC file transfer script

DCC file transfer script