bind pubm -|- "?[string trim $bs(cmdchar)]seen" bs_pubreq1
proc bs_pubreq1 {nick uhost hand chan args} {

  set args [split [stripcodes bcruag $args]]
    putlog "Ok, i got $args"
  switch -nocase [lindex $args 0] {
        "!seen" {
          set who [lindex $args 1]
          bs_pubreq $nick $uhost $hand $chan $who 0

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