DCC file transfer script

[ComputerTech]

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: Select all

set mypath "/home/computertech/tech/filesys/foo/"
set myfile [getfiles $mypath]

bind pub - !list ftp:list
bind pub - !send ftp:send

proc ftp:list { nick uhost handle chan args } {
global myfile
	putserv "privmsg $nick :type !send <file>"
	putserv "privmsg $nick :with <file> 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: Select all

18<Tech> type !send <file>
18<Tech> with <file> in 

Thanks in advanced

[CrazyCat]

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