X-Git-Url: https://git.camperquake.de/gitweb.cgi?p=videosite.git;a=blobdiff_plain;f=videosite-weechat.pl;h=5bddd1fdf9b069f64d24a6aff6bba80670e8fa9e;hp=0f51c5cd33da756727bd99d2b949f0994946f071;hb=HEAD;hpb=ba69db073455cd39baf7ff3834a4475ed7536a6e diff --git a/videosite-weechat.pl b/videosite-weechat.pl index 0f51c5c..5bddd1f 100644 --- a/videosite-weechat.pl +++ b/videosite-weechat.pl @@ -6,6 +6,9 @@ use strict; use File::Spec; use Module::Load; use Data::Dumper; +use Carp; + +$SIG{ __DIE__ } = sub { Carp::confess( @_ ) }; weechat::register( "videosite", @@ -77,7 +80,8 @@ sub videosite_hook { my ($data, $buffer, $args) = @_; my %event = ( message => $args, - ewpf => sub { weechat::print($buffer, @_) }, + io => sub { weechat::print($buffer, @_) }, + window => $buffer, ); libvideosite::handle_command(\%event); @@ -93,7 +97,8 @@ sub message_hook { 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); @@ -111,13 +116,12 @@ sub videosite_reset { 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 $_ }, reload => sub { weechat::print("", "Please use \"/script reload ...\" to reload") }, - _debug => sub { 1 }, })) { weechat::print("", sprintf("videosite API register failed: %s", $libvideosite::error)); return 0;