functions-Copy1.lua

-- special helper functions for the LR-SDK-API
---
local LrApplication = import( 'LrApplication' )
local LrFileUtils = import 'LrFileUtils'
local LrHttp = import 'LrHttp'
local LrDate = import 'LrDate'
local LrTasks = import 'LrTasks'
--JSON=require 'JSON'


----- Debug -----------
--require 'strict'
--require 'Logger'
--local DebugSync = logDebug
--local LrMobdebug = import 'LrMobdebug' -- Import LR/ZeroBrane debug module
--LrMobdebug.start()
--local inspect = require 'inspect'
----- Debug -----------

---------------------------------------------------------
-- Write LR Metadata of photo to WP Mediacat via REST-API
function WritephotoMetaToWp( publishSettings, wpid, photoMeta )
	-- Parameters: wpid: Number evtl. auch String, aber dann zu Number wandelbar
	-- photoMeta: Tabelle mit Metadaten als key-value-pair
	-- publishSettings: Tabelle ähnlich den Lr-Lua-PublishSettings, hier aber kopiert, da Original nicht bereitsteht
	-- LR caption kommt in den alt-tag und in die Beschreibung bzw. description.raw 
	-- SEO: alt-tag leerlassen, wenn das Bild als dekoratives Element dient!
  
	-- Example: http-POST: http://127.0.0.1/wordpress/wp-json/wp/v2/media/4224?gallery=paularo&description=cat=paularo
	-- Example: http-POST: http://127.0.0.1/wordpress/wp-json/wp/v2/media/4224?title=MPaul
	-- Example: http-POST: http://127.0.0.1/wordpress/wp-json/wp/v2/media/4474?alt_text=alternate-text
	--LrMobdebug.on()  
	local success = false
	local docaption = publishSettings['doCaption']

	if type(wpid) ~= 'string' then
		wpid =  tostring(wpid)
	end
  
	if photoMeta == {} or publishSettings == {} or publishSettings['hash'] == '' or publishSettings['siteURL'] == '' then
	  local phMeta = inspect( photoMeta)
	  local id = inspect(wpid)	
	  Log('WritephotoMetaToWp failed for ' .. id .. ' with type ' .. type(wpid) )
	  Log('Meta was: ', phMeta)
	  Log('hash ', publishSettings['hash'])
	  Log('siteURL ', publishSettings['siteURL'])
	  return success
	end
  
	local n = 0
	local hash = 'Basic ' .. publishSettings['hash']
	local httphead = {
		{field='Authorization', value=hash},
	}
	local result
	local headers
    
	local url = publishSettings['siteURL'] .. "/wp-json/wp/v2/media/" .. wpid
	local WPalt = publishSettings['WPalt'][1]
	local WPdescr = publishSettings['WPdescr'][1]
	local WPcap = publishSettings['WPcap'][1]

	
	for k, v in pairs(photoMeta) do
		
	  -- LR Caption (caption) to write into WordPress REST-Fields	
	  if k == 'caption' and v ~= '' and v ~= nil and v ~= 'nil' then 
		v = urlencode(v) -- der wert muss für dt. Umlaute und leerzeichen encoded werden, aber nur der Wert!

		-- select which WP REST-Field will be filled with caption 
		if WPalt == 'LRcap' then
			local str = 'alt_text=' .. v
			url = url .. pre(n) .. str
			n = n + 1
		end

		if WPdescr == 'LRcap' then
			local str = 'description=' .. v
			url = url .. pre(n) .. str
			n = n + 1
		end

		if WPcap == 'LRcap' then
			local str = 'caption=' .. v
			url = url .. pre(n) .. str
			n = n + 1
			
			if docaption then
				url = url .. "&docaption=true"
			end
		end

	  end
	  
	  -- LR Title to write into WordPress REST-Fields
	  if k == 'title' and v ~= '' and v ~= nil and v ~= 'nil' then 
		v = urlencode(v) -- der wert muss für dt. Umlaute und leerzeichen encoded werden, aber nur der Wert!

		local str = 'title=' .. v -- der Titel wird immer fix in den Titel geschrieben
		url = url .. pre(n) .. str
		n = n + 1

		-- select which WP REST-Field will be filled with title
		if WPalt == 'LRtit' then
			local str = 'alt_text=' .. v
			url = url .. pre(n) .. str
			n = n + 1
		end

		if WPdescr == 'LRtit' then
			local str = 'description=' .. v
			url = url .. pre(n) .. str
			n = n + 1
		end

		if WPcap == 'LRtit' then
			local str = 'caption=' .. v
			url = url .. pre(n) .. str
			n = n + 1

			if docaption then
				url = url .. "&docaption=true"
			end
		end		

      end
	  ---------------------------------
	  
	  if k == 'gallery' and v ~= '' and v ~= nil and v ~= 'nil' then
		v = urlencode(v)
		local str = 'gallery=' .. v
		url = url .. pre(n) .. str
		n = n + 1
      end
	
	  if k == 'sortorder' and v ~= '' and v ~= nil and v ~= 'nil' then -- hier wird nur eine Nummer als integer übergeben
		v = urlencode( tostring(v))
		local str = 'gallery_sort=' .. v
		url = url .. pre(n) .. str
		n = n + 1
	  end
    
	end

	if n>0 then
	  	result, headers = LrHttp.post( url, '', httphead )
    
		if headers.status == 200 then -- der POST-Request wird in diesem Fall immer mit status = 200 beantwortet
			success = true
			Log('Wrote Meta to Rest: ' .. url)
		else
			success = false
			Log('Could not write Meta to Rest: ' .. url)
		end

	else
		success = true
		Log('No Meta to update: ' .. url)
	end
  
	return success
  
end
 
-- REST JSON array with keys
function ExtractDataFromREST( restdata )
	-- aus einer REST-Antwort zu einer Datei die Daten für customMetadata extrahieren
	-- Parameter restdata: JSON-Format der REST-Antwort. liefert array zurück
	local i = 1
	local result = {} 
	result[i] = restdata
	local row = {}
  	local lrid, fname, n
  
	if restdata == nil 
		or restdata == '' 
		or restdata == 'nil' 
		or restdata == {} 
		or result[i].media_details == nil
		or result[i].media_type == 'file' 
		or result[i].mime_type == "image/x-icon"  
	then -- mime_type = \"image/x-icon\"
		return row
	end
  
	local str = inspect(result[i]) -- JSON-Rückgabe für ein Image in str umwandeln
	local ii,j = string.find(str,'original_image') -- den vollen Filename suchen
	if ii ~= nil then
	  fname = result[i].media_details.original_image
	else
	  fname = result[i].media_details.file
	  if fname == nil or fname == 'nil' then Log(str) 
	  else
	  fname = getfile(fname)
	  fname, n = fname:gsub('-scaled','')
	  end
	end
	
	local function findTextinHTML( html )
	  -- find text in HTML-Tag from REST-Api-Data
	  -- Parameter: html : string
	  local w1, w2, text
	  w1, w2 = string.find(html, '<p>.*</p>')
	  if w1 ~=nil and w2 ~= nil then
		text = string.sub(html,w1+3,w2-4)
	  else
		text = ''
	  end
	  return text
	end
  
	local _descr = result[i].description.rendered  
	_descr = findTextinHTML(_descr)
  
	local _caption = result[i].caption.rendered
	_caption = findTextinHTML(_caption)
  
  row = { lrid = {}, 
          id = result[i].id, 
          upldate = result[i].date, 
          width = result[i].media_details.width, 
          height = result[i].media_details.height, 
          slug = result[i].slug, 
          post = result[i].post, 
          gallery = result[i].gallery, 
          phurl = result[i].source_url, 
          filen = fname,
		  datemod = result[i].modified, 
		  datecreated = result[i].media_details.image_meta.created_timestamp,
          title = result[i].title.rendered,
          descr = _descr,  
          caption = _caption,
          alt  = result[i].alt_text, 
		  origfile = fname, 
		  origurl = result[i].guid.rendered,
		  MD5 =  result[i].md5_original_file, -- table contains MD5 und filesize of fname on server
		  mime = result[i].mime_type,
		  } 
   
	return row
end
  
-- Write extracted Rest-meta-Data to customMetadata in Lightroom Catalog
function WriteCustomMetaData( publishSettings, photo, restmetadata )
	 -- Achung: muss innerhalb von catalog:withWriteAccessDo('unique-ID', function () ... end) aufgerufen werden
	
	local i = 1
	local foundph = {}
	foundph[i] =  restmetadata
  
	local date = tostring(foundph[i].upldate)
	date = iso8601ToTime(date)
	local dateday = LrDate.formatShortDate(date)
	local datetime = LrDate.formatMediumTime( date )
	local url = publishSettings['siteURL'] or publishSettings.siteURL
	
	photo:setPropertyForPlugin( _PLUGIN, 'wpid', tostring(foundph[i].id) )
	photo:setPropertyForPlugin( _PLUGIN,'upldate', dateday .. " / " .. datetime)
	photo:setPropertyForPlugin( _PLUGIN,'wpwidth', tostring(foundph[i].width))
	photo:setPropertyForPlugin( _PLUGIN,'wpheight', tostring(foundph[i].height))
	photo:setPropertyForPlugin( _PLUGIN,'slug', tostring(foundph[i].slug))
	photo:setPropertyForPlugin( _PLUGIN,'gallery', tostring(foundph[i].gallery) )
  
	if mytonumber(foundph[i].post) ~= 'nil' then
	  photo:setPropertyForPlugin( _PLUGIN,'post', url .. "/?p=" .. tostring(foundph[i].post)) -- 
	else
	  photo:setPropertyForPlugin( _PLUGIN,'post', '')
	end
  
	--photo:setPropertyForPlugin( _PLUGIN,'wpimgurl', tostring(foundph[i].phurl))
	-- set to: http://127.0.0.1/wordpress/wp-admin/post.php?post=4522&action=edit
	--                https://www.mvb1.de/wp-admin/post.php?post=4884&action=edit
	url = url .. '/wp-admin/post.php?post=' .. tostring(foundph[i].id) .. '&action=edit'
	photo:setPropertyForPlugin( _PLUGIN,'wpimgurl', url )
end
  
-- Add Media File to WP-Media-Catalog via REST-API
function AddNewMedia( publishSettings, filename, path, defaultcoll, folder ) 
--LrMobdebug.on()
	-- Folgende Annahmen: Nach dem ersten SYNC wird mit WP nicht mehr im Media-Cat gearbeitet. NIE!
	-- Auch mit FTP wird nicht mehr hochgeladen. NIE!
	-- Nur dann, KANN es keine Dateien geben, die zwar im Folder sind aber noch nicht in WP sind oder LR nicht zugeordnet wurden, d.h. WP und LR sind dann immer synchron.
	-- Wenn das geünscht wird, muss im WP-Plugin die Funktion bei der Route 'addtofolder' erweitert werden
	-- Bei GET: Liefert alle WPIDs zu allen Original-Files im Folder. Zusätzlich werden alle Dateien, die nicht in WP sind gelistet als eigener Key in der REST-Antwort
	-- Bei POST mit addtofolder, wird mit dem JPG-Body das WP-Bild mit WPID entweder updated oder ohne WPID die bestehende JPG-Datei überschrieben und dann zu WP ergänzt
	-- In beiden Fällen bei POST wird die WPID als ID zurückgeliefert und der Ablauf in LR-LUA in dieser Funktion kann gleichbleiben! 
	Log('AddNewMedia called')
	local hash = 'Basic ' .. publishSettings['hash']
	local filen = filename
	local wpid = 0
	local restData = {}
	local url = ''
	local httphead
	local mime = 'image/jpeg'
	local dowebp = publishSettings['dowebp']
	local reduceMetaData = true -- TODO: provide a setting for that
  
	if publishSettings == {} or publishSettings['hash'] == '' or publishSettings['siteURL'] == '' or filename == '' or path == '' then
	  wpid = 'Internal: Wrong function call of AddNewMedia. Parameter mismatch'
	  Log('Added Media 1: ', wpid)
	  return wpid, restData
	end

	-- reduce Metadata
	if reduceMetaData then
		local cmd2 = ''
		local hasExifTool = false
		local pipath = _PLUGIN.path .. "\\exiftool"
		
		if not WIN_ENV then
			pipath = '/usr/local/bin/exiftool' -- path according to the description on exiftool.org, but not tested
		end
		
		if WIN_ENV then
			hasExifTool = LrFileUtils.exists( pipath .. '.exe' )
		else
			hasExifTool = LrFileUtils.exists( pipath )
		end

		if hasExifTool then
			cmd2 = pipath .. " -P -adobe:all= -photoshop:all= -thumbnailimage= -icc_profile= -software= -serialnumber=0 -xmp:all= -tagsFromFile \"" .. path .. "\" -XMP-iptcCore:all -XMP-dc:all -XMP-xmpRights:all \"" .. path .. "\""
			Log('exiftool-CMD-1: ', cmd2 )
			LrTasks.execute( cmd2 )
			cmd2 = pipath .. " -SensitivityType= -RecommendedExposureIndex= -MeteringMode= -LightSource= -Flash= -SubSecTimeOriginal= -SubSecTimeDigitized= -SensingMethod= -FileSource= -SceneType= -CFAPattern= -ExposureMode= -WhiteBalance= -SceneCaptureType= -GainControl= -Contrast= -Saturation= -Sharpness= -SubjectDistanceRange= \"" .. path .. "\""
			Log('exiftool-CMD-2: ', cmd2 )
			LrTasks.execute( cmd2 )
		else
			Log('exiftool not found')
		end
	end
	
	if dowebp then
		mime = 'image/webp'
		local cmd = ''
		local newfile = string.gsub( path, 'jpg', 'webp')
		-- convert jpg file to webp with imagick. Must be installed
		if WIN_ENV then
			cmd = "magick \"" .. path .. "\" -quality " .. webquality .. " -define webp:auto-filter=true \"" .. newfile .. "\"" 
		else
			cmd = pipath .. "/magick " .. path .. " -quality " .. webquality .. " -define webp:auto-filter=true " .. newfile
		end
		Log('Webp-CMD: ', cmd)
		LrTasks.execute( cmd ) 
		Log('Webp-Path: ', newfile)
		filen = string.gsub( filen, 'jpg', 'webp' )
		Log('Webp-file:', filen)
		LrTasks.sleep(0.1)
		path = newfile
	end 

	local imgfile = LrFileUtils.readFile(path) -- Rückgabe als String!
	Log('Mime-type: ', mime)
  
	-- Differ between Standard-Collection for the WP-Standard-Cat or another folder in the WP uploads-directory. This is a gallery = collection in LR
	if defaultcoll then  
	  url = publishSettings['siteURL'] .. "/wp-json/wp/v2/media/"
	  httphead = {
		{field='Authorization', value=hash},
		{field='Content-Disposition', value='form-data; filename="' .. filen .. '"'},
		{field='Content-Type', value=mime}, -- value für webp anpassen
	  }
	elseif folder ~= '' then
	  --Header-Wert: Content-Disposition = attachment; filename=example.jpg OHNE Anführungszeichen!
	  url = publishSettings['siteURL'] .. "/wp-json/extmedialib/v1/addtofolder/" .. folder
	  httphead = {
		{field='Authorization', value=hash},
		{field='Content-Disposition', value='attachment; filename=' .. filen},
		{field='Content-Type', value=mime}, -- value für webp anpassen
	  }
	else
	  wpid = 'Internal: Wrong function call of AddNewMedia. Parameter mismatch'
	  Log('Added Media 2: ', wpid)
	  return wpid, restData
	end
  
	-- Create the image in Wordpress via REST-API according to the above settings
	local result, headers = LrHttp.post( url, imgfile, httphead )
	result = JSON:decode(result)
	wpid = tonumber(result['id'])
	Log('AddNewMedia url: ' .. url .. ' filen ' .. filen)
	Log('http: ' .. inspect(headers.status) .. ' ID ' .. inspect(wpid))
	Log('result: ' .. inspect(result))
  
	-- Extract data from the Response to the Create-Request
	if headers.status == 201 and wpid ~= nil then -- Antwort aus REST bei default-collection mit "/wp-json/wp/v2/media/"
		--wpid = tonumber(result['id'])
		restData = ExtractDataFromREST(result)
  
	elseif headers.status == 200 and wpid ~= nil then -- Antwort auf wp-plugin wpcat_json_rest mit "/wp-json/extmedialib/v1/addtofolder/"
		--wpid = tonumber(result['id'])
		local url = publishSettings['siteURL'] .. "/wp-json/wp/v2/media/" .. tostring(wpid)
		Log("Anfrage des neuen Bildes über Standard-REST: ", url)
		local httphead = {
		  {field='Authorization', value=hash}        
		}
		local result, headers = LrHttp.get( url, httphead )
		result = JSON:decode(result)
		restData = ExtractDataFromREST(result)
  
	else
		wpid = 'Upload: Fault during upload to WP: ' .. filen .. '.\nHeader-Status: ' .. tostring(headers.status) .. '\nMessage: ' .. result['message']
	end
  
	Log('Added Media 3: ', inspect(wpid) )
	return wpid, restData
end
  
-- Update Media File to WP-Media-Catalog via REST-API
function UpdateMedia( publishSettings, filename, path, wpid ) 
	local hash = 'Basic ' .. publishSettings['hash']
	local filen = filename
	local restData = {}
	local mime = 'image/jpeg'
	local dowebp = publishSettings['dowebp']
	local reduceMetaData = true
  
	if publishSettings == {} or publishSettings['hash'] == '' or publishSettings['siteURL'] == '' or filename == '' or path == '' then
	  return
	end

	-- reduce Metadata
	if reduceMetaData then
		local cmd2 = ''
		local hasExifTool = false
		local pipath = _PLUGIN.path .. "\\exiftool"
		
		if not WIN_ENV then
			pipath = '/usr/local/bin/exiftool' -- path according to the description on exiftool.org, but not tested
		end

		if WIN_ENV then
			hasExifTool = LrFileUtils.exists( pipath .. '.exe' )
		else
			hasExifTool = LrFileUtils.exists( pipath )
		end

		if hasExifTool then
			cmd2 = pipath .. " -P -adobe:all= -photoshop:all= -thumbnailimage= -icc_profile= -software= -serialnumber=0 -xmp:all= -tagsFromFile \"" .. path .. "\" -XMP-iptcCore:all -XMP-dc:all -XMP-xmpRights:all \"" .. path .. "\""
			Log('exiftool-CMD-1: ', cmd2 )
			LrTasks.execute( cmd2 )
			cmd2 = pipath .. " -SensitivityType= -RecommendedExposureIndex= -MeteringMode= -LightSource= -Flash= -SubSecTimeOriginal= -SubSecTimeDigitized= -SensingMethod= -FileSource= -SceneType= -CFAPattern= -ExposureMode= -WhiteBalance= -SceneCaptureType= -GainControl= -Contrast= -Saturation= -Sharpness= -SubjectDistanceRange= \"" .. path .. "\""
			Log('exiftool-CMD-2: ', cmd2 )
			LrTasks.execute( cmd2 )
		else
			Log('exiftool not found')
		end
	end

	if dowebp then
		mime = 'image/webp'
		local cmd = ''
		local newfile = string.gsub( path, 'jpg', 'webp')
		-- convert jpg file to webp with imagick. Must be installed
		if WIN_ENV then
			cmd = "magick \"" .. path .. "\" -quality " .. webquality .. " -define webp:auto-filter=true \"" .. newfile .. "\"" 
		else
			cmd = pipath .. "/magick " .. path .. " -quality " .. webquality .. " -define webp:auto-filter=true " .. newfile
		end

		Log('Webp-CMD: ', cmd)
		LrTasks.execute( cmd ) 
		Log('Webp-Path: ', newfile)
		filen = string.gsub( filen, 'jpg', 'webp' )
		Log('Webp-file:', filen)
		LrTasks.sleep(0.1)
		path = newfile
	end 
  
	local httphead = {
		{field='Authorization', value=hash},
		{field='Content-Disposition', value='form-data; filename=' .. filen },
		{field='Content-Type', value=mime},
	}
  
	local imgfile = LrFileUtils.readFile(path) -- Rückgabe als String!
	-- changemime is added always, just in case. It does not disturb if not required.  
	local url = publishSettings['siteURL'] .. "/wp-json/extmedialib/v1/update/" .. tostring(wpid) .. "?changemime=true"
	  
	local result, headers = LrHttp.post( url, imgfile, httphead )
	Log('UpdateMedia http-status: ', headers.status)
	if headers.status == 200 then
		result = JSON:decode(result)
		--wpid = tonumber(result['id'])
		--restData = ExtractDataFromREST(result)
	else
		  wpid = 'Update Media Fault: ' .. tostring(headers.status .. ' : ' .. filen)
	end
	
	return wpid, result
end
  
-- Get all Media Files / one Medie File from WP-Media-Catalog via REST-API. Provide response as JSON
-- param: page : wenn nicht angegeben, dann muss perpage eine wpid sein!
-- TODO use parameter _fields with request : ..../media/<wpid>?_fields=id,gallery,filen,MD5 to shorten the transferred data.
function GetMedia( publishSettings, perpage, page ) 
  
	local result = nil
	if publishSettings == {} or publishSettings == nil then
	  return result
	end
  
	local _hash = publishSettings.hash or publishSettings['hash']
	local _siteURL = publishSettings.siteURL or publishSettings['siteURL'] 
  
	local hash = 'Basic ' .. _hash
	local url = '' 
	  local httphead = {
		{field='Authorization', value=hash},
	  }
	 
	if tonumber(perpage) ~= nil and tonumber(page) ~= nil then
		  url = _siteURL .. "/wp-json/wp/v2/media/?per_page=" .. perpage .. '&page=' .. page
		  Log(url)
	elseif tonumber(perpage) > 0 and tonumber(page) == nil then
    	url = _siteURL .. "/wp-json/wp/v2/media/" .. perpage
  	elseif tonumber(perpage) == 0 then
    	return
	else  
		url = _siteURL .. "/wp-json/wp/v2/media/"
	end
	 
	local result, headers = LrHttp.get( url, httphead )
  
	if headers.status == 200 then
      result = JSON:decode(result)
  else 
    result = nil
	end
	
	return result
end
  
-- Delete Media Files from WP-Media-Catalog via REST-API
function DeleteMedia( publishSettings, wpmediaid ) 
	local result = false
	local idcheck = type(tonumber(wpmediaid))
	if publishSettings == {} or publishSettings.hash == '' or publishSettings.siteURL == '' or idcheck ~= 'number' then
	  return result
	end
  
	local hash = 'Basic ' .. publishSettings.hash
	  local httphead = {
		{field='Authorization', value=hash},
	  }
	local url = ''  
	
	  url = publishSettings.siteURL .. "/wp-json/wp/v2/media/" .. tostring(wpmediaid) .. "?force=1"
	--http://127.0.0.1/wordpress/wp-json/wp/v2/media/3439?force=1
	--http-method: delete   
	  local result, headers = LrHttp.post( url, '', httphead, 'Delete' )
  
	  if headers.status == 200 then
		result = JSON:decode(result)
		result = result['deleted']
	elseif headers.status == 404 then -- also successful, id is not available
		result = JSON:decode(result)
		result = result['code']
	end
	
	return result
end
  
-- Serch pre-selected Images in LR Database, exclude Copies, marked by "Kopie.."
-- special selection if more then on photo found. Selector: "Rot"
-- This runs as asynchronous Task! Main Task has to wait. No Signalling between Tasks.
-- add found photos to WP-LR-Sync-Collection
function addToWPColl (collection, search, photos, all_collections, all_paths)
	
	LrTasks.startAsyncTask(function ()
		--LrMobdebug.on()
		local str =inspect(all_paths)
		Log('Paths in addToWPColl: ', str)
		local catalog = LrApplication.activeCatalog()
		local selphoto
		local specialsearch = true
		local lrid = {}
			
		for i=1, #photos do

			local filen = photos[i].filen
			local base = ''
			local ext = ''
			photos[i].lrid = {}

			if filen == nil or filen == 'nil' then 
				local str = inspect(photos[i])
				Log('Filename nicht definiert. Nr : ' .. i .. str)
			else
				base, ext = SplitFilename(filen)
			end

			if ext == 'gif' or ext == 'GIF' or ext == '' or filen == nil or filen == 'nil' then
					-- do nothing : skip	
			else 
				---- M I : search virt. Copy --------------------------
				lrid = catalog:findPhotos {
					searchDesc = {
						{
							criteria = "copyname",
							operation = "any",
							value = base,
							value2 = "",
						},
						{
							criteria = "filename",
							operation = "noneOf",
							value = base,
							value2 = "",
						},
						combine = "intersect",
					},
				}

				---- M II : search basename with wildcard --------------------------
				if #lrid == 0 then
					base = string.gsub( base,"[-_]"," ") -- in LR funktioniert die Suche aber nur mit einem Leerzeichen
					--base = string.gsub( base,"_"," ")

					lrid = catalog:findPhotos {
						searchDesc = {
							{
								criteria = "filename",
								operation = "all",
								value = base,
							},
							{
								criteria = "copyname",
								operation = "noneOf",
								value = base,
							},
							combine = "intersect",
						},
					}

					if #lrid > 1 then
						local newlrid = {}

						for k, photo in ipairs(lrid) do
							local lrfilename = photo:getFormattedMetadata( 'fileName' )
							local base4search = '^' .. string.gsub( base," ","[-_]") .. '%.'
							local result = string.match(lrfilename, base4search)
							if result ~= nil then
								Log('  ' .. inspect(lrfilename) .. '  ' .. inspect(base4search) ..'  ' .. inspect(result))
								--table.insert(newlrid, photo)
								newlrid[ #newlrid +1 ] = photo
							end
						end

						lrid = newlrid

					end

				end

				--------- Auswahl bei mehr als einem gefundenen Foto
				if lrid[2] ~= nil and specialsearch then
					local label = {} 
					local sel = 0
					local nred = 0
					local csel = 0
					local ncol = 0
					local coll = {}
					local pubcoll = {}
					
					for k, ph in ipairs(lrid) do
					label[k] = ph:getFormattedMetadata('label')
					if label[k] == "Rot" then -- TDODO als Variable setzen, für andere Selektoren
						sel = k
						nred = nred +1
					end
					coll[k] = ph:getContainedCollections()
					pubcoll[k] = ph:getContainedPublishedCollections()
					if ((coll[k] ~= nil) or (pubcoll[k] ~= nil)) then
						csel = k
						ncol = ncol +1
					end
					
					end
					
					if nred == 1 then
					selphoto = {lrid[sel]}
					lrid = selphoto
					elseif ncol == 1 then
					selphoto = {lrid[csel]}
					lrid = selphoto
					end
					
				end
				
				if #lrid > 0 then
					photos[i].lrid = lrid -- Speichern der gefundenen Fotos in der Tabelle
				end
				----------------------------
				
				-- Collection bestimmen
				local new_collection
				local path = photos[i]['path']
				local index = 0
						
				index = findValueInArray(all_paths, path)
				if index > 0 then
					new_collection = all_collections[index]
				else
					new_collection = collection
				end

				local name = new_collection:getCollectionInfoSummary()['name']
				--Log(path .. '=' .. name)
				Log(photos[i].filen .. '; --> ; ' .. base .. '; N lrid = ;' .. #lrid .. '; Coll ; '.. name)	

				--[[
				if #lrid > 0 then
					catalog:withWriteAccessDo( 'AddtoWP', function () 
							new_collection:addPhotos(lrid)
					end ) 
				end
				]]
			end

		end -- end for photos
		
	end )

end

-- Update image_meta keys of Media File to WP-Media-Catalog via REST-API
-- @param wpid number or integer the Wordpress id as integer
function UpdateKeys( publishSettings, photometa, wpid ) 
	local hash = 'Basic ' .. publishSettings['hash']
	  
	if publishSettings == {} or publishSettings['hash'] == '' or publishSettings['siteURL'] == '' then
	  return
	end
  
	local httphead = {
		{field='Authorization', value=hash},
		{field='Content-Type', value='application/json'},
	}
  
  	-- restData['image_meta'] = photometa
	local image_meta = JSON:encode(photometa)
	Log('WPid: ', wpid)
	local url = publishSettings['siteURL'] .. "/wp-json/extmedialib/v1/update_meta/" .. tostring(wpid)
	Log('Url for image_meta: ', url)
	Log('meta as json:', inspect(image_meta) )
	  
	local result, headers = LrHttp.post( url, image_meta, httphead )
	Log('UpdateKeys http-status: ', headers.status)
	if headers.status == 200 then
		result = JSON:decode(result)
		--wpid = tonumber(result['id'])
		--restData = ExtractDataFromREST(result)
	else
		  wpid = 'Update Key Fault: ' .. tostring(headers.status)
	end
	
	return wpid, result
end

-- Reset the Custom Meta-Date of this plugin 
function ResetCustomMeta (photo)
  local catalog = LrApplication.activeCatalog()
  catalog:withWriteAccessDo( 'DeleteCollection', function ()
    photo:setPropertyForPlugin( _PLUGIN, 'wpid', '' )
    photo:setPropertyForPlugin( _PLUGIN,'upldate', '' )
    photo:setPropertyForPlugin( _PLUGIN,'wpwidth', '')
    photo:setPropertyForPlugin( _PLUGIN,'wpheight', '')
    photo:setPropertyForPlugin( _PLUGIN,'wpimgurl', '')
    photo:setPropertyForPlugin( _PLUGIN,'slug', '' )
    photo:setPropertyForPlugin( _PLUGIN,'post', '')
    photo:setPropertyForPlugin( _PLUGIN,'gallery',  '')
    --photo:setPropertyForPlugin( _PLUGIN,'order', '' )
  end )
end

function getWebpMetaData ( photo )

	local aspect = photo:getRawMetadata( 'aspectRatio' )
	local orientation = 0

	if aspect > 1.0 then
		orientation = 1
	else
		orientation = 0
	end

	local time = photo:getRawMetadata( 'dateTimeOriginal' )
	if time == nil or time == '' or time == 'nil' then 
		time = ''
	else
		time = tostring( 978307200 + time )
	end

	local WebpPhotoMeta = { 
		image_meta = {
			aperture          = tostring( photo:getRawMetadata( 'aperture' ) ),
			credit            = photo:getFormattedMetadata( 'artist' ),
			camera            = photo:getFormattedMetadata( 'cameraModel' ),
			caption           = photo:getFormattedMetadata( 'caption' ),
			created_timestamp = time,
			copyright         = photo:getFormattedMetadata( 'copyright' ),
			focal_length      = tostring( photo:getRawMetadata( 'focalLength35mm' ) ),
			iso               = tostring( photo:getRawMetadata( 'isoSpeedRating' ) ),
			shutter_speed     = string.sub( tostring( photo:getRawMetadata( 'shutterSpeed' ) ), 1, 10),
			title             = photo:getFormattedMetadata( 'title' ),
			orientation       = tostring( orientation ),
			keywords          = strsplit( photo:getFormattedMetadata('keywordTagsForExport'), ', ' ) -- return keys as table
		}
	}
	
	return WebpPhotoMeta
end