204 |
warn "# type ",dump @type; |
warn "# type ",dump @type; |
205 |
$audit->{type} = [ @type ]; |
$audit->{type} = [ @type ]; |
206 |
|
|
|
warn ">> $mac == $ip server: $server::ip", $file ? " file: $file\n" : "\n" if $debug; |
|
207 |
$audit->{response} = $packet; |
$audit->{response} = $packet; |
208 |
|
|
209 |
$packet = new Net::DHCP::Packet( %$packet ); |
$packet = new Net::DHCP::Packet( %$packet ); |
223 |
) or die "socket: $@"; |
) or die "socket: $@"; |
224 |
|
|
225 |
$reply->send( $buff, 0 ) or die "Error sending: $!\n"; |
$reply->send( $buff, 0 ) or die "Error sending: $!\n"; |
226 |
|
warn ">> $mac == $ip server: $server::ip", $file ? " file: $file\n" : "\n"; |
227 |
} else { |
} else { |
228 |
$audit->{error} = "$ip our of our range $server::ip $server::netmask"; |
$audit->{error} = "$ip our of our range $server::ip $server::netmask"; |
229 |
warn $audit->{error}; |
warn $audit->{error}; |