log every sent packet

diff --git a/lib/PXElator/dhcpd.pm b/lib/PXElator/dhcpd.pm
index b391051..b2c05da 100644 (file)
--- a/lib/PXElator/dhcpd.pm
+++ b/lib/PXElator/dhcpd.pm
@@ -204,7 +204,6 @@ sub process_packet {
        warn "# type ",dump @type;
        $audit->{type} = [ @type ];
 
-       warn ">> $mac == $ip server: $server::ip", $file ? " file: $file\n" : "\n" if $debug;
        $audit->{response} = $packet;
 
        $packet = new Net::DHCP::Packet( %$packet );
@@ -224,6 +223,7 @@ sub process_packet {
                ) or die "socket: $@";
 
                $reply->send( $buff, 0 ) or die "Error sending: $!\n";
+               warn ">> $mac == $ip server: $server::ip", $file ? " file: $file\n" : "\n";
        } else {
                $audit->{error} = "$ip our of our range $server::ip $server::netmask";
                warn $audit->{error};