p4l / simple stuff

bind pub - |rank disp:rank
bind pub - |view disp:flags
bind pub o |chgrank chg:rank

proc chg:rank { nick host hand chan arg } {

  set user [ lindex $arg 0 ]
  set rank [ lindex $arg 1 ]

  if { $rank == "Owner" } { set flags +hjlmnoptx }
  if { $rank == "Master" } { set flags +hjlmoptx-n }
  if { $rank == "Admin" } { set flags +hlopt-jmnx }
  if { $rank == "Op" } { set flags +hlo-jmnxpt }
  if { $rank == "Voice" } { set flags +hvg-jlmnoxpt }

  chattr $user $flags

  putquick "PRIVMSG $chan :$user\'s rank has been changed to $rank($flags)"

}

proc disp:flags { nick host hand chan arg } {

  set flags [ chattr $arg ]

  putquick "PRIVMSG $chan :$arg\'s flags are $flags"

}

proc disp:rank { nick host hand chan arg } {

  if { [ matchattr $arg +hjlmnoptx ] } { set rank "Owner" }
  if { [ matchattr $arg +hjlmoptx-n ] } { set rank "Master" }
  if { [ matchattr $arg +hlopt-jmnx ] } { set rank "Admin" }
  if { [ matchattr $arg +hlo-jmnxpt ] } { set rank "Op" }
  if { [ matchattr $arg +hvg-jlmnoxpt ] } { set rank "Voice" }

  putquick "PRIVMSG $chan :$arg\'s rank is $rank"

}