videosite-irssi: Add missing modules

[videosite.git] / videosite-irssi.pl

diff --git a/videosite-irssi.pl b/videosite-irssi.pl
index 822d9b5..3ab54ec 100644 (file)
--- a/videosite-irssi.pl
+++ b/videosite-irssi.pl
@@ -6,6 +6,9 @@ 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;
+use XML::Simple;
+use JSON -support_by_pp;
 
 #
 # Initialize the config subsystem. Called by the core.
@@ -118,7 +121,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 +134,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 +165,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 +177,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 +192,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 +200,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,