use File::Spec;
use Module::Load;
use Data::Dumper;
+use Carp;
+
+$SIG{ __DIE__ } = sub { Carp::confess( @_ ) };
weechat::register(
"videosite",
sub colorpair {
my ($fg, $bg) = @_;
- $fg = defined($fg)?$fg:'default';
- $bg = defined($bg)?$bg:'default';
-
return weechat::color($fg . ",", $bg);
}
my ($data, $buffer, $args) = @_;
my %event = (
message => $args,
- ewpf => sub { weechat::print($buffer, @_) },
+ io => sub { weechat::print($buffer, @_) },
+ window => $buffer,
);
libvideosite::handle_command(\%event);
my ($data, $buffer, $date, $tags, $displayed, $highlight, $prefix, $message ) = @_;
my %event = (
message => $message,
- ewpf => sub { weechat::print($buffer, @_) },
+ io => sub { weechat::print($buffer, @_) },
+ window => $buffer
);
libvideosite::check_for_link(\%event);
config_get => \&config_get,
config_set => \&config_set,
config_has => \&config_has,
- config_save => sub {},
+ config_save => sub { 1 },
config_del => \&config_del,
color => \&colorpair,
module_path => sub { return File::Spec->catfile(weechat::info_get("weechat_dir", ""), 'perl') },
quote => sub { return $_ },
- _debug => sub { 1 },
+ reload => sub { weechat::print("", "Please use \"/script reload ...\" to reload") },
})) {
weechat::print("", sprintf("videosite API register failed: %s", $libvideosite::error));
return 0;