Add d.scpt

d.scpt

@@ -0,0 +1,44 @@
+tell application "DEVONthink 3"
+	set theSelection to the selection
+	if theSelection is {} then
+		display alert "No items selected in DEVONthink!"
+		return
+	end if
+	
+	set theRecord to item 1 of theSelection
+	set recName to name of theRecord
+	set recURL to URL of theRecord
+end tell
+
+-- Adjust these to your actual server, table ID, and token
+set baseUrl to "http://10.1.135.227:3322/api/table/tblFPQP7cyNhu26lBYC/record?fieldKeyType=name&viewId=viwQzlEAufKhtR2IGta&cellFormat=json"
+set bearerToken to "teable_accRB8GmFw6bKM4hkv7_VXqFVeSsobWA1mx4cqoc8akovMV28kyiSKnGIa9i0/s="
+
+set authorizationHeader to "Authorization: Bearer " & bearerToken
+set acceptHeader to "Accept: application/json"
+set contentTypeHeader to "Content-Type: application/json"
+
+------------------------------------------------------------------------------
+-- Construct the JSON payload with "records" as the top-level key
+------------------------------------------------------------------------------
+set jsonBody to "{\"records\":[{\"fields\":{\"Name\":\"" & recName & "\",\"URL\":\"" & recURL & "\"}}]}"
+
+------------------------------------------------------------------------------
+-- Build the POST command with curl
+------------------------------------------------------------------------------
+set curlCommand to "curl -X POST " & quoted form of baseUrl ¬
+	& " -H " & quoted form of authorizationHeader ¬
+	& " -H " & quoted form of acceptHeader ¬
+	& " -H " & quoted form of contentTypeHeader ¬
+	& " -d " & quoted form of jsonBody
+
+------------------------------------------------------------------------------
+-- Execute and display response
+------------------------------------------------------------------------------
+try
+	set response to do shell script curlCommand
+	display dialog "Response from server:
+" & response
+on error errMsg
+	display alert "Error posting to Table" message errMsg
+end try