You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
24 lines
649 B
Plaintext
24 lines
649 B
Plaintext
{
|
|
use esmith::util;
|
|
|
|
my @prefixes = esmith::util::computeAllLocalNetworkPrefixes($LocalIP,
|
|
$LocalNetmask);
|
|
|
|
require esmith::NetworksDB;
|
|
my $n = esmith::NetworksDB->open;
|
|
foreach my $network ($n->get_all_by_prop(type => 'network'))
|
|
{
|
|
push(@prefixes,
|
|
esmith::util::computeAllLocalNetworkPrefixes(
|
|
$network->key, $network->prop('Mask')));
|
|
}
|
|
|
|
foreach my $prefix ( @prefixes )
|
|
{
|
|
my $dot = ( $prefix =~ /\d+\.\d+\.\d+\.\d+/ ) ? '' : '.';
|
|
|
|
$OUT .= $prefix . $dot . "\n";
|
|
}
|
|
$OUT .= "127.0.0.1";
|
|
}
|