--- lib/PXElator/client.pm 2009/08/28 22:29:08 330 +++ lib/PXElator/client.pm 2009/09/07 21:53:45 391 @@ -83,6 +83,13 @@ my $mac = shift; $mac = format::mac($mac); + if ( my $clients_left = server::shared( 'new_clients' ) ) { + server::shared( 'new_clients', $clients_left - 1 ); + } else { + warn "W: no new clients accepted"; + return '0.0.0.0'; + } + my $prefix = $server::ip; $prefix =~ s{\.\d+$}{.}; my $addr = $server::ip_from || die;