{

# migrate of geneweb, gwsetup configuration
my ($rec, $ip, $ip2);

for my $service ( qw( geneweb gwsetup ) ) {
    if ( $rec = $DB->get($service) ) {
	# change TCPPort attributes to TcpPort
	if ( $rec->prop('TCPPort') ) {
	    $rec->set_prop('TcpPort', $rec->prop('TCPPort'));
	    $rec->delete_prop('TCPPort');
	}
	$ip   = ($rec->prop('only') || '') if ($service eq 'geneweb');
	$ip2  = ($rec->prop('only') || '') if ($service eq 'gwsetup');
    }
}

# move 'only' from geneweb to gwsetup if existing

return unless $ip;

$rec = $DB->get('geneweb');
rec->delete_prop('only') if $ip;

$DB->set_prop('gwsetup', 'only', "$ip") unless $ip2;

}
