on run {input, parameters}
  set eventDate to date (input as text)
  tell application "Safari"
    set currentTab to current tab of first window
    set eventSummary to name of currentTab
    set eventUrl to URL of currentTab
  end tell
  tell application "iCal"
    activate
    tell calendar "Home"
      set newEvent to make new event at end of events with properties {summary:eventSummary, url:eventUrl, start date:eventDate, end date:eventDate + 30 * minutes}
      show newEvent
    end tell
  end tell
end run