botlistprojects/laughingman/orbirclib/src/plugins/flood_plugin.erl

   1 %%%-------------------------------------------------------------------
   2 %%% File    : flood_monitor.erl
   3 %%% Author  : ortitz <orbitz@blong.orbitz>
   4 %%% Description :
   5 %%%
   6 %%% Created : 10 Oct 2006 by ortitz <orbitz@blong.orbitz>
   7 %%%-------------------------------------------------------------------
   8 -module(flood_plugin).
   9
  10 -export([start/0, init/0, deps/0, loop/0]).
  11
  12
  13 start() ->
  14     spawn(flood_monitor, init, []).
  15
  16 init() ->
  17     msg_dispatch:add(["PRIVMSG"]),
  18     flood_policy:start_link(),
  19     flood_policy:add(privmsg, 15, 30),
  20     loop().
  21
  22 deps() ->
  23     [].
  24
  25 loop() ->
  26     receive
  27        {"PRIVMSG", [From, To, _Message], [Bot]} ->
  28             case flood_policy:update(privmsg, {From, To, Bot}) of
  29                 1 ->
  30                     irc_bot:say(Bot, "orbitz", lists:flatten(io_lib:format("Flood ~s ~s", [From, To])));
  31                 _ ->
  32                     ok
  33             end
  34     end,
  35     flood_monitor:loop().