[backend] slsa: fix digest sqlite encoding

openSUSE · Apr 28, 2022 · e553357 · e553357
1 parent 3a5033d
commit e553357
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/src/backend/BSRepServer/SLSA.pm b/src/backend/BSRepServer/SLSA.pm
@@ -132,9 +132,9 @@ sub add_references {
   my $h = connectdb($prpa);
   BSSQLite::begin_work($h);
   my $got = $h->selectcol_arrayref("SELECT digest FROM refs WHERE prpa = ?", undef, $refprpa) || die($h->errstr);
-  my %got = map {pack("H*", $_) => 1} @$got;
+  my %got = map {unpack("H*", $_) => 1} @$got;
   for my $digest (grep {!$got{$_}} sort keys %$digests) {
-    BSSQLite::dbdo_bind($h, 'INSERT INTO refs(prpa,digest) VALUES(?,?)', [ $refprpa ], [ unpack("H*", $digest), SQL_BLOB ]);
+    BSSQLite::dbdo_bind($h, 'INSERT INTO refs(prpa,digest) VALUES(?,?)', [ $refprpa ], [ pack("H*", $digest), SQL_BLOB ]);
   }
   BSSQLite::commit($h);
 }
@@ -146,13 +146,13 @@ sub set_references {
   my $h = connectdb($prpa);
   BSSQLite::begin_work($h);
   my $got = $h->selectcol_arrayref("SELECT digest FROM refs WHERE prpa = ?", undef, $refprpa) || die($h->errstr);
-  my %got = map {pack("H*", $_) => 1} @$got;
+  my %got = map {unpack("H*", $_) => 1} @$got;
   for my $digest (grep {!$got{$_}} sort keys %$digests) {
-    BSSQLite::dbdo_bind($h, 'INSERT INTO refs(prpa,digest) VALUES(?,?)', [ $refprpa ], [ unpack("H*", $digest), SQL_BLOB ]);
+    BSSQLite::dbdo_bind($h, 'INSERT INTO refs(prpa,digest) VALUES(?,?)', [ $refprpa ], [ pack("H*", $digest), SQL_BLOB ]);
   }
   delete $got{$_} for keys %$digests;
   for my $digest (sort keys %$got) {
-    BSSQLite::dbdo_bind($h, 'DELETE FROM refs WHERE prpa = ? AND digest = ?', [ $refprpa ], [ unpack("H*", $digest), SQL_BLOB ]);
+    BSSQLite::dbdo_bind($h, 'DELETE FROM refs WHERE prpa = ? AND digest = ?', [ $refprpa ], [ pack("H*", $digest), SQL_BLOB ]);
   }
   BSSQLite::commit($h);
 }