Lightly tweak sample command-line to make it more amenable to running under perldb...
[irspy-moved-to-github.git] / xsl / irspy2zeerex.xsl
1 <?xml version="1.0"?>
2 <!--
3     $Id: irspy2zeerex.xsl,v 1.17 2006-12-19 12:54:38 sondberg Exp $
4
5     This stylesheet is used by IRSpy to map the internal mixed Zeerex/IRSpy
6     record format into the Zeerex record which we store.
7
8 -->
9 <xsl:stylesheet
10     xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
11     xmlns:irspy="http://indexdata.com/irspy/1.0"
12     xmlns="http://explain.z3950.org/dtd/2.0/"
13     xmlns:explain="http://explain.z3950.org/dtd/2.0/"
14     exclude-result-prefixes="irspy explain"
15     version="1.0">
16
17   <xsl:output indent="yes"
18       method="xml"
19       version="1.0"
20       encoding="UTF-8"/>
21
22   <xsl:strip-space elements="*"/>
23
24   <xsl:variable name="old_indexes" select="/*/explain:indexInfo/explain:index"/>
25   <xsl:variable name="use_attr_names" select="document('use-attr-names.xml')"/>
26   <xsl:variable name="ping_date" select="/*/irspy:status/irspy:probe[last()]"/>
27
28
29   <xsl:template match="/*">
30     <explain>
31       <xsl:call-template name="insert-zeerexBase"/>
32       <xsl:call-template name="insert-indexInfo"/>
33       <xsl:call-template name="insert-recordInfo"/>
34       <xsl:call-template name="insert-configInfo"/>
35       <xsl:call-template name="insert-irspySection"/>
36     </explain>
37   </xsl:template>
38
39
40   <xsl:template name="insert-zeerexBase">
41     <xsl:copy-of select="explain:serverInfo"/>
42     <xsl:copy-of select="explain:databaseInfo"/>
43     <metaInfo>
44       <dateModified><xsl:value-of select="$ping_date"/></dateModified>
45     </metaInfo>
46   </xsl:template>
47
48
49   <xsl:template name="insert-indexInfo">
50     <indexInfo>
51       <xsl:choose>
52
53         <!-- Check that search was actually probed -->
54         <xsl:when test="/*/irspy:status/irspy:search">
55           <xsl:for-each select="/*/irspy:status/irspy:search">
56             <xsl:variable name="set" select="@set"/>
57             <xsl:variable name="ap" select="@ap"/>
58             <xsl:variable name="old"
59                 select="$old_indexes[explain:map/explain:attr/@set = $set and
60                                      explain:map/explain:attr/text() = $ap]"/>
61             <xsl:choose>
62               <xsl:when test="$old">
63                 <xsl:call-template name="insert-index-section">
64                   <xsl:with-param name="title" select="$old/explain:title"/>
65                 </xsl:call-template>
66               </xsl:when>
67               <xsl:otherwise>
68                 <xsl:call-template name="insert-index-section"/>
69               </xsl:otherwise>
70             </xsl:choose>
71           </xsl:for-each>
72         </xsl:when>
73
74         <!-- If not, insert what we already had... -->
75         <xsl:otherwise>
76           <xsl:copy-of select="explain:indexInfo/*"/>
77         </xsl:otherwise>
78       </xsl:choose>
79     </indexInfo>
80   </xsl:template>
81
82
83   <xsl:template name="insert-recordInfo">
84     <recordInfo>
85       <xsl:choose>
86
87         <!-- Did we actually probe record syntaxes? -->
88         <xsl:when test="/*/irspy:status/irspy:record">
89           <xsl:for-each select="/*/irspy:status/irspy:record_fetch[@ok = 1]">
90             <recordSyntax name="{@syntax}">
91               <elementSet name="F"/> <!-- FIXME: This should be probed too -->
92             </recordSyntax>
93           </xsl:for-each>
94         </xsl:when>
95
96         <!-- If not, use the existing test report... -->
97         <xsl:otherwise>
98           <xsl:copy-of select="explain:recordInfo/*"/>
99         </xsl:otherwise>
100       </xsl:choose>
101     </recordInfo>
102   </xsl:template>
103
104
105   <xsl:template name="insert-configInfo">
106     <configInfo>
107       <xsl:choose>
108         <xsl:when test="/*/irspy:status/irspy:init_opt">
109           <xsl:for-each select="/*/irspy:status/irspy:init_opt">
110             <supports type="z3950_{@option}">1</supports>
111           </xsl:for-each>
112         </xsl:when>
113         <xsl:otherwise>
114           <xsl:copy-of select="explain:configInfo/*"/>
115         </xsl:otherwise>
116       </xsl:choose>
117     </configInfo>
118   </xsl:template>
119
120
121   <!-- 
122        Here we list the bits and pieces of the irspy:status element which we
123        want to keep in the persistent version of the zeerex record.
124   -->
125   <xsl:template name="insert-irspySection">
126     <irspy:status>
127       <xsl:copy-of select="*/irspy:probe"/>
128
129       <xsl:call-template name="insert-latest-nodes">
130         <xsl:with-param name="nodes" select="*/irspy:boolean"/>
131         <xsl:with-param name="what" select="'boolean'"/>
132       </xsl:call-template>
133       
134       <xsl:call-template name="insert-latest-nodes">
135         <xsl:with-param name="nodes" select="*/irspy:named_resultset"/>
136         <xsl:with-param name="what" select="'named_resultset'"/>
137       </xsl:call-template>
138       
139       <xsl:call-template name="insert-latest-nodes">
140         <xsl:with-param name="nodes" select="*/irspy:explain"/>
141         <xsl:with-param name="what" select="'explain'"/>
142       </xsl:call-template>
143
144       <xsl:call-template name="insert-latest-nodes">
145         <xsl:with-param name="nodes" select="*/irspy:serverImplementationId"/>
146         <xsl:with-param name="what" select="'serverImplementationId'"/>
147       </xsl:call-template>
148
149       <xsl:call-template name="insert-latest-nodes">
150         <xsl:with-param name="nodes" select="*/irspy:serverImplementationName"/>
151         <xsl:with-param name="what" select="'serverImplementationName'"/>
152       </xsl:call-template>
153
154       <xsl:call-template name="insert-latest-nodes">
155         <xsl:with-param name="nodes"
156                     select="*/irspy:serverImplementationVersion"/>
157         <xsl:with-param name="what" select="'serverImplementationVersion'"/>
158       </xsl:call-template>
159     </irspy:status>
160   </xsl:template>
161
162
163   <!-- 
164        NB: This template assumes that the irspy:probe nodes come in ascending
165        order. If this is not the case, this template has to do some kind of
166        sorting which makes the whole thing more complicated.
167
168        Dec 12, 2006: Anders
169   -->
170   <xsl:template name="insert-latest-nodes">
171     <xsl:param name="nodes"/>
172     <xsl:param name="what" select="'unspecified'"/>
173     <xsl:param name="i" select="count(*/irspy:probe[@ok='1'])"/>
174     <xsl:variable name="date"
175         select="*/irspy:probe[@ok='1' and position() = $i]"/>
176     <xsl:variable name="latest"
177         select="$nodes[irspy:strcmp(text(), $date) > 0]"/>
178
179     <xsl:choose>
180       <xsl:when test="$latest">
181         <xsl:copy-of select="$latest"/>
182       </xsl:when>
183       <xsl:when test="$i > 0">
184         <xsl:call-template name="insert-latest-nodes">
185           <xsl:with-param name="what" select="$what"/>
186           <xsl:with-param name="nodes" select="$nodes"/>
187           <xsl:with-param name="i" select="$i - 1"/>
188         </xsl:call-template>
189       </xsl:when>
190       <xsl:otherwise>
191         <irspy:missing what="{$what}" when="{$ping_date}"/>
192       </xsl:otherwise>
193     </xsl:choose>
194   </xsl:template>
195
196   
197   <xsl:template match="node() | @*">
198     <xsl:copy>
199       <xsl:apply-templates select="@* | node()"/>
200     </xsl:copy>
201   </xsl:template>
202
203
204   <xsl:template name="insert-index-section">
205     <xsl:param name="update" select="."/>
206     <xsl:param name="title">
207       <xsl:call-template name="insert-index-title">
208         <xsl:with-param name="update" select="$update"/>
209       </xsl:call-template>
210     </xsl:param>
211
212     <index>
213       <xsl:attribute name="search">
214         <xsl:choose>
215           <xsl:when test="$update/@ok = 1">true</xsl:when>
216           <xsl:otherwise>false</xsl:otherwise>
217         </xsl:choose>
218       </xsl:attribute>
219       <title primary="true" lang="en">
220         <xsl:value-of select="$title"/>
221       </title>
222       <map primary="true">
223         <attr type="1" set="{$update/@set}">
224           <xsl:value-of select="$update/@ap"/>
225         </attr>
226       </map>
227     </index>
228   </xsl:template>
229
230
231   <xsl:template name="insert-index-title">
232     <xsl:param name="update"/>
233     <xsl:variable name="name"
234                 select="$use_attr_names/*/map[@attr = $update/@ap and
235                                               @set = $update/@set]/@name"/>
236
237     <xsl:choose>
238       <xsl:when test="string-length($name) &gt; 0"><xsl:value-of
239                                             select="$name"/></xsl:when>
240       <xsl:otherwise><xsl:value-of select="$update/@ap"/></xsl:otherwise>
241     </xsl:choose>
242   </xsl:template>
243
244
245   <xsl:template match="*"/>
246
247 </xsl:stylesheet>