--a script to grab the comments from iphoto installation
--run it like this
-- /usr/bin/osacompile getComments.scpt 
-- /usr/bin/osascript a.scpt 
-- you will need to edit albumWeAreInterestedIn

set albumWeAreInterestedIn to "2005-04-13"
set webname to "http://swordfish.rdfweb.org/photos"
set f to ((path to pictures folder as text) & "iphoto.rdf")
--set f to ((path to me as string) & "iphoto.rdf") --this is pwd but may get permissions problem
set nref to open for access file f with write permission -- this creates an empty file
set eof nref to 0
close access nref
set alltext to "<rdf:RDF xmlns:dc=\"http://purl.org/dc/elements/1.1/\" " & return & "xmlns:foaf=\"http://xmlns.com/foaf/0.1/\" " & return & "xmlns:rdf  =\"http://www.w3.org/1999/02/22-rdf-syntax-ns#\" >" & return

tell application "iPhoto"
	
	repeat with a in (every album whose name starts with albumWeAreInterestedIn)
		--repeat with p in (every photo whose comment is not "")
		repeat with p in (every photo in a)
			set imagePath to image path of p
			set thumbPath to thumbnail path of p
			set imageDate to date of p
			set idate to text 1 thru 10 of imageDate
			set imageTitle to title of p
			
			set bla to offset of "iPhoto Library" in imagePath
			set bla2 to offset of "iPhoto Library" in thumbPath
			
			set x to text (bla + 14) thru (length of imagePath) of imagePath
			set y to text (bla2 + 14) thru (length of thumbPath) of thumbPath
			
			set commentText to comment of p as text
			set keywordsText to ""
			
			set nk to number of keywords of p
			repeat with k from 1 to nk
				set keywordsText to keywordsText & "<dc:subject>" & (name of keyword k of p as text) & "</dc:subject>" & return
				--error name of keyword k of p as text
				
			end repeat
			set aa to "<foaf:Image rdf:about=\"" & webname & x & "\">" & return
			set bb to "<foaf:thumbnail rdf:resource=\"" & webname & y & "\"/>" & return
			set cc to ""
			if imageTitle is not "" then set cc to "<dc:title>" & imageTitle & "</dc:title>" & return
			set dd to ""
			if commentText is not "" then set dd to "<dc:description>" & commentText & "</dc:description>" & return
			set ee to ""
			if keywordsText is not "" then set ee to keywordsText & return
			set ff to "<dc:date>" & imageDate & "</dc:date>"
			
			set alltext to alltext & aa & bb & cc & dd & ff & ee & </foaf:Image>" & return
		end repeat -- photos in album
		
	end repeat -- albums
	
end tell

write alltext & "</rdf:RDF>" to file f