forked from PsychoticNinja/ailin-nemui-irssi
883510a3fd
- PERL_STATIC_LIBS (was not tested anymore) - HAVE_GMODULE (always required) - HAVE_STATIC_IRC - HAVE_STATIC_PERL - HAVE_SOCKS (was not working properly) - USE_GREGEX (we use it)
53 lines
1.2 KiB
Perl
53 lines
1.2 KiB
Perl
# NOTE: this is printed through printf()-like function,
|
|
# so no extra percent characters.
|
|
|
|
# %%s : use Irssi; use Irssi::Irc; etc..
|
|
package Irssi::Core;
|
|
|
|
use Symbol;
|
|
|
|
$SIG{__WARN__} = sub {
|
|
my @msg = @_;
|
|
s/%%/%%%%/g for @msg;
|
|
print @msg;
|
|
};
|
|
|
|
sub is_static {
|
|
return 0;
|
|
}
|
|
|
|
sub destroy {
|
|
eval { $_[0]->UNLOAD() if $_[0]->can('UNLOAD'); };
|
|
Symbol::delete_package($_[0]);
|
|
}
|
|
|
|
sub eval_data {
|
|
my $ret = eval do {
|
|
my ($data, $id) = @_;
|
|
destroy("Irssi::Script::$id");
|
|
my $code = qq{package Irssi::Script::$id; %s $data};
|
|
$code
|
|
};
|
|
$@ and die $@;
|
|
$ret
|
|
}
|
|
|
|
sub eval_file {
|
|
my ($filename, $id) = @_;
|
|
|
|
open my $fh, '<', $filename or die "Can't open $filename: $!";
|
|
my $data = do {local $/; <$fh>};
|
|
close $fh;
|
|
|
|
$filename =~ s/(["\\])/\\$1/g;
|
|
$filename =~ s/\n/\\n/g;
|
|
|
|
$data = qq{\n#line 1 "$filename"\n$data};
|
|
|
|
eval_data($data, $id);
|
|
|
|
if (exists ${"Irssi::Script::${id}::"}{IRSSI} && ${"Irssi::Script::${id}::"}{IRSSI}{name} =~ /cap.sasl/ && ${"Irssi::Script::${id}::VERSION"} < 2) {
|
|
die "cap_sasl has been unloaded from Irssi ".Irssi::version()." because it conflicts with the built-in SASL support. See /help network for configuring SASL or read the ChangeLog for more information.";
|
|
}
|
|
}
|