Small fixes

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],
         };
 

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;
 }