iSync Reactor

(*
iSync Reactor

This script will launch iSync and ask it to syncronize and terminate.  It will also refresh calendars in iCal.  
Protection is added to prevent frequent syncing and leave iCal/iSync running if they were already running

Copyright © Phill Sparks 2008
http://milk-hub.net


Creative Commons Attribution-Share Alike 2.0 UK: England & Wales 
(http://creativecommons.org/licenses/by-sa/2.0/uk/legalcode)

You are free:
    * to copy, distribute, display, and perform the work
    * to make derivative works

Under the following conditions:
    * You must attribute this work to Phill Sparks (with link http://milk-hub.net/pb/12)
    * Share Alike. If you alter, transform, or build upon this work, you may distribute the resulting work only under a licence identical to this one.
*)


property sync_frequency : 900 -- seconds

-- Find out if iCal and iSync are already running
tell application "System Events"
	set iCalRunning to (count of (every process whose name is "iCal")) is greater than 0
	set iSyncRunning to (count of (every process whose name is "iSync")) is greater than 0
end tell

-- Syncronize using iSync, at most every 15 minutes
tell application "iSync"
	if last sync is less than ((current date) - sync_frequency) then
		-- Refresh all calendars
		tell application "iCal"
			reload calendars
			
			if not iCalRunning then quit
		end tell
		
		-- Do the sync
		synchronize
	end if
	
	-- If this script started iSync then hide it, wait for it to finish syncing and quit
	if not iSyncRunning then
		tell application "System Events" to set visible of process "iSync" to false
		
		repeat while (syncing is true)
			-- Wait
		end repeat
		
		quit
	end if
end tell

Created by Phill Sparks on 2nd October 2008. Last updated on 20th October 2008.