use Irssi 20020324 qw (command_bind command_runsub signal_add_first signal_add_last);
use vars qw($VERSION %IRSSI);
use File::Spec;
+use Module::Load;
#
# Initialize the config subsystem. Called by the core.
Irssi::settings_add_str('videosite', $item, "\0");
- $val = Irssi::settigs_get_str($item);
+ $val = Irssi::settings_get_str($item);
return ($val ne "\0")?$val:undef;
}
my $item = join('.', 'videosite', @{$path});
Irssi::settings_add_str('videosite', $item, "\0");
- return Irssi::settings_get_str ne "\0";
+ return Irssi::settings_get_str($item) ne "\0";
}
#
sub colorpair {
my ($fg, $bg) = @_;
- Irssi::print(sprintf("Asked to convert (%s,%s) into irssi color codes", $fg, $bg));o
+ Irssi::print(sprintf("Asked to convert (%s,%s) into irssi color codes", $fg, $bg));
return '';
}
my ($cmdline, $server, $witem) = @_;
my %event = (
message => $cmdline,
- ewpf => sub { defined($evitem)?$evitem->print(@_):Irssi::print(@_) },
+ ewpf => sub { defined($witem)?$witem->print($_[0]):Irssi::print($_[0]) },
);
libvideosite::handle_command(\%event);
my $evitem = $server->window_item_find($channel);
my %event = (
message => $msg,
- ewpf => sub { defined($evitem)?$evitem->print(@_):Irssi::print(@_) },
+ ewpf => sub { defined($evitem)?$evitem->print($_[0]):Irssi::print($_[0]) },
);
libvideosite::check_for_link(\%event);
sub videosite_reset {
unless(libvideosite::register_api({
- io => sub { Irssi::print(@_) },
+ io => sub { Irssi::print($_[0]) },
config_init => \&config_init,
config_get => \&config_get,
config_set => \&config_set,