Procedure in a procedure?

[otterboyy]

After several months delay, I find myself up against a wall and having to learn IRCD's, Eggbot in general and TCL so I can have custom actions done for a company I work for.

With all that, I have gotten to the point of writing my first TCL for Egg and it works well. Now I want to add on to the tcl I have now.
It consists of one bind (!URG) and a procedure to process that bind and do something with the text (send PRVMSG to all in channel). Simple, yet effective for what I need. Now what I want to do is to take the text of that message and write it out to a file, formated in HTML.
I feel I can do that, but in the interests of being modular, I would like to write it in another tcl file or procedure and call it from the urgmsg proc I created.
So to sum it up. When the urgmsg proc is fired by the bind !URG, I want to take the text that follows !URG and write it to a file in HTML format.
So can I create this 2nd proc and call it from with in the first?

Thanks in advance!

Otterboyy

[Zygomaticum]

yes u can

greejtz, Zygo.

[otterboyy]

So I can do something like

Proc name {args} {
if {condition} {
do this
} else {
do this
call proc {args}
}
}

The "call proc {args}" was made up by me. Not sure if thats the format or not.
Could you, or someone provide a sample?
To be clear, I would like to pass the argument $args to the second proc for processing further.

Thanks again!

Otterboy

[Zygomaticum]

nop

use something like this:

proc proc1 { arg } {
set var [proc2]
}

proc proc2 { arg } {
return 1
}

$var in proc1 will get the value 1, proc2 returns 1 to $var
or just type this in a proc:
proc2

and proc2 will be runned

[stdragon]

Calling your own procedure is exactly like calling any of tcl's builtin ones (puts, open, close, etc). Check out http://dev.scriptics.com for detailed help with tcl syntax.

Code: Select all

proc firstproc {text} {
  if {[string match $text "*sheep*"] == 1} {
    secondproc "Sheep" $text
  } elseif {[string match $text "*goat*"] == 1} {
    secondproc "Goats" $text
  } else {
    putlog "off-topic discussion detected!"
  }
}

proc secondproc {title line} {
  # open file for appending
  set fp [open /home/apache/www/animals.html a+]
  puts $fp "<b>$title</b>: $line<br>"
  close $fp
}

[otterboyy]

Thank you very much! this is exactly what I am looking for.
Now after 2 server crashes in 12 hours, perhaps I can get back to the script.

Again. Thank you!!!

Otterboyy