23 |
use Net::DHCP::Packet; |
use Net::DHCP::Packet; |
24 |
use Net::DHCP::Constants 0.67; |
use Net::DHCP::Constants 0.67; |
25 |
|
|
26 |
use CouchDB; |
use store; |
27 |
use format; |
use format; |
28 |
|
|
29 |
use server; |
use server; |
230 |
warn $audit->{error}; |
warn $audit->{error}; |
231 |
} |
} |
232 |
|
|
233 |
CouchDB::audit( @type, $audit ); |
store::audit( @type, $audit ); |
234 |
|
|
235 |
# system("arp -s $ip $mac"), |
# system("arp -s $ip $mac"), |
236 |
|
|
252 |
|
|
253 |
print "DHCP listen on ",$sock->sockhost,":",$sock->sockport,"\n"; |
print "DHCP listen on ",$sock->sockhost,":",$sock->sockport,"\n"; |
254 |
|
|
255 |
CouchDB::audit( 'start', { addr => $sock->sockhost, port => $sock->sockport } ); |
store::audit( 'start', { addr => $sock->sockhost, port => $sock->sockport } ); |
256 |
|
|
257 |
while (1) { |
while (1) { |
258 |
server->refresh; |
server->refresh; |