X-Git-Url: https://git.camperquake.de/gitweb.cgi?a=blobdiff_plain;f=videosite-weechat.pl;h=e093b30c68c38eb877b9c90af430f0c4dfda55b4;hb=2838787b695838be443c7f1bd0b9278452a07e65;hp=62c887051074231e83816d06f56cfd8a3ec860dc;hpb=b0b6b32a8fb9229a1bb26ccb8f5cd382dcc11166;p=videosite.git

diff --git a/videosite-weechat.pl b/videosite-weechat.pl
index 62c8870..e093b30 100644
--- a/videosite-weechat.pl
+++ b/videosite-weechat.pl
@@ -1,5 +1,7 @@
-#!/usr/bin/perl -w
-
+# shim to connect libvideosite to weechat
+#
+# (c) 2007-2008 by Ralf Ertzinger <ralf@camperquake.de>
+# licensed under GNU GPL v2
 use strict;
 use File::Spec;
 use Module::Load;
@@ -65,9 +67,6 @@ sub config_del {
 sub colorpair {
     my ($fg, $bg) = @_;
 
-    $fg = defined($fg)?$fg:'default';
-    $bg = defined($bg)?$bg:'default';
-
     return weechat::color($fg . ",", $bg);
 }
 
@@ -112,12 +111,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 $_ },
-        _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;