Mine

on *:text:!blchan *:#gsus: {
  if ($nick isop $chan) || ($nick ishop $chan) {
    if ($3 == $null) {
      msg $chan 14Can not write07 $214 to channel blacklist. Reason:07 Reason must be specified.
      notice $nick 14Can not write07 $214 to channel blacklist. Reason:07 Reason must be specified.
    }
    elseif ($left($2,1) = $chr(35)) && ($len($2) > 35) {
      set $+(%,Blacklisted.,$2) on
      msg $chan 14Successfully written07 $2 14to the channel blacklist script for:07 $3-
      ; Reason is not stored. 
    }
    else {
      notice $nick 14Can not write07 $2 14to blacklist because:07 Incorrect channel name.
      msg $chan 14Can not write07 $2 14to blacklist. Reason:07 Incorrect channel name.
    }
  }
}