christoph/failnix
1
Fork 0
Code Releases Activity

exclude existing experiments when archiving

Browse Source
This commit is contained in:
Christoph Urlacher
2026-04-21 23:21:14 +02:00
parent 94ec38fa84
commit 7067c015bc
1 changed files with 11 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
scripts/menu.pl
View File

@ -43,9 +43,19 @@ my %handlers = (
# Download ran experiments from mars # Download ran experiments from mars
my @dirs = Mars::find_remote_subdirs($remote_builds_dir); my @dirs = Mars::find_remote_subdirs($remote_builds_dir);
my @existing = Util::find_subdirs($local_archive_dir);
my @new_dirs;
foreach (@dirs) {
my $dir = $_ =~ s/:/-/gr;
unless ( grep { /$dir/ } @existing ) {
push @new_dirs, $_;
}
}
my @selected_dirs = my @selected_dirs =
TUI::select_from_list( "Select Experiments to Download from Mars", TUI::select_from_list( "Select Experiments to Download from Mars",
1, @dirs ); 1, @new_dirs );
die "No experiment selected" unless @selected_dirs; die "No experiment selected" unless @selected_dirs;
Mars::download_dir( "$remote_builds_dir/$_", Mars::download_dir( "$remote_builds_dir/$_",
"$local_archive_dir/" . $_ =~ s/:/-/gr ) "$local_archive_dir/" . $_ =~ s/:/-/gr )