egghelp/eggheads community

relay.tcl

2011-06-29T02:09:41-04:00

Sorry, I forgot about

Code:

return 0

after

Code:

putserv "PRIVMSG $rchan :$text"

Statistics: Posted by username — Wed Jun 29, 2011 2:09 am

relay.tcl

2011-06-28T17:36:23-04:00

splendid! thanks for all the help.

Statistics: Posted by Football — Tue Jun 28, 2011 5:36 pm

relay.tcl

2011-06-28T17:16:38-04:00

Code:

# Set here, the channel you want the bot to listen for messages on                       set mchan "#PremierLeague"# Set here, the channel you want the messages to be relayed to.                           set rchan "#EPL"# Add a word for relaybind pub n|o !addword addword# View a list of your relaysbind pub o|o !relays relays# Clear all relays from wordsEPL.txtbind pub o|o !relayclr msgclear# This is what searches for and relays linesbind pubm * * relay_to_chan# Delete a relay word from filebind pub n|o !delword delwordproc addword {nick host hand chan text} {  global mchan  if {[string equal -nocase $chan $mchan]} {    set mfs "wordsEPL.txt"    set word [join [lindex [split $text] 0]]    if {![file exists $mfs]} {      close [open $mfs w]    }    set fs [open $mfs]    set data [read -nonewline $fs]    close $fs    if {![string length $data]} {      set fs [open $mfs w]    } else {      set fs [open $mfs a]    }    puts $fs "$word"    close $fs    putserv "NOTICE $nick :Relay added: $word"  }  return}proc relays {nick host hand chan text} {  set fs [open "wordsEPL.txt"]  set data [read -nonewline $fs]  close $fs  if {![string length $data]} {    putserv "NOTICE $nick :I don't currently have any messages to relay."    return 0  }  putserv "NOTICE $nick :My list of relay messages is as follows:"  set fs [open "wordsEPL.txt"]  seek $fs 0 start  while {[gets $fs line] >= 0} {    puthelp "NOTICE $nick :$line"  }  close $fs}proc msgclear {nick host hand chan text} {  close [open "wordsEPL.txt" w]}proc relay_to_chan {nick host hand chan text} {  global mchan rchan  if {[string equal -nocase $chan $mchan]} {    set fs [open "wordsEPL.txt"]    seek $fs 0 start    while {[gets $fs line] >= 0} {      if {[regexp -nocase ".*$line.*" $text match]} {        putserv "PRIVMSG $rchan :$match"        break      }    }    close $fs    return  }  return}proc delword {nick host hand chan text} {  global mchan  if {[string equal -nocase $chan $mchan]} {    set word [lindex [split $text] 0]    set fs [open "wordsEPL.txt"]    set words [split [read -nonewline $fs] \n]    close $fs    set match [lsearch -exact $words $word]    set fs [open "wordsEPL.txt" w]    set newwords [lreplace $words $match $match]    puts $fs [join $newwords "\n"]    close $fs    putserv "NOTICE $nick :Relay deleted: $word."  }  return}

Adjusted indenting, and added the changes in my earlier post. Rest is as it was initially.

Statistics: Posted by nml375 — Tue Jun 28, 2011 5:16 pm

relay.tcl

2011-06-28T17:11:37-04:00

oh, errr

might writing the proper script in full?

Statistics: Posted by Football — Tue Jun 28, 2011 5:11 pm

relay.tcl

2011-06-28T17:09:31-04:00

That is quite far from the original proc. The suggested fix should be applied to the relay_to_chan proc, not the other ones.

Statistics: Posted by nml375 — Tue Jun 28, 2011 5:09 pm

relay.tcl

2011-06-28T16:35:14-04:00

Sure

Code:

# Set here, the channel you want the bot to listen for messages onset mchan "#PremierLeague" # Set here, the channel you want the messages to be relayed to.set rchan "#EPL" # Add a word for relay bind pub n|o !addword addword # View a list of your relays bind pub o|o !relays relays # Clear all relays from words.txt bind pub o|o !relayclr msgclear # This is what searches for and relays lines bind pubm * * relay_to_chan # Delete a relay word from file bind pub n|o !delword delword proc addword {nick host hand chan text} {  global mchan     if {[string equal -nocase $chan $mchan]} {  set mfs "wordsEPL.txt"         set word [join [lindex [split $text] 0]]         if {![file exists $mfs]} {             close [open $mfs w]         }         set fs [open $mfs]         set data [read -nonewline $fs]   close $fs         if {![string length $data]} {             set fs [open $mfs w]         } else {             set fs [open $mfs a]         }  puts $fs "$word"   close $fs    putserv "NOTICE $nick :Relay added: $word"     }  return } proc relays {nick host hand chan text} {     set fs [open "wordsEPL.txt"]set fs [open "wordsEPL.txt"]seek $fs 0 startwhile {[gets $fs line] >= 0} {  if {[regexp -nocase ".*$line.*" $text match]} {    putserv "PRIVMSG $rchan :$match"    break  }}close $fs    if {![string length $data]} {   putserv "NOTICE $nick :I don't currently have any messages to relay."  return 0     }   putserv "NOTICE $nick :My list of relay messages is as follows:"    set fs [open "wordsEPL.txt"]seek $fs 0 startwhile {[gets $fs line] >= 0} {  if {[regexp -nocase ".*$line.*" $text match]} {    putserv "PRIVMSG $rchan :$match"    break  }}close $fs} proc msgclear {nick host hand chan text} {     close [open "wordsEPL.txt" w] } proc relay_to_chan {nick host hand chan text} {   global mchan rchan         if {[string equal -nocase $chan $mchan]} {  set fs [open "wordsEPL.txt"]    set fs [open "wordsEPL.txt"]seek $fs 0 startwhile {[gets $fs line] >= 0} {  if {[regexp -nocase ".*$line.*" $text match]} {    putserv "PRIVMSG $rchan :$match"    break  }}close $fsreturn         }  return } proc delword {nick host hand chan text} {  global mchan     if {[string equal -nocase $chan $mchan]} {  set word [lindex [split $text] 0]  set fs [open "wordsEPL.txt"]  set words [split [read -nonewline $fs] \n]    close $fs  set match [lsearch -exact $words $word]  set fs [open "wordsEPL.txt" w]  set newwords [lreplace $words $match $match]    puts $fs [join $newwords "\n"]    close $fs     putserv "NOTICE $nick :Relay deleted: $word."     }    return }

Statistics: Posted by Football — Tue Jun 28, 2011 4:35 pm

relay.tcl

2011-06-28T16:32:51-04:00

Could you post your new version of the relays proc?

Statistics: Posted by nml375 — Tue Jun 28, 2011 4:32 pm

relay.tcl

2011-06-28T12:06:03-04:00

hey nml375 and username.

Thanks so much for the reply.

nml375 - that worked well, though it seems to have caused a new problem:

[19:04:50] <@DontPanic> !relays
[19:04:07] [16:04:14] Tcl error [relays]: can't read "data": no such variable

Statistics: Posted by Football — Tue Jun 28, 2011 12:06 pm

relay.tcl

2011-06-28T11:28:45-04:00

I'm afraid that change will not sort the issue;

I'd suggest you add a break to stop the loop once you've found a match:

Code:

set fs [open "wordsEPL.txt"]seek $fs 0 startwhile {[gets $fs line] >= 0} {  if {[regexp -nocase ".*$line.*" $text match]} {    putserv "PRIVMSG $rchan :$match"    break  }}close $fs

PS. I took the liberty of removing some pointless list operations (split, lrange all, join). DS

Statistics: Posted by nml375 — Tue Jun 28, 2011 11:28 am

relay.tcl

2011-06-28T09:31:37-04:00

Try to change

Code:

set fs [open "wordsEPL.txt"] seek $fs 0 start while {[gets $fs line] >= 0} { if {[regexp -nocase ".*$line.*" [join [lrange [split $text] 0 end]] match]} { putserv "PRIVMSG $rchan :$match" }

Code:

foreach line [split [read [set fid [open "wordsEPL.txt" "r"]]] "\n"] {    if {[string match -nocase "*line*" $text]} {        putserv "PRIVMSG $rchan :$text"     }}close $fid

Statistics: Posted by username — Tue Jun 28, 2011 9:31 am

relay.tcl

2011-06-28T06:32:12-04:00

Hey, I`m using relay.tcl, it relays words that are written in a text file from one channel another, the problem is that if you have two words in the text file that match in the same setence, it will relay the message more then once.

Lets say our text file includes the words "Hello there"
and the sentence is "Hello there Tony"
It will relay the sentence twice (as many times as it matches the text file)

Can anyone fix it so it won't relay it more then once please?

Thank you.

Code:

# Set here, the channel you want the bot to listen for messages on                        set mchan "#PremierLeague" # Set here, the channel you want the messages to be relayed to.                            set rchan "#EPL" # Add a word for relay bind pub n|o !addword addword # View a list of your relays bind pub o|o !relays relays # Clear all relays from wordsEPL.txt bind pub o|o !relayclr msgclear # This is what searches for and relays lines bind pubm * * relay_to_chan # Delete a relay word from file bind pub n|o !delword delword proc addword {nick host hand chan text} {  global mchan     if {[string equal -nocase $chan $mchan]} {  set mfs "wordsEPL.txt"         set word [join [lindex [split $text] 0]]         if {![file exists $mfs]} {             close [open $mfs w]         }         set fs [open $mfs]         set data [read -nonewline $fs]   close $fs         if {![string length $data]} {             set fs [open $mfs w]         } else {             set fs [open $mfs a]         }  puts $fs "$word"   close $fs    putserv "NOTICE $nick :Relay added: $word"     }  return } proc relays {nick host hand chan text} {     set fs [open "wordsEPL.txt"]     set data [read -nonewline $fs]   close $fs     if {![string length $data]} {   putserv "NOTICE $nick :I don't currently have any messages to relay."  return 0     }   putserv "NOTICE $nick :My list of relay messages is as follows:"     set fs [open "wordsEPL.txt"]   seek $fs 0 start     while {[gets $fs line] >= 0} {   puthelp "NOTICE $nick :$line"     }  close $fs } proc msgclear {nick host hand chan text} {     close [open "wordsEPL.txt" w] } proc relay_to_chan {nick host hand chan text} {   global mchan rchan         if {[string equal -nocase $chan $mchan]} {  set fs [open "wordsEPL.txt"]    seek $fs 0 start      while {[gets $fs line] >= 0} {          if {[regexp -nocase ".*$line.*" [join [lrange [split $text] 0 end]] match]} {    putserv "PRIVMSG $rchan :$match"          }    }  close $fs  return         }  return } proc delword {nick host hand chan text} {  global mchan     if {[string equal -nocase $chan $mchan]} {  set word [lindex [split $text] 0]  set fs [open "wordsEPL.txt"]  set words [split [read -nonewline $fs] \n]    close $fs  set match [lsearch -exact $words $word]  set fs [open "wordsEPL.txt" w]  set newwords [lreplace $words $match $match]    puts $fs [join $newwords "\n"]    close $fs     putserv "NOTICE $nick :Relay deleted: $word."     }    return }

Statistics: Posted by Football — Tue Jun 28, 2011 6:32 am