DAViCal
caldav-MKCOL.php
1 <?php
11 dbg_error_log('MKCOL', 'method handler');
12 require_once('AwlQuery.php');
13 
14 $request->NeedPrivilege('DAV::bind');
15 $displayname = $request->path;
16 
17 // Enforce trailling '/' on collection name
18 if ( ! preg_match( '#/$#', $request->path ) ) {
19  dbg_error_log( 'MKCOL', 'Add trailling "/" to "%s"', $request->path);
20  $request->path .= '/';
21 }
22 
23 $parent_container = '/';
24 if ( preg_match( '#^(.*/)([^/]+)(/)?$#', $request->path, $matches ) ) {
25  $parent_container = $matches[1];
26  $displayname = $matches[2];
27 }
28 
29 require_once('DAVResource.php');
30 $parent = new DAVResource( $parent_container );
31 if ( $parent->IsSchedulingCollection( 'inbox' ) ) {
32  $request->PreconditionFailed(403, 'urn:ietf:params:xml:ns:caldav:no-mkcol-in-inbox' );
33 }
34 
35 
36 $request_type = $request->method;
37 $is_calendar = ($request_type == 'MKCALENDAR');
38 $is_addressbook = false;
39 
40 $resourcetypes = '<DAV::collection/>';
41 if ($is_calendar) $resourcetypes .= '<urn:ietf:params:xml:ns:caldav:calendar/>';
42 
43 require_once('XMLDocument.php');
44 $reply = new XMLDocument(array( 'DAV:' => '', 'urn:ietf:params:xml:ns:caldav' => 'C' ));
45 
46 $failure_code = null;
47 
48 $failure = array();
49 $dav_properties = array();
50 
51 if ( isset($request->xml_tags) ) {
55  $position = 0;
56  $xmltree = BuildXMLTree( $request->xml_tags, $position);
57  if ( $xmltree->GetNSTag() == 'DAV::mkcol' ) $request_type = 'extended-mkcol';
58 
59  if ( $xmltree->GetNSTag() != 'urn:ietf:params:xml:ns:caldav:mkcalendar' && $request_type != 'extended-mkcol' ) {
60  $request->DoResponse( 406, sprintf('The XML is not a "DAV::mkcol" or "urn:ietf:params:xml:ns:caldav:mkcalendar" document (%s)', $xmltree->GetNSTag()) );
61  }
62  $setprops = $xmltree->GetContent(); // <set>
63  $setprops = $setprops[0]->GetContent(); // <prop>
64  $setprops = $setprops[0]->GetContent(); // the array of properties.
65 
66  foreach( $setprops AS $k => $setting ) {
67  $tag = $setting->GetNSTag();
68  $content = $setting->RenderContent(0,null,true);
69 
70  dbg_error_log( 'MKCOL', 'Processing tag "%s"', $tag);
71 
72  switch( $tag ) {
73 
74  case 'DAV::resourcetype':
76  dbg_error_log( 'MKCOL', 'Extended MKCOL with resourcetype specified. "%s"', $content);
77  $is_addressbook = count($setting->GetPath('DAV::resourcetype/urn:ietf:params:xml:ns:carddav:addressbook'));
78  $is_calendar = count($setting->GetPath('DAV::resourcetype/urn:ietf:params:xml:ns:caldav:calendar'));
79  if ( $is_addressbook && $is_calendar ) {
80  $failure['set-'.$tag] = new XMLElement( 'propstat', array(
81  new XMLElement( 'prop', new XMLElement($reply->Tag($tag))),
82  new XMLElement( 'status', 'HTTP/1.1 409 Conflict' ),
83  new XMLElement('responsedescription', translate('Collections may not be both CalDAV calendars and CardDAV addressbooks at the same time') )
84  ));
85  }
86  else {
87  $resourcetypes = $setting->GetPath('DAV::resourcetype/*');
88  $types = '';
89  foreach( $resourcetypes AS $k => $v ) {
90  $types .= '<'.$v->GetNSTag().'/>';
91  }
92  $resourcetypes = $types;
93  $success[$tag] = 1;
94  }
95  break;
96 
97  case 'DAV::displayname':
98  $displayname = $content;
103  if ( preg_match( '/^SOHO.Organizer.6\./', $_SERVER['HTTP_USER_AGENT'] ) ) {
104  dbg_error_log( 'MKCOL', 'Displayname is "/" to "%s"', $request->path);
105  $parent_container = $request->path;
106  $request->path .= $content . '/';
107  }
108  $success[$tag] = 1;
109  break;
110 
111  case 'urn:ietf:params:xml:ns:caldav:supported-calendar-component-set':
113  $dav_properties[$tag] = $content;
114  $success[$tag] = 1;
115  break;
116 
117  case 'urn:ietf:params:xml:ns:caldav:supported-calendar-data':
118  case 'urn:ietf:params:xml:ns:caldav:calendar-data':
119  case 'urn:ietf:params:xml:ns:caldav:max-resource-size':
120  case 'urn:ietf:params:xml:ns:caldav:min-date-time':
121  case 'urn:ietf:params:xml:ns:caldav:max-date-time':
122  case 'urn:ietf:params:xml:ns:caldav:max-instances':
123  $success[$tag] = 1;
124  break;
125 
129  case 'DAV::getetag':
130  case 'DAV::getcontentlength':
131  case 'DAV::getcontenttype':
132  case 'DAV::getlastmodified':
133  case 'DAV::creationdate':
134  case 'DAV::lockdiscovery':
135  case 'DAV::supportedlock':
136  $failure['set-'.$tag] = new XMLElement( 'propstat', array(
137  new XMLElement( 'prop', new XMLElement($reply->Tag($tag))),
138  new XMLElement( 'status', 'HTTP/1.1 409 Conflict' ),
139  new XMLElement('responsedescription', translate('Property is read-only') )
140  ));
141  if ( isset($failure_code) && $failure_code != 409 ) $failure_code = 207;
142  else if ( !isset($failure_code) ) $failure_code = 409;
143  break;
144 
148  default:
149  $dav_properties[$tag] = $content;
150  $success[$tag] = 1;
151  break;
152  }
153  }
154 
158  if ( count($failure) > 0 ) {
159  $props = array();
160  $status = array();
161  foreach( $success AS $tag => $v ) {
162  // Unfortunately although these succeeded, we failed overall, so they didn't happen...
163  $props[] = new XMLElement($reply->Tag($tag));
164  }
165 
166  $status[] = new XMLElement( 'propstat', array(
167  new XMLElement('prop', $props),
168  new XMLElement('status', 'HTTP/1.1 424 Failed Dependency' )
169  ));
170 
171  if ( $request_type == 'extended-mkcol' ) {
172  $request->DoResponse( $failure_code, $reply->Render('mkcol-response', array_merge( $status, $failure ), 'text/xml; charset="utf-8"' ) );
173  }
174  else {
175  array_unshift( $failure, $reply->href( ConstructURL($request->path) ) );
176  $failure[] = new XMLElement('responsedescription', translate('Some properties were not able to be set.') );
177 
178  $request->DoResponse( 207, $reply->Render('multistatus', new XMLElement( 'response', $failure )), 'text/xml; charset="utf-8"' );
179  }
180 
181  }
182 }
183 
184 $sql = 'SELECT * FROM collection WHERE dav_name = :dav_name';
185 $qry = new AwlQuery( $sql, array( ':dav_name' => $request->path) );
186 if ( ! $qry->Exec('MKCOL',__LINE__,__FILE__) ) {
187  $request->DoResponse( 500, translate('Error querying database.') );
188 }
189 if ( $qry->rows() != 0 ) {
190  $request->DoResponse( 405, translate('A collection already exists at that location.') );
191 }
192 
193 $qry = new AwlQuery();
194 $qry->Begin();
195 
196 if ( ! $qry->QDo( 'INSERT INTO collection ( user_no, parent_container, dav_name, dav_etag, dav_displayname,
197  is_calendar, is_addressbook, resourcetypes, created, modified )
198  VALUES( :user_no, :parent_container, :dav_name, :dav_etag, :dav_displayname,
199  :is_calendar, :is_addressbook, :resourcetypes, current_timestamp, current_timestamp )',
200  array(
201  ':user_no' => $request->user_no,
202  ':parent_container' => $parent_container,
203  ':dav_name' => $request->path,
204  ':dav_etag' => md5($request->user_no. $request->path),
205  ':dav_displayname' => $displayname,
206  ':is_calendar' => ($is_calendar ? 't' : 'f'),
207  ':is_addressbook' => ($is_addressbook ? 't' : 'f'),
208  ':resourcetypes' => $resourcetypes
209  ) ) ) {
210  $request->DoResponse( 500, translate('Error writing calendar details to database.') );
211 }
212 foreach( $dav_properties AS $k => $v ) {
213  if ( ! $qry->QDo('SELECT set_dav_property( :dav_name, :user_no::integer, :tag::text, :value::text )',
214  array( ':dav_name' => $request->path, ':user_no' => $request->user_no, ':tag' => $k, ':value' => $v) ) ) {
215  $request->DoResponse( 500, translate('Error writing calendar properties to database.') );
216  }
217 }
218 if ( !$qry->Commit() ) {
219  $request->DoResponse( 500, translate('Error writing calendar details to database.') );
220 }
221 dbg_error_log( 'MKCOL', 'New calendar "%s" created named "%s" for user "%d" in parent "%s"', $request->path, $displayname, $session->user_no, $parent_container);
222 header('Cache-Control: no-cache');
223 $request->DoResponse( 201, '' );
224