weekly release 3.1dev
[moodle.git] / calendar / export_execute.php
CommitLineData
e7521559 1<?php
b5f1b8b1 2
3require_once('../config.php');
4//require_once($CFG->dirroot.'/course/lib.php');
5require_once($CFG->dirroot.'/calendar/lib.php');
6require_once($CFG->libdir.'/bennu/bennu.inc.php');
7
d52777b4
RW
8$userid = optional_param('userid', 0, PARAM_INT);
9$username = optional_param('username', '', PARAM_TEXT);
ea185313 10$authtoken = required_param('authtoken', PARAM_ALPHANUM);
d52777b4 11$generateurl = optional_param('generateurl', '', PARAM_TEXT);
ea185313 12
dbf9d4cb 13if (empty($CFG->enablecalendarexport)) {
14 die('no export');
15}
faf0e91a 16
ea185313 17//Fetch user information
d52777b4
RW
18$checkuserid = !empty($userid) && $user = $DB->get_record('user', array('id' => $userid), 'id,password');
19//allowing for fallback check of old url - MDL-27542
20$checkusername = !empty($username) && $user = $DB->get_record('user', array('username' => $username), 'id,password');
21if (!$checkuserid && !$checkusername) {
22 //No such user
804656ff 23 die('Invalid authentication');
b5f1b8b1 24}
25
ea185313 26//Check authentication token
d52777b4
RW
27$authuserid = !empty($userid) && $authtoken == sha1($userid . $user->password . $CFG->calendar_exportsalt);
28//allowing for fallback check of old url - MDL-27542
29$authusername = !empty($username) && $authtoken == sha1($username . $user->password . $CFG->calendar_exportsalt);
30if (!$authuserid && !$authusername) {
804656ff 31 die('Invalid authentication');
ea185313 32}
b5f1b8b1 33
da304137
MN
34// Get the calendar type we are using.
35$calendartype = \core_calendar\type_factory::get_calendar_instance();
36
cba168a6 37$what = optional_param('preset_what', 'all', PARAM_ALPHA);
38$time = optional_param('preset_time', 'weeknow', PARAM_ALPHA);
b5f1b8b1 39
da304137
MN
40$now = $calendartype->timestamp_to_date_array(time());
41
b5f1b8b1 42// Let's see if we have sufficient and correct data
43$allowed_what = array('all', 'courses');
af5d990b 44$allowed_time = array('weeknow', 'weeknext', 'monthnow', 'monthnext', 'recentupcoming', 'custom');
b5f1b8b1 45
d52777b4
RW
46if (!empty($generateurl)) {
47 $authtoken = sha1($user->id . $user->password . $CFG->calendar_exportsalt);
48 $params = array();
49 $params['preset_what'] = $what;
50 $params['preset_time'] = $time;
51 $params['userid'] = $userid;
52 $params['authtoken'] = $authtoken;
53 $params['generateurl'] = true;
54
55 $link = new moodle_url('/calendar/export.php', $params);
56 redirect($link->out());
57 die;
58}
59
b5f1b8b1 60if(!empty($what) && !empty($time)) {
61 if(in_array($what, $allowed_what) && in_array($time, $allowed_time)) {
df997f84 62 $courses = enrol_get_users_courses($user->id, true, 'id, visible, shortname');
941939ef 63
64 if ($what == 'all') {
65 $users = $user->id;
66 $groups = array();
67 foreach ($courses as $course) {
68 $course_groups = groups_get_all_groups($course->id, $user->id);
4a965824 69 $groups = array_merge($groups, array_keys($course_groups));
941939ef 70 }
e36cd5d3 71 if (empty($groups)) {
72 $groups = false;
73 }
ea185313 74 $courses[SITEID] = new stdClass;
75 $courses[SITEID]->shortname = get_string('globalevents', 'calendar');
941939ef 76 } else {
77 $users = false;
78 $groups = false;
ea185313 79 }
cba168a6 80
da304137
MN
81 // Store the number of days in the week.
82 $numberofdaysinweek = $calendartype->get_num_weekdays();
83
b5f1b8b1 84 switch($time) {
85 case 'weeknow':
da304137
MN
86 $startweekday = calendar_get_starting_weekday();
87 $startmonthday = find_day_in_month($now['mday'] - ($numberofdaysinweek - 1), $startweekday, $now['mon'], $now['year']);
88 $startmonth = $now['mon'];
89 $startyear = $now['year'];
b5f1b8b1 90 if($startmonthday > calendar_days_in_month($startmonth, $startyear)) {
91 list($startmonth, $startyear) = calendar_add_month($startmonth, $startyear);
92 $startmonthday = find_day_in_month(1, $startweekday, $startmonth, $startyear);
93 }
1032966c
MN
94 $gregoriandate = $calendartype->convert_to_gregorian($startyear, $startmonth, $startmonthday);
95 $timestart = make_timestamp($gregoriandate['year'], $gregoriandate['month'], $gregoriandate['day'],
96 $gregoriandate['hour'], $gregoriandate['minute']);
97
da304137
MN
98 $endmonthday = $startmonthday + $numberofdaysinweek;
99 $endmonth = $startmonth;
100 $endyear = $startyear;
b5f1b8b1 101 if($endmonthday > calendar_days_in_month($endmonth, $endyear)) {
102 list($endmonth, $endyear) = calendar_add_month($endmonth, $endyear);
103 $endmonthday = find_day_in_month(1, $startweekday, $endmonth, $endyear);
104 }
1032966c
MN
105 $gregoriandate = $calendartype->convert_to_gregorian($endyear, $endmonth, $endmonthday);
106 $timeend = make_timestamp($gregoriandate['year'], $gregoriandate['month'], $gregoriandate['day'],
107 $gregoriandate['hour'], $gregoriandate['minute']);
b5f1b8b1 108 break;
109 case 'weeknext':
da304137 110 $startweekday = calendar_get_starting_weekday();
b5f1b8b1 111 $startmonthday = find_day_in_month($now['mday'] + 1, $startweekday, $now['mon'], $now['year']);
da304137
MN
112 $startmonth = $now['mon'];
113 $startyear = $now['year'];
b5f1b8b1 114 if($startmonthday > calendar_days_in_month($startmonth, $startyear)) {
115 list($startmonth, $startyear) = calendar_add_month($startmonth, $startyear);
116 $startmonthday = find_day_in_month(1, $startweekday, $startmonth, $startyear);
117 }
1032966c
MN
118 $gregoriandate = $calendartype->convert_to_gregorian($startyear, $startmonth, $startmonthday);
119 $timestart = make_timestamp($gregoriandate['year'], $gregoriandate['month'], $gregoriandate['day'],
120 $gregoriandate['hour'], $gregoriandate['minute']);
121
da304137
MN
122 $endmonthday = $startmonthday + $numberofdaysinweek;
123 $endmonth = $startmonth;
124 $endyear = $startyear;
b5f1b8b1 125 if($endmonthday > calendar_days_in_month($endmonth, $endyear)) {
126 list($endmonth, $endyear) = calendar_add_month($endmonth, $endyear);
127 $endmonthday = find_day_in_month(1, $startweekday, $endmonth, $endyear);
128 }
1032966c
MN
129 $gregoriandate = $calendartype->convert_to_gregorian($endyear, $endmonth, $endmonthday);
130 $timeend = make_timestamp($gregoriandate['year'], $gregoriandate['month'], $gregoriandate['day'],
131 $gregoriandate['hour'], $gregoriandate['minute']);
b5f1b8b1 132 break;
133 case 'monthnow':
da304137
MN
134 // Convert to gregorian.
135 $gregoriandate = $calendartype->convert_to_gregorian($now['year'], $now['mon'], 1);
136
1032966c
MN
137 $timestart = make_timestamp($gregoriandate['year'], $gregoriandate['month'], $gregoriandate['day'],
138 $gregoriandate['hour'], $gregoriandate['minute']);
139 $timeend = $timestart + (calendar_days_in_month($now['mon'], $now['year']) * DAYSECS);
b5f1b8b1 140 break;
141 case 'monthnext':
da304137 142 // Get the next month for this calendar.
b5f1b8b1 143 list($nextmonth, $nextyear) = calendar_add_month($now['mon'], $now['year']);
da304137
MN
144
145 // Convert to gregorian.
146 $gregoriandate = $calendartype->convert_to_gregorian($nextyear, $nextmonth, 1);
147
148 // Create the timestamps.
1032966c
MN
149 $timestart = make_timestamp($gregoriandate['year'], $gregoriandate['month'], $gregoriandate['day'],
150 $gregoriandate['hour'], $gregoriandate['minute']);
151 $timeend = $timestart + (calendar_days_in_month($nextmonth, $nextyear) * DAYSECS);
b5f1b8b1 152 break;
ea185313 153 case 'recentupcoming':
154 //Events in the last 5 or next 60 days
155 $timestart = time() - 432000;
156 $timeend = time() + 5184000;
157 break;
af5d990b
AA
158 case 'custom':
159 // Events based on custom date range.
160 $timestart = time() - $CFG->calendar_exportlookback * DAYSECS;
161 $timeend = time() + $CFG->calendar_exportlookahead * DAYSECS;
162 break;
b5f1b8b1 163 }
b5f1b8b1 164 }
165 else {
166 // Parameters given but incorrect, redirect back to export page
167 redirect($CFG->wwwroot.'/calendar/export.php');
b5f1b8b1 168 die();
169 }
170}
941939ef 171$events = calendar_get_events($timestart, $timeend, $users, $groups, array_keys($courses), false);
b5f1b8b1 172
173$ical = new iCalendar;
174$ical->add_property('method', 'PUBLISH');
175foreach($events as $event) {
13534ef7
ML
176 if (!empty($event->modulename)) {
177 $cm = get_coursemodule_from_instance($event->modulename, $event->instance);
ed8adc7c 178 if (!\core_availability\info_module::is_user_visible($cm, $userid, false)) {
13534ef7
ML
179 continue;
180 }
181 }
04f1715e 182 $hostaddress = str_replace('http://', '', $CFG->wwwroot);
183 $hostaddress = str_replace('https://', '', $hostaddress);
184
b5f1b8b1 185 $ev = new iCalendar_event;
04f1715e 186 $ev->add_property('uid', $event->id.'@'.$hostaddress);
b5f1b8b1 187 $ev->add_property('summary', $event->name);
35b7dd7b 188 $ev->add_property('description', clean_param($event->description, PARAM_NOTAGS));
ea185313 189 $ev->add_property('class', 'PUBLIC'); // PUBLIC / PRIVATE / CONFIDENTIAL
190 $ev->add_property('last-modified', Bennu::timestamp_to_datetime($event->timemodified));
b5f1b8b1 191 $ev->add_property('dtstamp', Bennu::timestamp_to_datetime()); // now
ea185313 192 if ($event->timeduration > 0) {
193 //dtend is better than duration, because it works in Microsoft Outlook and works better in Korganizer
2be327dc 194 $ev->add_property('dtstart', Bennu::timestamp_to_datetime($event->timestart)); // when event starts.
ea185313 195 $ev->add_property('dtend', Bennu::timestamp_to_datetime($event->timestart + $event->timeduration));
2be327dc 196 } else {
6ae33efc 197 // When no duration is present, ie an all day event, VALUE should be date instead of time and dtend = dtstart + 1 day.
2be327dc 198 $ev->add_property('dtstart', Bennu::timestamp_to_date($event->timestart), array('value' => 'DATE')); // All day event.
6ae33efc 199 $ev->add_property('dtend', Bennu::timestamp_to_date($event->timestart + DAYSECS), array('value' => 'DATE')); // All day event.
ea185313 200 }
201 if ($event->courseid != 0) {
6ca657a7 202 $coursecontext = context_course::instance($event->courseid);
8ebbb06a 203 $ev->add_property('categories', format_string($courses[$event->courseid]->shortname, true, array('context' => $coursecontext)));
ea185313 204 }
b5f1b8b1 205 $ical->add_component($ev);
206}
207
208$serialized = $ical->serialize();
209if(empty($serialized)) {
210 // TODO
211 die('bad serialization');
212}
213
b5f1b8b1 214$filename = 'icalexport.ics';
215
216header('Last-Modified: '. gmdate('D, d M Y H:i:s', time()) .' GMT');
217header('Cache-Control: private, must-revalidate, pre-check=0, post-check=0, max-age=0');
218header('Expires: '. gmdate('D, d M Y H:i:s', 0) .'GMT');
219header('Pragma: no-cache');
220header('Accept-Ranges: none'); // Comment out if PDFs do not work...
221header('Content-disposition: attachment; filename='.$filename);
222header('Content-length: '.strlen($serialized));
8a7703ce 223header('Content-type: text/calendar; charset=utf-8');
b5f1b8b1 224
225echo $serialized;