Add skeleton for weechat plugin
authorRalf Ertzinger <ralf@skytale.net>
Sun, 14 Apr 2013 20:12:41 +0000 (22:12 +0200)
committerRalf Ertzinger <ralf@skytale.net>
Sun, 14 Apr 2013 20:12:41 +0000 (22:12 +0200)
videosite-weechat.pl [new file with mode: 0644]

diff --git a/videosite-weechat.pl b/videosite-weechat.pl
new file mode 100644 (file)
index 0000000..1f26b32
--- /dev/null
@@ -0,0 +1,31 @@
+#!/usr/bin/perl -w
+
+use strict;
+use Data::Dumper;
+
+weechat::register(
+    "videosite",
+    "Ralf Ertzinger (ralf\@skytale.net)",
+    "0.1",
+    "GPL",
+    "videosite Video URL grabber script (usage: /videosite)",
+    "",
+    "");
+weechat::hook_command(
+    "videosite",
+    "videosite control functions",
+    "",
+    "",
+    "",
+    "videosite_hook",
+    "");
+
+sub videosite_hook {
+    my ($data, $buffer, $args) = @_;
+
+    weechat::print("", sprintf("Data: %s", Dumper($data)));
+    weechat::print("", sprintf("Buffer: %s", Dumper($buffer)));
+    weechat::print("", sprintf("Args: %s", Dumper($args)));
+
+    return weechat::WEECHAT_RC_OK;
+}