- $self->$logger($dhcpreq->toString());
- $ip = $dhcpreq->ciaddr();
- $mac = $self->$get_mac_ip4($dhcpreq);
+ $self->$logger($req->toString());
+ $ip = $req->ciaddr();
+ $mac = $self->$get_mac_ip4($req);
$self->$logger("Release request for IP: $ip MAC: $mac", INFO);
if ($self->{_leases}->{$ip}) {
my $lease = $self->{_leases}->{$ip};
if ($lease->{'hardware ethernet'} eq $mac) {
$self->$logger("Release request for IP: $ip MAC: $mac", INFO);
if ($self->{_leases}->{$ip}) {
my $lease = $self->{_leases}->{$ip};
if ($lease->{'hardware ethernet'} eq $mac) {
my ($self, $addr, $req) = @_;
$self->$logger("IPv6 request from [$addr]: $req", INFO);
my ($self, $addr, $req) = @_;
$self->$logger("IPv6 request from [$addr]: $req", INFO);
die "[excuse_me_ip6] Socket creation error: $err\n";
};
$self->$logger("$addr: Not implemented here", INFO);
die "[excuse_me_ip6] Socket creation error: $err\n";
};
$self->$logger("$addr: Not implemented here", INFO);
|| $self->$logger("recv: $!", ERROR);
next if ($!); # continue loop if an error occured
|| $self->$logger("recv: $!", ERROR);
next if ($!); # continue loop if an error occured
|| $self->$logger("recv: $!", ERROR);
next if ($!); # continue loop if an error occured
$self->$logger("recv: $buf", INFO);
|| $self->$logger("recv: $!", ERROR);
next if ($!); # continue loop if an error occured
$self->$logger("recv: $buf", INFO);