christoph/failnix
1
Fork 0
Code Releases Activity

add result explorer

Browse Source
This commit is contained in:
Christoph Urlacher
2026-04-20 20:59:36 +02:00
parent aacc895800
commit 7b31507403
7 changed files with 633 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
scripts/menu.pl
View File

@ -129,7 +129,7 @@ my %handlers = (
}
},
'10. Open Experiment in Ghidra' => sub {
'07. Open Experiment in Ghidra' => sub {
my @projects =
map { s/\.gpr//r } Util::find_files($local_ghidra_projects);
@ -147,7 +147,7 @@ my %handlers = (
);
},
'11. Open Experiment In Explorer' =>
'08. Open Experiment In Explorer' =>
sub { do "$local_scripts_dir/explore.pl" },
'95. Delete Builds (Local)' => sub {
@ -178,7 +178,7 @@ my %handlers = (
map { s/\.gpr//r } Util::find_files($local_ghidra_projects);
my @selected_projects =
TUI::select_from_list( "Select Projects to Delete", 1, @projects );
die "No projects selected" unless @selected_projects;
die "No project selected" unless @selected_projects;
system( 'rm', '-rf', "$local_ghidra_projects/$_.gpr" )
for @selected_projects;
system( 'rm', '-rf', "$local_ghidra_projects/$_.rep" )
@ -192,7 +192,7 @@ my %handlers = (
my @selected_experiments =
TUI::select_from_list( "Select Archived Experiments to Delete",
1, @experiments );
die "No experiments selected" unless @selected_experiments;
die "No experiment selected" unless @selected_experiments;
system( 'rm', '-rf', "$local_archive_dir/$_" )
for @selected_experiments;
},