on *:connect: {
  .opers
}

alias opers { .enable #operwho | /who +m oO }

on *:exit: {
  var %t 1
  while (%t <= $lines($server $+ .txt)) {
    .cnick -r $read($server $+ .txt,%t)
    inc %t
  }
  .remove -b $server $+ .txt
}

on *:disconnect: {
  var %t 1
  while (%t <= $lines($server $+ .txt)) {
    .cnick -r $read($server $+ .txt,%t)
    inc %t
  }
  .remove -b $server $+ .txt
}

#operwho off
raw 352:* {
echo $active $chr(3) $+ 4OPER: $chr(3) $+ 1 $+ $6 $chr(3) $+ 4IDENT: $chr(3) $+ 1 $+ $3 $chr(3) $+ 4HOST: $chr(3) $+ 1 $+ $4 $chr(3) $+ 4REALNAME: $chr(3) $+ 1 $+ $9-
  .write $server $+ .txt $6
  .cnick $6 13
  halt
}
#operwho end

raw 315:* { .disable #operwho }