use utf8;
use warnings; no warnings "redefine";
use strict;
use Loader qw(get_free_ip line_printer);
use Dbase::Help qw(DoSelect);

sub show_free_ipr($;$) {
	my($id,$flag) = @_;
	my @free;
	my $fr = 0;
	DoSelect {
		my($idi) = @_;
		$fr += get_free_ip($idi,@free);
	} "select id from ipkunde where ipregion = $id";
	line_printer;

	print $Db::pr_fh "Freie Adressen: $fr\n";
	if($fr and $flag & 1) {
		my $bits = 0;
		print $Db::pr_fh "Blöcke:";
		while(@free) {
			print $Db::pr_fh " ",$free[0],"/",32-$bits if $free[0];
			$bits++;
			shift @free;
		}
		print $Db::pr_fh "\n";
	}
}
1;

