Excluyendo archivos problemáticos con exiftool.

This commit is contained in:
nestorsire 2022-11-21 13:37:23 -05:00
parent e171bbd37a
commit 90e4521817

View File

@ -32,6 +32,7 @@ PaqueteSemanal >> extractMetadataForFolder: subfolder [
| subfolderFiles extractMetadatos subfolderRenamed | | subfolderFiles extractMetadatos subfolderRenamed |
subfolderRenamed := self sanitizeFolderNamed: subfolder. subfolderRenamed := self sanitizeFolderNamed: subfolder.
subfolderFiles := (self location / subfolder) allChildren select: [:item | item isFile and: [(item basename = '.DS_Store') not ]]. subfolderFiles := (self location / subfolder) allChildren select: [:item | item isFile and: [(item basename = '.DS_Store') not ]].
subfolderFiles := subfolderFiles reject: [:each | each basename endsWith: '.ico'].
subfolderFiles do: [:archivoPruebas | | metadatosArchivo titulo metaTiddler | subfolderFiles do: [:archivoPruebas | | metadatosArchivo titulo metaTiddler |
extractMetadatos := GtSubprocessWithInMemoryOutput new extractMetadatos := GtSubprocessWithInMemoryOutput new
command: '/usr/local/bin/exiftool'; command: '/usr/local/bin/exiftool';