Mercurial > hg > egg-tcls

view help.tcl @ 458:cfbe6acc1d73

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
urllog: tcl-tls 1.7.x (tested with 1.7.13) is now a requirement. It is needed for SNI support. Theoretically 1.6.4 would work also, if implementation was done differently, but it's hairy and I'm too lazy.
author Matti Hamalainen <ccr@tnsp.org>
date Tue, 17 Oct 2017 10:58:02 +0300
parents b4fdb3300faa
children
line wrap: on
line source

##########################################################################
# Niinuska Help
##########################################################################
set nn_message "Niinuska Help v0.2 by ccr/TNSP"
set nn_preferredmsg "PRIVMSG"

putlog "$nn_message"
bind pub - !help nn_pubmsg
bind pub - !apua nn_pubmsg

# ------------------------------------------------------------------------
proc nn_smsg {udest umsg} {
  global nn_preferredmsg

  putserv "$nn_preferredmsg $udest :$umsg"
}


# ------------------------------------------------------------------------
proc nn_pubmsg {unick uhost uhand uchan uargs} {
  nn_smsg $uchan "Lisätietoja Niinuskan toiminnoista: \002http://tnsp.org/irc/\002 ja \002http://tnsp.org/irc/readme.php\002"
  return 1
}

# ------------------------------------------------------------------------