Changes between Version 4 and Version 5 of AppleAddressBookDatasource

Timestamp:

12/12/05 20:16:28 (19 years ago)

Author:

steve@…

Comment:

Updated script

AppleAddressBookDatasource

@@ -34 +34 @@
 
 It should copy/paste from the RDF-File datasource:  source:trunk/gnowsis/src/org/gnowsis/adapters/rdffile/RDFFileDataSource.java
+
+I uploaded a script I made a couple of years ago, but it's appeared as 0 bytes. So here's the script.
+
+property foaf : "FOAF"
+
+tell application "Address Book"
+        
+        set m to properties of my card
+        set the_file to (((path to desktop) as string) & first name of m & last name of m & ".rdf") as file specification
+        set rdf to "<rdf:RDF" & return
+        set rdf to rdf & "xmlns:rdf=" & quote & "http://www.w3.org/1999/02/22-rdf-syntax-ns#" & quote & return
+        set rdf to rdf & "xmlns:rdfs=" & quote & "http://www.w3.org/2000/01/rdf-schema#" & quote & return
+        set rdf to rdf & "xmlns:foaf=" & quote & "http://xmlns.com/foaf/0.1/" & quote & return
+        set rdf to rdf & "xmlns:admin=" & quote & "http://webns.net/mvcb/" & quote & ">" & return
+        set rdf to rdf & "<foaf:Person rdf:nodeID=" & quote & "me" & quote & ">" & return
+        set rdf to rdf & "<foaf:name>" & first name of m & " " & last name of m & "</foaf:name>" & return
+        if nickname of m ≠ "" then
+                set rdf to rdf & "<foaf:nick>" & nickname of m & "</foaf:nick>" & return
+        end if
+        
+        
+        if group foaf exists then
+                repeat with this_person in every person of group foaf
+                        
+                        
+                        set rdf to rdf & "<foaf:Person>" & return
+                        set rdf to rdf & "<foaf:name>" & first name of this_person & " " & last name of this_person & "</foaf:name>" & return
+                        repeat with e in emails of this_person
+                                set rdf to rdf & "<foaf:mbox>mailto:" & value of e & "</foaf:mbox>" & return
+                        end repeat
+                        if ((count of urls of this_person) > 0) then
+                                if label of url 1 of this_person is "FOAF" then
+                                        set rdf to rdf & "<rdfs:seeAlso rdf:resource=" & quote & value of url 1 of this_person & quote & "/>" & return
+                                end if
+                        end if
+                        set rdf to rdf & "</foaf:Person>" & return
+                end repeat
+        end if
+        
+        set rdf to rdf & "</rdf:RDF>"
+        
+        
+end tell
+
+try
+        open for access the_file with write permission
+        set eof of the_file to 0
+        write (rdf) to the_file starting at eof
+        close access the_file
+on error
+        try
+                close access the_file
+        end try
+end try