Changes between Version 7 and Version 8 of AppleAddressBookDatasource

Timestamp:

12/12/05 20:32:40 (19 years ago)

Author:

anonymous

Comment:

--

AppleAddressBookDatasource

@@ -43 +43 @@
 tell application "Address Book"
 
+set m to properties of my card
 
-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
+