#Copyright © 2009 Jordi Gutiérrez Hermoso
#
#teh-lol.pl is free software: you can redistribute it and/or modify
#it under the terms of the GNU General Public License as published by
#the Free Software Foundation, either version 3 of the License, or
#(at your option) any later version.
#
#This program is distributed in the hope that it will be useful,
#but WITHOUT ANY WARRANTY; without even the implied warranty of
#MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#GNU General Public License for more details.
#
#You should have received a copy of the GNU General Public License
#along with this program.  If not, see <http://www.gnu.org/licenses/>.

Xchat::register('teh lol', '0.1.2', 'lols back');

Xchat::hook_print('Channel Message', \&check_lol);

my %timestamp;

sub check_lol {
  my $chan = Xchat::get_info("channel");

  if ($_[0][1] =~ /\b(lo+l)\b/i) {

    Xchat::command("say $1") if (time - $timestamp{$chan} > 59 or
                                 undef $timestamp{$chan}
                                 );
    $timestamp{$chan} = time;
  }
  return Xchat::EAT_NONE;
}