<?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 );