24 |
use Net::DHCP::Constants 0.67; |
use Net::DHCP::Constants 0.67; |
25 |
|
|
26 |
use CouchDB; |
use CouchDB; |
27 |
|
use format; |
28 |
|
|
29 |
use server; |
use server; |
30 |
my $debug = server::debug; |
my $debug = server::debug; |
90 |
my $hostname = $dhcp->getOptionValue(DHO_HOST_NAME); |
my $hostname = $dhcp->getOptionValue(DHO_HOST_NAME); |
91 |
print "$ip ", client::conf( $ip => 'hostname', default => $hostname ), " >> /etc/hosts\n"; |
print "$ip ", client::conf( $ip => 'hostname', default => $hostname ), " >> /etc/hosts\n"; |
92 |
|
|
93 |
my $audit = { mac => $mac, ip => $ip, hostname => $hostname }; |
my $audit = { mac => format::mac($mac), ip => $ip, hostname => $hostname }; |
|
CouchDB::audit( 'request', $audit ); |
|
94 |
|
|
95 |
=for later |
=for later |
96 |
|
|
186 |
$packet = new Net::DHCP::Packet( %$packet ); |
$packet = new Net::DHCP::Packet( %$packet ); |
187 |
warn "send ",$packet->toString() if $debug; |
warn "send ",$packet->toString() if $debug; |
188 |
|
|
189 |
CouchDB::audit( 'response', $audit ); |
CouchDB::audit( $audit->{type}, $audit ); |
190 |
|
|
191 |
my $reply = IO::Socket::INET->new( |
my $reply = IO::Socket::INET->new( |
192 |
LocalAddr => $server::ip, |
LocalAddr => $server::ip, |