How-To: MacOS X Firewire HDTV recording - Page 8

set theCals to {}
set iCalendars to {}
tell application "iCal"
        set theCals to calendars
        repeat with i from 1 to count of theCals
                set theCal to item i of theCals
                if the writable of theCal then
                        copy title of item i of theCals to end of iCalendars
                end if
        end repeat
        
        -- If you don't have a {calName} calendar, try "Home" -- otherwise, try just the first one.
        if calName is in iCalendars then
                set calTitle to calName
        else
                if "Home" is in iCalendars then
                        set calTitle to "Home"
                else
                        set calTitle to item 1 of iCalendars -- just pick the first one
                end if
        end if
end tell

tell application "iCal"
        set startDate to current date
        --      set time of startDate to 60 * duration -- convert to seconds
        set year of startDate to eventYear
        set month of startDate to eventMonth
        set day of startDate to eventDay
        set time of startDate to eventHour * hours + eventMinute * minutes
        
        set endDate to startDate + duration * minutes
        
        
        
        
        if repeats is true then
                -- convert weekday string like "Friday" into 2-char uppercase code like "FR".  Yuck!
                set char1 to character 1 of (weekday of startDate as string)
                set char2 to (ASCII number character 2 of (weekday of startDate as string)) - 32 -- convert to lowercase
                set weekdayCode to (char1 as string) & (ASCII character char2) as string
                
                -- create a repeating event.  Don't store the description because the episode description will likely be different next week.
                set myevent to make new event at the end of events of (item 1 of (calendars whose title is calTitle)) with properties {start date:startDate, end date:endDate, summary:eventTitle, recurrence:("FREQ=WEEKLY;INTERVAL=1;BYDAY=" & weekdayCode)}
        else
                set myevent to make new event at the end of events of (item 1 of (calendars whose title is calTitle)) with properties {start date:startDate, end date:endDate, description:eventDescription, summary:eventTitle}
        end if
        
end tell