videosite-weechat.pl

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use Data::Dumper;
   5
   6 weechat::register(
   7     "videosite",
   8     "Ralf Ertzinger (ralf\@skytale.net)",
   9     "0.1",
  10     "GPL",
  11     "videosite Video URL grabber script (usage: /videosite)",
  12     "",
  13     "");
  14 weechat::hook_command(
  15     "videosite",
  16     "videosite control functions",
  17     "",
  18     "",
  19     "",
  20     "videosite_hook",
  21     "");
  22
  23 sub videosite_hook {
  24     my ($data, $buffer, $args) = @_;
  25
  26     weechat::print("", sprintf("Data: %s", Dumper($data)));
  27     weechat::print("", sprintf("Buffer: %s", Dumper($buffer)));
  28     weechat::print("", sprintf("Args: %s", Dumper($args)));
  29
  30     return weechat::WEECHAT_RC_OK;
  31 }