libvideosite: use internal _colorpair helper function

[videosite.git] / videosite-irssi.pl

diff --git a/videosite-irssi.pl b/videosite-irssi.pl
index 03dfa0b..55d7b20 100644 (file)
--- a/videosite-irssi.pl
+++ b/videosite-irssi.pl
@@ -119,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;
 }
@@ -132,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";
 }
 
 #
@@ -163,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 '';
 }
@@ -175,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);
@@ -190,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);
@@ -198,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,