132 |
warn "DHCP REQUEST $requested_ip"; |
warn "DHCP REQUEST $requested_ip"; |
133 |
if ( $ip eq $requested_ip ) { |
if ( $ip eq $requested_ip ) { |
134 |
$packet->{DHO_DHCP_MESSAGE_TYPE()} = DHCPACK(); |
$packet->{DHO_DHCP_MESSAGE_TYPE()} = DHCPACK(); |
135 |
|
$packet->{DHO_DHCP_LEASE_TIME()} = 100; |
136 |
} else { |
} else { |
137 |
$packet->{DHO_DHCP_MESSAGE_TYPE()} = DHCPNAK(); |
$packet->{DHO_DHCP_MESSAGE_TYPE()} = DHCPNAK(); |
138 |
$packet->{DHO_DHCP_MESSAGE()} = "Bad request, expected $ip"; |
$packet->{DHO_DHCP_MESSAGE()} = "Bad request, expected $ip"; |