nik/davical
1
0
Fork 0
mirror of https://gitlab.com/davical-project/davical.git synced 2026-07-26 12:49:35 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Partially working PROPPATCH.

Browse Source
This commit is contained in:
Andrew McMillan 2006-12-21 01:01:48 +13:00
parent 48791e406f
commit d83a03b37c
1 changed files with 173 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

182
inc/caldav-PROPPATCH.php
View File

@ -17,24 +17,188 @@ if ( ! $request->AllowedTo('write-properties') ) {
$position = 0;
$xmltree = BuildXMLTree( $request->xml_tags, $position);
echo $xmltree->Render();
// echo $xmltree->Render();
if ( $xmltree->GetTag() != "DAV::PROPERTYUPDATE" ) {
$request->DoResponse( 403 );
}
$tmp = $xmltree->GetPath("/DAV::PROPERTYUPDATE/DAV::SET/DAV::PROP");
/**
* Find the properties being set, and the properties being removed
*/
$setprops = $xmltree->GetPath("/DAV::PROPERTYUPDATE/DAV::SET/DAV::PROP/*");
$rmprops = $xmltree->GetPath("/DAV::PROPERTYUPDATE/DAV::REMOVE/DAV::PROP/*");
$settings = array();
foreach( $tmp AS $k => $v ) {
printf("Content of %s is type %s\n", $v->GetTag(), gettype($v->GetContent()) );
foreach( $v->GetContent() AS $k1 => $setting ) {
$settings[$setting->GetTag()] = $setting->GetContent();
/**
* We build full status responses for failures. For success we just record
* it, since the multistatus response only applies to failure. While it is
* not explicitly stated in RFC2518, from reading between the lines (8.2.1)
* a success will return 200 OK [with an empty response].
*/
$failure = array();
$success = array();
/**
* Not much for it but to process the incoming settings in a big loop, doing
* the special-case stuff as needed and falling through to a default which
* stuffs the property somewhere we will be able to retrieve it from later.
*/
$sql = "BEGIN;";
foreach( $setprops AS $k => $setting ) {
$tag = $setting->GetTag();
$content = $setting->RenderContent();
switch( $tag ) {
case 'DAV::DISPLAYNAME':
/**
* Can't set displayname on resources - only collections or principals
*/
if ( $request->IsCollection() || $request->IsPrincipal() ) {
if ( $request->IsCollection() ) {
$sql .= sprintf( "UPDATE collection SET dav_displayname = %s, modified = current_timestamp WHERE dav_name = %s;",
qpg($content), qpg($request->path) );
}
else {
$sql .= sprintf( "UPDATE usr SET fullname = %s, updated = current_timestamp WHERE user_no = %s;",
qpg($content), $request->user_no );
}
$success[$tag] = 1;
}
else {
$failure['set-'.$tag] = new XMLElement( 'propstat', array(
new XMLElement( 'prop', new XMLElement($tag)),
new XMLElement( 'status', 'HTTP/1.1 409 Conflict' ),
new XMLElement( 'responsedescription', translate("The displayname may only be set on collections or principals.") )
));
}
break;
case 'DAV::RESOURCETYPE':
/**
* We don't allow a collection to change to/from a resource. Only collections may be CalDAV calendars.
*/
$setcollection = count($setting->GetPath('DAV::RESOURCETYPE/DAV::COLLECTION'));
$setcalendar = count($setting->GetPath('DAV::RESOURCETYPE/urn:ietf:params:xml:ns:caldav:calendar'));
if ( $request->IsCollection() && ($setcollection || $setcalendar) ) {
if ( $setcalendar ) {
$sql .= sprintf( "UPDATE collection SET is_calendar = TRUE WHERE dav_name = %s;", qpg($request->path) );
}
$success[$tag] = 1;
}
else {
$failure['set-'.$tag] = new XMLElement( 'propstat', array(
new XMLElement( 'prop', new XMLElement($tag)),
new XMLElement( 'status', 'HTTP/1.1 409 Conflict' ),
new XMLElement( 'responsedescription', translate("Resources may not be changed to / from collections.") )
));
}
break;
/**
* The following properties are read-only, so they will cause the request to fail
*/
case 'DAV::GETETAG':
case 'DAV::GETCONTENTLENGTH':
case 'DAV::CREATIONDATE':
$failure['set-'.$tag] = new XMLElement( 'propstat', array(
new XMLElement( 'prop', new XMLElement($tag)),
new XMLElement( 'status', 'HTTP/1.1 409 Conflict' ),
new XMLElement('responsedescription', translate("Property is read-only") )
));
break;
/**
* If we don't have any special processing for the property, we just store it verbatim (which will be an XML fragment).
*/
default:
$sql .= awl_replace_sql_args( "SELECT set_dav_property( ?, ?, ?, ? );", $request->path, $request->user_no, $tag, $content );
$success[$tag] = 1;
break;
}
}
foreach( $settings AS $setting => $value ) {
printf("Setting '%s' is set to '%s'\n", $setting, $value);
foreach( $setprops AS $k => $setting ) {
$tag = $setting->GetTag();
$content = $setting->RenderContent();
switch( $tag ) {
case 'DAV::RESOURCETYPE':
/**
* We don't allow a collection to change to/from a resource. Only collections may be CalDAV calendars.
*/
$rmcollection = count($setting->GetPath('DAV::RESOURCETYPE/DAV::COLLECTION'));
$rmcalendar = count($setting->GetPath('DAV::RESOURCETYPE/urn:ietf:params:xml:ns:caldav:calendar'));
if ( $request->IsCollection() && !$rmcollection ) {
if ( $rmcalendar ) {
$sql .= sprintf( "UPDATE collection SET is_calendar = FALSE WHERE dav_name = %s;", qpg($request->path) );
}
$success[$tag] = 1;
}
else {
$failure['set-'.$tag] = new XMLElement( 'propstat', array(
new XMLElement( 'prop', new XMLElement($tag)),
new XMLElement( 'status', 'HTTP/1.1 409 Conflict' ),
new XMLElement( 'responsedescription', translate("Resources may not be changed to / from collections.") )
));
}
break;
/**
* The following properties are read-only, so they will cause the request to fail
*/
case 'DAV::GETETAG':
case 'DAV::GETCONTENTLENGTH':
case 'DAV::CREATIONDATE':
case 'DAV::DISPLAYNAME':
$failure['set-'.$tag] = new XMLElement( 'propstat', array(
new XMLElement( 'prop', new XMLElement($tag)),
new XMLElement( 'status', 'HTTP/1.1 409 Conflict' ),
new XMLElement('responsedescription', translate("Property is read-only") )
));
break;
/**
* If we don't have any special processing then we must have to just delete it. Nonexistence is not failure.
*/
default:
$sql .= awl_replace_sql_args( "DELETE FROM property WHERE dav_name=? AND property_name=?;", $request->path, $tag );
$success[$tag] = 1;
break;
}
}
if ( count($failure) > 0 ) {
foreach( $success AS $tag => $v ) {
// Unfortunately although these succeeded, we failed overall, so they didn't happen...
$failure[] = new XMLElement( 'propstat', array(
new XMLElement( 'prop', new XMLElement($tag)),
new XMLElement( 'status', 'HTTP/1.1 424 Failed Dependency' ),
));
}
$href = new XMLElement('href', $c->protocol_server_port_script . $request->path );
$desc = new XMLElement('responsedescription', translate("Some properties were not able to be changed.") );
$multistatus = new XMLElement( "multistatus", new XMLElement( 'response', array( $href, $failure, $desc ) ), array('xmlns'=>'DAV:') );
$request->DoResponse( 207, $multistatus->Render(0,'<?xml version="1.0" encoding="utf-8" ?>'), 'text/xml; charset="utf-8"' );
}
$sql .= "COMMIT;";
$qry = new PgQuery( $sql );
if ( $qry->Exec() ) {
$href = new XMLElement('href', $c->protocol_server_port_script . $request->path );
$desc = new XMLElement('responsedescription', translate("All requested changes were made.") );
$multistatus = new XMLElement( "multistatus", new XMLElement( 'response', array( $href, $failure, $desc ) ), array('xmlns'=>'DAV:') );
$request->DoResponse( 200, $multistatus->Render(0,'<?xml version="1.0" encoding="utf-8" ?>'), 'text/xml; charset="utf-8"' );
}
exit(0);