#######################################################################
# ctcp.pl
# - CTCP sys -
# Author: Saulius <saulius@tornado.ktu.lt>
#######################################################################

use Irssi;
use strict;
use vars qw($VERSION %IRSSI);
$VERSION = '1.00';
%IRSSI   = (
    author      => 'Saulius',
    contact     => 'saulius@tornado.ktu.lt',
    name        => 'ctcp',
    description => 'CTCP system',
    license     => 'Free',
    changed     => '2003-11-07',
);

sub event_ctcp {
    my ( $server, $args, $nick, $addr, $target ) = @_;

    # ignore TIME
    if ( $args =~ /^TIME/ ) { Irssi::signal_stop(); }

    # ignore PING
    if ( $args =~ /^PING/ ) { Irssi::signal_stop(); }
}

Irssi::signal_add( 'ctcp msg', 'event_ctcp' );