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

sub show_free_ip($;$) {
	my($id,$flag) = @_;
	my @free;
	my $fr = get_free_ip($id,@free);
	my($ip,$bits) = DoFn("select ip6,bits from ipkunde where id=$id");
	$ip = Dbase::IP->new_db($ip,$bits);
	my $mx = $ip->is_v4 ? 32 : 128;

	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],"/",$mx-$bits if $free[0];
			$bits++;
			shift @free;
		}
		print $Db::pr_fh "\n";
	}
}
1;

