(no commit message)

diff --git a/phork0.txt b/phork0.txt
new file mode 100644 (file)
index 0000000..e9854ce
--- /dev/null
+++ b/phork0.txt
@@ -0,0 +1,36 @@
+/* @var $rf \TYPO3\CMS\Core\Resource\ResourceFactory */\r
+$rf = GeneralUtility::makeInstance(\r
+    'TYPO3\\CMS\\Core\\Resource\\ResourceFactory'\r
+);\r
+/* @var $fir \TYPO3\CMS\Core\Resource\Index\FileIndexRepository */\r
+$fir = GeneralUtility::makeInstance(\r
+    'TYPO3\\CMS\\Core\\Resource\\Index\\FileIndexRepository'\r
+);\r
+\r
+// we create a folder object without checking that the folder\r
+// actually exists, since we need it for the index only.\r
+list($storageUid, $folderId) = explode(\r
+    ':', $this->settings['damDeckPlanFolderId']\r
+);\r
+$storage = $rf->getStorageObject($storageUid, array(), $folderId);\r
+$folder  = $rf->createFolderObject($storage, $folderId, $folderId);\r
+\r
+$arFileRows = $fir->findByFolder($folder);\r
+if (count($arFileRows) > 0) {\r
+    //we have files in our index - use them\r
+    $arFiles = array();\r
+    foreach ($arFileRows as $arRow) {\r
+        $arFiles[] = $rf->getFileObject($arRow['uid'], $arRow);\r
+    }\r
+} else {\r
+    //we do not have any files in the index of the folder\r
+    // better fetch the files from DAM directly\r
+\r
+    /* @var $folder \TYPO3\CMS\Core\Resource\Folder*/\r
+    $folder = $rf->retrieveFileOrFolderObject(\r
+        $this->settings['damDeckPlanFolderId']\r
+    );\r
+    $arFiles = $folder->getFiles();\r
+}\r
+\r
+// .. do something with the files
\ No newline at end of file