X-Git-Url: https://git.camperquake.de/gitweb.cgi?a=blobdiff_plain;f=videosite-irssi.pl;h=55d7b20d72d1bf3b12a71106b6746993ec960226;hb=2793bf0eb588c2ad4c76a4e2e38793612b69757f;hp=822d9b51820a28a18a2cebec1b2650e3df28c71b;hpb=3aa109a9545cb5476bd7e8b4102c3012e3fd242b;p=videosite.git

diff --git a/videosite-irssi.pl b/videosite-irssi.pl
index 822d9b5..55d7b20 100644
--- a/videosite-irssi.pl
+++ b/videosite-irssi.pl
@@ -6,6 +6,7 @@ use strict;
 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.
@@ -118,7 +119,7 @@ sub config_get {
 
 
     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;
 }
@@ -131,7 +132,7 @@ sub config_has {
     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";
 }
 
 #
@@ -162,7 +163,7 @@ sub config_del {
 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 '';
 }
@@ -174,7 +175,7 @@ sub videosite_hook {
     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);
@@ -189,7 +190,7 @@ sub message_hook {
     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);
@@ -197,7 +198,7 @@ sub message_hook {
 
 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,