sub process_packet {
my $sock = shift;
- server->refresh;
-
my $buf;
$sock->recv($buf, 1024);
my $size = 'empty';
LocalPort => 67,
Proto => "udp",
Broadcast => 1,
- PeerAddr => '255.255.255.255',
+# PeerAddr => '255.255.255.255',
+ PeerAddr => $server::bcast,
PeerPort => 68,
Reuse => 1,
) or die "socket: $@";
CouchDB::audit( 'start', { addr => $sock->sockhost, port => $sock->sockport } );
while (1) {
+ server->refresh;
process_packet $sock;
}
}