45 | | set the_file to (((path to desktop) as string) & first name of m & last name of m & ".rdf") as file specification |
46 | | set rdf to "<rdf:RDF" & return |
47 | | set rdf to rdf & "xmlns:rdf=" & quote & "http://www.w3.org/1999/02/22-rdf-syntax-ns#" & quote & return |
48 | | set rdf to rdf & "xmlns:rdfs=" & quote & "http://www.w3.org/2000/01/rdf-schema#" & quote & return |
49 | | set rdf to rdf & "xmlns:foaf=" & quote & "http://xmlns.com/foaf/0.1/" & quote & return |
50 | | set rdf to rdf & "xmlns:admin=" & quote & "http://webns.net/mvcb/" & quote & ">" & return |
51 | | set rdf to rdf & "<foaf:Person rdf:nodeID=" & quote & "me" & quote & ">" & return |
52 | | set rdf to rdf & "<foaf:name>" & first name of m & " " & last name of m & "</foaf:name>" & return |
53 | | if nickname of m ≠ "" then |
54 | | set rdf to rdf & "<foaf:nick>" & nickname of m & "</foaf:nick>" & return |
55 | | end if |
56 | | |
57 | | |
58 | | if group foaf exists then |
59 | | repeat with this_person in every person of group foaf |
60 | | |
61 | | |
62 | | set rdf to rdf & "<foaf:Person>" & return |
63 | | set rdf to rdf & "<foaf:name>" & first name of this_person & " " & last name of this_person & "</foaf:name>" & return |
64 | | repeat with e in emails of this_person |
65 | | set rdf to rdf & "<foaf:mbox>mailto:" & value of e & "</foaf:mbox>" & return |
66 | | end repeat |
67 | | if ((count of urls of this_person) > 0) then |
68 | | if label of url 1 of this_person is "FOAF" then |
69 | | set rdf to rdf & "<rdfs:seeAlso rdf:resource=" & quote & value of url 1 of this_person & quote & "/>" & return |
70 | | end if |
| 47 | set the_file to (((path to desktop) as string) & first name of m & last name of m & ".rdf") as file specification |
| 48 | set rdf to "<rdf:RDF" & return |
| 49 | set rdf to rdf & "xmlns:rdf=" & quote & "http://www.w3.org/1999/02/22-rdf-syntax-ns#" & quote & return |
| 50 | set rdf to rdf & "xmlns:rdfs=" & quote & "http://www.w3.org/2000/01/rdf-schema#" & quote & return |
| 51 | set rdf to rdf & "xmlns:foaf=" & quote & "http://xmlns.com/foaf/0.1/" & quote & return |
| 52 | set rdf to rdf & "xmlns:admin=" & quote & "http://webns.net/mvcb/" & quote & ">" & return |
| 53 | set rdf to rdf & "<foaf:Person rdf:nodeID=" & quote & "me" & quote & ">" & return |
| 54 | set rdf to rdf & "<foaf:name>" & first name of m & " " & last name of m & "</foaf:name>" & return |
| 55 | if nickname of m ≠ "" then |
| 56 | set rdf to rdf & "<foaf:nick>" & nickname of m & "</foaf:nick>" & return |
| 57 | end if |
| 58 | if group foaf exists then |
| 59 | repeat with this_person in every person of group foaf |
| 60 | set rdf to rdf & "<foaf:Person>" & return |
| 61 | set rdf to rdf & "<foaf:name>" & first name of this_person & " " & last name of this_person & "</foaf:name>" & return |
| 62 | repeat with e in emails of this_person |
| 63 | set rdf to rdf & "<foaf:mbox>mailto:" & value of e & "</foaf:mbox>" & return |
| 64 | end repeat |
| 65 | if ((count of urls of this_person) > 0) then |
| 66 | if label of url 1 of this_person is "FOAF" then |
| 67 | set rdf to rdf & "<rdfs:seeAlso rdf:resource=" & quote & value of url 1 of this_person & quote & "/>" & return |
| 68 | end if |