egghelp/eggheads community

Forward.tcl

2005-03-16T17:48:41-04:00

problem solved !!!

i followed caesar modifications and it worked juste fine !!!

thanks to awyeah ,caesar and De Kus for the help it was a bit fastidious for a little useless but asked script thanks a lot !

*i`m so happy i even smile at my stepmother*

Statistics: Posted by Pitchat — Wed Mar 16, 2005 5:48 pm

Forward.tcl

2005-03-16T17:39:35-04:00

i try the last version with the corrections by awyeah and it still doesnt read the $line when it is somebody unknown to the bot who /msg botnick (msg)

i`m a bit lost now

(edit) it display the same thing if it is a user known to the bot or an unknown user : on me parle en PV, mais chut c un secret

maybe adding another "if" for user unknown i dont know what to do

Statistics: Posted by Pitchat — Wed Mar 16, 2005 5:39 pm

Forward.tcl

2005-03-16T16:15:55-04:00

What is the role of a 'string trim' in this case? Or you just copy/paste it's code? Second, what is with 'if {![validuser [lindex [split $arg] 0]]} {' ? make it 'if {[validuser $hand]} {' and 'return' not at the end of the proc, because msgm bind is stackable ('bind multiple commands to the same trigger') where yours is "*".

Statistics: Posted by caesar — Wed Mar 16, 2005 4:15 pm

Forward.tcl

2005-03-16T15:51:25-04:00

Try this:

Code:

bind msgm - "*" proc:lainaset chan "#trois-mousquetaires"proc proc:laina {nick uhost hand arg} { global chan set line [string trim $arg] if {![validuser [lindex [split $arg] 0]]}  {   puthelp "privmsg $chan :on me parle en PV, mais chut c un secret :)"  } else {   puthelp "PRIVMSG $chan :$nick m`as dit en priver: '$line'"   } return 0}

The,

Code:

}else {

should be

Code:

} else {

If you put else in a new line, the tcl interpreter thinks it is a new if-else statement, in which case it is non-existant for this else.

Statistics: Posted by awyeah — Wed Mar 16, 2005 3:51 pm

Forward.tcl

2005-03-16T15:47:26-04:00

Yes that is also a good idea using validuser to check if the hostmask in the first list index of the output text matches any user on the bots file. Meaning checking if a user is identifying himself.

Statistics: Posted by awyeah — Wed Mar 16, 2005 3:47 pm

Forward.tcl

2005-03-16T12:59:40-04:00

i`ve think of something , can i do something like

Code:

bind msgm - "*" proc:lainaset chan "#trois-mousquetaires"proc proc:laina {nick uhost hand arg} {global chanset line [string trim $arg]if {![validuser [lindex [split $arg] 0]]}  {puthelp "privmsg $chan : on me parle en PV , mais chut c un secret:)"return 0}else {puthelp "PRIVMSG $chan :$nick m`as dit en priver: '$line'"return 0}}

so if it is some body known to the bot who msg it it will reply :puthelp "privmsg $chan : on me parle en PV , mais chut c un secret:)" but without saying the $line

then if it is somebody unknown to the bot it will reply the $line

but my code doesnt seems to work for people unknown to the bot

Statistics: Posted by Pitchat — Wed Mar 16, 2005 12:59 pm

Forward.tcl

2005-03-16T04:22:03-04:00

my suggestion would be to create a list of commands not to displays, like "op pass id die rehash restart voice halfop ident host" continue how much you like.
then check via something like

Code:

set ignore 0foreach exclude $excludelist {  if { [string match -nocase ${exclude}* $line] } {    set ignore 1    break  }}if { $ignore == 0 } {  ... (send $line)}

addionally you could check the string against his password, but you'd need to check it against each element of the line as list (foreach element [split $line]).

Statistics: Posted by De Kus — Wed Mar 16, 2005 4:22 am

Forward.tcl

2005-03-16T04:00:26-04:00

There are 2 lines.

puthelp "PRIVMSG $chan :$nick on private: '$line'"

Basically, all the text typed after the trigger, or if it is "*" everything typed will be displayed in $line.

Code:

if {$nick == "SeenServ"} {      puthelp "privmsg $chan :SeenServ returned: $line"      return 0      }puthelp "PRIVMSG $chan :$nick on private: '$line'"}

This code basically does the same thing, if nick is SeenServ, do the samething, display $line to same chan, and if it is not, also do the samething and display $line with $nick who triggered the bind.

Basically this script will just message the chan $chan if someone privmsg's the bot. If the nick is SeenServ it will display a different text but with the same argument $line.

Since you have binded "*" it will trigger on any character said to it which can also be when users try to identify the bot via privmsg. Either change the interaction from prvimsg to notice, or use a trigger of somekind as "*" will trigger anything said to the bot.

Statistics: Posted by awyeah — Wed Mar 16, 2005 4:00 am

Forward.tcl

2005-03-16T02:43:59-04:00

i did remove the line and it still display the password when somebody do /msg botnick id password

Statistics: Posted by Pitchat — Wed Mar 16, 2005 2:43 am

Forward.tcl

2005-03-16T01:41:22-04:00

This line displays the password:

Code:

      puthelp "privmsg $chan :SeenServ returned: $line"

You can either remove it or comment it.

Statistics: Posted by awyeah — Wed Mar 16, 2005 1:41 am

Forward.tcl

2005-03-16T00:35:58-04:00

HI

i`ve install forward.tcl and it works fine , too fine lol the thing that happen is when people log themselves with /msg botnick id password the bot relay that info on the channel exposing the user password to the public

is there a way to prevent that without compromising the use of the tcl ?

thanks

here`s the code

Code:

#This is tcl to forwaring msgs on private to channel. It's simple and so funny :>#skript za printirane na msg-tata na privat v izbran kanal :> da se posmeem ##                              r0gUe gad@c4.com##blagodarnosti na Himika :> Thanks himik :P   bind msgm - "*" proc:laina#seting the channel to forward | Setvame si kanala za forward na replikite i ... da se posmeem set chan "#tequila-sunrise"proc proc:laina {nick uhost hand arg} {global chanset line [string trim $arg]if {$nick == "SeenServ"} {puthelp "privmsg $chan :SeenServ returned: $line"return 0}puthelp "PRIVMSG $chan :$nick on private: '$line'"}return 0putlog "Forward loaded"

thanks for any advice and or fixes

Statistics: Posted by Pitchat — Wed Mar 16, 2005 12:35 am