christoph/failnix
1
Fork 0
Code Releases Activity

add curses entry point for scripts (archival, ghidra import, plots, queries, cleanup)

Browse Source
This commit is contained in:
Christoph Urlacher
2026-04-20 00:16:27 +02:00
parent 9c7933e912
commit 5b316bbd64
16 changed files with 622 additions and 349 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
scripts/Util.pm
View File

@ -4,6 +4,8 @@ use strict;
use warnings;
use diagnostics;
use DateTime;
use feature 'say';
my $ntfy_url = 'https://ntfy.vps.chriphost.de';
@ -31,6 +33,19 @@ sub notify_file {
sleep(1);
}
sub shell_quote {
my ($string) = @_;
$string =~ s/'/'"'"'/g;
return "'$string'";
}
sub date_now {
my $dt = DateTime->now( time_zone => 'local' );
my $date = $dt->iso8601;
return $date;
}
sub rewrite_file {
my ( $file, $matches, $replacement ) = @_;
@ -67,7 +82,7 @@ sub find_files {
my ($dir) = @_;
opendir( my $dhandle, $dir ) or die "opendir($dir): $!";
my @files = grep { -f "$dir/$_" } readdir($dhandle);
my @files = sort grep { -f "$dir/$_" } readdir($dhandle);
closedir($dhandle);
return @files;
@ -78,7 +93,7 @@ sub find_subdirs {
opendir( my $dhandle, $dir ) or die "opendir($dir): $!";
my @subdirs =
grep { $_ ne '.' && $_ ne '..' && -d "$dir/$_" } readdir($dhandle);
sort grep { $_ ne '.' && $_ ne '..' && -d "$dir/$_" } readdir($dhandle);
closedir($dhandle);
return @subdirs;
@ -109,6 +124,7 @@ sub execute_query {
$postprocess->($result);
system( 'mkdir', '-p', "$builds_dir/$experiment" );
open( my $results_handle, '>', "$builds_dir/$experiment/$filenamestring" )
or die "failed to open file: $!";
print $results_handle $result;