openproject/app/controllers/rb_calendars_controller.rb

require 'icalendar'

class RbCalendarsController < RbApplicationController
  unloadable
  
  accept_key_auth :show
  
  def show
    respond_to do |format|
      format.xml { send_data(generate_ical, :disposition => 'attachment') }
    end
  end

  private
  
  def generate_ical
    cal = Icalendar::Calendar.new

    # current + future sprints
    Sprint.find(:all, :conditions => ["not start_date is null and not effective_date is null and project_id = ? and effective_date >= ?", @project.id, Date.today]).each {|sprint|
      summary_text = l(:event_sprint_summary, { :project => @project.name, :summary => sprint.name } )
      description_text = l(:event_sprint_description, {
                            :summary => sprint.name,
                            :description => sprint.description,
                            :url => url_for({
                              :controller => 'rb_queries',
                              :only_path => false,
                              :action => 'show',
                              :project_id => @project.id,
                              :sprint_id => sprint.id
                              })
                            })
      cal.event do
        dtstart     sprint.start_date
        dtend       sprint.effective_date
        summary     summary_text
        description description_text
        klass       'PRIVATE'
        transp      'TRANSPARENT'
      end
    }

    open_issues = %Q[
        #{IssueStatus.table_name}.is_closed = ?
        and tracker_id in (?)
        and fixed_version_id in (
          select id
          from versions
          where project_id = ?
            and status = 'open'
            and not start_date is null
            and effective_date >= ?
        )
    ]
    open_issues_and_impediments = %Q[
      (assigned_to_id is null or assigned_to_id = ?)
      and
      (
        (#{open_issues})
        or
        ( #{IssueStatus.table_name}.is_closed = ?
          and #{Issue.table_name}.id in (
            select issue_from_id
            from issue_relations
            join issues on issues.id = issue_to_id and relation_type = 'blocks'
            where #{open_issues})
        )
      )
    ]

    conditions = [open_issues_and_impediments]
    # me or none
    conditions << User.current.id

    # open stories/tasks
    conditions << false
    conditions << Story.trackers + [Task.tracker]
    conditions << @project.id
    conditions << Date.today

    # open impediments...
    conditions << false

    # ... for open stories/tasks
    conditions << false
    conditions << Story.trackers + [Task.tracker]
    conditions << @project.id
    conditions << Date.today

    issues = Issue.find(:all, :include => :status, :conditions => conditions).each {|issue|
      summary_text = l(:todo_issue_summary, { :type => issue.tracker.name, :summary => issue.subject } )
      description_text = l(:todo_issue_description, {
                            :summary => issue.subject,
                            :description => issue.description,
                            :url => url_for({
                              :controller => 'issues',
                              :only_path => false,
                              :action => 'show',
                              :id => issue.id
                              })
                            })
      # I know this should be "cal.todo do", but outlook in it's
      # infinite stupidity doesn't support VTODO
      cal.event do
        summary     summary_text
        description description_text
        dtstart     Date.today
        dtend       (Date.today + 1)
        klass       'PRIVATE'
        transp      'TRANSPARENT'
      end
    }
    
    cal.to_ical
  end
  
end