alias glineSnicks {
  if (o !isin $usermode) return
  set -l %hash glineSnicks_ $+ $network
  if (!$hget(%hash)) hmake %hash
  set -l %snicks $snicks
  set -l %x $numtok(%snicks,44)
  set -l %u
  while %x {
    set -l %nick $gettok(%snicks,%x,44)
    hadd %hash %nick 1
    %u = %u %nick
    if (4 == $numtok(%u,32)) {
      !userip %u
      %u = $null
    }
    dec %x
  }
  if ($numtok(%u,32)) !userip %u
}
raw 340:*:{
  set -l %hash glineSnicks_ $+ $network
  if (o !isin $usermode) || (!$hget(%hash,0).item) return
  set -l %p2 /([a-z\[\]\\\`\_\^\{\|\}][0-9a-z\[\]\\\`\_\^\{\|\}\-]*).+?@(.+?)(?:\x20|$)/ig
  set -l %x $regex($2-,%p2)
  while %x {
    hdel %hash $regmlex(%x,1)
    !gline *@ $+ $regmlex(%x,2) +100d :<Reason>
    dec %x
  }
}