simplified switch

bind pubm -|- "?[string trim $bs(cmdchar)]seen" bs_pubreq1

proc bs_pubreq1 {nick uhost hand chan text} {

  set args [split [stripcodes bcruag $text]]
  switch -nocase [lindex $args 0] {
        "!voir" -
        "!seen" {
          set who [lindex $args 1]
          bs_pubreq $nick $uhost $hand $chan $who 0

        }
        default {
           putlog "I don't understand [lindex $args 0]"
       }
    }
}