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;
foreach (@g, $f) {
$_->setio(sub { printf(@_); print("\n"); } );
+ $_->setconn(\&connectors);
if ($debug) {
$_->setdebug(1);