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