egghelp/eggheads community

merge 2 TCLs into one

2005-01-06T05:32:29-04:00

Thanks a lot again!! It works perfectly.

Statistics: Posted by hide — Thu Jan 06, 2005 5:32 am

merge 2 TCLs into one

2005-01-03T22:03:20-04:00

Code:

set sent {} set file /some/file set save /some/savefile bind join - * myjoin bind time - "% % % % %" mysave bind sent - * mysentif ![catch {set f [open $save]}] {   while {![eof $f]} {lappend sent [gets $f]}   close $f } proc myjoin {n u h c} {   scan $u %\[^@\]@%s user host   if [regexp ^~?(cht-v3\\.1|off)$ $user] {     set host [string tolower $host]     if {[lsearch $::sent $host] == -1} {       dccsend $::file $n     }   } } proc mysent {h n p} {  scan [getchanhost $n] %\[^@\]@%s user host   set host [string tolower $host]   lappend ::sent $host}proc mysave {m h d mn y} {   set f [open $::save w]   foreach h $::sent {puts $f $h}   close $f }

Statistics: Posted by demond — Mon Jan 03, 2005 10:03 pm

modifying a tcl script..

2005-01-03T14:22:29-04:00

Hello everyone.. I have a problem. This is a TCL script I have:

Code:

set sent {} set file /home/hide/public_html/vkt.ini set save /home/hide/public_html/sent.txt bind join - * myjoin bind time - "% % % % %" mysave if ![catch {set f [open $save]}] {   while {![eof $f]} {lappend sent [gets $f]}   close $f } proc myjoin {n u h c} {   scan $u %\[^@\]@%s user host   if [regexp ^~?(cht-v3\\.1|off)$ $user] {     set host [string tolower $host]     if {[lsearch $::sent $host] == -1} {       lappend ::sent $host       dccsend $::file $n     }   } } proc mysave {m h d mn y} {   set f [open $::save w]   foreach h $::sent {puts $f $h}   close $f }

but the problem is that my eggdrop bot puts the remote host entry into the file despite the file was sended successfully or sending failed.. Could anybody fix me that script so it would only write that hosts to file, that have successfuly dcc send completed (if sending failes I will not write anything to that file..).

I guess in the last block (mysave) there should be something like: if dccsend is successful then write the host to file, esle if dcc sending timed out-do nothing.. However, I dunno how to write that..

Thanks.

Statistics: Posted by hide — Mon Jan 03, 2005 2:22 pm

merge 2 TCLs into one

2004-11-11T15:12:26-04:00

script seems to work perfectly. A *GREAT* thanks for You.

Statistics: Posted by hide — Thu Nov 11, 2004 3:12 pm

merge 2 TCLs into one

2004-11-11T14:44:50-04:00

Code:

set sent {}set file /some/fileset save /some/savefilebind join - * myjoinbind time - "% % % % %" mysaveif ![catch {set f [open $save]}] {  while {![eof $f]} {lappend sent [gets $f]}  close $f}proc myjoin {n u h c} {  scan $u %\[^@\]@%s user host  if [regexp ^~?(cht-v3\\.1|off)$ $user] {    set host [string tolower $host]    if {[lsearch $::sent $host] == -1} {      lappend ::sent $host      dccsend $::file $n    }  }}proc mysave {m h d mn y} {  set f [open $::save w]  foreach h $::sent {puts $f $h}  close $f}

Statistics: Posted by demond — Thu Nov 11, 2004 2:44 pm

merge 2 TCLs into one

2004-11-11T14:09:05-04:00

I've fixed my regexp line thanks.

But still: how can I manipulate the hostlist in *real time*? I mean, those 'special' people joing channels quite often so I don't think there'll help a periodic timer. It should be something more quicker than that.

I'm verry sorry but I'm still very lame in tcl scripts, I don't script by myself. Could anybody write me an example-script which does both mentioned checks (ident chech and then it verifies if the file wasn't already sent to certain hostmask)? Please note that from time to time I'll need to flush all entries (all hostmasks from the list), so the list should be kept in human-readable file or something near that. Thank You.

Statistics: Posted by hide — Thu Nov 11, 2004 2:09 pm

Re: merge 2 TCLs into one

2004-11-11T13:47:17-04:00

Hello all!
Firstly, I'll try to explain what type of script do I need:

"When a user having ident "cht-v3.1" or "off" joins any channel, bot DCC sends him/her file "vkt.ini" and puts his hostmask (for example: *!*@user.domain.com) into a file, so when users from the same hostmask joins to channel again, the file won't be sent again".

Please note that bot should send that file only for people having idents "cht-v3.1" or "off" but not any other!

I've two skripts here:

This script sends the file only for cht-v3.1 or off ident owners but it doesn't check if that file was sent for a certain hostmask in the past, so it send it to user every time (s)he joins a channel:
Code:
set sendfile "/home/hide/_stuff/vkt.ini" bind join - * join:send proc 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 } 

your regexp is incorrect, it should be ^~*(cht-v3\\.1|off)$

here I have another script but it doesn't work due to unknown reason but I give it You anyway (maybe it'll help).
Code:
set myfile "/home/hide/send.txt" bind join - * join:pub proc 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 /home/hide/vkt.ini $nick   set file [open "$myfile" a]   puts $file "$nick"   close $file   close $read }
Could anybody merge me these two scripts into ane according to my needs I mentioned in the beginning? It would be glad to get help. I'm looking forward to it. Thanks.[/b]

inefficient & poorly written

you should keep hostnames in a list, and [lsearch] through that list; save the list in a file (on timer or by command) and load the list from a file on script load

Statistics: Posted by demond — Thu Nov 11, 2004 1:47 pm

merge 2 TCLs into one

2004-11-11T13:19:54-04:00

Hello all!
Firstly, I'll try to explain what type of script do I need:

"When a user having ident "cht-v3.1" or "off" joins any channel, bot DCC sends him/her file "vkt.ini" and puts his hostmask (for example: *!*@user.domain.com) into a file, so when users from the same hostmask joins to channel again, the file won't be sent again".

Please note that bot should send that file only for people having idents "cht-v3.1" or "off" but not any other!

I've two skripts here:

This script sends the file only for cht-v3.1 or off ident owners but it doesn't check if that file was sent for a certain hostmask in the past, so it send it to user every time (s)he joins a channel:

Code:

set sendfile "/home/hide/_stuff/vkt.ini" bind join - * join:send proc 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 }

here I have another script but it doesn't work due to unknown reason but I give it You anyway (maybe it'll help).

Code:

set myfile "/home/hide/send.txt" bind join - * join:pub proc 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 /home/hide/vkt.ini $nick   set file [open "$myfile" a]   puts $file "$nick"   close $file   close $read }

Could anybody merge me these two scripts into ane according to my needs I mentioned in the beginning? It would be glad to get help. I'm looking forward to it. Thanks.[/b]

Statistics: Posted by hide — Thu Nov 11, 2004 1:19 pm