From 51fb2ef4d4e8b3380d7712452d234a4d7bfe0b76 Mon Sep 17 00:00:00 2001
From: Christoph Urlacher <christoph.urlacher@protonmail.com>
Date: Tue, 21 Apr 2026 01:06:57 +0200
Subject: [PATCH] only deploy "fail" targets, only gdb "linux" targets, only
 import new results into ghidra

---
 scripts/deploy.pl |  2 +-
 scripts/menu.pl   | 17 +++++++++++++----
 2 files changed, 14 insertions(+), 5 deletions(-)

diff --git a/scripts/deploy.pl b/scripts/deploy.pl
index 4212e95..a0ef8a0 100755
--- a/scripts/deploy.pl
+++ b/scripts/deploy.pl
@@ -22,7 +22,7 @@ my $remote_runner     = "$remote_root/scripts/runner.pl";
 my $remote_log        = "$remote_root/runner.log";
 
 # Upload new experiments
-my @experiments = Util::find_subdirs($local_builds_dir);
+my @experiments = grep { /fail/ } Util::find_subdirs($local_builds_dir);
 my @selected_experiments =
   TUI::select_from_list( "Select Experiments to Run", 1, @experiments );
 die "No experiment selected" unless @selected_experiments;
diff --git a/scripts/menu.pl b/scripts/menu.pl
index 569b260..dfd9a3b 100644
--- a/scripts/menu.pl
+++ b/scripts/menu.pl
@@ -74,8 +74,19 @@ my %handlers = (
 
     '05. Import Experiments Into Ghidra' => sub {
 
+        my @existing = Util::find_files($local_ghidra_projects);
+
+        my $is_old = sub {
+            my ($name) = @_;
+            $name =~ s/:/-/g;
+
+            return grep { /^$name.gpr$/ } @existing;
+        };
+
         # Import archived experiments into ghidra
-        my @dirs = Util::find_subdirs($local_archive_dir);
+        my @dirs =
+          grep { !$is_old->($_) } Util::find_subdirs($local_archive_dir);
+
         my @selected_dirs =
           TUI::select_from_list( "Select Experiments to Import", 1, @dirs );
         foreach (@selected_dirs) {
@@ -128,7 +139,7 @@ my %handlers = (
     },
 
     '13. Run Build in GDB' => sub {
-        my @builds = Util::find_subdirs($local_builds_dir);
+        my @builds = grep { /linux/ } Util::find_subdirs($local_builds_dir);
         my @selected_builds =
           TUI::select_from_list( "Select Build to Run", 0, @builds );
         die "No experiment selected" unless @selected_builds;
@@ -161,8 +172,6 @@ my %handlers = (
             'break fail_marker_detected',
             '-ex',
             'break fail_marker_negative',
-            '-ex',
-            'run',
         );
     },