mirror of
https://gitlab.com/davical-project/davical.git
synced 2026-04-30 16:00:25 +00:00
57 lines
1.7 KiB
PHP
57 lines
1.7 KiB
PHP
<?php
|
|
|
|
|
|
$responses = array();
|
|
|
|
$request->NeedPrivilege(array('DAV::read','DAV::read-current-user-privilege-set','DAV::read-acl'));
|
|
|
|
/**
|
|
* Build the array of properties to include in the report output
|
|
*/
|
|
$match = $xmltree->GetPath('/DAV::principal-match/DAV::self');
|
|
if ( count ( $match ) == 0 ) {
|
|
$match = $xmltree->GetPath('/DAV::principal-match/DAV::principal-property');
|
|
$match_self = false;
|
|
}
|
|
else {
|
|
$match_self = true;
|
|
}
|
|
if ( count ( $match ) == 0 ) {
|
|
$request->DoResponse( 400, 'Badly formed principal-match REPORT request.' );
|
|
}
|
|
|
|
$target = new DAVResource($request->path);
|
|
|
|
$where = '';
|
|
if ( $match_self ) {
|
|
// Technically we should restrict to finding the principal somewhere *below* the
|
|
// request path in the hierarchy, but we'll quietly ignore that because it's
|
|
// unlikely that anything would actually be wanting that behaviour.
|
|
$where .= 'username = :username';
|
|
$params = array(':username' => $session->username );
|
|
}
|
|
else {
|
|
$params = array(':dav_name'=>'/'.$request->principal->GetProperty('username').'/');
|
|
}
|
|
|
|
if ( $where != "" ) $where = "WHERE $where";
|
|
$sql = "SELECT * FROM dav_principal $where ORDER BY principal_id LIMIT 100";
|
|
$qry = new AwlQuery($sql, $params);
|
|
|
|
|
|
$get_props = $xmltree->GetPath('/DAV::principal-match/DAV::prop/*');
|
|
$properties = array();
|
|
foreach( $get_props AS $k1 => $v1 ) {
|
|
$properties[] = $v1->GetTag();
|
|
}
|
|
|
|
if ( $qry->Exec("REPORT",__LINE__,__FILE__) && $qry->rows() > 0 ) {
|
|
while( $row = $qry->Fetch() ) {
|
|
$principal = new DAVResource($row);
|
|
$responses[] = $principal->RenderAsXML( $properties, $reply );
|
|
}
|
|
}
|
|
|
|
$multistatus = new XMLElement( "multistatus", $responses, $reply->GetXmlNsArray() );
|
|
|
|
$request->XMLResponse( 207, $multistatus ); |