{
    #------------------------------------------------------------
    # Static dhcp Entries
    #------------------------------------------------------------
    use esmith::db;

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

    my $key;
    my $value;
    while (($key,$value) = each %hosts)
    {
        next unless(db_get_type(\%hosts, $key) eq 'host');

        my $InternalIP = db_get_prop(\%hosts, $key, 'InternalIP');
	next unless ( defined($InternalIP) && ($InternalIP ne ''));

        my $MACAddress = db_get_prop(\%hosts, $key, 'MACAddress');
	next unless ( defined($MACAddress) && ($MACAddress ne ''));

        my $Filename = db_get_prop(\%hosts, $key, 'Filename');

   	$OUT .= "\n";
	$OUT .= "host $key \{\n";
	defined($Filename) and $OUT .= "    filename \"$Filename\";\n";
	$OUT .= "    hardware ethernet $MACAddress;\n";
	$OUT .= "    fixed-address $InternalIP;\n";
	$OUT .= "\}";
	$OUT .= "\n";
    }
    undef;	# We need a return value
}
