/usr/share/ekg2/scripts/cycki.pl is in ekg2-scripting-perl 1:0.4~pre+20120506.1-11build2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 | use vars qw($VERSION %EKG2);
use Ekg2;
use Ekg2::Irc;
our $VERSION = '0.1';
our %EKG2 = (
authors => 'Wieslaw Ochminski',
contact => 'wiechu@wiechu.com',
description => 'All lights to cycki',
license => 'GPL',
changed => '2010-11-28',
);
my $C = "\003"; # Ctrl-C
my $cycki = "${C}5(${C}4*${C}5)(${C}4*${C}5)\017";
sub cycki {
my ($sess, $from, $dest, $text, $to_us) = @_;
$$to_us = 1 if ( $$text =~ s/^(.*)(\bcycki\b)(.*)$/$1$cycki$3/i );
}
Ekg2::handler_bind("irc-privmsg", 'cycki');
Ekg2::handler_bind("irc-notice", 'cycki');
1;
|