egghelp/eggheads community

need to convert mrc to tcl

2005-06-30T16:18:56-04:00

Thank you very much it does work

Statistics: Posted by canercan — Thu Jun 30, 2005 4:18 pm

need to convert mrc to tcl

2005-06-29T11:57:31-04:00

nope, you can't intercept server notices with [bind notc]

you need a raw bind:

Code:

bind raw - NOTICE fooproc foo {from keyword text} {   scan $::server {%[^:]} server   if {$from == $server} {      set who [lindex [split $text] 9] ;# or whatever parameter number it is      scan $who {%[^!]!%[^@]@%s} nick user host      if {[string match -nocase "*clone alert*" $text]} {         putserv "kline 300 *@$host :clones" ;# 300min temp kline      } elseif {[string match -nocase "*client connecting*" $text]} {         putserv "fjoin $nick #channel"      }   }}

Statistics: Posted by demond — Wed Jun 29, 2005 11:57 am

need to convert mrc to tcl

2005-06-29T11:10:16-04:00

I want to fjoin people on connect so I need help. The code I wrote at the beginning is its .mrc but tcl?
thanks

Statistics: Posted by canercan — Wed Jun 29, 2005 11:10 am

need to convert mrc to tcl

2005-06-29T10:35:09-04:00

I wouldn't use double colons in proc names unless I really wanted to use namespaces.

Statistics: Posted by De Kus — Wed Jun 29, 2005 10:35 am

need to convert mrc to tcl

2005-06-29T09:47:14-04:00

Well, you could try searching the TCL Archive or learning TCL. If you looked at a TCL Guide, the first thing you would notice is the binds and the proc.

Code:

bind notc - * ::ircd::notice

That bind looks fine to me, now you need to make a proc for this.

Code:

proc ::ircd::notice {nick host hand} {if {($nick == $server)} {blah}I think that will workI dont understand what you want the other code to do, what is it looking for in $1-

Statistics: Posted by r0t3n — Wed Jun 29, 2005 9:47 am

need to convert mrc to tcl

2005-06-29T08:13:35-04:00

on *:snotice:*:{
if $nick == $server {
if *clone alert* iswm $1- {
kline $+ (*@,$9) Clone Yapmayınız. 15
}
if *client connecting* iswm $1- {
fjoin $9 #chan
}
}
}

I am a novice I did it as below

bind notc - * ::ircd::notice

if $notc {
if $nick == $server {
}

if *client connecting* iswm $1- {
fjoin $9 #Sohbet
}

but it did not work can you do me a favour about converting it?
thanks

Statistics: Posted by canercan — Wed Jun 29, 2005 8:13 am