{
    use esmith::util;

    my @prefixes = ();

    require esmith::NetworksDB;
    my $n = esmith::NetworksDB->open;
    foreach my $network ($n->get_all_by_prop(type => 'network'))
    {
        if ( (($qpsmtpd{'RelayRequiresAuth'} || 'enabled') eq 'disabled') or 
             (($network->prop('RelayRequiresAuth') || 'enabled') eq 'disabled'))
        {
            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";
    }
}
