use utf8;
use strict;
use warnings; no warnings "redefine";
use Dbase::Help qw(DoFn Do qquote);
use Dbase::Globals qw(get_vrf content);
use Dbase::IP ();
use Loader qw(line_in log_update);
use Fehler qw(problem);

sub rename_vrf($;$) {
	my($id,$kn) = @_;

	my $ovrf = DoFn("select vrf from ipkunde where id=$id");
	return problem "Das ist kein VRF!" if not defined $ovrf;

	my $name = line_in "Neuer VRF-Name: "; return undef unless content $name;
	return problem('Das ist kein gültiger VRF-Name.')
	  if $name !~ /^$Dbase::IP::RE_VRFname\z/;

	my $vid = get_vrf($name);
	return problem "Ein VRF namens '$name' gibt es schon!" if defined $vid;

	log_update("ipkunde","id",$id,undef,"vrf",undef,$ovrf);
	Do "update ipkunde set vrf=${\qquote $name} where id=$id";

	$id;
}
1;
