Add warning when running queries if the variant name doesn't match

2026-09-01 01:39:37 +02:00
parent 09c821b8ee
commit bbec0029da
2 changed files with 27 additions and 1 deletions
@@ -178,6 +178,19 @@ sub db_selectrow {
    return @row;
 }

+sub db_variant_name {
+    my ($db_name) = @_;
+
+    my ($count) =
+      db_selectrow("SELECT COUNT(DISTINCT variant) FROM `$db_name`.variant");
+    return undef unless defined $count && $count == 1;
+
+    my ($variant) =
+      db_selectrow("SELECT DISTINCT variant FROM `$db_name`.variant");
+
+    return $variant;
+}
+
 sub db_create {
    my ($db_name) = @_;
    say " - Creating database $db_name...";