Use Geonames to guess birth country

ged2site

@@ -8986,6 +8986,16 @@ sub print_person
 			$birth_country = 'Slovenia';
 		} elsif(my $b = Locale::Object::Country->new(name => $c)) {
 			$birth_country = $b->name();
+		} elsif(my $user = $ENV{'GEONAMES_USER'}) {
+			$geonames //= Geo::GeoNames->new(username => $user);
+			$geonames->ua($cached_browser);
+			my $result = $geonames->search(q => $placeofbirth, style => 'FULL');
+			$result = @{$result}[0];
+			if($birth_country = $result->{'countryName'}) {
+				complain({ person => $person, warning => "$c: Assuming country of birth is $birth_country" });
+			} else {
+				complain({ person => $person, warning => "Unknown birth country: '$c' in '$placeofbirth'" });
+			}
 		} else {
 			complain({ person => $person, warning => "Unknown birth country: '$c' in '$placeofbirth'" });
 		}

tests/test-all-static

@@ -3,6 +3,10 @@
 set -ex
 
 unset GMAP_KEY
+unset REDIS_SERVER
+unset HTTP_PROXY
+unset http_proxy
+
 for i in $(find ~/gedcoms/* -name \*ged -o -name \*GED); do
 # for i in tests/gedcoms/*.ged; do
 	rm -rf dynamic-site/data dynamic-site/img static-site/