[Container Scanning] Support scanning /var/lib/dpkg/status.d directory (#1721)

Author: GauravB159

Changelog.md

@@ -1,5 +1,11 @@
 # FOSSA CLI Changelog
 
+## 3.17.11
+
+- Conan: Handle list-valued license in make_fossa_deps_conan ([#1719](https://github.com/fossas/fossa-cli/pull/1719)).
+- Strip non printable characters from locators ([#1720](https://github.com/fossas/fossa-cli/pull/1720)).
+- Container scanning: Support scanning /var/lib/dpkg/status.d directory ([#1721](https://github.com/fossas/fossa-cli/pull/1721)).
+
 ## 3.17.10
 
 - Licensing: Fix bad SPL matches ([#1717](https://github.com/fossas/fossa-cli/pull/1717)).

src/Strategy/Dpkg.hs

@@ -9,6 +9,7 @@ import Container.OsRelease (OsInfo)
 import Control.Effect.Diagnostics (Diagnostics)
 import Control.Effect.Reader (Reader)
 import Data.Aeson (ToJSON)
+import Data.Foldable (find)
 import Data.String.Conversion (toText)
 import Data.Text qualified as Text
 import Discovery.Filters (AllFilters)
@@ -18,7 +19,7 @@ import Discovery.Walk (
   findFileNamed,
   walkWithFilters',
  )
-import Effect.ReadFS (Has, ReadFS)
+import Effect.ReadFS (Has, ReadFS, listDir)
 import GHC.Generics (Generic)
 import Path (Abs, Dir, File, Path, toFilePath)
 import Strategy.Dpkg.Database (analyze)
@@ -59,13 +60,19 @@ findProjects ::
   OsInfo ->
   Path Abs Dir ->
   m [DpkgDatabase]
-findProjects osInfo = walkWithFilters' $ \dir _ files -> do
-  case findFileNamed "status" files of
-    Nothing -> pure ([], WalkContinue)
-    Just file -> do
-      if (Text.isInfixOf "var/lib/dpkg/" $ toText . toFilePath $ file)
-        then pure ([DpkgDatabase dir file osInfo], WalkContinue)
-        else pure ([], WalkContinue)
+findProjects osInfo = walkWithFilters' $ \dir dirs files -> do
+  let standardDBs = case findFileNamed "status" files of
+        Just file ->
+          if Text.isInfixOf "var/lib/dpkg/" (toText . toFilePath $ file)
+            then [DpkgDatabase dir file osInfo]
+            else []
+        Nothing -> []
+  statusD_DBs <- case find (\f -> toFilePath f == "var/lib/dpkg/status.d/") dirs of
+    Just dir' -> do
+      (_, filesInDir) <- listDir dir'
+      pure $ map (\file -> DpkgDatabase dir' file osInfo) (filter (not . Text.isSuffixOf ".md5sums" . toText) filesInDir)
+    Nothing -> pure []
+  pure (standardDBs ++ statusD_DBs, WalkContinue)
 
 mkProject :: DpkgDatabase -> DiscoveredProject DpkgDatabase
 mkProject project =