{
    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 . ":allow\n";
    }
}
