lolcat.pl

use strict;
use warnings;
use Xchat ':all';
use Acme::LOLCAT;

sub lolzify {
    Xchat::command('SAY ' . translate($_[1][0]));
    return Xchat::EAT_ALL;
}

my $hook = Xchat::hook_command('', 'lolzify');

sub unhook_eet {
    Xchat::unhook($hook);
    $hook = 0;
}

sub rehook_eet {
    $hook = Xchat::hook_command('', 'lolzify');
}

sub lolcat {
    if(defined $_[0][1]) {
        if(lc($_[0][1]) eq "on") {
            if(!$hook) {
                rehook_eet();
            }
        }
        elsif(lc($_[0][1]) eq "off") {
            if($hook) {
                unhook_eet();
            }
        }
        else {
            ($hook) ? XChat::print(translate("Its on!")) : Xchat::print(translate("Its off :["));
        }
    }
}

Xchat::hook_command('lolcat','lolcat');