{
    my %FDB;
    foreach my $proto ('TCP', 'UDP') {
        $FDB{$proto} = esmith::ConfigDB->open("portforward_" . lc($proto))
            || esmith::ConfigDB->create("portforward_" . lc($proto));

        my %rules = split ',', $DB->get_prop_and_delete('masq', "${proto}Forwards")
            || next;

        foreach my $entry (keys %rules) {
            my %props = ( type => 'forward' );
            my ($addr, $port) = split ':', $rules{$entry};
            $props{'DestHost'} = $addr;
            $props{'DestPort'} = $port if $port;

            $FDB{$proto}->new_record($entry, \%props);
        }
    }
}
