use utf8;
use warnings; no warnings "redefine";
use strict;
use Dbase::Help qw(Do DoFn);
use Loader qw(check_person_vrf edit_ipaddrs log_update);
use Dbase::IP;

sub set_person_remip($;$) {
	my($pers,$kn) = @_;

	while(1) {
		my $ip = edit_ipaddrs(DoFn("select kunde from person where id=$pers"),1+4,$kn." Peer");
		return undef unless defined $ip;

		if($ip eq "-") {
			log_update( person => id => $pers, undef, uremip => '-' );
			Do("update person set uremip=NULL where id=$pers");
		} else {
			return unless check_person_vrf( $pers, 1, $ip );
			my($oip,$obits) = DoFn("select ipkunde.ip6,ipkunde.bits from ipkunde,person where person.id=$pers and person.uremip=ipkunde.id");
			if(defined $obits) {
				$oip = Dbase::IP->new_db($oip,$obits)->str;
			} else {
				$oip = "-";
			}
			log_update("person","id",$pers,undef,"uremip",undef,$oip);
			Do("update person set uremip=$ip where id=$pers");
		}
		last;
	}
}

1;
