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

sub set_domreg_whoisserver($;$) {
	my($id) = @_;
	
	my $whoisserver = line_in "Whois: ";
	return undef unless defined $whoisserver && $whoisserver =~ /\S/;

	$whoisserver =~ /^\s*(\S+)/;
	return problem qq(Kann "$1" nicht via DNS auflösen.\n) unless $ENV{'TESTING2'} or defined gethostbyname $1;

	log_update('domreg','id',$id,undef,'whoisserver');
	Do("update domreg set whoisserver=${\qquote $whoisserver,1} where id=$id");
}

1;
