file server script

2004-03-02T13:55:22-04:00

this script is just DCC sending a file.
So you can edit the name/path of each file, or use this script as an exemple.
Why don't try something like:

Code:

set mypath "/home/you/shared/"set myfile [getfiles $mypath]bind pub - !list ftp:listbind pub - !send ftp:sendproc ftp:list { nick uhost handle chan args } {   putserv "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   }}

I don't verify this code, but it may work

Statistics: Posted by CrazyCat — Tue Mar 02, 2004 1:55 pm

file server script

2004-03-02T07:06:41-04:00

I dl the file server tcl script but dunno how to edit.. Or it dun even need to edit?? Anyone can help?

This is the script:
bind pubm - "% !list" pub_list
bind pubm - "% !index" pub_index
bind pubm - "% !kickgate" pub_kickgate
bind pubm - "% !warftp" pub_warftp
bind pubm - "% !ircscript" pub_mirc
bind pubm - "% !webferret" pub_webferret
bind pubm - "% !amovie" pub_amovie

proc pub_list {nick uhost hand channel args} {
global botnick
putserv "PRIVMSG $channel :These are the files you can download from $botnick:"
putserv "PRIVMSG $channel :!index - !kickgate - !warftp"
putserv "PRIVMSG $channel :!ircscript - !webferret - !amovie"
}

proc pub_index {nick uhost hand channel args} {
dccsend /home/samba/index.txt $nick
}

proc pub_kickgate {nick uhost hand channel args} {
dccsend /home/samba/kickgate.tar $nick
}

proc pub_warftp {nick uhost hand channel args} {
dccsend /home/samba/warftp.exe $nick
}

proc pub_mirc {nick uhost hand channel args} {
dccsend /home/samba/cmirc.zip $nick
}

proc pub_webferret {nick uhost hand channel args} {
dccsend /home/samba/webferret.exe $nick
}

proc pub_amovie {nick uhost hand channel args} {
dccsend /home/samba/Amovie.exe $nick
}

putlog "Fileserver By: Kim Andre Norheim"

Statistics: Posted by Guest — Tue Mar 02, 2004 7:06 am

egghelp/eggheads community

file server script

file server script