From 22426972007385ba99e00a3d8e8fde745cdcb59e Mon Sep 17 00:00:00 2001
From: Ryan Shpeherd <rotaryprophet@gmail.com>
Date: Wed, 28 Oct 2026 10:09:30 -0400
Subject: [PATCH] Small fixes

---
 aiworker/run.pl          | 2 ++
 transcoder/transcoder.pl | 3 +--
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/aiworker/run.pl b/aiworker/run.pl
index 66df673..091f570 100755
--- a/aiworker/run.pl
+++ b/aiworker/run.pl
@@ -13,6 +13,7 @@ my $image_count = $ENV{'IMAGE_COUNT'} || 10; # Number of images to extract from
 my $min_time = $ENV{'MIN_TIME'} || 5; # Minimum time between images
 my $sensitivity = $ENV{'SENSITIVITY'} || 30;
 my $resolution = "672:672";
+my $keepalive = $ENV{'KEEP_ALIVE'} || '30m';
 #my $model = "hf.co/Jommarn/UNSEEN_Gemma_4_26B_NSFW-GGUF:Q8_0";
 my $model = "hf.co/Jommarn/UNSEEN_Gemma_4_26B_NSFW-GGUF:Q5_K_M";
 
@@ -78,6 +79,7 @@ sub CheckPath {
         my $ref = {
             'model'     => $model,
             'prompt'    => "Are there any african american men in this photo, whether they are shown completely or not?  Judge based on skin tone, accounting for shadows.  Answer yes for very dark skin.Please answer 'yes' or 'no' only.",
+            'keep_alive' => $keepalive,
             'images'    => [$base64],
         };
 
diff --git a/transcoder/transcoder.pl b/transcoder/transcoder.pl
index 25c91de..11234f9 100755
--- a/transcoder/transcoder.pl
+++ b/transcoder/transcoder.pl
@@ -73,8 +73,7 @@ sub get_hash {
     # --- Compute SHA-256 hash of the file ---
     return undef unless -f $file_path && -r $file_path;
     open(my $fh, '<:raw', $file_path) or do { warn "Cannot open $file_path: $!"; return undef; };
-    my $hash = sha256_hex($fh);
-    close($fh);
+    my $hash = Digest::SHA->new(256)->addfile($fh)->hexdigest;    close($fh);
     return $hash;
 }