checksum

misch2 · Jan 27, 2023 · d863afb · d863afb
1 parent ec00690
commit d863afb
Show file tree

Hide file tree

Showing 3 changed files with 23 additions and 6 deletions.
diff --git a/server/app b/server/app
@@ -14,6 +14,7 @@ use Text::Unidecode;
 use Readonly;
 use List::Util;
 use Try::Tiny;
+use Digest::SHA1 qw(sha1_hex);
 
 use PortalCalendar::Integration::iCal;
 
@@ -203,17 +204,14 @@ sub generate_bitmap {
         return $self->render(data => $out, format => 'png');
     } elsif ($format =~ /^raw/) {
 
-        # output format:
-        #    "MM"
-        #    <sequence of raw values directly usable for uploading into eink display>
-        my $out = 'MM';
+        my $bitmap = '';
         if ($format eq 'raw8bpp') {
             foreach my $y (0 .. $img->getheight - 1) {
                 foreach my $x (0 .. $img->getwidth - 1) {
                     my $color     = $img->getpixel(x => $x, y => $y);
                     my @rgb       = $color->rgba;
                     my $grayscale = $rgb[0];                            # 0 - 255
-                    $out .= chr($grayscale);
+                    $bitmap .= chr($grayscale);
                 }
             }
         } elsif ($format eq 'raw1bpp') {
@@ -229,7 +227,7 @@ sub generate_bitmap {
                     $byte = $byte << 1 | $bit;
                     $bitcnt++;
                     if ($bitcnt == 8) {
-                        $out .= chr($byte);
+                        $bitmap .= chr($byte);
                         $byte   = 0;
                         $bitcnt = 0;
                     }
@@ -238,6 +236,16 @@ sub generate_bitmap {
         } else {
             die "Unknown format requested: " . $format;
         }
+
+        # output format:
+        #    "MM"
+        #   checksum
+        #    <sequence of raw values directly usable for uploading into eink display>
+
+        my $out = "MM\n";
+        $out .= sha1_hex($bitmap) . "\n";
+        $out .= $bitmap;
+
         return $self->render(data => $out);
     } else {
         die "Unknown format requested: " . $format;

diff --git a/server/cpanfile b/server/cpanfile
@@ -14,6 +14,7 @@ requires 'Readonly';
 requires 'Moo';
 requires 'LWP::UserAgent::Cached';
 requires 'Try::Tiny';
+requires 'Digest::SHA1';
 requires 'iCal::Parser';
 
 
diff --git a/server/cpanfile.snapshot b/server/cpanfile.snapshot
@@ -622,6 +622,14 @@ DISTRIBUTIONS
       perl 5.006
       strict 0
       warnings 0
+  Digest-SHA1-2.13
+    pathname: G/GA/GAAS/Digest-SHA1-2.13.tar.gz
+    provides:
+      Digest::SHA1 2.13
+    requirements:
+      Digest::base 1.00
+      ExtUtils::MakeMaker 0
+      perl 5.004
   Dist-CheckConflicts-0.11
     pathname: D/DO/DOY/Dist-CheckConflicts-0.11.tar.gz
     provides: