egghelp/eggheads community

need a TCL script plz help me!! ;(

2004-04-09T14:42:30-04:00

THX! I've put there filesys and transfer modules and it's working!! thx guys, you're perfect but still.. it would be very good to do that the script would send the file only one time because this will work on a LAN chat were are about 700 lame users who very dislike seeing the message 'dcc send file.txt' in their status window.. I've messed up trying to join those two scripts together

Statistics: Posted by hide — Fri Apr 09, 2004 2:42 pm

need a TCL script plz help me!! ;(

2004-04-09T14:03:06-04:00

Thouse are scripts not modules.. scroll a bit up! Drop the "/usr/share/" thing if the eggdrop is in the same dir as thouse files.

Statistics: Posted by caesar — Fri Apr 09, 2004 2:03 pm

need a TCL script plz help me!! ;(

2004-04-09T14:00:38-04:00

version of eggdrop is 1.6.8, loadable modules are here:
source /usr/share/eggdrop/scripts/alltools.tcl
source /usr/share/eggdrop/scripts/action.fix.tcl
source /usr/share/eggdrop/scripts/compat.tcl
source /usr/share/eggdrop/scripts/userinfo.tcl
source /usr/share/eggdrop/scripts/dcc.tcl
loadhelp /usr/share/eggdrop/help/userinfo.help

Statistics: Posted by hide — Fri Apr 09, 2004 2:00 pm

need a TCL script plz help me!! ;(

2004-04-09T13:06:48-04:00

Is that file system module loaded? What version of eggdrop and TCL you have? Also, haven't noticed the specific channel you want this to run on so replace this:

Code:

if {[isbotnick $nick]} {

with:

Code:

if {[isbotnick $nick] || ![string equal -nocase "#main" $chan]} {

Statistics: Posted by caesar — Fri Apr 09, 2004 1:06 pm

need a TCL script plz help me!! ;(

2004-04-09T12:58:55-04:00

but still.. I don't know why, but eggdrop doesn't understand the "dccsend" command

Statistics: Posted by hide — Fri Apr 09, 2004 12:58 pm

need a TCL script plz help me!! ;(

2004-04-09T12:48:50-04:00

What is the point on the while when he just asked for an ident match and send a file? Also, if you want to stop an while proc just use "break" or "continue" to continue with the loop. I honest do belive that this dcc send thing is not secure and I do not recomand you go only via idents matches. better make host masks matches or something similar. Anyway.. you wanted it so here it is.

Code:

set sendfile "myfile.txt" bind join - * join:sendproc join:send {nick uhost hand chan} {   if {[isbotnick $nick]} {    return  }  set ident [lindex [split $uhost @] 0]  if {![regexp -all {cht-v3.1|off} $ident]} {    return  }  dccsend $::sendfile $nick }

Also, be sure the file system is loaded.

Statistics: Posted by caesar — Fri Apr 09, 2004 12:48 pm

need a TCL script plz help me!! ;(

2004-04-09T11:26:37-04:00

I think I'm having problem: when a person joins, it claims: [19:07] TCL error [join:pub]: invalid command name "dccsend". What should I do? And the last my question is: I want to send the file only for people having ident "cht-v3.1" and "off" but not for all? Where can I set it?

Statistics: Posted by hide — Fri Apr 09, 2004 11:26 am

need a TCL script plz help me!! ;(

2004-04-09T10:40:19-04:00

Yeah, use this code:

Code:

set myfile "send.txt"bind join - * join:pubproc join:pub {nick host hand chan} {  global myfile  set read [open "myfile" r]  while {[gets $read line] != -1} {    if {[string equal -nocase "$line" "$nick"]} {      close $read      return 1    }  }  dccsend file.txt $nick  set file [open "$myfile" a]  puts $file "$nick"  close $file  close $read}

This will write the nicks in a txt file and won't send the file to a nick that is written in the file

Statistics: Posted by Xpert — Fri Apr 09, 2004 10:40 am

need a TCL script plz help me!! ;(

2004-04-09T09:51:58-04:00

well, any ideas how to do for bot not to send the file for the same user?

Statistics: Posted by hide — Fri Apr 09, 2004 9:51 am

need a TCL script plz help me!! ;(

2004-04-08T16:40:07-04:00

Code:

bind join - * join:pubproc join:pub {nick host hand chan} {  dccsend file.txt $nick}

this is just plain on join dccsend

Statistics: Posted by Ofloo — Thu Apr 08, 2004 4:40 pm

need a TCL script plz help me!! ;(

2004-04-05T16:11:37-04:00

absolutely right! If a user who has ident cht-v3.1 or off comes to channel main, bot sends him the file vkt.ini and puts his address into a listso if the same user comes to channel again, bot won't send him the file again.

Statistics: Posted by hide — Mon Apr 05, 2004 4:11 pm

need a TCL script plz help me!! ;(

2004-04-05T16:04:55-04:00

Am, dont know if i understood good.But this script works like this: If user comes on channel named #main bot send him file vtk.ini ?

Statistics: Posted by ]Kami[ — Mon Apr 05, 2004 4:04 pm

need a TCL script plz help me!! ;(

2004-04-05T16:00:01-04:00

Hi everybody!
We've have user a windows server before where ircd was running but now we upgraded to linux and I'm messed up. We used a mirc client acting as a bot which had only this single script:

ON 1:JOIN:#Main:{
if (( %send. [ $+ [ $address($nick,2) ] ] == $null ) && ( cht-v3.1 isin $address )) {
.dcc send -c $nick c:\vkt.ini
}
elseif (( %send. [ $+ [ $address($nick,2) ] ] == $null ) && ( off isin $address )) {
.dcc send -c $nick c:\vkt.ini
}
}
on 1:FILESENT:vkt.ini:/set %send. [ $+ [ $address($nick,2) ] ] sent

Could anybody of you rewrite this script into a tcl so it could run on eggdrop, please. I've tried to do it by myself but everything goes wrong because I'm lame at this. I need only this script, nothing more.. please help somebody. It would be glad to get off somebody a good responce. Thanks!

Statistics: Posted by hide — Mon Apr 05, 2004 4:00 pm