3 # $Id: //depot/libnet/Net/Config.pm#6 $
6 use vars qw(@ISA @EXPORT %NetConfig $VERSION $CONFIGURE $LIBNET_CFG);
7 use Socket qw(inet_aton inet_ntoa);
10 @EXPORT = qw(%NetConfig);
11 @ISA = qw(Net::LocalCfg Exporter);
14 eval { local $SIG{__DIE__}; require Net::LocalCfg };
25 ftp_firewall => undef,
34 $file =~ s/Config.pm/libnet.cfg/;
36 $ref = eval { do $file };
37 if (ref($ref) eq 'HASH') {
38 %NetConfig = (%NetConfig, %{ $ref });
42 if ($< == $> and !$CONFIGURE) {
43 my $home = eval { (getpwuid($>))[7] } || $ENV{HOME};
44 $file = $home . "/.libnetrc";
45 $ref = eval { do $file } if -f $file;
46 %NetConfig = (%NetConfig, %{ $ref })
47 if ref($ref) eq 'HASH';
50 while(($k,$v) = each %NetConfig) {
52 if($k =~ /_hosts$/ && !ref($v));
55 # Take a hostname and determine if it is inside te firewall
57 sub requires_firewall {
58 shift; # ignore package
61 return 0 unless defined $NetConfig{'ftp_firewall'};
63 $host = inet_aton($host) or return -1;
64 $host = inet_ntoa($host);
66 if(exists $NetConfig{'local_netmask'}) {
67 my $quad = unpack("N",pack("C*",split(/\./,$host)));
68 my $list = $NetConfig{'local_netmask'};
69 $list = [$list] unless ref($list);
71 my($net,$bits) = (m#^(\d+\.\d+\.\d+\.\d+)/(\d+)$#) or next;
72 my $mask = ~0 << (32 - $bits);
73 my $addr = unpack("N",pack("C*",split(/\./,$net)));
75 return 0 if (($addr & $mask) == ($quad & $mask));
83 use vars qw(*is_external);
84 *is_external = \&requires_firewall;
92 Net::Config - Local configuration data for libnet
96 use Net::Config qw(%NetConfig);
100 C<Net::Config> holds configuration data for the modules in the libnet
101 distribuion. During installation you will be asked for these values.
103 The configuration data is held globally in a file in the perl installation
104 tree, but a user may override any of these values by providing thier own. This
105 can be done by having a C<.libnetrc> file in thier home directory. This file
106 should return a reference to a HASH containing the keys described below.
111 nntp_hosts => [ "my_prefered_host" ],
112 ph_hosts => [ "my_ph_server" ],
118 C<Net::Config> defines the following methods. They are methods as they are
119 invoked as class methods. This is because C<Net::Config> inherits from
120 C<Net::LocalCfg> so you can override these methods if you want.
124 =item requires_firewall HOST
126 Attempts to determine if a given host is outside your firewall. Possible
129 -1 Cannot lookup hostname
130 0 Host is inside firewall (or there is no ftp_firewall entry)
131 1 Host is outside the firewall
133 This is done by using hostname lookup and the C<local_netmask> entry in
134 the configuration data.
138 =head1 NetConfig VALUES
156 Each is a reference to an array of hostnames (in order of preference),
157 which should be used for the given protocol
161 Your internet domain name
165 If you have an FTP proxy firewall (B<NOT> a HTTP or SOCKS firewall)
166 then this value should be set to the firewall hostname. If your firewall
167 does not listen to port 21, then this value should be set to
168 C<"hostname:port"> (eg C<"hostname:99">)
170 =item ftp_ext_passive
174 FTP servers normally work on a non-passive mode. That is when you want to
175 transfer data you have to tell the server the address and port to
178 With some firewalls this does not work as te server cannot
179 connect to your machine (because you are beind a firewall) and the firewall
180 does not re-write te command. In this case you should set C<ftp_ext_passive>
183 Some servers are configured to only work in passive mode. If you have
184 one of these you can force C<Net::FTP> to always transfer in passive
185 mode, when not going via a firewall, by cetting C<ftp_int_passive> to
190 A reference to a list of netmask strings in the form C<"134.99.4.0/24">.
191 These are used by the C<requires_firewall> function to determine if a given
192 host is inside or outside your firewall.
196 The following entries are used during installation & testing on the
203 If true them C<make test> may attempt to connect to hosts given in the
208 If true the C<Configure> will check each hostname given that it exists