--- lib/PXElator/client.pm 2009/09/07 21:53:45 391 +++ lib/PXElator/client.pm 2009/09/08 18:09:01 399 @@ -6,6 +6,7 @@ use File::Slurp; use Data::Dump qw/dump/; +use File::Path; use server; use format; @@ -83,8 +84,8 @@ my $mac = shift; $mac = format::mac($mac); - if ( my $clients_left = server::shared( 'new_clients' ) ) { - server::shared( 'new_clients', $clients_left - 1 ); + if ( $server::new_clients-- ) { + warn "# clients left: $server::new_clients\n"; } else { warn "W: no new clients accepted"; return '0.0.0.0'; @@ -174,7 +175,7 @@ if ( my $mac = mac_from_ip $ip ) { unlink "$server::conf/mac/$mac"; } - rmdir "$server::conf/ip/$ip"; + rmtree "$server::conf/ip/$ip"; } sub arp_mac_dev {