1 | <?php |
---|
2 | |
---|
3 | /** |
---|
4 | * Given a <response><href>...</href><propstat><prop><someprop/></prop><status>HTTP/1.1 200 OK</status></propstat>...</response> |
---|
5 | * pull out the content of <someprop>content</someprop> and check to see if it has any href elements. If it *does* then |
---|
6 | * recurse into them, looking for the next deeper nesting of properties. |
---|
7 | */ |
---|
8 | function get_href_containers( &$multistatus_response ) { |
---|
9 | $propstat_set = $multistatus_response->GetElements('propstat'); |
---|
10 | $propstat_200 = null; |
---|
11 | foreach( $propstat_set AS $k => $v ) { |
---|
12 | $status = $v->GetElements('status'); |
---|
13 | if ( preg_match( '{^HTTP/\S+\s+200}', $status[0]->GetContent() ) ) { |
---|
14 | $propstat_200 = $v; |
---|
15 | break; |
---|
16 | } |
---|
17 | } |
---|
18 | if ( isset($propstat_200) ) { |
---|
19 | $props = $propstat_200->GetElements('prop'); |
---|
20 | $properties = array(); |
---|
21 | foreach( $props AS $k => $p ) { |
---|
22 | $properties = array_merge($properties,$p->GetElements()); |
---|
23 | } |
---|
24 | $href_containers = array(); |
---|
25 | foreach( $properties AS $k => $property ) { |
---|
26 | if ( !is_object($property) ) continue; |
---|
27 | // dbg_error_log('REPORT',' get_href_containers: Checking property "%s" for hrefs.', $property->GetNSTag() ); |
---|
28 | $hrefs = $property->GetElements('href'); |
---|
29 | if ( count($hrefs) > 0 ) { |
---|
30 | $href_containers[] = $property; |
---|
31 | } |
---|
32 | } |
---|
33 | if ( count($href_containers) > 0 ) { |
---|
34 | return $href_containers; |
---|
35 | } |
---|
36 | } |
---|
37 | return null; |
---|
38 | } |
---|
39 | |
---|
40 | |
---|
41 | /** |
---|
42 | * Expand the properties, recursing only once |
---|
43 | */ |
---|
44 | function expand_properties( $urls, $ptree, &$reply, $recurse_again = true ) { |
---|
45 | if ( !is_array($urls) ) $urls = array($urls); |
---|
46 | if ( !is_array($ptree) ) $ptree = array($ptree); |
---|
47 | |
---|
48 | $responses = array(); |
---|
49 | foreach( $urls AS $m => $url ) { |
---|
50 | $resource = new DAVResource($url); |
---|
51 | $props = array(); |
---|
52 | $subtrees = array(); |
---|
53 | foreach( $ptree AS $n => $property ) { |
---|
54 | if ( ! is_object($property) ) continue; |
---|
55 | $pname = $property->GetAttribute('name'); |
---|
56 | $pns = $property->GetAttribute('namespace'); |
---|
57 | if ( !isset($pns) || $pns == '' ) $pns = 'DAV:'; // Not sure if this is the correct way to default this. |
---|
58 | $pname = $pns .':'. $pname; |
---|
59 | $props[] = $pname; |
---|
60 | $subtrees[$pname] = $property->GetElements(); |
---|
61 | } |
---|
62 | $part_response = $resource->RenderAsXML( $props, $reply ); |
---|
63 | if ( isset($part_response) ) { |
---|
64 | if ( $recurse_again ) { |
---|
65 | $href_containers = get_href_containers($part_response); |
---|
66 | if ( isset($href_containers) ) { |
---|
67 | foreach( $href_containers AS $h => $property ) { |
---|
68 | $hrefs = $property->GetElements(); |
---|
69 | $pname = $property->GetTag(); |
---|
70 | $pns = $property->GetAttribute('xmlns'); |
---|
71 | if ( !isset($pns) || $pns == '' ) $pns = 'DAV:'; // Not sure if this is the correct way to default this. |
---|
72 | $pname = $pns .':'. $pname; |
---|
73 | $paths = array(); |
---|
74 | foreach( $hrefs AS $k => $v ) { |
---|
75 | $content = $v->GetContent(); |
---|
76 | $paths[] = $content; |
---|
77 | } |
---|
78 | // dbg_error_log('REPORT',' Found property "%s" contains hrefs "%s"', $pname, implode(', ',$paths) ); |
---|
79 | $property->SetContent( expand_properties($paths, $subtrees[$pname], $reply, false) ); |
---|
80 | } |
---|
81 | } |
---|
82 | // else { |
---|
83 | // dbg_error_log('REPORT',' No href containers in response to "%s"', implode(', ', $props ) ); |
---|
84 | // } |
---|
85 | } |
---|
86 | $responses[] = $part_response; |
---|
87 | } |
---|
88 | } |
---|
89 | |
---|
90 | return $responses; |
---|
91 | } |
---|
92 | |
---|
93 | |
---|
94 | /** |
---|
95 | * Build the array of properties to include in the report output |
---|
96 | */ |
---|
97 | $property_tree = $xmltree->GetPath('/DAV::expand-property/DAV::property'); |
---|
98 | |
---|
99 | $multistatus = new XMLElement( "multistatus", expand_properties( $request->path, $property_tree, $reply), $reply->GetXmlNsArray() ); |
---|
100 | |
---|
101 | $request->XMLResponse( 207, $multistatus ); |
---|