Wipe all Contact's Birthdays on Mac OS X

remove_birthdays.scpt

-- my previous phone miss-synced all my birthday entries to wrong dates
-- the first requirement to fix this is to have a white
-- canvas again. So removing all birthdays and ask people
-- and facebook for adding them again...

tell application "Contacts"
	set peopleToChange to people
	repeat with thePerson in peopleToChange
		set the birth date of thePerson to missing value
	end repeat
	save
end tell