/usr/lib/perl5/Ekg2/Irc.pm is in ekg2-scripting-perl 1:0.3.1-4.
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 29 30 31 32 33 34 35 36 37 38 39 40 41 | #
# Perl interface to irssi functions.
#
package Ekg2::Irc;
use Ekg2;
use strict;
use Carp;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
$VERSION = "0.1";
require Exporter;
require DynaLoader;
@ISA = qw(Exporter DynaLoader);
@EXPORT = qw( );
# heh jesli jest w autoloadzie to wtedy Ekg2::var_find("perl:autoload")->{value} zawsze ma
# domyslna wartosc po zaladowaniu plugina perl czyli 1...
# dupa!
if (!(Ekg2::plugin_find("irc")))
{
Ekg2::debug("Plugin irc not founded (" . Ekg2::var_find("perl:autoload")->{value} . ") \n");
if (Ekg2::var_find("perl:autoload")->{value} > 0) {
if (!(Ekg2::plugin_load("irc"))) {
return 0;
}
} else { return 0; }
};
bootstrap Ekg2::Irc;
# Ekg2::Irc::EXPORT_ALL();
Ekg2::debug("Irc.pm loaded, enjoy!\n");
return 1;
|