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;
if ($debug) {
$_->setdebug(1);
+ $_->setconn(\&connectors);
}
}