newbie help with tcl scripting

CC · Post by CC » Tue Dec 23, 2003 7:49 pm

I have a procedure that is triggered on bind join - * <proc name>.

Inside this procudure I want to have certain if statements for different hosts.

An example of what I want to do which doesn't work:

Code: Select all

if {$host == "*@*.staff.*"} {
<body>
}
else {
<body>
}

How can I do the above?

stdragon · Post by **stdragon** » Tue Dec 23, 2003 9:26 pm

Read the tcl manual for the "string" command... hint: you want wildcard matching...

CC · Post by CC » Wed Dec 24, 2003 7:58 am

I've had a look through the tcl-commands.doc file and found:

Code: Select all

  maskhost <nick!user@host>
    Returns: masked hostmask for the string given ("n!u@1.2.3.4" -> "*!u@1.2.3.*",
      "n!u@lame.com" -> "*!u@lame.com", "n!u@a.b.edu" -> "*!u@*.b.edu")
    Module: core

?

cofferscuffs · Post by **cofferscuffs** » Wed Dec 24, 2003 8:46 am

if { [string match "*@*.staff.*" $host] } {
#match
} {
#no match
}

(8) JOIN (stackable)
bind join <flags> <mask> <proc>
procname <nick> <user@host> <handle> <channel>

Description: triggered by someone joining the channel. The mask in
the bind is matched against "#channel nick!user@host" and can
contain wildcards.
Module: irc

is what you need to read though in tcl-commands.doc so something like

bind join - "*@*.staff.*" procname

i *think*

CC · Post by CC » Wed Dec 24, 2003 4:16 pm

The thing is, I already have a bind join - * procname which sends a message to all users joining the channel. What I want is that if someone matches the host *@*.staff.* then a different message will be dispplayed.

Souperman · Post by **Souperman** » Wed Dec 24, 2003 4:45 pm

Code: Select all

bind join - * procname

proc procname {nick uhost hand chan} {
 if {[string match "*@*.staff.*" $uhost]} {
  puthelp "PRIVMSG $nick :message for people with the staff host"
 } else {
  puthelp "PRIVMSG $nick :message for everyone else"
 }
}

Read the Tcl "string" manual page (not tcl-commands.doc, those are simply Tcl commands added by Eggdrop). Either look at http://www.tcl.tk/man/ or "man n string" on your shell.

Olo · Post by **Olo** » Thu Jan 22, 2004 9:13 pm

where exactly can i get a copy of this TCL SCRIPTS Manual???[/quote][/code]

Ofloo · Post by **Ofloo** » Fri Jan 23, 2004 8:29 pm

http://www.tcl.tk/man