bind pub - !rules pub_rules

set public_rules "test public"
set private_rules "test private"
set pm_rules "test pm"

proc pub_rules { nick uhost hand chan arg } {
global public_rules pm_rules private_rules

if {[string tolower [lindex $arg 0]] != ""} {
set set_rules $[string tolower [lindex $arg 0]]_rules

puthelp "PRIVMSG $chan :[string toupper [lindex $arg 0]] Rules"
puthelp "PRIVMSG $chan :set_rules"

}