git://git.camperquake.de
/
videosite.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
libvideosite: Add capability to initialize, load and save a config with builtin methods
[videosite.git]
/
videosite-dl.pl
diff --git
a/videosite-dl.pl
b/videosite-dl.pl
index
3a711f1
..
594b020
100755
(executable)
--- 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 File::Basename;
use Module::Load;
use Cwd qw(realpath);
+use Carp;
+
+$SIG{ __DIE__ } = sub { Carp::confess( @_ ) };
my $info = 0;
my $debug = 0;
my $info = 0;
my $debug = 0;
@@
-23,10
+26,10
@@
sub link_callback {
foreach (keys(%{$m})) {
printf("%s: %s\n", $_, defined($m->{$_})?$m->{$_}:'(undef)');
}
foreach (keys(%{$m})) {
printf("%s: %s\n", $_, defined($m->{$_})?$m->{$_}:'(undef)');
}
- return
0
;
+ return
1
;
} else {
print("Downloading $m->{'TITLE'}\n");
} else {
print("Downloading $m->{'TITLE'}\n");
- return
1
;
+ return
0
;
}
}
}
}
@@
-58,5
+61,6
@@
foreach (@ARGV) {
libvideosite::check_for_link({
message => $_,
ewpf => sub { print @_, "\n" },
libvideosite::check_for_link({
message => $_,
ewpf => sub { print @_, "\n" },
+ window => "",
});
}
});
}