view help.tcl @ 678:7ff41e458ee0

tj: Fix future TJ date displays.
author Matti Hamalainen <ccr@tnsp.org>
date Sun, 04 Apr 2021 23:38:13 +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
}

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