ping.pl - Pasteur

Filename:
Private:
Filetype:
Indentation:
use strict;
use Irssi;
use vars qw($VERSION %IRSSI);

# Dev. info ^_^
$VERSION = "0.1.0";
%IRSSI = (
    authors     => "Latchezar Tzvetkoff",
    contact     => "latchezar\@tzvetkoff.net",
    name        => "Ping",
    description => "Bypass CTCP flood protection for own PINGs",
    license     => "GPL",
    url         => "https://tzvetkoff.net/",
    changed     => "Sat Feb 01 13:37:00 EET 2020",
);

my $last = time() - 10;

sub ping {
    my ($server, $args, $nick, $addr, $target) = @_;
    if ($target eq $server->{'nick'}) {
        my $now = time();
        if ($now - $last > 5) {
            $last = $now;
            $server->send_raw("NOTICE ${nick} :\001PING ${args}\001");
            Irssi::signal_stop();
        }
    }
}

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

# vim:ft=perl:ts=4:sts=4:sw=4:et