--- /dev/null
+#!/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;
+}