output proc
Posted to
tcl
by Vadtec at Wed May 09 13:46:48 GMT 2007
view raw
proc
output { where
text
} {
global
debug
if
{
$debug
} {
if
{
$where
eq "log"} {
putlog
$text
}
else
{
putmsg
$where
$text
}
}
}
Recent Posts
tcl by oldlaptop
8 days ago
tcl by mookie
14 days ago
tcl by dandyn
21 days ago
tcl by Bradipo
21 days ago
tcl by Bradipo
21 days ago
tcl by oldlaptop
46 days ago
tcl by oldlaptop
46 days ago
tcl by mookie
51 days ago
tcl by mookie
51 days ago
tcl by georgtree
52 days ago
Submit
New paste
Documentation
From Jabber