on *:INPUT:*: { 
  var %a $1- 
  $iif(*mi* iswm %a, msg $active $replace(%a,mi,my)) 
  halt 
  haltdef
}