X-Git-Url: https://git.camperquake.de/gitweb.cgi?a=blobdiff_plain;f=videosite-dl.pl;h=a907b84a49e6e5816322eefa7b83207b17470915;hb=ae02b5f92b84fc5e6cba1986dcce7d2a7a7f5aa1;hp=1225b925904f5a7e4bbdec7e91726427f3e199bb;hpb=cfabedac3a6cbb07711ba6b87602d35161e2e53e;p=videosite.git

diff --git a/videosite-dl.pl b/videosite-dl.pl
index 1225b92..a907b84 100755
--- a/videosite-dl.pl
+++ b/videosite-dl.pl
@@ -6,6 +6,9 @@ use File::Spec;
 use File::Basename;
 use Module::Load;
 use Cwd qw(realpath);
+use Carp;
+
+$SIG{ __DIE__ } = sub { Carp::confess( @_ ) };
 
 my $info = 0;
 my $debug = 0;
@@ -37,13 +40,8 @@ push(@INC, dirname(realpath($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");
@@ -57,7 +55,7 @@ foreach (@ARGV) {
     printf("Handling %s...\n", $_);
     libvideosite::check_for_link({
         message => $_,
-        ewpf => sub { print @_, "\n" },
+        io => sub { print @_, "\n" },
         window => "",
     });
 }