{
    use esmith::util;

    my %networks;
    tie %networks, 'esmith::config', '/home/e-smith/networks';

    my ($network, $broadcast) =
	esmith::util::computeNetworkAndBroadcast ($LocalIP, $LocalNetmask);
    my $localAccess = "127.0.0.1 $network/$LocalNetmask";

    foreach my $network
	(grep { db_get_type(\%networks, $_) eq "network" } db_get(\%networks))
    {
	my $mask = db_get_prop(\%networks, $network, 'Mask')
	    || "255.255.255.0";
	$localAccess .= " " .
	    esmith::util::computeLocalNetworkSpec ($network, $mask);
    }

    $OUT .= "acl localsrc src $localAccess\n";
    $OUT .= "acl localdst dst $localAccess";
}
