Changes between Version 8 and Version 9 of AppleAddressBookDatasource

Timestamp:

12/21/05 16:51:03 (18 years ago)

Author:

sauermann

Comment:

--

AppleAddressBookDatasource

@@ -6 +6 @@
  * [http://people.no-distance.net/ol/software/ab-foaf/ AB-FOAF by Olivier Gutknecht] - a cocoa / python program.
  * [http://search.cpan.org/~kjetilk/XML-FOAFKnows-FromvCard/ XML-FOAFKnows-FromvCard] by KjetilK. Does only foaf:knows creation
+ * [http://b4mad.net/datenbrei/archives/2005/12/20/putting-my-address-book-online/ ab-new.py] a new python script to get the address book. [http://b4mad.net/2005/12/18/ab-new.py.txt ab-new.py.txt]
 
 Sources: Libby Miller, [http://leobard.twoday.net/stories/778100/ This blog entry].
@@ -38 +39 @@
 
 I uploaded a script I made a couple of years ago, but it's appeared as 0 bytes. So here's the script. To use it, you need to create a group called "FOAF" and add anyone you want in your knows list to that group. If you have a URL for their FOAF file, select their card in the Address Book, choose Card>Add Field>URL, change the URL title to FOAF and but the URL in the URL box.
-
+{{{
 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
-
+ 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
-
+        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
-
+}}}