1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
|
package Net::Proxy::Connector::tcp;
use strict;
use warnings;
use IO::Socket::INET;
use Net::Proxy::Connector;
our @ISA = qw( Net::Proxy::Connector );
sub init {
my ($self) = @_;
# set up some defaults
$self->{host} ||= 'localhost';
$self->{timeout} ||= 1;
}
# IN
*listen = \&Net::Proxy::Connector::raw_listen;
*accept_from = \&Net::Proxy::Connector::raw_accept_from;
# OUT
sub connect {
my ($self) = @_;
my $sock = IO::Socket::INET->new(
PeerAddr => $self->{host},
PeerPort => $self->{port},
Proto => 'tcp',
Timeout => $self->{timeout},
);
die $! unless $sock;
return $sock;
}
# READ
*read_from = \&Net::Proxy::Connector::raw_read_from;
# WRITE
*write_to = \&Net::Proxy::Connector::raw_write_to;
1;
__END__
=head1 NAME
Net::Proxy::Connector::tcp - Net::Proxy connector for standard tcp proxies
=head1 SYNOPSIS
# sample proxy using Net::Proxy::Connector::tcp
use Net::Proxy;
my $proxy = Net::Proxy->new(
in => { type => tcp, port => '6789' },
out => { type => tcp, host => 'remotehost', port => '9876' },
);
$proxy->register();
Net::Proxy->mainloop();
=head1 DESCRIPTION
C<Net::Proxy::Connector::tcp> is a connector for handling basic, standard
TCP connections.
=head1 CONNECTOR OPTIONS
The connector accept the following options:
=head2 C<in>
=over 4
=item * host
The listening address. If not given, the default is C<localhost>.
=item * port
The listening port.
=back
=head2 C<out>
=over 4
=item * host
The remote host.
=item * port
The remote port.
=item * timeout
The socket timeout for connection (C<out> only).
=back
=head1 AUTHOR
Philippe 'BooK' Bruhat, C<< <book@cpan.org> >>.
=head1 COPYRIGHT
Copyright 2006 Philippe 'BooK' Bruhat, All Rights Reserved.
=head1 LICENSE
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
=cut
|
