X-Git-Url: https://git.camperquake.de/gitweb.cgi?p=videosite.git;a=blobdiff_plain;f=videosite-weechat.pl;h=5bddd1fdf9b069f64d24a6aff6bba80670e8fa9e;hp=9392c20a6e1d1576bbfcccbab5286aceac0d9866;hb=HEAD;hpb=4d0981a45ce2331721226a9c3fc154a82d7fc7fa diff --git a/videosite-weechat.pl b/videosite-weechat.pl index 9392c20..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); @@ -117,7 +122,6 @@ sub videosite_reset { 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;