Add database import action to menu

scripts/menu.pl

@@ -817,6 +817,37 @@ my %handlers = (
         }
     },
 
+    '32. Import Database (Mars)' => sub {
+
+        # Import databse dump on mars
+        die "No dumps in $local_dump_dir" unless -d $local_dump_dir;
+        my @dumps = grep { /\.sql$/ } Util::find_files($local_dump_dir);
+        my @selected_dumps =
+          TUI::select_from_list( "Select Dump to Import into Mars", 0, @dumps );
+        die "No dump selected" unless @selected_dumps;
+        my $dump_file = "$local_dump_dir/$selected_dumps[0]";
+
+        # Determine database name
+        my $db = TUI::read_string(
+            "Database Name to Import Into",
+            $selected_dumps[0] =~ s/\.sql$//r
+        );
+        die "No database name given"     unless defined $db && length $db;
+        die "Invalid database name: $db" unless $db =~ /^[\w.:-]+$/;
+        die "Database $db already exists on mars"
+          if grep { $_ eq $db } Mars::db_list();
+
+        # mariadb-dump doesn't create the database, so create it here
+        Mars::db_create($db);
+
+        # point db.conf at the database
+        Util::rewrite_file( $local_db_conf, "database=", "database=$db\n" );
+
+        say "Importing $dump_file into $db...";
+        Util::run( join ' ', 'mariadb', "--defaults-file=$local_db_conf",
+            '<', Util::shell_quote($dump_file) );
+    },
+
     '95. Delete Builds' => sub {
 
         # Delete old build files