git://git.camperquake.de
/
videosite.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
libvideosite: use internal _colorpair helper function
[videosite.git]
/
videosite-irssi.pl
diff --git
a/videosite-irssi.pl
b/videosite-irssi.pl
index
c121257
..
55d7b20
100644
(file)
--- a/
videosite-irssi.pl
+++ b/
videosite-irssi.pl
@@
-1,16
+1,12
@@
-#
autodownload flash videos
+#
shim to connect libvideosite to irssi
#
# (c) 2007-2008 by Ralf Ertzinger <ralf@camperquake.de>
# licensed under GNU GPL v2
#
# (c) 2007-2008 by Ralf Ertzinger <ralf@camperquake.de>
# licensed under GNU GPL v2
-#
-# Based on youtube.pl by Christian Garbs <mitch@cgarbs.de>
-# which in turn is
-# based on trigger.pl by Wouter Coekaerts <wouter@coekaerts.be>
-
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 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.
#
# Initialize the config subsystem. Called by the core.
@@
-123,7
+119,7
@@
sub config_get {
Irssi::settings_add_str('videosite', $item, "\0");
Irssi::settings_add_str('videosite', $item, "\0");
- $val = Irssi::settigs_get_str($item);
+ $val = Irssi::setti
n
gs_get_str($item);
return ($val ne "\0")?$val:undef;
}
return ($val ne "\0")?$val:undef;
}
@@
-136,7
+132,7
@@
sub config_has {
my $item = join('.', 'videosite', @{$path});
Irssi::settings_add_str('videosite', $item, "\0");
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";
}
#
}
#
@@
-167,7
+163,7
@@
sub config_del {
sub colorpair {
my ($fg, $bg) = @_;
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 '';
}
return '';
}
@@
-179,7
+175,7
@@
sub videosite_hook {
my ($cmdline, $server, $witem) = @_;
my %event = (
message => $cmdline,
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);
);
libvideosite::handle_command(\%event);
@@
-194,7
+190,7
@@
sub message_hook {
my $evitem = $server->window_item_find($channel);
my %event = (
message => $msg,
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);
);
libvideosite::check_for_link(\%event);
@@
-202,7
+198,7
@@
sub message_hook {
sub videosite_reset {
unless(libvideosite::register_api({
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,
config_init => \&config_init,
config_get => \&config_get,
config_set => \&config_set,