use File::Basename;
use Module::Load;
use Cwd qw(realpath);
+use Carp;
+
+$SIG{ __DIE__ } = sub { Carp::confess( @_ ) };
my $info = 0;
my $debug = 0;
foreach (keys(%{$m})) {
printf("%s: %s\n", $_, defined($m->{$_})?$m->{$_}:'(undef)');
}
- return 0;
+ return 1;
} else {
print("Downloading $m->{'TITLE'}\n");
- return 1;
+ return 0;
}
}
load 'libvideosite';
unless(libvideosite::register_api({
- config_init => sub {},
- config_save => sub {},
- config_get => sub { return $config{join(".", @{$_[0]})} },
- config_set => sub { $config{join(".", @{$_[0]})} = $_[1] },
- config_has => sub { exists($config{join(".", @{$_[0]})}) },
- config_del => sub { delete($config{join(".", @{$_[0]})}) },
link_callback => \&link_callback,
+ _config_default => sub { return \%config },
_debug => sub { return $debug },
})) {
die("Error registering API: $libvideosite::error");
libvideosite::check_for_link({
message => $_,
ewpf => sub { print @_, "\n" },
+ window => "",
});
}