return @g;
}
+sub connectors {
+ my $c = {name => 'environment', schemas => {}};
+
+ if (exists($ENV{'http_proxy'})) {
+ $c->{schemas}->{'http'} = $ENV{'http_proxy'}
+ }
+
+ if (exists($ENV{'https_proxy'})) {
+ $c->{schemas}->{'https'} = $ENV{'https_proxy'}
+ }
+
+ return ( $c );
+}
+
+
my $hq = 0;
my $ext = '.flv';
my $y;
my $m;
my @g;
my $bp;
+my $info = 0;
+my $debug = 0;
+
+GetOptions("i" => \$info, "d" => \$debug);
# This is some dark magic to find out our real base directory,
# where we hope to find our plugins.
exit 1;
}
+foreach (@g, $f) {
+ $_->setio(sub { printf(@_); print("\n"); } );
+ $_->setconn(\&connectors);
+
+ if ($debug) {
+ $_->setdebug(1);
+ }
+}
+
$f->setval('FILEPATTERN', './%3$s' . $ext);
foreach (@ARGV) {
foreach $y (@g) {
($m, undef) = $y->get($_);
if (defined($m)) {
- print("Downloading $m->{'TITLE'}\n");
- $f->get($m);
+ if ($info) {
+ foreach (keys(%{$m})) {
+ printf("%s: %s\n", $_, defined($m->{$_})?$m->{$_}:'(undef)');
+ }
+ } else {
+ print("Downloading $m->{'TITLE'}\n");
+ $f->get($m);
+ }
}
}
}