11 $SIG{ __DIE__ } = sub { Carp::confess( @_ ) };
17 getter => 'filegetter',
18 'plugin.youtube.QUALITY' => 'hd',
19 'plugin.filegetter.FILEPATTERN' => './%3$s.flv',
26 foreach (keys(%{$m})) {
27 printf("%s: %s\n", $_, defined($m->{$_})?$m->{$_}:'(undef)');
31 print("Downloading $m->{'TITLE'}\n");
37 GetOptions("i" => \$info, "d" => \$debug);
39 push(@INC, dirname(realpath($0)));
42 unless(libvideosite::register_api({
43 config_init => sub {},
44 config_save => sub {},
45 config_get => sub { return $config{join(".", @{$_[0]})} },
46 config_set => sub { $config{join(".", @{$_[0]})} = $_[1] },
47 config_has => sub { exists($config{join(".", @{$_[0]})}) },
48 config_del => sub { delete($config{join(".", @{$_[0]})}) },
49 link_callback => \&link_callback,
50 _debug => sub { return $debug },
52 die("Error registering API: $libvideosite::error");
55 unless(libvideosite::init()) {
56 die("Could not init libvideosite: $libvideosite::error");
60 printf("Handling %s...\n", $_);
61 libvideosite::check_for_link({
63 ewpf => sub { print @_, "\n" },