{
    use esmith::util;

    #--------------------------------------------------
    # Compute local IP address, netmask and network values.
    #--------------------------------------------------

    my $ipaddrBits  = esmith::util::IPquadToAddr ($LocalIP);
    my $netmaskBits = esmith::util::IPquadToAddr ($LocalNetmask);
    my $networkBits = $ipaddrBits & $netmaskBits;

    #--------------------------------------------------
    # Compute our hostid, and the highest hostid, limiting range
    # to a class B at most (so we don't get a huge output file).
    #--------------------------------------------------

    my $myHostid = (~ $netmaskBits) & $ipaddrBits;

    my $maxHostid = ((~ $netmaskBits) & 0xffffff) - 1;
    $maxHostid = ($maxHostid <= 65534) ? $maxHostid : 65534;

    for ($i = 1; $i <= $maxHostid; $i++)
    {
        my $ip = esmith::util::IPaddrToQuad ($networkBits | $i);
    	$OUT .= "$ip\tuser$i\t\tUNIX\n";
    }
}
