| 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 |