txtToAkill

alias txtToAkill {
  ; /os akill add *@ip +90d PROXY
  if (!$isfile($1)) return
  set -l %fid txtToAkill
  set -l %regex /((?:(?:25[0-5]|2[0-4]\d|1\d\d|[1-9]\d?|0)\.){3}(?:25[0-5]|2[0-4]\d|1\d\d|[1-9]\d?|0))(?:6553[0-5]|655[0-2]\d|65[0-4]\d\d|6[0-4]\d\d\d|[1-5]\d\d\d\d|[1-9]\d?\d?\d?|0)?/
  if ($fopen(%fid)) .fclose %fid
  .fopen %fid $qt($1)
  tokenize 32 $fread(%fid)
  while !$feof {
    if ($regex($fread(%fid),%regex)) echo -s !os akill add *@ $+ $regml(1) +90d PROXY
  }
  .fclose %fid
}