--- bin/dhcpd.pl 2009/07/29 13:03:39 36 +++ bin/dhcpd.pl 2009/07/29 14:29:55 40 @@ -123,8 +123,6 @@ Giaddr => $dhcp->giaddr(), Chaddr => $dhcp->chaddr(), File => $file, -# DHO_DHCP_MESSAGE_TYPE() => DHCPACK(), -# DHO_SUBNET_MASK() => '255.255.255.0', }; my $messagetype = $dhcp->getOptionValue(DHO_DHCP_MESSAGE_TYPE()); @@ -137,8 +135,14 @@ my $requested_ip = $dhcp->getOptionValue(DHO_DHCP_REQUESTED_ADDRESS()); warn "DHCP REQUEST $requested_ip"; if ( $ip eq $requested_ip ) { - $packet->{DHO_DHCP_MESSAGE_TYPE()} = DHCPACK(); - $packet->{DHO_DHCP_LEASE_TIME()} = 100; + $packet->{DHO_DHCP_MESSAGE_TYPE()} = DHCPACK(); + $packet->{DHO_DHCP_LEASE_TIME()} = 5 * 60; # 5 min +# $packet->{DHO_DHCP_SERVER_IDENTIFIER()} = $server_ip; # FIXME + $packet->{DHO_SUBNET_MASK()} = '255.255.255.0'; + $packet->{DHO_ROUTERS()} = $server_ip; +# $packet->{DHO_DOMAIN_NAME()} = 'pxelator.lan'; +# $packet->{DHO_NAME_SERVERS()} = $server_ip; +# $packet->{DHO_ROOT_PATH()} = '/exports/foobar'; } else { $packet->{DHO_DHCP_MESSAGE_TYPE()} = DHCPNAK(); $packet->{DHO_DHCP_MESSAGE()} = "Bad request, expected $ip";