69 |
} |
} |
70 |
|
|
71 |
write_file "$conf/mac/$mac", $ip; |
write_file "$conf/mac/$mac", $ip; |
72 |
unlink "$conf/ip/$ip" if -e "$conf/ip/$ip"; |
if ( -l "$conf/ip/$ip" && readlink "$conf/ip/$ip" ne "$conf/mac/$mac") { |
73 |
symlink "$conf/mac/$mac", "$conf/ip/$ip"; |
unlink "$conf/ip/$ip"; |
74 |
|
symlink "$conf/mac/$mac", "$conf/ip/$ip"; |
75 |
|
warn "$mac IP changed to $ip"; |
76 |
|
} |
77 |
|
|
78 |
print "$mac NEW $ip\n"; |
print "$mac NEW $ip\n"; |
79 |
|
|
135 |
warn "DHCP REQUEST $requested_ip"; |
warn "DHCP REQUEST $requested_ip"; |
136 |
if ( $ip eq $requested_ip ) { |
if ( $ip eq $requested_ip ) { |
137 |
$packet->{DHO_DHCP_MESSAGE_TYPE()} = DHCPACK(); |
$packet->{DHO_DHCP_MESSAGE_TYPE()} = DHCPACK(); |
138 |
|
$packet->{DHO_DHCP_LEASE_TIME()} = 100; |
139 |
} else { |
} else { |
140 |
$packet->{DHO_DHCP_MESSAGE_TYPE()} = DHCPNAK(); |
$packet->{DHO_DHCP_MESSAGE_TYPE()} = DHCPNAK(); |
141 |
$packet->{DHO_DHCP_MESSAGE()} = "Bad request, expected $ip"; |
$packet->{DHO_DHCP_MESSAGE()} = "Bad request, expected $ip"; |