view release on metacpan or  search on metacpan

Client/httunnel  view on Meta::CPAN

		local_addr => 'localhost',
		local_port => undef,
		protocol => 'tcp',
		remote_port => undef,
		remote_host => undef,

		url => undef,
		http_protocol => 'HTTP/1.1',
		http_keep_alive => 1,
		http_username => '',
		http_password => '',
		http_proxy => '',
		http_proxy_username => '',
		http_proxy_password => '',
		read_length => 131072,
		read_timeout => 15,
		verbose => $DEBUG,
	) ;
	
	foreach my $f (@files){
		my $cnt = 0 ;
		my $section = $f->{name} ;
		my $config = {$section => {%defaults}} ;
		foreach my $l (@{$f->{lines}}){

Client/httunnel  view on Meta::CPAN

sub get_basic_credentials {
	my $this = shift ;
	my $realm = shift ;
	my $uri = shift ;
	my $proxy = shift ;

	my $cfg = $this->{__PACKAGE__}->{cfg} ;
	if ($proxy){
		return ($cfg->{http_proxy_username}, $cfg->{http_proxy_password}) ;
	}

	return ($cfg->{http_username}, $cfg->{http_password}) ;
}


sub request_callback {
	my $this = shift ;
	my $req = shift ;

	$req->protocol($this->{__PACKAGE__}->{cfg}->{http_protocol}) ;
	main::sdebug("HTTP Request:") ;
	main::sdebug(join(' ', $req->method(), $req->uri(), $req->protocol()), '  ') ;

Client/httunnel.pod  view on Meta::CPAN

=item http_keep_alive = <0 or 1>

Whether to use persistent HTTP connections. Although not required, this
increases performance quite a bit. The default is '1'.

=item http_username = <username>

Basic authentication username for the L<Apache::HTTunnel> server.
The default is ''.

=item http_password = <password>

Basic authentication password for the L<Apache::HTTunnel> server.
The default is ''.

=item http_proxy = <url>

URL of your HTTP proxy. This is passed directly to L<LWP::UserAgent>.

=item http_proxy_username = <username>

Basic authentication username for your HTTP proxy. The default is ''.

=item http_proxy_password = <password>

Basic authentication password for your HTTP proxy. The default is ''.

=item read_length = <nb. bytes>

The numbers of bytes the L<httunnel> tries to read when a read is
attempted. The default is 131072 bytes.

=item read_timeout = <nb. seconds>

All HTTP read request are interrupted after C<read_timeout> by
L<Apache::HTTunnel>. However, L<HTTunnel::Client> will keep on